SelectDeviceItem set the Selected Device; DownloadNativeUI use alternative method GetImageDlg

WIAManager.SelectDeviceItem set the Selected Device if finded;
Optimized the WIAManager.Find methods;
DownloadNativeUI use alternative method GetImageDlg (works with network scanners);
Fixed IWiaDevMgr2.GetImageDlg ppItem param type;

Author: maxm74

WIAPascal_dpkg.dproj

@@ -154,7 +154,8 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
         <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.2.0;InternalName=;LegalCopyright=GPL 3.0;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Release>2</VerInfo_Release>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

WIA_LH.pas

@@ -687,7 +687,7 @@   _WiaTransferParams = record
                          bstrFilename: BSTR;
                          out plNumFiles: LONG;
                          out ppbstrFilePaths: PBSTR;
-                         var ppItem: IWiaItem2): HRESULT; stdcall;
+                         var ppItem: PIWiaItem2): HRESULT; stdcall;
   end;
 
 implementation

changelog.txt

@@ -1,5 +1,10 @@
 WIAPASCAL CHANGE LOG
 ======================
+2025/09/05 WIAManager.SelectDeviceItem set the Selected Device if finded;
+           Optimized the WIAManager.Find methods;
+           DownloadNativeUI use alternative method GetImageDlg (works with network scanners);
+           Fixed IWiaDevMgr2.GetImageDlg ppItem param type;
+
 2025/08/29 Added Preserve Selected Device in RefreshDeviceList
 
 2025/06/11 Release 1.0.1;

examples/wia_demo/WIA_Demo_Form.pas

@@ -210,7 +210,7 @@ procedure TFormWIADemo.btNativeClick(Sender: TObject);
 begin
   WIASource:= FWia.SelectedDevice;
   if (Sender <> nil) then WIASource.SelectedItemIndex:= 0;
-  aPath:= ExtractFilePath(ParamStr(0));
+  aPath:= edPath.Text;
   c:= WiaSource.DownloadNativeUI(Self.Handle, False, aPath, 'wia_demo', DownloadedFiles);
   if (c>0)
   then begin

wia.pas

@@ -573,7 +573,7 @@   TWIAManager = class(TObject)
     function FindDevice(AName: String; AManufacturer: String=''): Integer; overload;
 
     //Find a Device by it's ID and Select the given Item
-    procedure SelectDeviceItem(ADeviceID, ADeviceItem: String; var ADevice: TWIADevice; var AIndex: Integer);
+    procedure SelectDeviceItem(ADeviceID, ADeviceItem: String; var ADevice: TWIADevice; var ADeviceItemIndex: Integer);
 
     property DevMgrIntf: WIA_LH.IWiaDevMgr2 read GetDevMgrIntf;
 
@@ -1381,22 +1381,23 @@ function TWIADevice.DownloadNativeUI(hwndParent: HWND; useSystemUI: Boolean; APa
     filePaths:= nil;
     itemArray:= nil;
 
-           //Maybe pSelectedItem. but does not works
+(*
+    //  Alternative but this works only with usb connected devices
     lres:= pRootItem.DeviceDlg(dlgFlags, hwndParent,
                                StringToOleStr(rDownload_Path), StringToOleStr(rDownload_FileName),
                                rDownload_Count, filePaths, itemArray);
-(*  Alternative
-    lres:= rOwner.pDevMgr.GetImageDlg(0, StringToOleStr(Self.ID), hwndParent,
-                                StringToOleStr(rDownload_Path), StringToOleStr(rDownload_FileName),
-                                rDownload_Count, filePaths, itemArray);
 *)
+    lres:= rOwner.pDevMgr.GetImageDlg(dlgFlags, StringToOleStr(Self.ID), hwndParent,
+                               StringToOleStr(rDownload_Path), StringToOleStr(rDownload_FileName),
+                               rDownload_Count, filePaths, itemArray);
+
      if (lres = S_OK) then
      begin
        //Copy filePaths to DownloadedFiles and Free elements
        SetLength(DownloadedFiles, rDownload_Count);
        for i:=0 to rDownload_Count-1 do
        begin
-         DownloadedFiles[i]:= filePaths^[i];
+         DownloadedFiles[i]:= filePaths^[i];  { #todo 2 -oMaxM : Test if OleStrToString is necessary }
 
          if UseRelativePath
          then FullPathToRelativePath(rDownload_Path, DownloadedFiles[i]);
@@ -1408,6 +1409,7 @@ function TWIADevice.DownloadNativeUI(hwndParent: HWND; useSystemUI: Boolean; APa
      end;
 
      if (filePaths <> nil) then CoTaskMemFree(filePaths);
+     //if (itemArray <> nil) then CoTaskMemFree(itemArray); //the documentation says to release it but we always have Exception
   end;
 end;
 
@@ -3198,15 +3200,13 @@ procedure TWIAManager.RefreshDeviceList(PreserveSelected: Boolean);
 function TWIAManager.FindDevice(AID: String): Integer;
 var
    i      :Integer;
-   curDev :TWIADevice;
 
 begin
     Result :=-1;
     for i:=0 to DevicesCount-1 do
     begin
-      curDev :=Devices[i];
-      if (curDev <> nil) and
-         (curDev.ID = AID)
+      if (rDeviceList[i] <> nil) and
+         (rDeviceList[i].ID = AID)
       then begin Result:=i; break; end;
     end;
 end;
@@ -3219,57 +3219,55 @@ function TWIAManager.FindDevice(Value: TWIADevice): Integer;
   Result :=-1;
   if (Value <> nil)
   then for i:=0 to DevicesCount-1 do
-         if (Devices[i] = Value) then begin Result:=i; break; end;
+         if (rDeviceList[i] = Value) then begin Result:=i; break; end;
 end;
 
 function TWIAManager.FindDevice(AName: String; AManufacturer: String): Integer;
 var
    i      :Integer;
-   curDev :TWIADevice;
 
 begin
     Result :=-1;
     for i:=0 to DevicesCount-1 do
     begin
-      curDev:=Devices[i];
       { #todo -oMaxM : if there is more identical device? }
-      if (curDev <> nil) and
-         (curDev.Name = AName) and
-         ((AManufacturer <> '') and (curDev.Manufacturer = AManufacturer))
+      if (rDeviceList[i] <> nil) and
+         (rDeviceList[i].Name = AName) and
+         ((AManufacturer <> '') and (rDeviceList[i].Manufacturer = AManufacturer))
       then begin Result:=i; break; end;
     end;
 end;
 
-procedure TWIAManager.SelectDeviceItem(ADeviceID, ADeviceItem: String; var ADevice: TWIADevice; var AIndex: Integer);
+procedure TWIAManager.SelectDeviceItem(ADeviceID, ADeviceItem: String; var ADevice: TWIADevice; var ADeviceItemIndex: Integer);
 var
    i      :Integer;
-   curDev :TWIADevice;
 
 begin
   ADevice:= nil;
-  AIndex:= -1;
+  ADeviceItemIndex:= -1;
 
   try
     for i:=0 to DevicesCount-1 do
     begin
-      curDev:= Devices[i];
-
-      if (curDev <> nil) and
-         (curDev.ID = ADeviceID) then
+      if (rDeviceList[i] <> nil) and
+         (rDeviceList[i].ID = ADeviceID) then
       begin
-        ADevice:= curDev;
+        ADevice:= rDeviceList[i];
 
-        if curDev.SelectItem(ADeviceItem)
-        then AIndex:= ADevice.SelectedItemIndex
-        else AIndex:= -1;
+        if ADevice.SelectItem(ADeviceItem)
+        then begin
+               rSelectedDeviceIndex:= i;
+               ADeviceItemIndex:= ADevice.SelectedItemIndex;
+             end
+        else ADeviceItemIndex:= -1;
 
         break;
       end;
     end;
 
   except
     ADevice:= nil;
-    AIndex:= -1;
+    ADeviceItemIndex:= -1;
   end;
 end;
 

wiapascal_pkg.lpk

@@ -18,7 +18,7 @@
     </CompilerOptions>
     <Description Value="WIA Scanner features for Free Pascal and Delphi"/>
     <License Value="GPL 3.0"/>
-    <Version Major="1" Release="1"/>
+    <Version Major="1" Release="2"/>
     <Files>
       <Item>
         <Filename Value="WIA_LH.pas"/>