20160510

ChangeLog.txt

@@ -8,7 +8,7 @@ v3.4.4 
 
 > ����˵����
 -----------------
-1��HP-Socket v3.4.3 ��ȫ���� HP-Socket v3.4.2 �汾������ֱ���滻����
+1��HP-Socket v3.4.4 ��ȫ���� HP-Socket v3.4.3 �汾������ֱ���滻����
 
 ==========================================================================================
 v3.4.3 ���£�

HP-Socket/Demo/Other Languages Demos/Delphi/Client/Project1.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"e:\±à³Ì¹¤¾ß\delphi7.3\delphi7\Projects\Bpl"
+-LN"e:\±à³Ì¹¤¾ß\delphi7.3\delphi7\Projects\Bpl"

HP-Socket/Demo/Other Languages Demos/Delphi/Client/Project1.dof

@@ -0,0 +1,121 @@
+[FileVersion]
+Version=7.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;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=1
+UnsafeCode=1
+UnsafeCast=1
+[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=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[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

HP-Socket/Demo/Other Languages Demos/Delphi/Client/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1},
+  HPSocketSDKUnit in 'HPSocketSDKUnit.pas';
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

HP-Socket/Demo/Other Languages Demos/Delphi/Client/Unit1.dfm

@@ -0,0 +1,108 @@
+object Form1: TForm1
+  Left = 457
+  Top = 131
+  Width = 522
+  Height = 393
+  Caption = 'Delphi HP Client'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 24
+    Top = 18
+    Width = 52
+    Height = 13
+    Caption = #36830#25509' I P'#65306
+  end
+  object Label2: TLabel
+    Left = 16
+    Top = 49
+    Width = 60
+    Height = 13
+    Caption = #36830#25509#31471#21475#65306
+  end
+  object Label3: TLabel
+    Left = 208
+    Top = 15
+    Width = 60
+    Height = 13
+    Caption = #36830#25509#29366#24577#65306
+  end
+  object Label4: TLabel
+    Left = 269
+    Top = 15
+    Width = 36
+    Height = 13
+    Caption = #26410#36830#25509
+  end
+  object Edit1: TEdit
+    Left = 76
+    Top = 15
+    Width = 121
+    Height = 21
+    TabOrder = 0
+    Text = '127.0.0.1'
+  end
+  object Edit2: TEdit
+    Left = 76
+    Top = 46
+    Width = 121
+    Height = 21
+    TabOrder = 1
+    Text = '8808'
+  end
+  object Button1: TButton
+    Left = 360
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = #21551#21160#36830#25509
+    TabOrder = 2
+    OnClick = Button1Click
+  end
+  object Button2: TButton
+    Left = 360
+    Top = 40
+    Width = 75
+    Height = 25
+    Caption = #20851#38381#36830#25509
+    TabOrder = 3
+    OnClick = Button2Click
+  end
+  object ListBox1: TListBox
+    Left = 8
+    Top = 107
+    Width = 489
+    Height = 238
+    Enabled = False
+    IntegralHeight = True
+    ItemHeight = 13
+    ParentShowHint = False
+    ShowHint = False
+    TabOrder = 4
+  end
+  object Edit3: TEdit
+    Left = 8
+    Top = 80
+    Width = 337
+    Height = 21
+    TabOrder = 5
+    Text = #36825#26159#19968#27573#27979#35797#25968#25454'~~~'
+  end
+  object Button3: TButton
+    Left = 360
+    Top = 76
+    Width = 75
+    Height = 25
+    Caption = #21457#36865#25968#25454
+    TabOrder = 6
+    OnClick = Button3Click
+  end
+end