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

Caster 2005-02-13 09:02:29 No: 88434

過去の質問も参考にして
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 11:19:37 No: 88435

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

猫夜叉 2005-02-13 12:24:21 No: 88436

>Print fn, tmp

Put fn,, tmp

これでどう？

マルポは嫌われますよ 2005-02-13 15:55:16 No: 88437

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