Danke für die schnelle antwort.
Es funktioniert zwar, aber nur bei dem ersten Pointer den ich auslese, der zweite wird gar nicht angezeigt...
Hab mal den Code reingepackt
Delphi-Quellcode:
Function GetFTAllConnectedDeviceSerialNo : FT_Result;
Type
TPointers = array of Pointer;
var
Pointers: TPointers;
Buffer1: String;
Buffer2: String;
NumDevs : DWORD;
Begin
SetLength(Pointers, 40);
Buffer1 := String(@Pointers[0]);
Buffer2 := String(@Pointers[1]);
Result := FT_ListDevices1(@Pointers,@numDevs,(FT_LIST_ALL or FT_OPEN_BY_SERIAL_NUMBER));
Result = FT_OK then FT_Device_String := GetDeviceString;
If Result <> FT_OK then FT_Error_Report('GetFTDeviceSerialNo',Result);
ShowMessage(IntToStr(NumDevs));
ShowMessage(Buffer1);
ShowMessage(Buffer2);
End;