delphi 关于socket.ReceiveBuf接收超过一定长度就出错的问题,请达人们指点!!!

Question

Clientsocket发送的源代码
procedure TForm1.Button1Click(Sender: TObject);
var
  strData: string;
  mysend: array[0..65535] of Char;
  begin
    strData := Edit2.Text;
    StrPCopy(mysend,strData);
    ClientSocket1.Socket.SendBuf(mysend, SizeOf(strData)+1024);
  end;
Serversocket接收的源代码
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
var
strData: Pchar;
buf:   Pchar;
len:   integer;
begin
len := Socket.ReceiveLength+1024;
buf :=allocmem(len);
Socket.ReceiveBuf(buf^,len);
StrCopy(strData,buf);
Edit3.Text:=strData;
end;有几个问题:
问题1:当接收的长度超过44之后就出错..
例如:
Edit2.Text:=Edit222222222222222222222222222222222222222 就接收正常.
Edit2.Text:=Edit2222222222222222222222222222222222222222 .就出错,服务器端提示为:asynchronous socket error 10053.问题2:Serversocket接收之后,我如何把接收到的buf 存到数据库的一个image的字段中去.问题3:我这代码写得有什么不合理之处吗?

Answer 1

接收的地方：strData没申请空间，直接拷贝 StrCopy(strData,buf); 会有地址错误。

Answer 2

2、
var
    Stream:TMemoryStream;     Stream:=TMemoryStream.Create;
     Stream.Write(buf,len);
     Stream.Position:=0;
     TBlobField(qr.FieldByName('img')).LoadFromStream(Stream);
     Stream.Free;

Answer 3

接收的地方： strData没申请空间，直接拷贝 StrCopy(strData,buf); 会有地址错误。=====
用setlength()吗?好像不行喔....

Answer 4

pChar类型，怎么能setlength.....GetMem