hola,
estoy haciendo un servidor TCP con componente indy para delphi y en principio me funciona bastente bien.
El problema que tengo es que cuando me llegan muchas peticiones rapidas por parte de un solo cliente al final me lanza un error y el programa deja de ejecutarse " Acces violaton at adress 0000000 ..." y no se a que es devido.
este es el trozo de codigo que se ejecuta cuando me llega una peticion por parte del cliente
Código Delphi
[-]
procedure TModuleManager.tcpServerExecute(AThread: TIdPeerThread);
var
mensaje : string;
begin
try
mensaje:= AThread.Connection.ReadLn; if mensaje<> ' ' then
begin
mensaje := mensaje + ',Lagun.dll';
EjecutarTarea(Pchar(mensaje)); end;
except
raise exception.Create('Server');
end;
end;