Indy UDP Server - Ayuda

[kaiserilich]

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...

 
procedure TForm1.udp_srvUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
....
    DataStringStream.CopyFrom(AData, AData.Size);

ahora lo hacen de esta manera

 
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

[dec]

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.

[kaiserilich]

ya esta solucionado, gracias :-)

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

[dec]

Bien está saberlo.