您的位置:首页> 电脑专栏>内容正文
用VB的WINSOCK控件发送大于8K的BMP
[正文]:服务器端： 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 = 1private sub form_load()tcpserver.localport = 1001 ' 设置监听端口号tcpserver.listen ' 开始监听end subprivate sub tcpserver_connectionrequest(byval requestid as long)if tcpserver.state <> sckclosed then tcpserver.closetcpserver.accept requestidend subprivate sub tcpserver_dataarrival(byval bytestotal as long)dim a as stringtcpserver.getdata aif a = "b" thencall keybd_event(vbkeysnapshot, thescreen, 0, 0)picture1.picture = clipboard.getdata(vbcfbitmap)savepicture picture1.image, "d:\ww.bmp"dim buf() as bytedim position as longopen "d:\ww.bmp" for binary as #1position = 0do while not eof(1)position = positon + 1redim preserve buf(1 to position)get #1, , buf(position)loopclose #1tcpserver.senddata bufend ifend sub客户端：private sub command1_click()tcpclient.remotehost = txtip.texttcpclient.remoteport = 1001tcpclient.connect ' 进行连接end subprivate sub command2_click()picture1.picture = loadpicture("d:\wr.bmp")end subprivate sub command3_click()tcpclient.senddata "b"end subprivate sub tcpclient_dataarrival(byval bytestotal as long)dim receivefile(1 to 119862) as bytetcpclient.getdata receivefile, vbarray + vbbyte'告诉winsock控件收到的是字节数组类型的数据open "d:\wr.bmp" for binary as #1put #1, , receivefileclose #1end subprivate 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 subprivate sub text1_change()end sub
网站首页 培训课程 维修指南
技术文章 家电专栏 供应信息
求购信息 培训资讯 展会信息
电脑专栏 教程下载 资料下载
常用软件 PLC教程 PLC资料
变频伺服 低压电器 维修资料
人机界面 自控仪表 工控机类
文章标题:
中国工控资源网手机版 2012
电话：010-67577139 13811659603
培训咨询QQ：657167934 471895637 销售咨询QQ：623769457
联系邮箱：zggkzyw@163.com
京ICP备11002135号
报时(2026-04-05 00:19:23)