2013-03-21 54 views

回答

2

它看起來像在SMS鄉親們想出了一個快速和骯髒的解決方案,直到他們可以在次TStringList中添加LoadFromUrl方法

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

的ir解決方案通過將幫助對象添加到TStringList類的LoadFromURL方法工作。下面的代碼從Smart Mobile Studio論壇複製並調整爲與Smart Mobile Studio 1.1配合使用。你可以使用它單元格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; 

只需將此代碼添加到某個單元,然後在您的項目中使用此單元。