Программирование через USB

[Marinesku]

Никогда с этим не работал, подскажите. COM-порт - это пережиток прошлого, поэтому за него уже и не берусь.

Говорят, есть компонента HidDeviceController. Дык... искал, не нашел. Говорят, для этого нужна особая версия Delphi - Delphi for Win32. И там не нашел. Это вообще не делфи, а непонятно что.

1. Я хочу понять, как создать обработчик событий, чтоб регировал на подсоединение внешнего устройства USB. Например, флешки.

2. И как управлять внешними устройствами через USB. Есть такие маньяки, что все приборы в доме, вроде выключателя, кондиционера, управляют через USB. Я хоть и такой маньяк, но знать мне это нужно. Просто как включить/выключить лампочку. Самое простое. А дальше разберусь.

3. И как при этом при аварийном отключении известить об этом комп. Например, при перегреве срабатывает реле, замыкаются контакты (как это сделать - это уже мой гемор по части электроники), и нужно создать обработчик событий, срабатывающий на это, чтоб вывесить табличку типа "сейчас эта хренотень не работает, иди почини".

[raxp]

HidDeviceController

зайдите на JEDI проект.

1. Я хочу понять, как создать обработчик событий, чтоб регировал на подсоединение внешнего устройства USB. Например, флешки.

отрабатывайте сообщение devicearrival.

2. И как управлять внешними устройствами через USB. Есть такие маньяки, что все приборы в доме, вроде выключателя, кондиционера, управляют через USB. Я хоть и такой маньяк, но знать мне это нужно. Просто как включить/выключить лампочку. Самое простое. А дальше разберусь.

http://raxp.radioliga.com/cnt/s.php?p=us1.djvu
http://raxp.radioliga.com/cnt/s.php?p=us2.pdf
http://raxp.radioliga.com/cnt/s.php?p=us3.djvu
http://raxp.radioliga.com/cnt/s.php?p=us4.pdf
http://raxp.radioliga.com/cnt/s.php?p=us5.djvu
http://raxp.radioliga.com/cnt/s.php?p=usb6.pdf
http://raxp.radioliga.com/cnt/s.php?p=usb7.pdf

3. И как при этом при аварийном отключении известить об этом комп

смотря какой интерфейс и канал связи выберете, AX10 поверх 220 вольт это одно, зигби - другое, RS-485 - третье.

[Marinesku]

За статьи спасибо, почитаю.

А что до devicearrival - я смог сделать только WM_DEVICEARRIVAL. Сделал так:

var
AMessage: TMsg;
S : String;

begin
S := ParamStr(1);
while GetMessage(AMessage, 0, 0, 0) do
begin
if AMessage.Message=WM_DEVICECHANGE then ShellExecute(0, '', pChar(S), '', '', SW_RESTORE);
end;
end;

В Users еще надо вписать ShellAPI

Только непонятно, на какой именно обработчик событий эту хрень ставить. Поставил на FormOnCreate, так оно вообще без формы компиллируется, а при подключении флешки выгружает текущую папку (и не мудрено, там же стоит ShellExecute). Пытался на другие обработчики ставить - вообще виснет. И вместо ShellExecute другие действия ставить - не работает. Но уже хотя бы что-то. Хоть реагирует.