socket stack overflo问题

[ljking0731]

上次的问题，还没有得到解决，大家能否帮忙看下怎么处理：

http://topic.csdn.net/u/20110527/15/4608d6f0-09e3-4a69-9e59-aa6929c16b2a.html

[whisht]

[Quote=引用楼主 ljking0731 的回复:]
上次的问题，还没有得到解决，大家能否帮忙看下怎么处理：
HTML code

http://topic.csdn.net/u/20110527/15/4608d6f0-09e3-4a69-9e59-aa6929c16b2a.html
[/Quote]

404

[xjq2003]

var
Buf: array [0..1024*10-1] of char   
  ReceiverLen := Socket.ReceiveLength;
if ( ReceiverLen < (1024*10-1) )then   
begin
Socket.ReceiveBuf(Buf, ReceiverLen);
  FMemStream.WriteBuffer(Buf, ReceiverLen);
end
else
begin
Socket.ReceiveBuf(Buf, (1024*10-1));
  FMemStream.WriteBuffer(Buf, (1024*10-1));

end;

[ljking0731]

[Quote=引用 1 楼 ljz9425 的回复:]
引用楼主 ljking0731 的回复:
上次的问题，还没有得到解决，大家能否帮忙看下怎么处理：
HTML code

http://topic.csdn.net/u/20110527/15/4608d6f0-09e3-4a69-9e59-aa6929c16b2a.html


404
[/Quote]

????

[ljking0731]

[Quote=引用 2 楼 xjq2003 的回复:]
Delphi(Pascal) code

var
Buf: array [0..1024*10-1] of char
ReceiverLen := Socket.ReceiveLength;
if ( ReceiverLen < (1024*10-1) )then
begin
Socket.ReceiveBuf(Buf, ReceiverLen);
FMemSt……
[/Quote]
这样子不行呀