Winsockでファイルを送受信するには？ (ID:83652)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 レスどうもです。 プロトコルはTCPです。TCPでのテキストのやり取り（要するにチャット）はうまくいきます。 おっしゃる通り、受信はできているが、ファイルにうまく書き出せない、ということです。 ファイルは生成されるのですが、ファイルの末端部64KBしか書き出せません・・・。 '受信部 Dim gd() As Byte WS.GetData gd() fn = FreeFile() Open "D:\a.mp3" For Binary Access Write As fn Print fn, gd() Close fn