网络截屏问题

Question

我用ServerSocket和ClientSocket写了一个网络截屏的程序，客户端和服务器端在同一台机子上时运行正常，但是分别在两台机子上运行时一直出错，应该是发送接收数据时的问题，截屏数据量大时一副图有8、90k，而我在调试时，发现socket一次只能读8k的数据。
为什么使用同一台机子的时候就没有问题呢，有什么办法可以解决这个问题吗？

Answer 1

这个是绝对正确的！
服务端程序unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, JPEG,ExtCtrls, ScktComp;typeTForm1 = class(TForm)ServerSocket1: TServerSocket;procedure ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);privateprocedure Cjt_GetScreen(var Mybmp: TBitmap; DrawCur: Boolean);{自定义抓屏函数,DrawCur表示抓鼠标图像与否}{ Private declarations }public{ Public declarations }end;varForm1: TForm1;MyStream: TMemorystream;{内存流对象} implementation{$R *.DFM}procedure TForm1.Cjt_GetScreen(var Mybmp: TBitmap; DrawCur: Boolean);varCursorx, Cursory: integer;dc: hdc;Mycan: Tcanvas;R: TRect;DrawPos: TPoint;MyCursor: TIcon;hld: hwnd;Threadld: dword;mp: tpoint;pIconInfo: TIconInfo;beginMybmp := Tbitmap.Create; {建立BMPMAP }Mycan := TCanvas.Create; {屏幕截取}dc := GetWindowDC(0);tryMycan.Handle := dc;R := Rect(0, 0, screen.Width, screen.Height);Mybmp.Width := R.Right;Mybmp.Height := R.Bottom;Mybmp.Canvas.CopyRect(R, Mycan, R);finallyreleaseDC(0, DC);end;Mycan.Handle := 0;Mycan.Free;if DrawCur then {画上鼠标图象}beginGetCursorPos(DrawPos);MyCursor := TIcon.Create;getcursorpos(mp);hld := WindowFromPoint(mp);Threadld := GetWindowThreadProcessId(hld, nil);AttachThreadInput(GetCurrentThreadId, Threadld, True);MyCursor.Handle := Getcursor();AttachThreadInput(GetCurrentThreadId, threadld, False);GetIconInfo(Mycursor.Handle, pIconInfo);cursorx := DrawPos.x - round(pIconInfo.xHotspot);cursory := DrawPos.y - round(pIconInfo.yHotspot);Mybmp.Canvas.Draw(cursorx, cursory, MyCursor); {画上鼠标}DeleteObject(pIconInfo.hbmColor);{GetIconInfo 使用时创建了两个bitmap对象. 需要手工释放这两个对象}DeleteObject(pIconInfo.hbmMask);{否则,调用他后,他会创建一个bitmap,多次调用会产生多个,直至资源耗尽}Mycursor.ReleaseHandle; {释放数组内存}MyCursor.Free; {释放鼠标指针}end; end;procedure TForm1.FormCreate(Sender: TObject);beginServerSocket1.Port := 3000; {端口}ServerSocket1.Open; {Socket开始侦听}end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginif ServerSocket1.Active then ServerSocket1.Close; {关闭Socket}end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);varS, S1: string;MyBmp: TBitmap;Myjpg: TJpegimage;beginS := Socket.ReceiveText;if S = 'cap' then {客户端发出抓屏幕指令}begintryMyStream := TMemorystream.Create;{建立内存流}MyBmp := TBitmap.Create;Myjpg := TJpegimage.Create;Cjt_GetScreen(MyBmp, True); {True表示抓鼠标图像}Myjpg.Assign(MyBmp); {将BMP图象转成JPG格式,便于在互联网上传输}Myjpg.CompressionQuality := 10; {JPG文件压缩百分比设置,数字越大图像越清晰,但数据也越大}Myjpg.SaveToStream(MyStream); {将JPG图象写入流中}Myjpg.free;MyStream.Position := 0;{注意:必须添加此句}s1 := inttostr(MyStream.size);{流的大小}Socket.sendtext(s1); {发送流大小}finallyMyBmp.free;end;end;if s = 'ready' then {客户端已准备好接收图象}beginMyStream.Position := 0;Socket.SendStream(MyStream); {将流发送出去}end;end;end.

Answer 2

客户端程序。新建一个工程，添加Socket控件ClientSocket、图像显示控件Image、一个 Panel 、一个Edit、两个 Button和一个状态栏控件StatusBar1。注意：把Edit1和两个 Button放在Panel1上面。ClientSocket的属性跟ServerSocket差不多，不过多了一个Address属性，表示要连接的服务端IP地址。填上IP地址后点“连接”将与服务端程序建立连接，如果成功就可以进行通讯了。点击“抓屏”将发送字符给服务端。因为程序用到了JPEG图像单元，所以要在Uses中添加Jpeg.全部代码如下：unit Unit2{客户端};interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ScktComp,ExtCtrls,Jpeg, ComCtrls;typeTForm1 = class(TForm)ClientSocket1: TClientSocket;Image1: TImage;StatusBar1: TStatusBar;Panel1: TPanel;Edit1: TEdit;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure ClientSocket1Connect(Sender: TObject;Socket: TCustomWinSocket);procedure Button2Click(Sender: TObject);procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;ErrorEvent: TErrorEvent; var ErrorCode: Integer);procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure ClientSocket1Disconnect(Sender: TObject;Socket: TCustomWinSocket);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;MySize: Longint;MyStream: TMemorystream;{内存流对象}implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin{-------- 下面为设置窗口控件的外观属性 ------------- }{注意:把Button1、Button2和Edit1放在Panel1上面}Edit1.Text := '127.0.0.1';Button1.Caption := '连接主机';Button2.Caption := '抓屏幕';Button2.Enabled := false;Panel1.Align := alTop;Image1.Align := alClient;Image1.Stretch := True;StatusBar1.Align:=alBottom;StatusBar1.SimplePanel := True;{----------------------------------------------- }MyStream := TMemorystream.Create; {建立内存流对象}MySize := 0; {初始化}end;procedure TForm1.Button1Click(Sender: TObject);beginif not ClientSocket1.Active thenbeginClientSocket1.Address := Edit1.Text; {远程IP地址}ClientSocket1.Port := 3000; {Socket端口}ClientSocket1.Open; {建立连接}end;end;procedure TForm1.Button2Click(Sender: TObject);beginClientsocket1.Socket.SendText('cap'); {发送指令通知服务端抓取屏幕图象}Button2.Enabled := False;end;procedure TForm1.ClientSocket1Connect(Sender: TObject;Socket: TCustomWinSocket);beginStatusBar1.SimpleText := '与主机' + ClientSocket1.Address + '成功建立连接!';Button2.Enabled := True;end;procedure TForm1.ClientSocket1Error(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);beginErrorcode := 0; {不弹出出错窗口}StatusBar1.SimpleText := '无法与主机' + ClientSocket1.Address + '建立连接!';end;procedure TForm1.ClientSocket1Disconnect(Sender: TObject;Socket: TCustomWinSocket);beginStatusBar1.SimpleText := '与主机' + ClientSocket1.Address + '断开连接!';Button2.Enabled := False;end;procedure TForm1.ClientSocket1Read(Sender: TObject;Socket: TCustomWinSocket);varMyBuffer: array[0..10000] of byte; {设置接收缓冲区}MyReceviceLength: integer;S: string;MyBmp: TBitmap;MyJpg: TJpegimage;beginStatusBar1.SimpleText := '正在接收数据......';if MySize = 0 then {MySize为服务端发送的字节数，如果为0表示为尚未开始图象接收}beginS := Socket.ReceiveText;MySize := Strtoint(S); {设置需接收的字节数}Clientsocket1.Socket.SendText('ready'); {发指令通知服务端开始发送图象}endelsebegin {以下为图象数据接收部分}MyReceviceLength := socket.ReceiveLength; {读出包长度}StatusBar1.SimpleText := '正在接收数据,数据大小为:' + inttostr(MySize);Socket.ReceiveBuf(MyBuffer, MyReceviceLength); {接收数据包并读入缓冲区内}MyStream.Write(MyBuffer, MyReceviceLength); {将数据写入流中}if MyStream.Size >= MySize then {如果流长度大于需接收的字节数，则接收完毕}beginMyStream.Position := 0;MyBmp := tbitmap.Create;MyJpg := tjpegimage.Create;tryMyJpg.LoadFromStream(MyStream); {将流中的数据读至JPG图像对象中}MyBmp.Assign(MyJpg); {将JPG转为BMP}StatusBar1.SimpleText := '正在显示图像';Image1.Picture.Bitmap.Assign(MyBmp); {分配给image1元件 }finally {以下为清除工作 }MyBmp.free;MyJpg.free;Button2.Enabled := true;{ Socket.SendText('cap');添加此句即可连续抓屏 }MyStream.Clear;MySize := 0;end;end;end;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginMyStream.Free; {释放内存流对象}if ClientSocket1.Active then ClientSocket1.Close; {关闭Socket连接}end;end.  程序原理：运行服务端开始侦听，再运行客户端，输入服务端IP地址建立连接，然后发一个字符通知服务端抓屏幕。服务端调用自定义函数Cjt_GetScreen抓取屏幕存为BMP，把BMP转换成JPG，把JPG写入内存流中，然后把流发送给客户端。客户端接收到流后做相反操作，将流转换为JPG再转换为BMP然后显示出来。

Answer 3

我也正在做这个问题,用stream传,可以传到,可数据格式不对,不知道stream是否把文件内部格式变了

Answer 4

我也是做这么一个程序,keyi 在互联网上传输,不过,我有个问题MyStream这个流何时释放?我运行了一个晚上,抓屏的那个程序占用内存从4000K涨到13000K,后来程序就没反映了,MyStream要哪里释放啊???

Answer 5

你可以在转换为jpg以后释放！

Answer 6

to insert2003(高级打字员) 
你给的程序我试过了，和我原来的程序一样，在单机上没问题，在局域网内传输的话，数据量大了以后就会出错。

Answer 7

JPG可以压缩！1024*768的屏幕截取下来以后经过压缩处理，变成大约20K-80K大小

Answer 8

奇怪，这样大的数据量为什么不用UDP？TCP的三次SHARKHAND效率低而慢，增加了系统负荷

Answer 9

to realside
因为我不需要连续截屏，而且客户端和服务器端是在同一个局域网中的，所以速度问题不是我考虑的重点。
现在的问题是显示截屏画面的时候花屏现象严重（客户端和服务器端是不同的机子），而在单机上试的时候却一切正常。哪位高手能告诉我是什么原因吗，怎么解决？用的就是楼上insert2003给的例子。

Answer 10

刚才改了一下程序，在服务器sendstream和客户端接收完stream后用SaveToFile将stream保存为文件后，比较了一下，发现传输过程中数据出错，两个文件内容有出入，因此导致了花屏现象。
各位有什么好的方法保证数据传输的准确性吗，高手们不妨支两招。