indy10 udp传输记录类型的数据

HeavenBen

于 2012-07-09 20:35:40 发布

阅读量1.3k

点赞数 1

分类专栏： Delphi 文章标签： integer string

Delphi 专栏收录该内容

214 篇文章 2 订阅

订阅专栏

//记录定义 
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;