Question

delphi 7中tcpserver 和 tcpclient的运用

首先我要说明我是一个新手
其次是这个很诡异的问题
tcpclient1.Active:=true;
tcpclient1.Sendln('get in');
if tcpclient1.Connect then
showmessage(tcpclient1.Receiveln)
else showmessage('dead');
tcpclient1.Active:=false;
-------客户端-------
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
if clientsocket.Receiveln()='get in' then
begin
inc(allpeople);
tcpserver1.Sendln(inttostr(allpeople));
end;
end;
-------服务端-----
单步跟踪显示server1.sendln是运行的了
但是客户端showmessage了一个''。。。
而且我while true do if client.Receiveln<>'' then break;
它居然没跳出！
。。。。
求解 还有求解各项event用法
onconnect是不是只要连接了就会运行 还是那边传输了才会运行？
网上那些try 和finnal怎么用
procedure TForm1.btnSendClick(Sender: TObject);
var
I: Integer;
begin
TcpClient1.RemoteHost := edtRemoteHost.Text; //服务器IP
TcpClient1.RemotePort := edtRemotePort.Text; //服务器端口号
try
if TcpClient1.Connect then
for I := 0 to memSend.Lines.Count - 1 do
TcpClient1.Sendln(memSend.Lines[I]);
finally
TcpClient1.Disconnect;
end;
end;
求解释
谢谢！

Answer 1

procedure TForm1.TcpServer1Accept(Sender: TObject;
里面也是死循环来处理消息。直到你终止。
while ClientSocket.connected do

tcpclient1 也是类似的，用单独的线程死循环来处理接收的消息。 只有发送消息就无所谓

追问

还能不能更详细些。。。或者代码 event里到底是干啥的。。。50分不想乱给请谅解！

追答

TcpServer1Accept 这个是服务端的组件接收到有客户端连接进入时（且TCP连接成功），就会触发这个事件，并且把，当时连接进入的ClientSocket提供出来，进行后续的处理。

btnSendClick 这个就是界面上点击一个按钮时，应该执行的代码。

追问

就是这样的 我需要弄 一个队列来维持这个服务器的运行（保证不会有客户端同时输入导致程序错误），代码：
procedure TForm1.TcpServer1Accept
tail:=tail mod maxn+1;
deal[tail].cln:=clientsocket;
deal[tail].st:=clientsocket.Receiveln;
timer1.Enabled:=true;
timer1是处理你懂得啦。。。
但是对于客户端的.connect它没有receiveln就会。。。超时啊超时，这时怎么办？
能不能给一个队列代码。。。
谢谢！

追答

这个地方用队列来存储和管理clientsocket是对的。
但是不应该deal[tail].st:=clientsocket.Receiveln;
这个时候应该是一个新的线程循环去不停的处理clientsocket.Receiveln
毕竟简单除暴的做法就是一个客户端一个线程处理clientsocket和Server之间的通讯。
你的TcpServer1Accept主线程才能一直接收请求连接的客户端。