网络传输的问题？？？？？？？？？？？？？？？(50分)

以下客户端代码在执行时老是提示超时，为什么呢？

我日前是在本地获取本地的屏幕也会超时？？？？？？？？
procedure TForm3.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s,s1:string;
desk:tcanvas;
bitmap:tbitmap;
jpg:tjpegimage;
begin
s:=socket.ReceiveText;
if s='gets' then //客户端发出申请
begin
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); //将图象转成JPG格式
jpg.SaveToFile('c:/m.jpg');
jpg.free;
bitmap.Free;

NMStrm1.Host := '6900';
MyFStream := TFileStream.Create('c:/m.jpg', fmOpenRead);
try
serversocket1.Active:=false;
NMStrm1.PostIt(MyFStream);
finally
MyFStream.Free;
end;
serversocket1.Active:=true;
end;
end;

现在怎么大富翁的各位没有帮助别人的热情了？

先别搞这么麻烦， 建议你做个最小化例程试一下吧
先证明环境没问题， 就好办了

在其它位置试过却没问题，不知何原因

不会吧慢慢来

数据太大了，建议先分割再传送

现在此问题已经解决了，新问题又出现了。

没法连接到客户端，它提示缓冲区满了，这是什么原因呢？
我上网也没法上，重启一次就OK了。

既然缓冲区不够，定义大的数组不就行了[]