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);