核心提示:一、tidtcpclient 客户端代码发送: procedure TForm1.Button1Click(Sender: TObject); type TMyData=record id:...
一、tidtcpclient 客户端代码发送:
procedure TForm1.Button1Click(Sender: TObject);
type
TMyData=record
id:integer;
sName:array[0..3] of char;
end;
var
mydata:TMydata;
begin
IdTCPClient1.Host :='127.0.0.1';
IdTCPClient1.Port :=1101;
IdTCPClient1.Connect(5000);
IdTCPClient1.WriteBuffer(mydata,sizeof(mydata));
end;
二、IdTCPServer1 服务器端接收代码:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
type
TMyData=record
id:integer;
sName:array[0..3] of char;
end;
var
mydata:TMydata;
begin
AThread.Connection.ReadBuffer(mydata,sizeof(mydata));
end;