WIA, Vista и VB6. Работает ли этот код?

Question

В основном ограничения здесь в том, что я должен использовать WIA, потому что я пытаюсь заставить свое программное обеспечение сканера работать в Windows 7 и Vista. Было бы предпочтительнее (например, действительно предпочтительнее), если бы я мог сделать это в VB6. Теперь этот код у меня компилируется и все, однако, когда я запускаю его, я получаю сообщение об ошибке «Нет устройства WIA выбранного типа». Я начинаю подозревать, что мой сканер не совместим с WIA.

Может ли кто-нибудь подтвердить, что этот код должен работать? (необходимо работать с любым устройством WIA, а не только с сканерами)

Dim WIADia As WIA.CommonDialog 
Dim Scan As WIA.DeviceManager 


Set WIADia = New WIA.CommonDialog 
Set Scan = WIADia.ShowSelectDevice(WIA.WiaDeviceType.UnspecifiedDeviceType, True, False) 
WIADia.ShowAcquisitionWizard (Scan) 

Спасибо!

Answer 1

 WIA.CommonDialog WIADia; 
     Device Scan; 

     WIADia = new WIA.CommonDialog(); 
     Scan = WIADia.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, true, false); 
     WIADia.ShowAcquisitionWizard(Scan);