Webページの保存をするには？ (ID：15371)

名前

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

本文

メラトニンさんがレスした内容の一部でも知ってほしかったんですが，
例えば以下は，IEDownLoadというコンポーネントを使用した簡単な例です．
tmpフォルダは使用していませんが，手順はほぼ同じです．
つまり，このような作業が必要だということです．

//=============================================================================
//  サイトの情報を取得する例
//  (ページのソースと画像のみ)
//  IEDownLoadコンポーネントを使用
//  http://www.euromind.com/iedelphi/iedownload.htm
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
     AppPath  : String;
     BaseUrl  : String;
     AUrl     : String;
     ImagePath: String;
     FileDir  : String;
     FilePath : String;
begin
     //保存先はこのアプリのフォルダ
     AppPath :=ExtractFilePath(Application.ExeName);
     //htmlソースコードのダウンロード
     BaseUrl:='http://homepage2.nifty.com/Mr_XRAY/';
     FilePath:=AppPath+'私のサイト.html';
     IEDownload1.Go(BaseUrl,FilePath);

//画像を取得(画像名はhtmlソースを解析して<image srcタグから取得)
     //取得するページより上にある場合は工夫が必要
     //htmlソースの解析方法はWebにいろいろある
     ImagePath:='Delphi/plSamples/Images/plSamples1.gif';
     FilePath :=AppPath+
                StringReplace(ImagePath,'/','\',[rfReplaceAll]);

//保存フォルダを作成(ForceDirectriesにはFileCtrlが必要)
     ForceDirectories(ExtractFileDir(FilePath));
     AUrl:=BaseUrl+ImagePath;
     IEDownload1.Go(AUrl,FilePath);
end;

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

戻る