Uso del compoente TIDUDPServer

[cmfab]

Hola a todos, estoy usando un ejemplo de la página de Delphi al límite para transmitir mensajes entre dos aplicaciones una servidor y otra cliente, el asunto es que uso Delphi XE2 y cuando en la aplicación cliente coloco un componente de tipo TIDUDPServer, no puedo acceder al evento ODUDPRead porque al hacer doble click para poner las instrucciones en este envento me sale un error "Expected '>' but . found ", es que trata de crear el sigueine procedimiento

Código Delphi [-]
 procedure ServidorUDPRead(AThread: TIdUDPListenerThread;
      AData: TArray; ABinding: TIdSocketHandle);

la verdad no tengo idea de porque el error, si alguien sabe que hacer para poder recibir los mensajes del servifor de alguna otra manera sin usar ese evento se lo agradecería

Gracias por las respuestas posibles

[ecfisa]

Hola cmfab.

Revisa este enlace: Indy TIdUdpServer OnRead problem on Delphi XE. Según él, en esa versión existe un bug aún no solucionado que provoca el comportamiento que mencionas. En el mismo se presenta como solución asignar dicho evento manualmente desde el evento OnCreate del formulario.

Lamento no poder verificar lo anterior ya que no dispongo de esa versión.

Saludos

[cmfab]

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

[cmfab]

Listo lo resolví usando los componentes Indy pero con protocolo TCP/IP, gracias por sus atenciones el ejemplo está en este link http://delphiallimite.blogspot.com/2...es-con_26.html