高分问题，大家都来看看（里面有金字函数，免费赠送），我不知道错在哪里？(100分)

hhddff · 2003-05-26

看以下程序怎么解决，我是用ClientSocket和ServerSocket来实现传送抓屏数据。 我用ServerSocket往ClientSocket发送图象数据成功，但是 我用ClientSocket往ServerSocket发送图象数据但是有问题，请高手解决一下。 我的程序发送一半就出问题，显示 Error jpeg#52。 我很急！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！ Client数据 unit Clientfrm; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ScktComp,jpeg, StdCtrls; type   TfrmClient = class(TForm)     Memo1: TMemo;     Edit1: TEdit;     Button1: TButton;     ClientSocket1: TClientSocket;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure Button1Click(Sender: TObject);     procedure ClientSocket1Connect(Sender: TObject;       Socket: TCustomWinSocket);     procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;       ErrorEvent: TErrorEvent; var ErrorCode: Integer);     procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   frmClient: TfrmClient;     c:longint;   m:tmemorystream;   m1:tmemorystream; implementation {$R *.dfm} procedure TfrmClient.FormCreate(Sender: TObject); begin    m:=tmemorystream.Create; end; procedure TfrmClient.FormClose(Sender: TObject; var Action: TCloseAction); begin   m.free;   ClientSocket1.Close; end; procedure TfrmClient.Button1Click(Sender: TObject); begin   try      clientsocket1.Close;      clientsocket1.Host := edit1.text;      clientsocket1.Open; //file://连接服务端   except      showmessage(edit1.text+#13#10+'未开机或未安装服务程序');   end; end; procedure TfrmClient.ClientSocket1Connect(Sender: TObject;   Socket: TCustomWinSocket); begin         memo1.Lines.Add('ok'); end; procedure TfrmClient.ClientSocket1Error(Sender: TObject;   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;   var ErrorCode: Integer); begin    caption:='连接'+edit1.text+'失败';    showmessage(edit1.text+#13#10+'未开机或未安装服务程序');    errorcode:=0; end; procedure TfrmClient.ClientSocket1Read(Sender: TObject;   Socket: TCustomWinSocket); var   s,s1:string;   desk:tcanvas;   bitmap:tbitmap;   jpg:tjpegimage; begin   s:=socket.ReceiveText;   memo1.lines.add(s);   if s='gets' then //file://客户端发出申请   begin    try     m1:=tmemorystream.Create;     bitmap:=tbitmap.Create;     jpg:=tjpegimage.Create;     desk:=tcanvas.Create; //以下代码为取得当前屏幕图象     desk.Handle:=getdc(hwnd_desktop);     with bitmap do     begin         width:=screen.Width;         height:=screen.Height;         canvas.CopyRect(canvas.cliprect,desk,desk.cliprect);     end;     jpg.Assign(bitmap); //file://将图象转成JPG格式     jpg.CompressionQuality:=10;//文件压缩大小设置     //m1.clear;     jpg.SaveToStream(m1); //file://将JPG图象写入流中     jpg.free;     m1.Position:=0;     s1:=inttostr(m1.size);     ClientSocket1.Socket.SendText('size/'+s1); //file://发送图象大小    finally     bitmap.free;     desk.free;    end;   end;   if s='okok' then //file://客户端已准备好接收图象   begin     m1.Position:=0;     ClientSocket1.Socket.SendStream(m1); //file://发送JPG图象   end;   //end; //附加 end; procedure TfrmClient.Button2Click(Sender: TObject); begin         ClientSocket1.Socket.SendText('ok'); end; end. //Server数据 unit ServerFrm; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ScktComp, ExtCtrls,jpeg; type   TfrnServer = class(TForm)     Image1: TImage;     Label1: TLabel;     Button2: TButton;     ServerSocket1: TServerSocket;     Memo1: TMemo;     procedure Button2Click(Sender: TObject);     procedure ServerSocket1ClientRead(Sender: TObject;       Socket: TCustomWinSocket);     procedure ServerSocket1ClientConnect(Sender: TObject;       Socket: TCustomWinSocket);     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }   public     function GetMaskString(i:integer;s:string):string;     { Public declarations }   end; var   frnServer: TfrnServer;     c:longint;   m:tmemorystream;   //m1:tmemorystream;   id: integer; implementation {$R *.dfm} procedure TfrnServer.Button2Click(Sender: TObject); var         Socket:TCustomWinSocket; begin         Socket:=TCustomWinSocket.Create(id);         Socket.SendText('gets'); //file://发送申请，通知服务端需要屏幕图象 end; procedure TfrnServer.ServerSocket1ClientRead(Sender: TObject;   Socket: TCustomWinSocket); var   buffer:array [0..10000] of byte; //file://设置接收缓冲区   len:integer;   recvmsg,firstmsg,ll:string;   b:tbitmap;   j:tjpegimage; begin   //if c=0 then //file://C为服务端发送的字节数，如果为0表示为尚未开始图象接收   //begin   len:=socket.ReceiveLength; //file://读出包长度   recvmsg := Socket.ReceiveText ;   firstmsg := GetMaskString(1,recvmsg);   if firstmsg = 'size' then   begin     ll:=GetMaskString(2,recvmsg);     memo1.Lines.Add('ll'+ll);     c:=strtoint(ll); //file://设置需接收的字节数     Socket:=TCustomWinSocket.Create(id);     Socket.SendText('okok'); //file://通知服务端开始发送图象   end   //end else   else begin //file://以下为图象数据接收部分     memo1.Lines.Add('len='+inttostr(len));     memo1.Lines.Add('c='+inttostr(c));     socket.ReceiveBuf(buffer,len); //file://接收数据包并读入缓冲区内     m.Write(buffer,len); //file://追加入流M中     if m.Size>=c then //file://如果流长度大于需接收的字节数，则接收完毕     begin         m.Position:=0;         b:=tbitmap.Create;         j:=tjpegimage.Create;         try            j.LoadFromStream(m); //file://将流M中的数据读至JPG图像对象J中            b.Assign(j); //file://将JPG转为BMP            Image1.Picture.Bitmap.Assign(b); //file://分配给image1元件         finally //file://以下为清除工作            b.free;            j.free;            Serversocket1.Active:=false;            Serversocket1.Active:=true;            m.Clear;            c:=0;         end;     end;   end; end; procedure TfrnServer.ServerSocket1ClientConnect(Sender: TObject;   Socket: TCustomWinSocket); begin         id := Socket.SocketHandle ;         memo1.Lines.Add('id='+inttostr(id)); end; function TfrnServer.GetMaskString(i: integer; s: string): string; var   itm:Tstringlist; //字符串列表 begin    itm:=tstringlist.Create;    itm.Delimiter:='/';    itm.DelimitedText:=s ;    if (i>itm.Count) or (i<1 ) then    begin      result:='';      itm.Free ;      exit;    end;    Result:=itm.strings[i-1];    itm.Free; end; procedure TfrnServer.FormCreate(Sender: TObject); begin  m:=tmemorystream.Create;  ServerSocket1.open; end; procedure TfrnServer.FormClose(Sender: TObject; var Action: TCloseAction); begin   ServerSocket1.close; end; end.

hhddff · 2003-05-26

有没有高手，来看看，请怎么回事？ 为什么出错？？？？？？

hhddff · 2003-05-27

人呀！

wfzha · 2003-05-27

没用过，不过印象中只能从Server发到Client你是不是在两边都开上一个Server和一个Clienth,我记得Delphi中的聊天程序就是这样做的

zhang_yz6666 · 2003-05-27

帮你!

YFeral · 2003-05-27

还用自己写，重复劳动。 以前好多人都写了，自己找找不要枉费精力。

Alix88 · 2003-05-27

你对Server有写的权限吗?

wfzha · 2003-05-27

自己动手，丰衣足食，不从基础干起，永远也成不了高手

hhddff · 2003-05-27

jpeg Error #52是什么问题？ *******************************************************************  请问我从服务器往客户传数据流，就可以用,可以读出数据流     len:=socket.ReceiveLength; //file://读出包长度     socket.ReceiveBuf(buffer,len); //file://接收数据包并读入缓冲区内     m.Write(buffer,len); //file://追加入流M中 *******************************************************************  但是我从客户端往服务器发送数据流时，就不行。  是不是用TWinServerSocket，而不是用TCustomWinSocket。  服务器端的socket.ReceiveBuf(buffer,len); 总是出错，请问怎么解决？

hhddff · 2003-05-27

我可以来回写，我用SendText可以来回传送Text，但是Stream就不行。

wfzha · 2003-05-27

我对网络变成不熟，但看了一些聊天程序的例子，所有的例子都是开两个空间，我觉得总是有原因的吧？delhpi/demos下游例子，你自己看看吧！

hhddff · 2003-06-05

有没有人做过，？

LiChaoHui · 2003-06-05

那是因为，你没有把发送的流完整正确的接收过来，接收的数据是错误的

hhddff · 2003-06-07

请问怎么解决？

高分问题，大家都来看看（里面有金字函数，免费赠送），我不知道错在哪里？(100分)

hhddff

Unregistered / Unconfirmed

hhddff

Unregistered / Unconfirmed

hhddff

Unregistered / Unconfirmed

wfzha

Unregistered / Unconfirmed

zhang_yz6666

Unregistered / Unconfirmed

YFeral

Unregistered / Unconfirmed

Alix88

Unregistered / Unconfirmed

wfzha

Unregistered / Unconfirmed

hhddff

Unregistered / Unconfirmed

hhddff

Unregistered / Unconfirmed

wfzha

Unregistered / Unconfirmed

hhddff

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

hhddff

Unregistered / Unconfirmed

Similar threads