CL>>Hi all,
CL>>кто-нибудь программировал устройства на базе микросхем FTDI ?
S>Да, как-то пробегал рядом Забавный дивайс
Кстати, а что это был за девайс ?

S>Не буду настаивать на решении, но как мне вспоминается, бился с такой же проблемой.
S>Если мне не изменяет склероз, то на самом деле они на вход ждут указатель.
S>Это как раз пробелма в поставляемом файле для Delphi, тама нужно было приводить указатель
S>к DWORD.
Насчет указателя — правда ваша.

S>А я себе переписал все заново (перевод с файла .h).
S>я бы изменил код так:
S>Попробуйте, может поможет.
А все равно не работает

typedef
  FT_STATUS (WINAPI *MYFTLISTDEVICES)(PVOID,PVOID,DWORD);

typedef
  FT_STATUS (WINAPI *MYFTOPEN)(int, FT_HANDLE *);

void main(void)
{
    HINSTANCE hinstLib;
    MYFTLISTDEVICES ListProc;
    MYFTOPEN OpenProc;
    FT_HANDLE FTHandle;
    FT_STATUS ftstat;
    DWORD num;

    hinstLib = LoadLibrary(TEXT("ftd2xx"));
    if (hinstLib != NULL) {
       ListProc = (MYFTLISTDEVICES) GetProcAddress(hinstLib, "FT_ListDevices");
       if (NULL != ListProc)
          (ListProc) (&num, NULL, FT_LIST_NUMBER_ONLY);
       OpenProc = (MYFTOPEN) GetProcAddress(hinstLib, "FT_Open");
       if (NULL != OpenProc)
         ftstat = (OpenProc) (0, &FTHandle);
       if (ftstat == FT_OK) MessageBox(NULL, "Устройство открыто", "Все нормально", MB_OK);
       else MessageBox(NULL, "Устройство не открыто", "Ошибка", MB_OK);
       FreeLibrary(hinstLib);
    }
}