输入域名后立即登录服务器无法连接问题。

DataModules/PHPWebDm.pas

@@ -119,6 +119,7 @@ type
 
     function UrlGet(AUrl: string; APostParam: TStrings; var AResult: string): Integer; overload;
     function UrlGet(AUrl: string; APostParam: TStrings; var AResult: TStrings): Integer; overload;
+    procedure ReadIniValues;
 
     property Account: string read FAccount write SetAccount;
     property UserID: Integer read FUserID write SetUserID;
@@ -215,30 +216,9 @@ begin
 end;
 
 procedure TPHPWeb.DataModuleCreate(Sender: TObject);
-var ini: TIniFile;
 begin
   FServerDateTime := -1;
-
-  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Cloud.ini');
-  try
-//    FMeasureURL := ini.ReadString('URL', 'MeasureURL', '');
-    FMeasureURL := 'http://' + ini.ReadString('URL', 'Server', '') +
-      ini.ReadString('URL', 'MeasureURL', '');
-    FWebSoftURL := ini.ReadString('URL', 'WebSoftURL', '');
-    FPassportURL := ini.ReadString('URL', 'PassportURL', '');
-    FLoginCloudURL := ini.ReadString('URL', 'LoginCloudURL', '');
-
-    FLoginURL := FWebSoftURL + ini.ReadString('URL', 'LoginURL', '');
-    FWebLoginURL := FWebSoftURL + ini.ReadString('URL', 'FWebLoginURL', '');
-    FLoginBannerURL := FWebSoftURL + ini.ReadString('URL', 'LoginBannerURL', '');
-    FLogoutURL := FWebSoftURL + ini.ReadString('URL', 'LogoutURL', '');
-    FRegURL := FPassportURL + ini.ReadString('URL', 'RegURL', '');
-    FPwdURL := FPassportURL + ini.ReadString('URL', 'PwdURL', '');
-    FCheckOnLineURL := FWebSoftURL + ini.ReadString('URL', 'CheckOnLineURL', '');
-    FServerDateTimeURL := FWebSoftURL + ini.ReadString('URL', 'ServerDateTimeURL', '');
-  finally
-    ini.Free;
-  end;
+  ReadIniValues;
 end;
 
 procedure TPHPWeb.SetRealName(const Value: string);
@@ -969,6 +949,31 @@ begin
   Result := CustomSearch(AURL, [], [], 1, vA, AOutRecords);
 end;
 
+procedure TPHPWeb.ReadIniValues;
+var ini: TIniFile;
+begin
+  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Cloud.ini');
+  try
+//    FMeasureURL := ini.ReadString('URL', 'MeasureURL', '');
+    FMeasureURL := 'http://' + ini.ReadString('URL', 'Server', '') +
+      ini.ReadString('URL', 'MeasureURL', '');
+    FWebSoftURL := ini.ReadString('URL', 'WebSoftURL', '');
+    FPassportURL := ini.ReadString('URL', 'PassportURL', '');
+    FLoginCloudURL := ini.ReadString('URL', 'LoginCloudURL', '');
+
+    FLoginURL := FWebSoftURL + ini.ReadString('URL', 'LoginURL', '');
+    FWebLoginURL := FWebSoftURL + ini.ReadString('URL', 'FWebLoginURL', '');
+    FLoginBannerURL := FWebSoftURL + ini.ReadString('URL', 'LoginBannerURL', '');
+    FLogoutURL := FWebSoftURL + ini.ReadString('URL', 'LogoutURL', '');
+    FRegURL := FPassportURL + ini.ReadString('URL', 'RegURL', '');
+    FPwdURL := FPassportURL + ini.ReadString('URL', 'PwdURL', '');
+    FCheckOnLineURL := FWebSoftURL + ini.ReadString('URL', 'CheckOnLineURL', '');
+    FServerDateTimeURL := FWebSoftURL + ini.ReadString('URL', 'ServerDateTimeURL', '');
+  finally
+    ini.Free;
+  end;
+end;
+
 initialization
 
 finalization

Dprs/CSL/Measure_Cloud.cfg

@@ -35,7 +35,7 @@
 -N"C:\DelphiTemp"
 -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
--D_mCloud;_mEncrypt1;_Test;_mLoginNoPW
+-D_mCloud;_mEncrypt1;_Test;_mLoginNoPW1
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Dprs/CSL/Measure_Cloud.dof

@@ -96,12 +96,12 @@ PackageDLLOutputDir=
 PackageDCPOutputDir=
 SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;ZjGridD7;DPanel;ExTree;JimComboBoxs;JimTab;PrintComRep;XPMenu_tom;ZjGridFereD7;ZjCommon;SmartDataSet;ZjGridActns
-Conditionals=_mCloud;_mEncrypt1;_Test;_mLoginNoPW
+Conditionals=_mCloud;_mEncrypt1;_Test;_mLoginNoPW1
 DebugSourceDirs=
 UsePackages=0
 [Parameters]
-RunParams=Measure:ww2zsx
-HostApplication=C:\Program Files (x86)\纵横软件\计量支付 (单机版+云版) 1\Measure_Cloud.exe
+RunParams=
+HostApplication=
 Launcher=
 UseLauncher=0
 DebugCWD=
@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=3
-Build=1143
+Build=1145
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.3.1143
+FileVersion=3.1.3.1145
 InternalName=
 LegalCopyright=
 LegalTrademarks=
@@ -134,8 +134,9 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 [HistoryLists\hlConditionals]
-Count=1
-Item0=_mCloud;_mEncrypt1;_Test;_mLoginNoPW
+Count=2
+Item0=_mCloud;_mEncrypt1;_Test;_mLoginNoPW1
+Item1=_mCloud;_mEncrypt1;_Test;_mLoginNoPW
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

Forms/IPFrm.pas

@@ -85,6 +85,7 @@ begin
     finally
       ini.Free;
     end;
+    PHPWeb.ReadIniValues;
   end
   else
   begin