Compatibility with fpc 3.2.2

Compatibility with fpc 3.2.2

Author: maxm74

wia.pas

@@ -25,8 +25,9 @@
 interface
 
 uses
-  Windows, DelphiCompatibility, Classes, SysUtils, ComObj, ActiveX,
-  WiaDef, WIA_LH, Wia_PaperSizes;
+  Windows, DelphiCompatibility, Classes, SysUtils,
+  {$ifdef fpc} testutils, {$endif}
+  ComObj, ActiveX, WiaDef, WIA_LH, Wia_PaperSizes;
 
 type
   //Dinamic Array types
@@ -767,7 +768,7 @@ function WIAItemCategory(const AGUID: TGUID): TWIAItemCategory;
   Result:= wicNULL;
 
   for i:=Low(TWIAItemCategory) to High(TWIAItemCategory) do
-    if (WiaItemCategoryGUID[i] = AGUID) then
+    if IsEqualGUID(WiaItemCategoryGUID[i], AGUID) then
     begin
       Result:= i;
       break;
@@ -833,7 +834,7 @@ function WIAImageFormat(const AGUID: TGUID; var Value: TWIAImageFormat): Boolean
   Result:= False;
 
   for i:=Low(TWIAImageFormat) to High(TWIAImageFormat) do
-    if (WiaImageFormatGUID[i] = AGUID) then
+    if IsEqualGUID(WiaImageFormatGUID[i], AGUID) then
     begin
       Value:= i;
       Result:= True;

wiapascal_pkg.lpk

@@ -16,7 +16,7 @@
         </Optimizations>
       </CodeGeneration>
     </CompilerOptions>
-    <Description Value="WIA and STI features for Free Pascal and Delphi"/>
+    <Description Value="WIA features for Free Pascal and Delphi"/>
     <Version Release="2"/>
     <Files>
       <Item>