iButton USB reader как обратится из Delphi

[Аватар]

Есть устройство iButton USB reader и дрова к нему фирмы Алладин. Драйвер установлен, а как на устройство из Delphi выйти без понятия. Поделитесь пожалуйста информацией кто знает

[raxp]

прежде всего зайти на офсайт алладина, хотя бы на русский вариант и почитать их же форум... к примеру, API для Delphi Вы можете скачать здесь ftp://ftp.aladdin.com/pub/hasp/Senti...n-time_API.zip

...а еще почитать вот это http://www.aladdin-rd.ru/support/for...08#message1581

[Аватар]

Все оказалось очень просто. В ссылках от raxp есть примеры, но без этого драйвера, а с доступом через com порт. Ниже код для отладки

procedure TForm2.SpeedButton5Click(Sender: TObject);
const IBUTTON_READER_CDO_USER_DEVICE_NAME = '\\.\touchm0';
      IOCTL_TMDRV_PRESENCE_DETECT = $00226A90;
      HexDigits: array[0..15] of Char = '0123456789abcdef';
var xHandle: THandle;
    xErr,dwBytes: DWORD;
    bTmId: array[1..8] of Byte;
    i,j: Integer;
    s: String;
begin
  xHandle:=CreateFile(IBUTTON_READER_CDO_USER_DEVICE_NAME,
           GENERIC_READ,FILE_SHARE_READ,nil,
           OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if xHandle=INVALID_HANDLE_VALUE then begin
    xErr:=GetLastError;
    Edit1.Text:='CreateFile '+IntToStr(xErr);
    Exit;
  end;
  try
    if not DeviceIoControl(xHandle,IOCTL_TMDRV_PRESENCE_DETECT,
                           nil,0,@bTmId,8,dwBytes,nil) then begin
      xErr:=GetLastError;
      Edit1.Text:='PRESENCE_DETECT '+IntToStr(xErr);
      Exit;
      //xErr=3848273921 если нет iButton
    end;
    s:='';
    for i:=7 downto 2 do begin
      j:=bTmId[i] div 16;
      s:=s+HexDigits[j];
      j:=bTmId[i] mod 16;
      s:=s+HexDigits[j];
    end;
    Edit1.Text:='$'+s;
  finally
    CloseHandle(xHandle);
  end;
end;

[raxp]

собственно, так и есть, открываем устройство как файл и далее парсим данные ...usb девайс создает виртуальный COM порт.