Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Uso del compoente TIDUDPServer (https://www.clubdelphi.com/foros/showthread.php?t=84528)

cmfab 31-10-2013 00:36:31

Uso del compoente TIDUDPServer
 
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 31-10-2013 03:12:14

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 31-10-2013 13:09:31

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 31-10-2013 14:12:12

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


La franja horaria es GMT +2. Ahora son las 00:15:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi