tcpserver/client

最新推荐文章于 2024-09-07 16:32:34 发布

7年

最新推荐文章于 2024-09-07 16:32:34 发布

阅读量1.1k

点赞数

文章标签： server

本文链接：https://blog.csdn.net/zzflover/article/details/2336997

版权

SERVER端用TCPSERVER, MEMO .CLIENT端用TCPCLIENT, MEMO,BUTTON.

procedure Tclient.button1Click(Sender: TObject);
var
i:integer;
begin
try
   if tcpclient1.Connect then
    for i:=0 to memo1.Lines.Count-1 do
     tcpclient1.Sendln(memo1.lines[i]);
    finally
    tcpclient1.Disconnect;
end;

end;

procedure Tserver.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s:String;
DataThread:TClientDataThread;
begin
DataThread:=TClientDataThread.create(true);
DataThread.targetlist:=memo1.lines;
DataThread.listbuffer.add('***接受连接***');
DataThread.listbuffer.add('客户端主机'+
clientsocket.lookuphostname(clientsocket.RemoteHost)+
'('+clientsocket.RemoteHost+'),发来消息：');
s:=clientsocket.receiveln;
while s<>'' do
begin
datathread.listbuffer.add(s);
s:=clientsocket.receiveln;
end;
datathread.listbuffer.add('***消息结束***');
datathread.resume;