掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DELPHI6.0 ブラウザ上の画像をLocalに保存するには？ (ID：5765)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.