在我的程序上,我有一个函数可以检查程序的当前版本,它从url:www.ablemaster.webs.com/versioninfo.txt获得
如您所见,URL处只有纯文本。我需要在我的程序上将这个文本从URL加载到一个字符串中,我该如何开始呢?我到处找了找,但什么也没找到。
PS:我需要尽可能简单的代码。
提前感谢:)
1cosmwyk1#
我会使用Indy的TIdHTTP,这样最容易获得重载:
TIdHTTP
uses IdHTTP; procedure TForm1.Button1Click(Sender: TObject); var S: string; IdHTTP: TIdHTTP; begin IdHTTP := TIdHTTP.Create(nil); try S := IdHTTP.Get('http://www.tablemaster.webs.com/versioninfo.txt'); ShowMessage(S); finally IdHTTP.Free; end; end;
lvmkulzt2#
您可以使用myfxboard中的TIEHTTP组件。要使用TIEHTTP从url加载txt文件:
http.ExecuteURL('www.tablemaster.webs.com/versioninfo.txt'); Memo1.Lines.Add(http.sl.Text);
5jdjgkvh3#
我会使用MSXML2_TLB,特别是如果我已经在项目中使用了XML。MSXML2从Internet Explorer5.5版本开始就出现在Windows中,所以它很有可能出现在系统中。您可以使用主菜单中的导入类型库选项,并从列表中选择“Microsoft XML,V6.0”(或更高版本)来获取MSXML2_TLB.pas。
var r:XMLHTTP; begin r:=CoXMLHTTP.Create; r.open('GET','http://www.tablemaster.webs.com/versioninfo.txt','',''); r.send(EmptyParam); if r.status<>200 then raise Exception.Create(IntToStr(r.status)+' '+r.statusText); Result:=r.responseText; end;
vddsk6oq4#
使用IdHTTP;
步骤TForm1.Button1Click(发送者:TObject);var.。
似乎在此方法中,系统缓存了txt文件,因此如果文件在Web上更改,此方法将拒绝更改。!
4条答案
按热度按时间1cosmwyk1#
我会使用Indy的
TIdHTTP
,这样最容易获得重载:lvmkulzt2#
您可以使用myfxboard中的TIEHTTP组件。要使用TIEHTTP从url加载txt文件:
5jdjgkvh3#
我会使用MSXML2_TLB,特别是如果我已经在项目中使用了XML。MSXML2从Internet Explorer5.5版本开始就出现在Windows中,所以它很有可能出现在系统中。您可以使用主菜单中的导入类型库选项,并从列表中选择“Microsoft XML,V6.0”(或更高版本)来获取MSXML2_TLB.pas。
vddsk6oq4#
使用IdHTTP;
步骤TForm1.Button1Click(发送者:TObject);var.。
似乎在此方法中,系统缓存了txt文件,因此如果文件在Web上更改,此方法将拒绝更改。!