Thema: Delphi Auslesen/Programmieren

Einzelnen Beitrag anzeigen

s14

Registriert seit: 15. Mai 2003
Ort: München
251 Beiträge
 
Delphi 7 Architect
 
#13

Re: Auslesen/Programmieren

  Alt 5. Jan 2004, 14:39
Die Stringlänge spielt ja auch keine Rolle, da in ftData sowieso nur Zeiger auf NULL-Terminierte Zeichenketten sind.

Ich hab im Web folgende Doku gefunden:
http://www.ftdichip.com/Documents/D2XXPG21.pdf

Die Funktion zum lesen der Daten hab ich mal nach Delphi übersetzt, vielleicht hilft's ja weiter.
Das Hinweisfenster ist natürlich nur ein Test und sollte eigentlich etwas anzeigen.
Ich vermute Du hast die Funktion FT_Open noch nicht aufgerufen wenn das Prog startet!?

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 !!
      showmessage(ftData.Manufacturer);
    end else FT_Error_Report('FT_EE_Read', ftstatus);
  end;
end;
  Mit Zitat antworten Zitat