TIdPeerThread indy9 a TIdContext indy10

[alejobog]

Buen día muchachos.

normalmente no creo foros nuevos puesto que casi todo lo he podido solucionar con foros ya abiertos, pero en esta ocasión presento un problema muy particular que no he podido encontrar en la red.

tenemos en mi empresa una aplicación desarrollada con delphi7 (indy9), pero se considero de una vez por todas migrar al XE tokio, esto nos a creado una carga de trabajo demasiada alta ya que el programa maneja mas de 52.000 lineas de código y he tenido que afrontar el tema del UNICODE y del indy 10.

en esta ocasion requiero de su conocimiento para saber como reemplar esto.

indy 9

Código Delphi [-]
procedure TTraceForm.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  try
    AThread.Terminate;
    if ( AThread.ReturnValue >= 1 ) and ( AThread.ReturnValue <= MaxCtrlTrns ) then
      try
        QueueBlock.Enter;
        TCPPeerThreads[ AThread.ReturnValue ] := Nil;
      finally
        QueueBlock.Leave;
      end;
  except
    on E : Exception do begin
      WriteLogSwitch( 'E', 'Error TTraceForm.IdTCPServer1Disconnect(' + E.Message + ')' );
    end;
  end;
end;

esto en indy10 cambio

Código Delphi [-]
procedure TTraceForm.IdTCPServer1Disconnect(AThread: TIdContext);
begin
  try
    AThread.Connection.Disconnect;
    if ( AThread.ReturnValue  >= 1 ) and ( AThread.ReturnValue <= MaxCtrlTrns ) then
      try
        QueueBlock.Enter;
        TCPPeerContext[ AThread.ReturnValue ] := Nil;
      finally
        QueueBlock.Leave;
      end;
  except
    on E : Exception do begin
      WriteLogSwitch( 'E', 'Error TTraceForm.IdTCPServer1Disconnect(' + E.Message + ')' );
    end;
  end;
end;

en TIdContext no existe ReturnValue y no se como reeemplazar.

[ecfisa]

Hola alejobog.

Por favor cuando incluyas código en tus mensajes, utiliza las etiquetas correspondientes de este modo:



Muchas gracias por tu colaboración

Nota: ( ya las agregué a tu mensaje )

[alejobog]

Muchas gracias a ti, lección aprendida