Телесистемы
 Разработка, производство и продажа радиоэлектронной аппаратуры
На главную   | Карта сайта | Пишите нам | В избранное
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Встречается регулярно. Уже не один раз обсуждали. Вместо передёргивания USB устройство можно отключить/включить. Вот такой код приводили на ixbt:

Отправлено Леонид Иванович 30 июня 2009, г. 11:56
В ответ на: Опять косяки с FT232R. "Засыпание" микросхемы я исключил постоянно передачей данных, ...{+} отправлено пользователем C3PO 30 июня 2009, г. 11:25


Отключаю программно из своего приложения с помощью JEDI SetupAPI.
Это эквивалентно пунктам контекстного меню "Отключить" и "Задействовать" менеджера устройств.
Скачать и подключить с http://jedi-apilib.sourceforge.net/.
Подключить в программу модули SetupApi, CfgMgr32, Cfg.
Не забыть сделать LoadSetupApi, LoadConfigManagerApi, UnloadSetupApi, UnloadConfigManagerApi.

function On_Off_Device(PnPID: PAnsiChar; State: Boolean): Boolean;

var
DeviceInfoSet_ : HDEVINFO; // Хендл набора информации об устройствах.
DeviceInfoData_ : TSPDevInfoData; // Структура информации об устройстве.
SPPropChangeParams_ : TSPPropChangeParams;

begin
DeviceInfoSet_ := nil;
// Получение хендла набора информации об устройстве по коду экземпляра устройства.
DeviceInfoSet_ := SetupDiGetClassDevs(nil, PnPID, 0, DIGCF_ALLCLASSES or DIGCF_DEVICEINTERFACE);
if Integer(DeviceInfoSet_) = INVALID_HANDLE_VALUE then
begin
// Ошибка.
Result := False;
Exit;
end
else
begin
// Хендл набора информации об устройстве получен.
FillChar(DeviceInfoData_, SizeOf(TSPDevInfoData), 0);
DeviceInfoData_.cbSize := SizeOf(TSPDevInfoData);
// Заполнение структуры информации об устройстве.
if not SetupDiEnumDeviceInfo(DeviceInfoSet_, 0, DeviceInfoData_) then
begin
// Ошибка.
SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
Result := False;
Exit;
end;

// Установка полей структуры
SPPropChangeParams_.ClassInstallHeader.cbSize := SizeOf(TSPClassInstallHeader);
SPPropChangeParams_.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
SPPropChangeParams_.Scope := DICS_FLAG_GLOBAL;

if State then SPPropChangeParams_.StateChange := DICS_ENABLE
else SPPropChangeParams_.StateChange := DICS_DISABLE;

// Изменение состояния устройства.
if not SetupDiSetClassInstallParams(DeviceInfoSet_,
@DeviceInfoData_,
@SPPropChangeParams_,
SizeOf(TSPPropChangeParams)) then
begin
// Ошибка.
SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
Result := False;
Exit;
end;
// Подтверждение изменения состояния устройства
// (повторный вызов функции SetupDiSetClassInstallParams).
if not SetupDiSetClassInstallParams(DeviceInfoSet_,
@DeviceInfoData_,
@SPPropChangeParams_,
SizeOf(TSPPropChangeParams)) then
begin
// Ошибка.
SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
Result := False;
Exit;
end;

// Вызов установщика классов.
if not SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, DeviceInfoSet_, @DeviceInfoData_) then
begin
// Ошибка.
SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
Result := False;
Exit;
end;

end; // Integer(DeviceInfoSet_) <> INVALID_HANDLE_VALUE

Result := True;
// Освобождение хендла набора информации об устройствах.
SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
end;


Составить ответ | Вернуться на конференцию.

Ответы


Отправка ответа
Имя*: 
Пароль: 
E-mail: 
Тема*:

Сообщение:

Ссылка на URL: 
URL изображения: 

если вы незарегистрированный на форуме пользователь, то
для успешного добавления сообщения заполните поле, как указано ниже:
поделите шесть пополам:

Перейти к списку ответов | Конференция | Раздел "Электроника" | Главная страница | Карта сайта

Rambler's Top100 Рейтинг@Mail.ru
 
Web telesys.ru