procedure TfrmMain.msgKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
sendbt.Click;
end;
end;
procedure TfrmMain.sendbtClick(Sender: TObject);
begin
//发送信息
if msg.Text = '' then
begin
MessageDlg('请输入要发送的信息',mtError,[mbOk],0);
msg.SetFocus;
end
else
begin
tcpClient.Socket.WriteLn(msg.Text);
//tcpClient.SendCmd(msg.Text);
//tcpclient.WriteLn(msg.Text);
end;
end;
procedure TfrmMain.serverstartClick(Sender: TObject);
begin
//服务器端启动
if not tcpServer.Active then
begin
tcpServer.Active := true;
statusBar.SimpleText := '服务器端已启动';
end;
end;
procedure TfrmMain.serverstopClick(Sender: TObject);
begin
//服务器端停止
if tcpServer.Active then
begin
tcpServer.Active := false;
statusBar.SimpleText := '服务器端已停止';
end;
end;
procedure TfrmMain.tcpServerConnect(AContext: TIdContext);
begin
memo.Lines.Add('接收来自'+AContext.Connection.Socket.Binding.PeerIP+'的连接');
end;
procedure TfrmMain.tcpServerExecute(AContext: TIdContext);
var
readstr: string;
begin
readstr := AContext.Connection.Socket.ReadLn();
memo.Lines.Add(readstr);
end;