получение данных от usb устройства перевести ?

[дмитрий12123]

Есть такая программа на с:
libusb_init(NULL);
libusb_set_debug(NULL, USB_DEBUG_LEVEL);
libusb_device_handle *handle = libusb_open_device_with_vid_pid(NUL L, VID, PID);
if (handle == NULL)
{printf("Устройство не подключено\n");}
if (libusb_kernel_driver_active(handle ,DEV_INTF))
libusb_detach_kernel_driver(handle, DEV_INTF);
lsusb -v -d VID:PID
if (libusb_claim_interface(handle, DEV_INTF) < 0)
{printf("Ошибка интерфейса\n");}
int returned = libusb_interrupt_transfer(handle, EP_IN, buf, DATA_SIZE, &ret, 1000);
if (returned >= 0)
{cout << "buf[0] = " << (int)buf[0] << endl;
cout << "buf[1] = " << (int)buf[1] << endl;
cout << "buf[2] = " << (int)buf[2] << endl;
cout << "buf[3] = " << (int)buf[3] << endl;}
unsigned char buf[DATA_SIZE];

Как перевести на делфи?

[Sciv]

Начнем с того, что код программы выложен не полностью: какие библиотеки используются, непонятно (хотя рискну предположить, что это libusb.dll).
Подключаете ее в дельфи и используете те же функции/процедуры, что и в Си. Останется перевести только синтаксис и структуру языка.

[raxp]

Как то так:

const
  LIBUSB_PATH_MAX = 512;
  LIBUSB_DLL_NAME =  'libusb0.dll';

procedure usb_init; cdecl; external LIBUSB_DLL_NAME name 'usb_init';
procedure usb_set_debug(level: longword); cdecl; external LIBUSB_DLL_NAME name 'usb_set_debug';
... и т.д.

var h: libusb_device_handle;
   vid, pid: word;
   returned: integer;
   buf[0..DATA_SIZE] array of char;
...

 libusb_init(nil);
 libusb_set_debug(nil, USB_DEBUG_LEVEL); 
 h:= libusb_open_device_with_vid_pid(nil, VID, PID);

 if (h = 0) then 
  writeln('Устройство не подключено');

 if (libusb_kernel_driver_active(h,DEV_INTF)) then
  libusb_detach_kernel_driver(h, DEV_INTF);

 if (libusb_claim_interface(h, DEV_INTF) < 0) then
  writeln('Ошибка интерфейса');

 returned:= libusb_interrupt_transfer(h, EP_IN, buf, DATA_SIZE, ret^, 1000);

 if (returned >= 0) then begin
 ...

однако не мучьте себя, все уже давно портировано. Libusb0.dll и модуль экспорта LibUSB.PAS ищите

[дмитрий12123]

Верно насчет libusb.dll.

[raxp]

...libusb0.dll является частью проекта LibUSB. Так что думайте головой.