怎么用winsock来传递整个文件，就像收邮件的附件一样

[mhuang]

rt

[zzh]

把整个文件以流的形式传过去不就得了，然后在另外一面接收。或者以打包的形式传递，当然，你可以加上校验码。

[mhuang]

（1）我不知道文件的格式怎么打开呢？
（2）我需不需要在接受的时候建立那个文件呢？应该要吧，怎么建

[OpenBall]

简单。
管它什么格式，存到磁盘上还不都是01001101，用二进制形式打开文件，读入内存块。

在接受方，再新建文件，也是二进制格式，直接写入即可。

[alstamania]

你是不是碰到接收端丢数据的情况？若是这样，可用setsockopt（）将接收缓冲区增大。

[兴导]

以下是vb做的，供你参考：


Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub SendFile(FileName As String, WinS As Winsock)
Dim FreeF As Integer
Dim LocData() As Byte
Dim LenData As Long
Dim sendloop As Long

FreeF = FreeFile
Open FileName For Binary As #FreeF
ReDim LocData(1 To 2048) As Byte
LenData = LOF(FreeF)
For sendloop = 1 To LenData \ 2048
Get #FreeF, , LocData
WinS.SendData LocData 'Send the chunk
Next
If LenData Mod 2048 <> 0 Then
ReDim LocData(1 To LenData Mod 2048) As Byte
Get #FreeF, , LocData
WinS.SendData LocData
End If
Close #FreeF
Sleep 200
End Sub

Public Function oPD(Text As String) As String
Dim TextC As String * 3
Dim G As Long
Dim TextX As String
Dim x As Long

G = Len(Text)
For x = 1 To G
TextC = Asc(Mid(Text, x, 1))
TextX = TextX & TextC
Next x
oPD = TextX
End Function

Public Function rPD(Text As String) As String
Dim TextC As String * 3
Dim G As Long
Dim TextX As String
Dim x As Long

G = Len(Text)

For x = 1 To G
On Local Error Resume Next
TextC = Chr(Mid(Text, x, 3))
TextX = TextX & TextC
Next x
rPD = TextX
End Function