socket con lazarus

[didier]

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;

[[white_zombie]]

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.

[didier]

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

[arturom]

Empezado por didier

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