Gracias por su respuesta le dejo mi correo
agag4@hotmail.com, si me hace el favorsote de enviarme un ejemplo, y le comento con el TcpServer si uso los Thearing al recibir mensajes pero se cuelga en determinado numero de mensajes recibidos aprox. 50 mensajes por ejemplo:
Código Delphi
[-]
TClientDataThread = class(TThread)
private
public
ListBuffer:TStringList;
TargetList:TStrings;
procedure synchAddDataToControl;
constructor Create(CreateSuspended: Boolean);
procedure Execute; override;
procedure Terminate;
procedure LeerMensaje(Mensaje:TStringList);
function BuscarScript(Fol,SucO:String):Boolean;
function DameScript(Mensaje:TStringList):String;
end;
.......
procedure TfGrdCli.TcpServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s: string;
DataThread: TClientDataThread;
begin
DataThread:= TClientDataThread.Create(true);
DataThread.TargetList := memRecv.Lines;
memRemoto.Clear;
S:=ClientSocket.Receiveln;
while s <> '' do begin
memRemoto.Add(s);
DataThread.ListBuffer.Add(s);
s := ClientSocket.Receiveln;
end;
DataThread.Resume;
DataThread.LeerMensaje(memRemoto);
label1.caption:=IntToStr(StrToInt(label1.caption)+1);
end;
Que tenga buen día.