indy10 udp传输记录类型的数据

最新推荐文章于 2025-06-09 14:47:38 发布

最新推荐文章于 2025-06-09 14:47:38 发布 · 290 阅读

文章标签：

//记录定义 
type 
          TDATAPKG=record 
          PKGTYPE:      Integer;
          PKGLEN:       Integer; 
          PKGCONTENT:   String[30]; 
end; 

//发送 
procedure   TForm1.Button1Click(Sender:TObject); 
var 
          pkgdata:TDATAPKG; 
begin 
          pkgdata.PKGTYPE:=1000; 
          pkgdata.PKGLEN:=100; 
          IdUDPClient1.SendBuffer('192.168.1.255',8607,RawToBytes(pkgdata,sizeof(pkgdata))); 
end; 
//接收 
procedure   TForm1.IdUDPServer1UDPRead(Sender:   TObject;   AData:   TBytes; 
      ABinding:   TIdSocketHandle); 
var 
          pkgdata: TDATAPKG; 
begin 
          BytesToRaw(AData,   pkgdata,   SizeOf(TDATAPKG)); 
          ShowMessage(IntToStr(pkgdata.PKGTYPE)   +   '   '   + pkgdata.PKGCONTENT); 
end;