私のプログラムには、URLから取得するプログラムの現在のバージョンをチェックする関数があります: www.tablemaster.webs.com/versioninfo.txt
ご覧のとおり、URL は単なるプレーン テキストです。このテキストを URL からプログラムの文字列にロードする必要があります。これを行うにはどうすればよいですか? 私は周りを検索しましたが、何も見つかりませんでした..
PS: 可能な限り単純なコードが必要です..
前もって感謝します :)
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;
myfxboard のTIEHTTPコンポーネントを使用して、TIEHTTP を使用して URL から txt ファイルをロードできます。
http.ExecuteURL('www.tablemaster.webs.com/versioninfo.txt');
Memo1.Lines.Add(http.sl.Text);
特にプロジェクトで既に 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;