VB中远程共享显示及声音的实现

　2006-02-27 21:15:44　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺鍦拡閸嬪棝鎯€椤忓浂妯勯梺鍝勬湰濞叉ḿ鎹㈠┑濠勭杸闁哄洨濮烽悰銉╂⒒娴ｅ搫甯跺鐟帮攻缁傚秴饪伴崼姘ｅ亾閺冨牆绀冩い蹇庣娴滈箖鏌ㄥ┑鍡涱€楀褜鍠栭湁闁绘ɑ鐟ョ€氼喚绮绘ィ鍐╃厱妞ゆ劑鍊曢弸搴ㄦ煟韫囧鍔滈柕鍥у瀵潙螣閸濆嫬袝婵＄偑鍊戦崹娲偡閳哄懎绠栭柍鈺佸暞閸庣喖鏌曢崶褍绨婚柟鍑ゆ嫹

核心提示：->在局域网内共享调制解调器以及共享打印机都是我们非常熟悉的，而对于显示器和声卡的共享一般比较陌生，VB中远程共享显示及声音的实现，->->当你在进行教学、演示或展示时，也许你希望主控电脑上的画面同时也出现在其它电脑上；当你在跟踪调试程序时，而且功能强大，->->由于关键模块与共享显示一致，你也许梦想过两台显示器能够同

->在局域网内共享调制解调器以及共享打印机都是我们非常熟悉的，而对于显示器和声卡的共享一般比较陌生。->->当你在进行教学、演示或展示时，也许你希望主控电脑上的画面同时也出现在其它电脑上；当你在跟踪调试程序时，你也许梦想过两台显示器能够同步，以便观看源代码时不破坏运行程序画面；还有，出于管理的目的，或许你需要远程监控其它电脑的运行状况，等等。上述所有情况都是远程共享显示的例子。->->共享声卡的需求也不少：首先这可以降低硬件投资，让没有装或者没法装声卡的电脑（如某些笔记本电脑）也有了“喉舌”；其次，即使每台机器都有声卡也不无用武之地：至少你的mp3背景音乐与你的英语有声软件不再经常发生冲突了；还有，共享声卡使得“远程有声通知”成为可能，其作用类似于立即型声音邮件，在日常工作中有广泛的应用。->->共享显示器或声卡的硬件（一般在扩展槽内插一块卡）在市场上不难找到。但扩充本文的示例程序即可以用软件轻松实现这些功能。->->一、共享显示->->我们通过一个完整的示例程序（VB6.0）来说明。在例子中，被共享端（即服务器端）的任务是：自动捕获本机的当前显示画面，并将之传给共享端（即客户端）。->->1.服务器端程序（frmServer.frm）->->这里有三点需要重点说明：一是自动捕获画面问题。为了模拟“捕获屏幕键”被按下的动作，程序里使用了API调用keybd_event。虽然VB的SendKeys语句也有类似功能，但它不如keybd_event稳定和可靠。二是画面粘贴和压缩存储问题。为了能把已经被捕获到系统剪贴板中的图像粘贴下来并存储到文件，程序里使用了ImgEdit控件。该控件强大的功能远非PictureBox控件或Image控件可比。ImgEdit不仅支持多种压缩图像格式（如JPG、TIFF等），而且它对画面进行操纵和编辑的功能也非常强大（如图像旋转、缩放、嵌入等）。ImgEdit还能对剪贴板进行Copy、Cut、Paste等操作。使用Ctrl T或菜单（工程->部件）来添加Windows标准的ImgEdit控件（参见图一）。三是文件传输问题。用ImgEdit存储的压缩文件一般只有40KB左右，使用Winsock控件可以一次传输出去。但由于接收方的Winsock控件一般是4K至8K调用一次DataArrival子程，故程序使用主动分块进行传输，接收方确认后再发下一块。->->

->->服务器端源程序如下：->->'======================frmServer.frm->->OptionExplicit->->ConstFileName="C:\sys1.tmp",BlockSize=3072'传送包大小->->PrivateDeclareSubkeybd_eventLib"user32"_->->(ByValbVkAsByte,ByValbScanAsByte,_->->ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)->->　->->PrivateSubForm_Load()->->tcpServer.LocalPort=1001'设置监听端口号->->tcpServer.Listen'开始监听->->EndSub->->　->->PrivateSubtcpServer_ConnectionRequest(ByValrequestIDAsLong)->->IftcpServer.State<>sckClosedThentcpServer.Close->->tcpServer.AcceptrequestID->->tcpServer.SendData"SH"'成功连接后，发送“握手”信息->->EndSub->->　->->PrivateSubtcpServer_DataArrival(ByValbytesTotalAsLong)->->StaticFileIDAsInteger,Cur_PosAsLong,FileLenAsLong->->DimstrDataAsString,j->->DimBuf()AsByte'定义一个可变大小的数组，用于传送二进制图像包->->tcpServer.GetDatastrData->->SelectCasestrData->->Case"Close"'接到“Disconnect”命令后，关闭当前连接，并继续监听->->tcpServer.Close->->ImgEdit1.ClearDisplay->->tcpServer.LocalPort=1001->->tcpServer.Listen->->Case"SavePicture"->->Callkeybd_event(vbKeySnapshot,1,0,0)'模拟按键操作->->j=DoEvents()->->IfDir$(FileName)<>""ThenKillFileName->->IfImgEdit1.IsClipboardDataAvailableThen'当剪贴板上有数据时->->ImgEdit1.ClearDisplay->->ImgEdit1.DisplayBlankImageScreen.Width/_->->Screen.TwipsPerPixelX,Screen.Height/_->->Screen.TwipsPerPixelY,,,6->->ImgEdit1.ClipboardPaste'从剪贴板粘贴图像->->ImgEdit1.BurnInAnnotations0,2->->ImgEdit1.SaveAsFileName,1,6,6,256'另存图像。参数说明如下：->->'“FileName”：文件名->->'参数“1”：TIFF型文件；->->'第一个“6”：RGB24类型；->->'第二个“6”：JPEG压缩类型->->'参数“256”：最大压缩比->->Clipboard.Clear->->tcpServer.SendData"PS"'发送“图像文件就绪”信息->->EndIf->->Case"GetPicture"->->IfDir$(FileName)<>""Then->->FileID=FreeFile->->OpenFileNameForBinaryAs#FileID'打开文件并发送第一块数据->->FileLen=LOF(FileID)->->ReDimBuf(1ToBlockSize)AsByte->->Get#FileID,,Buf->->tcpServer.SendDataBuf->->Cur_Pos=BlockSize->->EndIf->->Case"NextBlock"->->IfCur_Pos=FileLenThen->->tcpServer.SendData"EF"'文件传送完毕后，发送“完成”信息->->CloseFileID->->ExitSub->->EndIf->->j=Cur_Pos BlockSize->->Ifj>FileLenThen->->j=FileLen-Cur_Pos->->Else->->j=BlockSize->->EndIf->->ReDimBuf(1Toj)AsByte'动态确定数组大小->->Get#FileID,,Buf->->tcpServer.SendDataBuf'发送后续包->->Cur_Pos=Cur_Pos j->->EndSelect->->EndSub->->　->->2.客户端程序（frmClient.frm）->->在窗体上建六个控件：一个名为tcpClient的Winsock控件用于通讯；一个名为txtIP的TextBox控件用于填写服务器的IP地址；一个名为ImgEdit1的ImgEdit控件用于显示服务器传来的图像；三个CommandButton控件（cmdConnect、cmdGet_Pic和cmdDisconnect）分别用于执行连接、取回图像和断开连接（见图二）。->->

->->客户端源代码如下：->->'======================frmClient.frm->->OptionExplicit->->ConstFileName="C:\sys1.tmp"->->PrivateSubcmdConnect_Click()->->IftcpClient.State<>sckClosedThentcpClient.Close->->tcpClient.RemoteHost=txtIP.Text->->tcpClient.RemotePort=1001->->tcpClient.Connect'进行连接->->EndSub->->　->->PrivateSubcmdDisconnect_Click()->->tcpClient.SendData"Close"'断开连接->->cmdConnect.Enabled=True->->cmdGet_Pic.Enabled=False->->cmdDisconnect.Enabled=False->->EndSub->->　->->PrivateSubcmdGet_Pic_Click()->->tcpClient.SendData"SavePicture"'请求图像返回->->frmClient.MousePointer=11->->EndSub->->　->->PrivateSubForm_Resize()'使ImgEdit1的大小随窗体的变化而变化->->ImgEdit1.Height=frmClient.Height-825->->ImgEdit1.Width=frmClient.Width-225->->EndSub->->　->->PrivateSubtcpClient_DataArrival(ByValbytesTotalAsLong)->->StaticFileIDAsInteger,FileLenAsLong->->DimBuf()AsByte->->DimjAsInteger->->ReDimBuf(bytesTotal)AsByte'根据到达数据的字节数确定接收数组的大小->->tcpClient.GetDataBuf->->'收到连接完成的“握手”信息->->IfbytesTotal=2AndChr(Buf(0))="S"AndChr(Buf(1))="H"Then->->cmdConnect.Enabled=False->->cmdGet_Pic.Enabled=True->->cmdDisconnect.Enabled=True->->ExitSub->->EndIf->->'收到图像就绪的信息->->IfbytesTotal=2AndChr(Buf(0))="P"AndChr(Buf(1))="S"Then->->IfDir$(FileName)<>""ThenKillFileName->->FileID=FreeFile->->OpenFileNameForBinaryAs#FileID'打开文件，准备存储图像->->FileLen=0->->tcpClient.SendData"GetPicture"->->ExitSub->->EndIf->->'收到图像发送完毕的信息->->IfbytesTotal=2AndChr(Buf(0))="E"AndChr(Buf(1))="F"Then->->Close#FileID'关闭文件->->j=DoEvents()->->ImgEdit1.Image=FileName->->ImgEdit1.Display'显示收到的图像->->ImgEdit1.BurnInAnnotations0,2->->frmClient.MousePointer=0->->ExitSub->->EndIf->->'收到一块二进制图像信息->->Put#FileID,,Buf'将当前数据块存盘->->tcpClient.SendData"NextBlock"'申请下一块->->FileLen=FileLen bytesTotal->->frmClient.Caption="TCPClient" Trim(Str(FileLen)) _->->"BytesReceived."'显示当前收到的字节数->->EndSub->->　->->客户端成功共享服务器端显示画面后的外观如图三所示。->->

->->　->->二、共享声音->->共享声音与共享显示的思想是一致的，只是这时是客户端向服务器端发送声音文件，以便共享服务器的声卡。服务器端应使用微软的多媒体控件（MMControl）进行声音播放（使用Ctrl T或菜单“工程->部件”来添加）。用该控件播放声音不仅是简单的，而且功能强大。->->由于关键模块与共享显示一致，故此处略去源代码。->->