WinsockでHTTPでダウンロードして保存するには?


Caster  2005-02-13 00:02:29  No: 88434  IP: [192.*.*.*]

過去の質問も参考にして
HPからlogoイメージをgetしようとしたのですが0byteになってしまいます。
ヘッダをいじらないといけないのでしょうか。

Private Sub Winsock1_DataArrival( ByVal bytesTotal As Long)
Dim tmp() As Byte
Dim fn as integer

fn=freefile
Winsock1.GetData tmp, vbArray + vbByte, bytesTotal

fn = FreeFile()

Open "D:\logo.gif" For Binary Access Write As fn
Seek fn, LOF(fn) + 1
Print fn, tmp
Close fn



End Sub

編集 削除
Caster  2005-02-13 02:19:37  No: 88435  IP: [192.*.*.*]

具体的には
Private Sub Winsock1_Connect(Index As Integer)
winsock1.senddata "GET /logo.gif HTTP/1.0" & vbcrlf & vbcrlf
End Sub
みたいな風にかいたら
dataarrival部分はどう書いたらよろしいのでしょうか?

編集 削除
猫夜叉  2005-02-13 03:24:21  No: 88436  IP: [192.*.*.*]

>Print fn, tmp

Put fn,, tmp

これでどう?

編集 削除
マルポは嫌われますよ  2005-02-13 06:55:16  No: 88437  IP: [192.*.*.*]

http://www.takeittechies.com/vbtomo/boards/vbqanda.php?do=spread&num=8431

編集 削除