ファイルのHttpダウンロード

Delphi使い@C4 2005-03-14 01:59:38 No: 13747

こんにちは。
また、質問です。

いま、

「Button1」を押したとき、
[http://hogehoge.com/j.txt]をダウンロードする

これだけのプログラムを作りたいのですが、
検索してもどこにも乗っていません。

どなたか回答をお願いします

たかみちえ URL 2005-03-14 02:43:55 No: 13748

関連のありそうなキーワードで検索しましたか？
さがしたいものそのままではまずヒットしませんよ

Mr.XRAY URL 2005-03-14 03:35:57 No: 13749

この手のものはネット上にいくつかありす．検索キーの工夫が必要です．
たかみちえさんの折角のレス内容なのですが... (ゴメンなさいね)

たかみちえさんのところに WinInet使用HTTP_FTPコンポというのが
あります．一度試してみて下さい．
以下は，いまはやりの(?)Indyを使用した例です．
ここの掲示板か他の掲示板の過去ログからの焼き直しです．

新規プロジェクトに TMemo,TButtonを2つ，TIdHTTPを1つ配置します．

//======================================================
//  インターネット上のファイルをメモに表示
//======================================================
procedure TForm1.Button1Click(Sender: TObject);
var
     Adr,FileN:string;
begin
     Adr:='http://homepage2.nifty.com/Mr_XRAY/LzhFiles/TEST.txt';
     Memo1.Lines.Text:=IdHTTP1.Get(Adr);
end;
//======================================================
//  インターネット上のファイルをディスクにダウンロード
//  保存先はこのプロジェクトのフォルダ
//======================================================
procedure TForm1.Button2Click(Sender: TObject);
var
     FS       : TFileStream;
     Adr      : String;
     FilePath : String;
begin
  Adr:='http://homepage2.nifty.com/Mr_XRAY/LzhFiles/TEST.txt';
  FilePath :=ExtractFilePath(Application.ExeName)
                +'TESTDownLoad.txt';
  FS:=TFileStream.Create(FilePath,fmCreate);
     try
       IdHTTP1.Get(Adr,FS);
     finally
       FS.Free;
     end;
end;