Delphi:如何将互联网上的文本文件加载到字符串中?

9cbw7uwe  于 2022-09-21  发布在  其他
关注(0)|答案(4)|浏览(157)

在我的程序上,我有一个函数可以检查程序的当前版本,它从url:www.ablemaster.webs.com/versioninfo.txt获得

如您所见,URL处只有纯文本。我需要在我的程序上将这个文本从URL加载到一个字符串中,我该如何开始呢?我到处找了找,但什么也没找到。

PS:我需要尽可能简单的代码。

提前感谢:)

1cosmwyk

1cosmwyk1#

我会使用Indy的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;
lvmkulzt

lvmkulzt2#

您可以使用myfxboard中的TIEHTTP组件。要使用TIEHTTP从url加载txt文件:

http.ExecuteURL('www.tablemaster.webs.com/versioninfo.txt');
Memo1.Lines.Add(http.sl.Text);
5jdjgkvh

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;
vddsk6oq

vddsk6oq4#

使用IdHTTP;

步骤TForm1.Button1Click(发送者:TObject);var.。

似乎在此方法中,系统缓存了txt文件,因此如果文件在Web上更改,此方法将拒绝更改。!

相关问题