5 respuestas en este tema

[edgwin]

Que tal amigos del Foro.

Tengo un pequeño problema tratando de migrar de Indy 9 a Indy 10....

el codigo es el siguiente:

delphi

   ...
   PCLocal := AThread.Connection.LocalName;

En Indy 10 este codigo me marca error ¿Alguien sabe como obtener el nombre del equipo remoto con Indy 10?

Saludos!

[egostar]

En Indy 10 ya no se usa AThread se utiliza AContext

No se si esto te sirva

delphi

PCLocal := AContext.Connection.Socket.Binding.PeerIP;
 
// o esto 
 
PCLocal := AContext.Connection.Socket.Binding.IP;

Salud OS

[egostar]

Por cierto

Bienvenido a DelphiAccess, sientete en tu casa

Salud OS

[edgwin]

Gracias por la bienvenida.

Referente a la respuesta .... lo que intento que me regrese es el nombre del equipo remoto, no la IP (ya que en Indy 9 de esta manera "Thread.Connection.LocalName;" me dice el nombre del equipo remoto).

Saludos!

[Jagluiperd]

Hola.

Quizás esto te pueda servir:

delphi

{...}
 
Var
  Version_Protocolo_IP  : TiDIPVersion;
  IP_PC_Remoto          : String;
  Nombre_PC_Remoto      : String;
  
 
{...}  
 
  Version_Protocolo_IP:= {Puedo tomar estos valores constantes: Id_Ipv4 ó Id_Ipv6}
  IP_PC_Remoto:=AContext.Connection.Socket.Binding.PeerIP;
  Nombre_PC_Remoto:= GStack.HostByAddress(IP_PC_Remoto, Version_Protocolo_IP);
 
{...}

Saludos.

[genyus00]

hola buenas actualmente estoy usando los indy en version 10.5.7, previamente habia desarrollado una aplicacion cliente y una servidor con TcpClient y TcpServer pues en mi version indy 9 corre todo bien, pero en en el paso a la version 10.5.7 tengo problemas leyendo y escribiendo mensajes.

ANTES

delphi

//leer comandos ejcutados
procedure TClienteHilo.Execute;
begin
while not Terminated do
   if not FrmTablero.tcpClient.Connected then
      Terminate
   else
      try //leer buffer de mensajes
      FrmTablero.tcpClient.ReadBuffer(Paquete, SizeOf (Paquete));
      Synchronize(HandleInput);//mostrar mensaje en la terminal
      except
      if FrmTablero<>nil then
         FrmTablero.Terminal.Lines.Add('<'+Formatdatetime('HH:mm:ss',Time)+' - '+FormConexion.tNomUsuario.Text+'> Dice: No se pueden enviar mensajes. La conexión con el servidor ha fallado.');
      end;
end;

DE ACUERDO A LO QUE HE LEIDO EN INDY 10 DEBE SER

delphi

procedure TClienteHilo.Execute;
Var
RxBuf : TIdBytes;
begin
while not Terminated do
   if not FrmTablero.tcpClient.Connected then
      Terminate
   else
      try //leer buffer de mensajes
      FrmTablero.tcpClient.IOHandler.ReadBytes(RxBuf, SizeOf (Paquete));
      BytesToRaw(RxBuf,Paquete, SizeOf (Paquete));
 
      Synchronize(HandleInput);//mostrar mensaje en la terminal
      except
      if FrmTablero<>nil then
         FrmTablero.Terminal.Lines.Add('<'+Formatdatetime('HH:mm:ss',Time)+' - '+FrmConexion.tNomUsuario.Text+'> Dice: No se pueden enviar mensajes. La conexión con el servidor ha fallado.');
      end;
end;

No si esto funcione dado que al compilar me envia:
[DCC Error] UFrmTablero.pas(341): E2003 Undeclared identifier: 'TIdBytes'
[DCC Error] UFrmTablero.pas(349): E2003 Undeclared identifier: 'BytesToRaw'

he buscado el equivalennte a 'TIdBytes' y 'BytesToRaw' pero nada, si alguien tiene una solucion aplicada agradeceria su ayuda..