delphi - Delphi：如何将互联网上的文本文件加载到字符串中？

Question

在我的程序上，我有一个检查程序当前版本的函数，它从 url 获取：www.tablemaster.webs.com/versioninfo.txt

如您所见，在 URL 处只是纯文本。我需要将此文本从 URL 加载到我的程序上的字符串中，我将如何执行此操作？我四处寻找，但一无所获。。

PS：我需要尽可能简单的代码..

提前致谢 ：）

Answer 1

我会TIdHTTP以这种方式使用 Indy 最简单的 GET 重载：

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;

Answer 2

您可以使用myfxboard.. 中的 TIEHTTP组件使用 TIEHTTP 从 url 加载 txt 文件：

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

Answer 3

我会使用 MSXML2_TLB，特别是如果我已经在项目中使用了 XML。MSXML2 从 Internet Explorer 5.5 版本开始出现在 Windows 中，因此很有可能它出现在系统上。您可以使用主菜单中的 Import Type Library 选项获取 MSXML2_TLB.pas，然后从列表中选择“Microsoft XML, v6.0”（或更高版本）。

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;