首先上截图
最近有点无聊,于是将以前写到一半的聊天程序拿出来改进了一下。
Delphi自带两个控件:TIdTCPServer, tIdTCPClient。顾名思义,一个是服务器端用的,另一个是客户端用的。程序主要思路如下,客户端程序开始运行时与服务器端建立连接,用户登录时向服务器端发送LOGIN命令并发送用户输入的用户名与密码,服务器端处理后返回结果;当用户发送信息时,服务器则充当中继站。
我们先从服务器端开始,用一个Memo输出各种信息,命名为Console,一个输入框edInput记录用户输入,一个IdTCPServer控件,为了方便,写一个过程输出信息
procedure TMainForm.writeln(s: string);
begin
console.Lines.Add(s);
end;
在FormCreate事件中,打开TCPServer开始监听
Const
DefaultPort = 500;
procedure TMainForm.FormCreate(Sender: TObject);
begin
TCPServer.DefaultPort := defaultPort;
TCPServer.Active := true;
writeln('port: ' + inttoStr(defaultPort));
end;
TCPServer有这些事件:OnConnect, OnExecute, OnDisconne