TNMHTTPでファイルをダウンロードする

Delphi 5 のプロフェッショナル版以上に付いてくる TNMHTTPコンポーネントを使い HTTP経由でファイルをダウンロードする方法です。

■ TNMHTTPコントロールでサーバー上のファイルをダウンロードする例

procedure TForm1.Button1Click(Sender: TObject); var strSvrFile, strLocalFile : string; begin strSvrFile := 'http://www.borland.com/document/a.gif'; strLocalFile := 'c:\work\a.gif'; NMHTTP1.InputFileMode := True; NMHTTP1.Body := strLocalFile; //ローカル保存先 NMHTTP1.Get(strSvrFile);　　//取得 end;