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);
に変更したらいきましたｗ
| ツイート |  |