Загрузка элемента управления заметкой из внешнего файла с помощью Smart Mobile Studio 1.1

Question

Как мне загрузить блокнот из внешнего файла?

пример: \res\info.txt

Спасибо

Answer 1

Похоже, что люди в SMS придумали быстрое и грязное решение, пока они не могут добавить метод LoadFromUrl в th TStringList

http://smartmobilestudio.com/forums/topic/loading-memo-from-file-resinfo-txt/

Их решение работает путем добавления LoadFromURL метод к классу TStringList через вспомогательный объект. Приведенный ниже код скопирован с форума Smart Mobile Studio и настроен для работы с Smart Mobile Studio 1.1. Вы можете использовать его unitil TStringList.LoadFromUrl появляется в RTL.

type
  TStringlistHelper = class helper for TStringList
    procedure LoadFromUrl(aUrl:String;Callback: TProcedureRef = nil);
  end;

procedure TStringlistHelper.LoadFromUrl(aUrl:String;
            Callback:TProcedureRef);
var
  mRequest: TW3HttpRequest;
begin
  mRequest:=TW3HttpRequest.Create;
  mRequest.OnDataReady:=procedure (Sender:TW3HttpRequest)
  begin
    self.text:=Sender.ResponseText;
    if assigned(Callback) then Callback;
    w3_callback(sender.free,100);
  end;
  mRequest.Get(aUrl);
end;

Просто добавьте этот код в какой-то модуль, а затем используйте этот модуль в своем проекте.