ip.pas

基于delphi的聊天室工具

unit IP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmIp = class(TForm)
    Label1: TLabel;
    edIP: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure edIPKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIp: TfrmIp;

implementation

uses csMain;

{$R *.dfm}

procedure TfrmIp.Button1Click(Sender: TObject);
begin
  if trim(edIp.Text)<>'' then
    begin
      frmCChat.cs.Address:=trim(edIp.Text);
      frmCChat.cs.Host:=trim(edIp.Text);
      if frmCChat.cs.Active=false then
        try
         frmCChat.cs.Active:=true;
         frmCChat.tlbbStart.Enabled:=false;
         frmCChat.tlbbStop.Enabled:=true;
         frmCChat.tlbbName.Enabled:=true;
         username:=Edit1.Text;
         frmCChat.lbname.Caption:='用户：'+username;
        except
           Application.MessageBox('连接失败！','提示',MB_OK+MB_ICONINFORMATION);
        end;
    end;
   close;
end;

procedure TfrmIp.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmIp.edIPKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     if trim(edIp.Text)<>'' then
        begin
          frmCChat.cs.Address:=trim(edIp.Text);
          frmCChat.cs.Host:=trim(edIp.Text);
          if frmCChat.cs.Active=false then
            try
             frmCChat.cs.Active:=true;
             frmCChat.tlbbStart.Enabled:=false;
             frmCChat.tlbbStop.Enabled:=true;
             frmCChat.tlbbName.Enabled:=true;
            except
               Application.MessageBox('连接失败！','提示',MB_OK+MB_ICONINFORMATION);
            end;
        end;
     close;
   end;
end;

end.