Ver Mensaje Individual
  #3  
Antiguo 31-10-2013
cmfab cmfab is offline
Miembro
 
Registrado: jun 2010
Posts: 423
Reputación: 17
cmfab Va por buen camino
Gracias ecfisa, por ahí parece que anda la cosa, pero me marca como error el tipo TIdBytes, por lo que pensé que lo podria sustituir por TBytes así que hice esto:

Código Delphi [-]
procedure TForm1.udpServerDeviceUDPRead(AThread: TIdUDPListenerThread;
AData: TBytes; ABinding: TIdSocketHandle);
begin
   Mensaje.Lines.Add( 'De: ' + ABinding.PeerIP );
   Mensaje.Lines.Add( 'Mensaje: ' + PChar( AData ) );
end;

compila bien, pero el menaje en el cliente no lo muestra correctamemente, me salen carcateres no validos alasí como

De: 127.0.0.1
Mensaje: 慫楫ೠƯ
alguna idea ?

Gracias nuevamente por tu tiempo
Responder Con Cita