TTcpServer、TTcpClient通讯例程

procedure TForm1.btnActivateListenClick(Sender: TObject); begin TcpServer1.LocalHost := edtRemoteHost.Text; TcpServer1.LocalPort := edtLocalPort.Text; TcpServer1.Active := True; end; procedure TForm1.btnSendClick(Sender: TObject); var i:Integer; begin TcpClient1.RemoteHost := edtRemoteHost.Text; TcpClient1.RemotePort := edtRemotePort.Text; try TcpClient1.Connect; for i:=0 to mmSend.Lines.Count -1 do TcpClient1.Sendln(mmSend.Lines[i]); finally TcpClient1.Disconnect; end end; procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient); var s :string; DataThread: TClientDataThread; begin DataThread := TClientDataThread.Create(True); DataThread := TClientDataThread.Create(True); DataThread.TargetList := mmReceive.Lines; DataThread.ListBuffer.Add('**Connection Accepted***'); DataThread.ListBuffer.Add('Remote Host:' + ClientSocket.LookupHostName(ClientSocket.RemoteHost) + '(' + ClientSocket.RemoteHost + ')'); DataThread.ListBuffer.Add('===== Begin message ====='); s := ClientSocket.Receiveln; while s<> '' do begin DataThread.ListBuffer.Add(s); s := ClientSocket.Receiveln; end; DataThread.ListBuffer.Add('====End of nessage ===='); DataThread.Resume; end;