ReceiveText serversocket extenso

[jeremiselxi]

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);//253 porque se agregara dos valores para enviarlo al servidor.
    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);
//memo1.Lines.Add(Socket.ReceiveText)
end;