From 6a7ad3568abfa983d4fd0a11656f5e54829d1686 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sun, 16 Dec 2007 12:14:23 +0000
Subject: [PATCH] * Fixed compilation for wince.

git-svn-id: trunk@9478 -
---
 packages/fcl-db/src/dbase/dbf_dbffile.pas |  7 ++++++-
 packages/fcl-db/src/dbase/dbf_pgfile.pas  | 10 ++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/dbase/dbf_dbffile.pas b/packages/fcl-db/src/dbase/dbf_dbffile.pas
index 756fbdf263..e27167b027 100644
--- a/packages/fcl-db/src/dbase/dbf_dbffile.pas
+++ b/packages/fcl-db/src/dbase/dbf_dbffile.pas
@@ -2720,6 +2720,10 @@ var
 {$endif}
 begin
 {$ifdef WINDOWS}
+{$ifdef wince}
+  FUserName:='cedevice';
+  FUserNameLen:=Length(FUserName);
+{$else}
   FUserNameLen := MAX_COMPUTERNAME_LENGTH+1;
   SetLength(FUserName, FUserNameLen);
   Windows.GetComputerName(PChar(FUserName), 
@@ -2728,7 +2732,8 @@ begin
     {$ifdef DELPHI_3}){$endif}
     );
   SetLength(FUserName, FUserNameLen);
-{$else}  
+{$endif wince}
+{$else}
 {$ifdef FPC}
   FpUname(TempName);
   FUserName := TempName.machine;
diff --git a/packages/fcl-db/src/dbase/dbf_pgfile.pas b/packages/fcl-db/src/dbase/dbf_pgfile.pas
index fab92cc72d..5757cfae21 100644
--- a/packages/fcl-db/src/dbase/dbf_pgfile.pas
+++ b/packages/fcl-db/src/dbase/dbf_pgfile.pas
@@ -785,10 +785,15 @@ const
   LockStart  = LockOffset - 1000000000;
 
 function TPagedFile.LockSection(const Offset, Length: Cardinal; const Wait: Boolean): Boolean;
+{$ifndef wince}
   // assumes FNeedLock = true
 var
   Failed: Boolean;
+{$endif wince}
 begin
+{$ifdef wince}
+  Result := True;
+{$else}
   // FNeedLocks => FStream is of type TFileStream
   Failed := false;
   repeat
@@ -802,11 +807,16 @@ begin
         Failed := true;
     end;
   until Result or not Wait or Failed;
+{$endif wince}
 end;
 
 function TPagedFile.UnlockSection(const Offset, Length: Cardinal): Boolean;
 begin
+{$ifdef wince}
+  Result := True;
+{$else}
   Result := UnlockFile(TFileStream(FStream).Handle, Offset, 0, Length, 0);
+{$endif wince}
 end;
 
 function TPagedFile.LockAllPages(const Wait: Boolean): Boolean;