http://www.sixca.com/eng/articles/usbstepping/

[aforadi]

Я использую ПОС 18f4500 здесь.
Я использовал эту ссылку, чтобы цепь.Также я использую ULN2003 чипом вместо 2803.
http://www.sixca.com/eng/articles/usbstepping/
Когда я запускаю Delphi основаны на программном обеспечении и нажмите на Подсоедините говорится микропрограммой версии неизвестных и устройство не подключено.
Я потратил много времени на понимание кода, но не может, как представляется, понять, где я не так.Чтение main.pas файл в папку delphi6,
Я понял, что в следующий код первое условие всегда верно.Почему бы это происходило каких-либо возможных причин?
если (_MPUSBGetDeviceCount (vid_pid) = 0), то
начинать
StatusBar1.Panels [1]. Текстом: = 'Состояние: DeviceGCH не связано';
StatusBar1.Panels [0]. Текстом: = 'Версия микропрограммы: unkhown';
выхода;
конец
еще
начинать
StatusBar1.Panels [1]. Текстом: = 'Состояние: устройства, подключенного';
конец;