如何用winsock控件发送和接收图片( 最好有例子)

wzwcn 2003-06-11 03:17:13
如题。
谢谢!
...全文
74 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
GetWindowPos 2003-06-17
  • 打赏
  • 举报
回复
二楼的代码真是.....
bydisplay 2003-06-11
  • 打赏
  • 举报
回复
up
suntt 2003-06-11
  • 打赏
  • 举报
回复
有例子,如果你要,给我发短信。
rappercn 2003-06-11
  • 打赏
  • 举报
回复
发送端:

Public Function SendChunk()
'This is where we send the file data
Dim ChunkSize As Long
Dim Chunk() As Byte
Dim arrHash() As Byte

If wsSend.State <> sckConnected Then Exit Function

ChunkSize = FT_BUFFER_SIZE '自己定
If FileNum = 0 Then 'No data has been sent yet, open the file
FileNum = FreeFile
Open filename For Binary As #FileNum
End If

'determine chunk size
If (LOF(FileNum) - Loc(FileNum)) < FT_BUFFER_SIZE Then _
ChunkSize = (LOF(FileNum) - Loc(FileNum))
'set array size to fit chunk
ReDim Chunk(0 To ChunkSize - 1)
'read the chunk
Get #FileNum, , Chunk
'Send the data
wsSend.SendData Chunk
Sentbyt = Sentbyt + ChunkSize
ByteSec = ByteSec + ChunkSize

'See if file is sent
If Sentbyt = FileSize Then 'FileSize自己先找好
Complete = True
Close #FileNum
End If
End Function


接收端:

Open Filename For Binary As #FileNum

Dim GotDat() As Byte
Dim Hash As String
ByteSec = ByteSec + bytesTotal
Receivedbyt = Receivedbyt + bytesTotal

ReDim GotDat(0 To bytesTotal - 1)
wsReceive.GetData GotDat, vbArray + vbByte
Put #FileNum, , GotDat
If Receivedbyt = FileSize Then
Close #FileNum
Complete = True
End If

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧