Paquetes Recibidos UDP

[[cHackAll]]

No especificaste el componente que estas utilizando, pero creo que la mayoría de los mismos retorna en un puntero los datos recividos... en tal caso lo que debes hacer es guardar el paquete en uns estructura y acceder a los datos desde el tercer miembro del mismo.

Código Delphi [-]
procedure TForm1.UdpSocket1Receive(Sender: TObject; Buf: PAnsiChar; var DataLen: Integer);
 
type
 PStruct = ^TStruct;
 TStruct = record
  id, Size: Cardinal;
  Data: ShortString;
 end;
 
begin
 ShowMessage(PStruct(Buf)^.Data);
end;

dependiendo del componente tambien pedes leer del buffer primero los 8 bytes y luego el resto;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Buffer: array [0..255] of Char;
begin
 UdpSocket1.ReceiveBuf(Buffer, 8); // skip
 UdpSocket1.ReceiveBuf(Buffer, SizeOf(Buffer));

 ...

Saludos

[Rockin]

Perdon uso UDPServer de las Indy.

Voy a probarlo ahora mismo.

Saludos y gracias por la rapidez en la respuesta

[Rockin]

Hola, he probado lo que me comentas, pero con el componente TUDPSocket de la paleta Internet, no recibo nada.

Con el componente Indy recibo paquetes pero no consigo pasarlos a Texto, estoy desesperado. seguire mirando por ahi.

Saludos