1,593
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.RzButton1Click(Sender: TObject);
begin
tcpClient1.Active :=true;
TcpClient1.Sendln('FD0,001,060'+#13#10) ;
end;
下面我是我执行RecieveIn方法的代码
procedure TForm1.RzButton2Click(Sender: TObject);
var
s:string;
begin
s:=TcpClient1.Receiveln() ;
end;
当执行上述操作后,发生OnRecieve事件
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
var
s:string;
begin
SetLength(s,DataLen);
Move(buf^,s[1],DataLen);
mmo1.Lines.Add(s);
end;
代码就这么简单,具体的数据格式就顶楼