DELPHI6.0 ブラウザ上の画像をLocalに保存するには？

解決

---

先月、初めてDELPHIで仕事を始めている、のりといいます。
この業界に入って半年、わからぬことばかりで＾＾；

  今回の質問なんですが、指定したアドレスの画面の画像を
自分のローカルに保存するにはどうしたらいいのか？と言う質問なんですけど
DELPHIのコンポーネントを見ても意味がわからず＾＾；

何分、初心者でわからぬことばかりですが、教えてください。

編集    削除

---

質問が曖昧ですよ。
タイトルから読むと、
１．TWebBrowserで表示しているページ内の指定した画像を、ローカルに保存したい
２．IEなどのブラウザで表示しているページ内の指定した画像を、ローカルに保存したい
本文から読むと、
３．指定したURLの画像を、ローカルに保存したい

どれでしょうか。
３であればTCPClientで取ってくればOKです。

１，２は、IEにキャッシュがあることを期待して(なくてもいいのですが)、InternetOpenUrl APIなどで取得すればよいかと思います。
InternetOpenUrlのサンプルは、Cですが、
http://tokyo.cool.ne.jp/masapico/api_InternetOpenUrl.html
にありました。

DOMではおそらく出来ません。
# 未確認です

編集    削除

---

ああ、もう１つ。
３も、InternetOpenUrlで取得できます。こっちの方が簡単かも。
それと、TWebBrowserコンポーネントであれば、URLはDOMから取得できると思います。取得したURLで、InternetOpenUrlを使って画像を取得、という手順になります。

編集    削除

---

質問がわかりにくくてすいませんでした＾＾；

３の指定したURLの画像をローカルに保存したいです。

回答ありがとうございます！！やってみます！！

編集    削除

---

自分でも調べながらやっているのですが、どうもうまくいきません、というよりもやり方がわかりません。

TCPClientを使ったサンプルソースみたいな物があるとうれしいのですが、
わがままですいません。

編集    削除

---

HTTPに関しては、ご自身で勉強してくださいね。
例えば、
http://www.atmarkit.co.jp/fnetwork/rensai/tcp01/01.html
http://www.atmarkit.co.jp/fnetwork/rensai/tcp02/01.html
こういうサイトなど。


コーディングはこんな感じになると思います。
エラーチェックなどはご自身で用意してください。

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array[0..128] of char;
  str: String;
  len: integer;
begin
  str := '';
  TcpClient1.RemoteHost := 'www.yahoo.co.jp';
  TcpClient1.RemotePort := '80';
  Memo1.Lines.Clear;
  try
    if TcpClient1.Connect then
    begin
      TcpClient1.Sendln('GET / HTTP/1.1');
      TcpClient1.Sendln('Host: www.yahoo.co.jp');
      TcpClient1.Sendln('');
      while true do
      begin
        Application.ProcessMessages;
        begin
          len := TcpClient1.ReceiveBuf(buf[0], 128, 0);
          if len = 0 then Break;
          str := str + Copy(buf, 1, len);
        end;
      end;
      Memo1.Lines.Add(str);
    end;
  finally
    if TcpClient1.Connected then TcpClient1.Disconnect;
  end;
end;

編集    削除

---

はい！勉強します！

細かく書いていただいてありがとうございます！！

編集    削除

---

Memo1.Lines.Clear;

  とありますが、Memo1は何型で宣言すればいいですか？

編集    削除

---

TMemoを貼り付けただけです。
まあ、何でもいいんですが。

編集    削除

---

TMemoには何が表示されるんですか？
指定したURL(www.yahoo.co.jp)の何かの情報をAdd（追加？）
し表示されるのでしょうか？

実行してみましたが。

  Memoには何も表示されないですけど、それで動作はあっていますか？

編集    削除

---

Application.ProcessMessages;
のあたりで、データが来るのを待たないと駄目かもしれません。
回線速度とPCの処理能力によりますが、こちらでは(PCの性能が悪いので^^;)取れています。

別なサンプル作ってみますね。
もしかしたら、IndyのTcpClientならうまくいくかもしれないので。

編集    削除

---

すいません＾＾；

お願いします！！HTTPの勉強してます！！

編集    削除

---

Indyの、TIdHTTPですんなり行きました。

var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.Get('http://www.yahoo.co.jp/', Stream);
    Stream.Seek(0, soBeginning);
    Memo1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

これでどうでしょうか。

編集    削除

---

InternetOpenUrlを使った例。

var
 hSession: HINTERNET;
 hService: HINTERNET;
 lpBuffer: array[0..1024] of Char;
 dwBytesRead: Cardinal;
 str: String;
begin
  str := '';
  hSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
  if Assigned(hSession) then
  begin
    hService := InternetOpenUrl(hSession, 'http://www.yahoo.co.jp/', nil, 0, INTERNET_FLAG_RELOAD, 0);
    try
      if Assigned(hService) then
      begin
        while true do
        begin
          FillChar(lpBuffer, SizeOf(lpBuffer), #0);
          InternetReadFile(hService, @lpBuffer, SizeOf(lpBuffer), dwBytesRead);
          if dwBytesRead = 0 then Break;
          str := str + Copy(lpBuffer, 0, dwBytesRead - 1);
        end; //while
        str := AdjustLineBreaks(str);
        Memo1.Lines.Add(str);
      end; //if Assigned(hService)
    finally
     InternetCloseHandle(hService);
    end;
  end; //if Assigned(hSession)

 finally
  InternetCloseHandle(hSession);
 end;
end;

そういえば、たかみちえさんのところにHTTPでのダウンロードを実現するコンポーネントありませんでしたっけ？

編集    削除

---

Indyの、TIdHTTPですんなり行きました。

  TIdHTTPというコンポーネントですか？

そういえば、たかみちえさんのところにHTTPでのダウンロードを実現するコンポーネントありませんでしたっけ？

  そんな便利な物があるんですか！？

編集    削除

---

Stream.Seek(0, soBeginning);
  
  の部分でEIdSoketErrorが発生して、うまくいかないです；；

編集    削除

---

InternetOpenUrlを使った例。の方ではHTMLソース？
を取得してTMemoに表示されました！！

この取得されたデータを（画像データなんですけど）自分のPCのローカルに
保存（名前をつけて保存）ってできますか？

編集    削除

---

InternetOpenUrlであれば、TMemoryStreamなりTFileStreamなりを用意して、

str := str + Copy(lpBuffer, 0, dwBytesRead - 1);

でコピーしているlpBuffer内のdwBytesRead分を、Stream.Write(lpBuffer[0], dwBytesRead);してやればよろしいかと思います。

Seekでうまく行きませんか？
Stream.Position :=0でも駄目ですかね。

編集    削除

---

>Seekでうまく行きませんか？
>Stream.Position :=0でも駄目ですかね。
 でもうまくいかないです＾＾；

InterNetOpenUrlの方ではTMemoに表示されているので、こちらでやろうと思います。
>TMemoryStreamなりTFileStreamなりを用意して、
>str := str + Copy(lpBuffer, 0, dwBytesRead - 1);
TMemoryStream?TFileStream?  ＾＾；
わかりました、勉強して見ます！！

編集    削除

---

>Seekでうまく行きませんか？
>Stream.Position :=0でも駄目ですかね。

  の部分はうまくいってたみたいです！！

  エラーが出てるのは、Memo1.Lines.LoadFromStream(Stream);
の部分で、LoadFromStreamというのがないみたいです＾＾；
たぶんなんですが＾＾；

編集    削除

---

だんだん、てんぱってきました＾＾；

EIdSocketError  １行づつコメントアウトでどこまで行くかやっていたら
> IdHTTP1.Get('http://www.yahoo.co.jp/', Stream);
でエラーが出てました＾＾；
EIdSocketError  というの何ですが、ヘルプを見てもわかりません、教えてください；；

編集    削除

---

できましたぁぁ！！

にしのさん、ながながとありがとうございました！！

 IdHTTP1.Get('http://www.yahoo.co.jp/', Stream);

                        ↓

 IdHTTP1.Get('http://www.yahoo.co.jp/index.html', Stream);

に変更したらいきましたｗ

編集    削除

---

名前

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

本文

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