Manche Dinge lasssen mir keine Ruhe
Wir sind von unterschiedlichen Deklarationen ausgegangen:
Delphi-Quellcode:
type
PFT_PROGRAM_DATA = ^FT_PROGRAM_DATA;
FT_PROGRAM_DATA = packed record //(EEPROM Programming Interface)
VendorID : word;
ProductID : word;
Manufacturer : PChar;
ManufacturerID : PChar;
Description : PChar;
SerialNumber : PChar;
MaxPower : word;
PnP : Word;
SelfPowered : Word;
RemoteWakeup : Word;
Rev4 : boolean;
IsoIn : boolean;
IsoOut : boolean;
PullDownEnable : boolean;
SerNumEnable : boolean;
USBVersionEnable : boolean;
USBVersion : Word;
end;
und dann in einer Methode folgendes:
Delphi-Quellcode:
var
ftHandle : FT_HANDLE;
ftData : FT_PROGRAM_DATA;
ftstatus : FT_STATUS;
begin
ftStatus = FT_Open(0, @ftHandle);
if ftStatus = FT_OK then begin
ftstatus := FT_EE_Read(ftHandle, @ftData);
if ftstatus FT_OK then
begin
// FT_EE_Read OK, data is available in ftData
// in ftData müssten nun alle Daten enthalten sein !!
end else FT_Error_Report('FT_EE_Read', ftstatus);
end;
Wie gesagt, ich kann es nicht testen. Sieht aber nicht schlecht aus
Gruß aus dem verschneiten München