ファイルのHttpダウンロード (ID:13749)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

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

たかみちえさんのところに  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;

←解決時は質問者本人がここをチェックしてください。

戻る