Changeset 252 for Common

Timestamp:

Jun 16, 2011, 11:39:42 AM (13 years ago)

Author:

george

Message:

• Fixed: Compilation on Linux.

Location:

Common

Files:

• StopWatch.pas (modified) (3 diffs)
• UCommon.pas (modified) (7 diffs)

Common/StopWatch.pas

@@ -4 +4 @@
 interface
 
-uses Windows, SysUtils, DateUtils;
+uses
+  {$IFDEF Windows}Windows,{$ENDIF}
+  SysUtils, DateUtils;
 
-type 
+type
+  TLargeInteger = Int64;
+
   TStopWatch = class
   private
@@ -36 +40 @@
   fIsRunning := False;
 
+  {$IFDEF Windows}
   fIsHighResolution := QueryPerformanceFrequency(fFrequency) ;
+  {$ELSE}
+  raise Exception.Create('Not implemeneted');
+  {$ENDIF}
   if NOT fIsHighResolution then fFrequency := MSecsPerSec;
 
@@ -50 +58 @@
 begin
   if fIsHighResolution then
+    {$IFDEF Windows}
     QueryPerformanceCounter(lInt)
+    {$ELSE}
+    raise Exception.Create('Not implemeneted')
+    {$ENDIF}
   else
     lInt := MilliSecondOf(Now) ;

Common/UCommon.pas

@@ -6 +6 @@
 
 uses
-  Windows, Classes, SysUtils, SpecializedList, StrUtils, Dialogs,
+  {$IFDEF Windows}Windows,{$ENDIF}
+  Classes, SysUtils, SpecializedList, StrUtils, Dialogs,
   FileUtil; //, ShFolder, ShellAPI;
 
@@ -29 +30 @@
   ExceptionHandler: TExceptionEvent;
   DLLHandle1: HModule;
+
+{$IFDEF Windows}
   GetUserNameEx: procedure (NameFormat: DWORD;
     lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
-
+{$ENDIF}
 
 function IntToBin(Data: Cardinal; Count: Byte): string;
@@ -41 +44 @@
 function BCDToInt(Value: Byte): Byte;
 function CompareByteArray(Data1, Data2: TArrayOfByte): Boolean;
+{$IFDEF Windows}
 function GetUserName: string;
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
+{$ENDIF}
 function SplitString(var Text: string; Count: Word): string;
 function GetBit(Variable: QWord; Index: Byte): Boolean;
@@ -250 +255 @@
 end;
 
+{$IFDEF Windows}
 function GetUserName: string;
 const
@@ -283 +289 @@
   end else Result := GetUserName;
 end;
+{$ENDIF}
 
 function SplitString(var Text: string; Count: Word): string;
@@ -317 +324 @@
 procedure LoadLibraries;
 begin
+  {$IFDEF Windows}
   DLLHandle1 := LoadLibrary('secur32.dll');
   if DLLHandle1 <> 0 then
@@ -322 +330 @@
     @GetUserNameEx := GetProcAddress(DLLHandle1, 'GetUserNameExA');
   end;
+  {$ENDIF}
 end;
 
 procedure FreeLibraries;
 begin
+  {$IFDEF Windows}
   if DLLHandle1 <> 0 then FreeLibrary(DLLHandle1);
+  {$ENDIF}
 end;