Auslesen/Programmieren

[s14]

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