socket con lazarus
 

Por favor quien me puede ayudar:
Tengo una aplicación (cliente) que me envía datos a través de un socket.
La aplicación servidor esta en delphi y funciona full de bien.
La estoy reconstruyendo en Lazarus con Linux.
Cuando activo el socket (idtcpserver) me arroja el siguiente error.

socket error # 98
address already in use

El código lazarus pascal es el siguiente:

procedure TfrmMainLog.FormShow(Sender: TObject);
begin
lv_LOGBuffer := '';
AbrirBD();
AplicarServer(True);
end;

procedure TfrmMainLog.AplicarServer(c_activar : boolean);
var
v_lst : TList;
v_i : integer;
begin
{log}
if c_activar then
begin
IdTCPServer1.Active := False;
IdTCPServer1.DefaultPort := 25534;
IdTCPServer1.Active := True;
end;
end;

procedure Tfrmmainlog.IdTCPServer1Connect(AContext: TIdContext);
begin
AContext.Connection.IOHandler.RecvBufferSize := 128 * 1024;
end;


procedure Tfrmmainlog.IdTCPServer1Execute(AContext: TIdContext);
begin
if AContext.Connection.Connected then
begin
lv_LOGBuffer := lv_LOGBuffer + AContext.Connection.IOHandler.ReadLn;
lv_cuentaSegsSinLog := 0;
ProcesaLOG();
end;
end;

Hola, el error que te da significa que el puerto esta siendo usado por otra aplicación, prueba a cambiar de puerto o comprueba que no esta siendo usado el que utilizas.

Un Saludo.

socket lazarus linux
 

gracias por responder.
pero lo raro es que nada esta ocupando el puerto correspondiente.

me meti al codigo del componente y comente una linea
y se termino el problema. ahora estoy recibiendo la data sin probelmas

bye

Hola,
si no te importa, ¿podrías indicar que línea has comentado?
Gracias

Un saludo