4

私のプログラムには、URLから取得するプログラムの現在のバージョンをチェックする関数があります: www.tablemaster.webs.com/versioninfo.txt

ご覧のとおり、URL は単なるプレーン テキストです。このテキストを URL からプログラムの文字列にロードする必要があります。これを行うにはどうすればよいですか? 私は周りを検索しましたが、何も見つかりませんでした..

PS: 可能な限り単純なコードが必要です..

前もって感謝します :)

4

3 に答える 3

24

TIdHTTPこのように、最も簡単な GET オーバーロードでIndy を使用します。

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;
于 2012-06-26T16:08:41.550 に答える
2

myfxboard のTIEHTTPコンポーネントを使用して、TIEHTTP を使用して URL から txt ファイルをロードできます。

http.ExecuteURL('www.tablemaster.webs.com/versioninfo.txt');
Memo1.Lines.Add(http.sl.Text);
于 2012-06-27T09:08:13.103 に答える
1

特にプロジェクトで既に XML を使用している場合は、MSXML2_TLB を使用します。MSXML2 はバージョン Internet Explorer 5.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;
于 2012-06-26T18:09:21.910 に答える