Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
18th
Ноя
Работа с джойстиком через USB
Posted by bullvinkle under Пост-обзор
Пишу приложение по работе с игровым джойстиком через USB-порт. Кто сталкивался с этим? Буду благодарен за любую информацию и ссылки.
Ситуация следующая: к ПК под WinXP подключен джойстик (заранее не определенно, какой джойстик будет подключен), клавиатуры подключенно не будет. Независимо от модели джойстика, необходимо отлавливать и определять нажатия стрелок и двух-трех основных кнопок. Кто что посовеует?
————————————————————————————————-
…читаем подключенные hid:
function TForm1.hidEnumerate(HidDev: TJvHidDevice;
const Idx: Integer): Boolean;
var n: Integer;
begin
n:= ListBox1.Items.Add(DeviceName(HidDev));
Hid.CheckOutByIndex(Dev, Idx);
Dev.NumInputBuffers := 128;
Dev.NumOverlappedBuffers := 128;
ListBox1.Items.Objects[n]:= Dev;
Result:= True
end;
читаем данные:
procedure TForm1.hidDeviceData(HidDev: TJvHidDevice; ReportID: Byte;
const Data: Pointer; Size: Word);
var i: integer;
s: string;
k: longword;
begin
for i:= 0 to Size - 1 do
s:= s + Format('%.2x ', [Cardinal(PChar(Data))]);
caption:= s;
// тут преобразуем если в двух-байтном
// например смещением
end;
как узнать что это ваше устройство (фильтруем по VID и PID):
function DeviceName(HidDev: TJvHidDevice): string;
begin
if HidDev.ProductName <> '' then Result:= HidDev.ProductName
else Result:= Format('Device VID=%.4x PID=%.4x',
[HidDev.Attributes.VendorID,
HidDev.Attributes.ProductID]);
if HidDev.SerialNumber <> '' then // проверка наличия Serial Num
Result:= Result + Format(' (Serial=%s)', [HidDev.SerialNumber])
end;
пример чтения-обращения к моему hid термометру прилагаю… думаю разберетесь 
пы-сы: если что спрашивайте…

