Buenas tardes.
Que tan extenso es el string que estas enviando para recibir?
ya que lo que puedes hacer es algo parecido a esto.
Serversocket:
Código Delphi
[-]
procedure TForm1.Button3Click(Sender: TObject);
var
cadena,subcadena1, subcadena2:string;
begin
cadena:='1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901 234567890123456789012345678901234567890123456789';
if Length(cadena) >255 then
begin
subcadena1:= copy(cadena,1,253); subcadena2:= copy(cadena,254,300);
ServerSocket1.Socket.Connections[0].SendText('01'+subcadena1);
ServerSocket1.Socket.Connections[0].SendText('02'+subcadena2);
end;
end;
y del lado del cliente puedes obtener esta información.
Código Delphi
[-]
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
cadena1, cadena2: string;
begin
if (copy(Socket.ReceiveText,1,2)='01') then
cadena1:=Socket.ReceiveText;
if (copy(Socket.ReceiveText,1,2)='02') then
cadena2:=Socket.ReceiveText;
memo1.Lines.Add(cadena1);
memo1.Lines.Add(cadena2);
end;