🚀 go-pugleaf

W dniu 2016-11-16 o 10:22, stchebel@gmail.com pisze:
> W dniu środa, 16 listopada 2016 08:37:52 UTC+1 użytkownik kons...@wp.pl napisał:
>>>
>>> implementation
>>> function FT_Open(PVDevice:Integer; ftHandle:Pointer ) : integer ; stdcall ; External 'ftd2xx.dll' name 'FT_Open';
>>> function FT_Close(ftHandle:Dword) : integer ; stdcall ; External 'ftd2xx.dll' name 'FT_Close';
>>> {$R *.lfm}
>>>
>>
>>
>> Potrzebujesz aż tak?
>> FT232 to konwersja UART-USB-COM i dostajesz port COM w systemie.
>> Po co używasz dll od FTD jeżeli możesz używać urządzenia jako "czarnej
>> skrzynki" poprzez COM?
>> Daj więcej szczegółów.
>>
>>
> Niestety, takie rozwiązanie odpada, bo muszę korzystać z maksymalnej prędkości transferu (tryb FT245 synch. FIFFO).
>
Ładuj DLL dynamicznie i w tedy sprawdzisz czy program widzi bibliotekę.
Rozejrzyj się za LoadLibrary

coś takiego

hBibl:  THandle;
fMenuWhere : function(): WideString;//<-twoja funkcja
...
hBibl := LoadLibrary('pełna_ścieżka_do.dll');
     if  hBibl = 0  then
     begin
       RaiseLastOSError();
       Abort()
     end;
@fMenuWhere := GetProcAddress(hBibl, 'fMenuWhere');
       if @fMenuWhere <> nil then
       begin
         //tutaj na pewno funcja/procedura istnieje
       end;

Tak to się robi w Delphi pow Windows