подача сигнала на USB порт

[dimonbest]

Доброго времени суток, форумчане.
Интересует вот какой вопрос:
Нужно научиться подавать сигнал на USB порт и считывать с него.
Может с этим уже кто то работал?
Распиновку порта знаю: +-5В, дата+ и дата-.
Мне надо подавать на дата+ сигнал (0 или 1), а с дата- считывать.
Буду благодарен за помощь...

[mihali4]

Из моего справочника, выложенного специально для вас всех на сайте форума:

Работа с USB на DELPHI

procedure tmain.wmdevicechange(var message: tmessage);
var
s : string;
begin
{do something here}
case message.wparam of
dbt_devicearrival :
showessage('ok');
dbt_devicequeryremove:
begin
s := 'permission to remove a device is requested';
showmessage(s);
{true grants premission}
message.result := integer(true);
exit;
end;
dbt_devicequeryremovefailed :
s := 'request to remove a device has been canceled';
dbt_deviceremovepending :
s := 'device is about to be removed';
dbt_deviceremovecomplete :
showmessage('del');

dbt_devicetypespecific :
s := 'device-specific event';
dbt_configchanged :
s:= 'current configuration has changed'
else
s := 'unknown device message';
end;
if s <> '' then showmessage(s);
inherited;
end;

А если всерьез интересуетесь, скачайте из сети (искать придется самому!) книги:
Агуров П. Практика программирования USB
Агуров П. Интерфейс USB

[dimonbest]

Мне надо только подавать на USB сигнал и считывать с него, глубокое знание протокола не требуется.
По поводу справочника и книг: ничего скачивать не получается, пишет файл не найден.
За код спасибо, можно только немножко коментарий к процедуре, что она делает?
Спасибо.

[mihali4]

По поводу справочника и книг: ничего скачивать не получается, пишет файл не найден.

Иногда заглядывайте в раздел " Клуб программистов > О форуме и сайтах клуба"

от Алара
http://programmersclub.ru/files/имя_файла.rar - вот так скачается. временные неполадки.