用VB的WINSOCK控件发送大于8K的BMP

2006-9-20　网友评论 0 条　点击进入论坛

服务器端：　
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1

Private Sub Form_Load()
tcpServer.LocalPort = 1001 '' 设置监听端口号
tcpServer.Listen '' 开始监听

End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID

End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim a As String
tcpServer.GetData a

If a = "b" Then
Call keybd_event(vbKeySnapshot, theScreen, 0, 0)

Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Picture1.Image, "d:\ww.bmp"

 

Dim buf() As Byte
Dim position As Long
Open "d:\ww.bmp" For Binary As #1
position = 0
Do While Not EOF(1)
position = positon + 1
ReDim Preserve buf(1 To position)
Get #1, , buf(position)
Loop
Close #1

tcpServer.SendData buf

End If

End Sub

客户端：
Private Sub Command1_Click()

tcpClient.RemoteHost = txtip.Text
tcpClient.RemotePort = 1001
tcpClient.Connect '' 进行连接

End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("d:\wr.bmp")
End Sub

Private Sub Command3_Click()

tcpClient.SendData "b"
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)

Dim receivefile(1 To 119862) As Byte
tcpClient.GetData receivefile, vbArray + vbByte

''告诉Winsock控件收到的是字节数组类型的数据
Open "d:\wr.bmp" For Binary As #1

Put #1, , receivefile

Close #1

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

Private Sub Text1_Change()

今日推荐

• ·2008年十大IT技术
• ·中间件标准将推动我国数字电视市场发展
• ·解决生产企业的订单管理问题[图]
• ·大型格式化打印技术
• ·高质量显示技术

• ·开源历史回顾 Linux操作系统的发展与文化
• ·新手学堂：安装Linux应该了解的六个问题
• ·给初学者的建议 谈一谈怎样走入Linux大门
• ·Linux与其他操作系统区别
• ·重复数据删除技术在数据保护过程中的应用

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点