Tema: Send Packet
Ver Mensaje Individual
  #11  
Antiguo 28-07-2008
Rockin Rockin is offline
Miembro
 
Registrado: may 2003
Ubicación: Málaga
Posts: 264
Reputación: 22
Rockin Va por buen camino
Para leer una cadena, pon el siguiente codigo;

Código Delphi [-]
procedure TfrmFidelizacion.UDPServerUDPRead(Sender: TObject;
  AData: TStream; ABinding: TIdSocketHandle);
var
        Cadena : TStringStream;
        
begin

        Cadena := TStringStream.Create('')
        Cadena.CopyFrom(AData, 22); --> 22 en el numero de bytes que lees.
        ShowMessage(cadena.DataString);

end;

Espero que te aclare algo.
Responder Con Cita