ver 0.9.4.3 wip

emiMobileServer/Source/Common.Ini.pas

@@ -97,7 +97,7 @@ begin
     FDatabaseServer := iniFile.ReadString('Database', 'Server', '');
     FDatabaseServerFromIni := iniFile.ValueExists('Database', 'Server');
 
-    FDatabasePort := iniFile.ReadInteger('Database', 'Port', 5433);
+    FDatabasePort := iniFile.ReadInteger('Database', 'Port', 5432);
     FDatabasePortFromIni := iniFile.ValueExists('Database', 'Port');
 
     FDatabaseName := iniFile.ReadString('Database', 'Database', 'lems_wcso');

emiMobileServer/Source/Main.pas

@@ -181,6 +181,14 @@ begin
   Logger.Log(1, LogValue('--Settings->LogFileNum', IniEntries.LogFileNum.ToString, IniEntries.LogFileNumFromIni));
   Logger.Log(1, LogValue('--Settings->webClientVersion', IniEntries.WebClientVersion, IniEntries.WebClientVersionFromIni));
 
+  Logger.Log(1, '--- Database ---');
+  Logger.Log(1, LogValue('--Database->Server', IniEntries.DatabaseServer, IniEntries.DatabaseServerFromIni));
+  Logger.Log(1, LogValue('--Database->Port', IniEntries.DatabasePort.ToString, IniEntries.DatabasePortFromIni));
+  Logger.Log(1, LogValue('--Database->Name', IniEntries.DatabaseName, IniEntries.DatabaseNameFromIni));
+  Logger.Log(1, LogValue('--Database->Username', IniEntries.DataBaseUsername, IniEntries.DatabaseUsernameFromIni));
+  Logger.Log(1, LogValue('--Database->Password', IniEntries.DatabasePassword, IniEntries.DatabasePasswordFromIni));
+  Logger.Log(1, '');
+
   Logger.Log(1, '');
   Logger.Log(1, '--- URLs ---');
 

emiMobileServer/bin/emiMobileServer.ini

 [Settings]
-LogFileNum=155
-webClientVersion=0.9.4.1
+LogFileNum=101
+webClientVersion=0.9.4.2
 
 [Database]
-Server=192.168.91.136
+Server=192.168.91.129
 --Server=192.168.102.10
 --Server=192.168.56.129
 --Port=5432
 --Port=5433
 Database=lems_wcso
 Username=postgres
-Password=postgreSQL
---Password=emsys01
+--Password=postgreSQL
+Password=emsys01
 --Postgre!SQL

emiMobileServer/emiMobileServer.dpr

@@ -112,9 +112,9 @@ begin
 
   iniFile := TIniFile.Create( ChangeFileExt(Application.ExeName, '.ini') );
   try
-    fileNum := iniFile.ReadInteger( 'Settings', 'LogFileNum', 0 );
+    fileNum := iniFile.ReadInteger( 'Settings', 'LogFileNum', 0 ) + 1;
     FFilename := AFilename + Format( '%.4d', [fileNum] );
-    iniFile.WriteInteger( 'Settings', 'LogFileNum', fileNum + 1 );
+    iniFile.WriteInteger( 'Settings', 'LogFileNum', fileNum );
   finally
     iniFile.Free;
   end;

emiMobileServer/emiMobileServer.dproj

@@ -108,9 +108,9 @@
         <VerInfo_MajorVer>0</VerInfo_MajorVer>
         <VerInfo_MinorVer>9</VerInfo_MinorVer>
         <VerInfo_Release>4</VerInfo_Release>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.4.1;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.2.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.4.2;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.2.0;Comments=</VerInfo_Keys>
         <DCC_UnitSearchPath>C:\RADTOOLS\FastMM4;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
-        <VerInfo_Build>1</VerInfo_Build>
+        <VerInfo_Build>2</VerInfo_Build>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>

webEMIMobile/wcEmiMobile.dpr

 program wcEmiMobile;
 
-
-
-
-
 {$R *.dres}
 
 uses
@@ -82,3 +78,4 @@ begin
   Application.Run;
   DMConnection.InitApp(@StartApplication, @UnauthorizedAccessProc);
 end.
+