掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Winsockでバイナリファイルを正しく転送するには？ (ID：106746)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Winsockコントロールを使用し ネットワーク間でのバイナリファイルのやり取りをしたいと思っていますが 最初の１バイトのみ受信し、２バイト目以降のデータに関しては 受信しないまま転送が終わってしまいます。 何か問題がござしましたらご指摘お願いいたします なおWinsockのプロトコルはＴＣＰ／ＩＰを使用しています 送信側： Private Sub send_filedata() Dim filedata() As Byte Dim i As Integer filesize = LOF(2) For i = 1 To filesize Get #2, i, filedata Winsock3.SendData filedata Next i Winsock1.SendData "::end::" Close (2) End Sub 受信側： Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long) Dim filedata As Byte Dim test As String Winsock4.GetData filedata, vbByte, bytesTotal Put #1, 1, filedata End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.