TTcpServer、TTcpClient通讯例程

procedureTForm1.btnActivateListenClick(Sender:TObject);beginTcpServer1.LocalHost:=edtRemoteHost.Text;TcpServer1.LocalPort:=edtLocalPort.Text;TcpServer1.Active:=True;end;procedureTForm1.btnSendClick(Sender:TObject);vari:Integer;beginTcpClient1.RemoteHost:=edtRemoteHost.Text;Tcp