关于indy 10.5.7在delphi 7下的数据发送接收的用法分享

 

由于我在delphi 7中安装了最新的indy 10.5.7 版本，在使用上跟过去完全不一样，故把使用中遇到的问题作一个总结，希望遇到同样问题的朋友少走弯路。以下主要讲的TIdTCPClient的数据发送和TIdTCPServer的数据接收

 

//结构体：

TMyData = record

      id:Integer;

      Name:Array[0..20] of Char;

      Sex:Array[0..10] of Char;

      Age:Byte;

      Address:Array[0..256] of Char;

      UpdateTime:double;

  end;

//发送结构体：

procedure TForm2.Button2Click(Sender: TObject);

var

  SendData:TMyData;

begin

 

SendData.ID:=10;

StrPCopy(SendData.Name,'Wyatt');

StrPCopy(SendData.Sex,'男');

SendData.age:=25;

StrPCopy(SendData.Address,'江苏省');

SendData.UpdateTime:=Now;

 

IdTCPClient1.IOHandler.Write(#99);//接收时便于区分接收的数据类型 自定义

IdTCPClient1.IOHandler.Write(RawToBytes(SendData,SizeOf(SendData)));

 

end;