No commit message

chat_socket/client/Unit2.dfm

@@ -0,0 +1,79 @@
+object Form2: TForm2
+  Left = 302
+  Top = 202
+  BorderStyle = bsDialog
+  Caption = #29992#25143#27880#20876#20449#24687
+  ClientHeight = 171
+  ClientWidth = 283
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 12
+  object Label1: TLabel
+    Left = 32
+    Top = 16
+    Width = 48
+    Height = 12
+    Caption = #29992' '#25143' '#21517
+  end
+  object Label2: TLabel
+    Left = 32
+    Top = 64
+    Width = 48
+    Height = 12
+    Caption = #23494'    '#30721
+  end
+  object Label3: TLabel
+    Left = 32
+    Top = 112
+    Width = 48
+    Height = 12
+    Caption = #23494#30721#30830#35748
+  end
+  object Edit1: TEdit
+    Left = 32
+    Top = 32
+    Width = 121
+    Height = 20
+    TabOrder = 0
+  end
+  object Edit2: TEdit
+    Left = 32
+    Top = 80
+    Width = 121
+    Height = 20
+    TabOrder = 1
+  end
+  object Edit3: TEdit
+    Left = 32
+    Top = 128
+    Width = 121
+    Height = 20
+    TabOrder = 2
+  end
+  object Button1: TButton
+    Left = 184
+    Top = 56
+    Width = 75
+    Height = 25
+    Caption = #30830#23450'[&O]'
+    Default = True
+    TabOrder = 3
+    OnClick = Button1Click
+  end
+  object Button2: TButton
+    Left = 184
+    Top = 104
+    Width = 75
+    Height = 25
+    Caption = #21462#28040'[&C]'
+    TabOrder = 4
+    OnClick = Button2Click
+  end
+end

chat_socket/client/Unit2.pas

@@ -0,0 +1,62 @@
+unit Unit2;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TForm2 = class(TForm)
+    Edit1: TEdit;
+    Edit2: TEdit;
+    Edit3: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Button1: TButton;
+    Button2: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form2: TForm2;
+  usnam: string;
+  pssword: string;
+
+implementation
+
+uses client;
+
+{$R *.dfm}
+
+procedure TForm2.Button1Click(Sender: TObject);
+begin
+   if edit1.Text='' then exit;
+   if edit2.Text='' then exit;
+   if edit2.Text=edit3.Text then
+    begin
+      usnam:=edit1.Text;
+      pssword:=edit2.Text;
+      form1.clientsocket1.Socket.SendText(usnam+'??**##'+pssword);
+      close;
+    end
+   else
+    begin
+      showmessage('两次密码输入不同，请重新输入');
+      edit2.Clear;
+      edit3.Clear;
+    end;
+end;
+
+procedure TForm2.Button2Click(Sender: TObject);
+begin
+  close;
+end;
+
+end.

chat_socket/client/Unit3.dfm

@@ -0,0 +1,73 @@
+object Form3: TForm3
+  Left = 482
+  Top = 333
+  BorderStyle = bsDialog
+  Caption = #20851#20110
+  ClientHeight = 137
+  ClientWidth = 324
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 12
+  object Shape1: TShape
+    Left = 16
+    Top = 8
+    Width = 289
+    Height = 81
+  end
+  object Label1: TLabel
+    Left = 40
+    Top = 16
+    Width = 120
+    Height = 12
+    Caption = #36719#20214#21517#65306#32842#22825#23460#23458#25143#31471
+    Transparent = True
+  end
+  object Label2: TLabel
+    Left = 192
+    Top = 16
+    Width = 84
+    Height = 12
+    Caption = #20316'  '#32773#65306#26446#28487#28487
+    Transparent = True
+  end
+  object Label3: TLabel
+    Left = 40
+    Top = 64
+    Width = 96
+    Height = 12
+    Caption = #23398'  '#21495#65306'99055117'
+    Transparent = True
+  end
+  object Label4: TLabel
+    Left = 152
+    Top = 64
+    Width = 126
+    Height = 12
+    Caption = #26085'  '#26399#65306'2002'#24180'6'#26376'10'#26085
+    Transparent = True
+  end
+  object Label5: TLabel
+    Left = 40
+    Top = 40
+    Width = 156
+    Height = 12
+    Caption = #29677'  '#32423#65306#35199#23433#20132#22823#35745#31639#26426'95'#29677
+    Transparent = True
+  end
+  object Button1: TButton
+    Left = 128
+    Top = 104
+    Width = 75
+    Height = 25
+    Caption = #30830#23450'[&O]'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+end

chat_socket/client/Unit3.pas

@@ -0,0 +1,37 @@
+unit Unit3;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls;
+
+type
+  TForm3 = class(TForm)
+    Button1: TButton;
+    Shape1: TShape;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    procedure Button1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form3: TForm3;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm3.Button1Click(Sender: TObject);
+begin
+  close;
+end;
+
+end.

chat_socket/client/chatclient.cfg

@@ -0,0 +1,35 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi6\Projects\Bpl"
+-LN"c:\program files\borland\delphi6\Projects\Bpl"

chat_socket/client/chatclient.dof

@@ -0,0 +1,90 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;