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;