Browse Source

* Fix wince/nativent compilation

Michaël Van Canneyt 1 year ago
parent
commit
9b9623b289
1 changed files with 6 additions and 1 deletions
  1. 6 1
      rtl/objpas/classes/reader.inc

+ 6 - 1
rtl/objpas/classes/reader.inc

@@ -1939,13 +1939,18 @@ begin
      begin
      begin
      DeltaName:=RootName+'_'+Delta;
      DeltaName:=RootName+'_'+Delta;
      // No module support yet
      // No module support yet
-     ResHandle:=FindResource(Nilhandle,PAnsiChar(DeltaName), PAnsiChar(RT_RCDATA));
+     ResHandle:=System.FindResource(Nilhandle,DeltaName, PAnsiChar(RT_RCDATA));
      if ResHandle<>NilHandle then
      if ResHandle<>NilHandle then
        Break;
        Break;
      end;
      end;
   if ResHandle=NilHandle then 
   if ResHandle=NilHandle then 
     exit;     
     exit;     
+{$ifdef FPC_OS_UNICODE}    
+// Wince
+  S:=TResourceStream.Create(NilHandle,DeltaName, PWideChar(RT_RCDATA));
+{$ELSE}  
   S:=TResourceStream.Create(NilHandle,DeltaName, PAnsiChar(RT_RCDATA));
   S:=TResourceStream.Create(NilHandle,DeltaName, PAnsiChar(RT_RCDATA));
+{$ENDIF}
   try
   try
     Proc(S);
     Proc(S);
   finally
   finally