Foros Club Delphi - Indy UDP Server

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Indy UDP Server - Ayuda (https://www.clubdelphi.com/foros/showthread.php?t=86231)

Indy UDP Server - Ayuda

hola,

tengo una chat que hice con Delphi 6 y la version que trae de Indy.. pero ahora al abrirlo con XE5 me falla por unos cambios en la version del Server...

antes la function de lectura recibia un TStream y asi lo procesaba para obtener el mensaje recibido...

Código:

 

procedure TForm1.udp_srvUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);

....

    DataStringStream.CopyFrom(AData, AData.Size);

ahora lo hacen de esta manera

Código:

 

procedure TForm1.udp_srvUDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle);

y no se como sacar el mensaje recibio, alguno podria echarme un cable..

gracias

Hola,

Según Remy Lebeau existe una función "BytesToString" en la unidad "idGlobal.pas" de Indy. Echa un vistazo a ver si te sirve. ;)

ya esta solucionado, gracias :-)

tenia que sustituir DataStringStream.CopyFrom(AData, AData.Size); por DataStringStream.WriteData(AData, Length(AData));

Bien está saberlo. :)