Auslesen/Programmieren

[s14]

Also enhält ftData nun die gewünschten Werte?
Wo ist dann das Problem?? )

[STW]

ja ftData enthält die werte...
aber nur dann, wenn ich das Porg öffne und das EEPROM programmiere und dann die Daten auslesen...

wenn ich das Prog öffne und dann gleich auslesen will, stürzt es immer noch ab...


ausser eben ich habe

Delphi-Quellcode:

  ManufacturerBuf := ftData.Manufacturer;
  ManufacturerIDBuf := ftData.ManufacturerID;
  DescriptionBuf := ftData.Description;
  SerialNumberBuf := ftData.SerialNumber;

nicht drin

oder ich habe bei

Delphi-Quellcode:

ManufacturerBuf : string;
ManufacturerIDBuf : string;
DescriptionBuf : string;
SerialNumberBuf : string;

die stringlänge nicht definiert...

dann aber zeigt es mir die Werte von

ftData.Manufacturer, ftData.ManufacturerID, ftData.Description, ftData.SerialNumber nicht an, sonder nur die ftData-Werte, die Boolean oder Word sind!
die PChar-Werte zeigt es dann nicht an!


Der Sinn der ganze Sache wäre, dass man div. Devices anschliessen kann und dann alle Daten wie Serienummer, Beschreibung, usw. auslesen kann.

[s14]

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;

[STW]

ja die Doku hab ich auch...

aber beim Hinweisfenster zeigt es mir nichts an
ausser eben ich programmiere es zuerst...
aber das ist ja schon bekannt...

ist den das hier nicht mehr nötig?

Delphi-Quellcode:

ManufacturerBuf := ftData.Manufacturer;
  ManufacturerIDBuf := ftData.ManufacturerID;
  DescriptionBuf := ftData.Description;
  SerialNumberBuf := ftData.SerialNumber;

es ist doch seltsam, dass die boolean und word werte ohne probleme ausgelsen werden können, bei den PChar aber solche probleme auftreten...

langsam ist es zum

Danke dir mal jedenfalls für die ganzen Tips bis jetzt!
hoffe wir finden dass noch raus...


PEACE
STW

[s14]

Die sind so eigentlich nicht nötig.

Stimmen die anderen Werte wirklich oder sind es Zufallswerte?

Wird die Proc von mir korrekt durchlaufen, FT_OK , FT_EE_Read, gültiges Handle..
..also bis zum Fenster?

Was erscheint wenn Du einen Breakpoint in die Zeile von "Showmessage()" reinsetzt und mit dem Mauszeiger auf ftData gehst?

Es müsste eigentlich der gesammte Inhalt als Hinweisfenster angezeigt werden.

Nur nicht aufgeben

[STW]

Also wenn ich das Prog öffne und das mache, zeigt es mir im Debug Inspector alle Werte von ftData...
ausser die PChar Werte ... Bei denen steht nil...

wenn ich zuerst programmiere und dann auslese sind alle Werte vorhanden...

jap, deine proc stimmt...

[s14]

Also einen hab ich noch

Delphi-Quellcode:

var
  ftHandle : FT_HANDLE;
  ftData   : PFT_PROGRAM_DATA;
  ftstatus : FT_STATUS;
begin
  ftStatus = FT_Open(0, @ftHandle);
  if ftStatus = FT_OK then
  begin
    GetMem(ftData, SizeOf(FT_PROGRAM_DATA));
    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);
    FreeMem(ftData);
  end;
end;

Ich vermute mal das es auch am zuweisen des Speichers liegen kann?!

[scp]

Guck nochmal bei dem C-Code, da sind die vier Zeilen anders herum:

Delphi-Quellcode:

Function ReadEE : FT_Result; 
var 
  ManufacturerBuf : string[32]; 
  ManufacturerIDBuf : string[16]; 
  DescriptionBuf : string[64]; 
  SerialNumberBuf : string[16]; 
begin 
  ftData.Manufacturer   := @ManufacturerBuf[1];   // Die
  ftData.ManufacturerID := @ManufacturerIDBuf[1]; // vier
  ftData.Description    := @DescriptionBuf[1];    // meine 
  ftData.SerialNumber   := @SerialNumberBuf[1];   // ich

  Result := FT_EE_Read(Multi_Handle,@FtData); 
  if Result <> FT_OK then FT_Error_Report('FT_EE_Read',Result); 
end;

[negaH]

Falls die Strukturen aus C/C++ stammen so hast du die Strings falsch transliert.

Statt

Delphi-Quellcode:

type
  XYZ = record
    XYZ: String[48];
  end;

muß

Delphi-Quellcode:

type
  XYZ = record
    XYZ: array[0..48 -1] of Char;
  end;

werden.

Gruß Hagen

[STW]

Morgen allerseits...

@s14

Das getMem funktioniert nicht so...
es kommt die Meldung incompatible Types
in der DelphiHelp steht da, dass es einen Pointer und Integer sein muss...
FT_PROGRAM_DATA ist ja aber ein record...


@scp

ich glaube in C und Delphi ist das doch eben gerade seitenverkehrt...
oder irre ich mich da?


@negaH

ich habe für die strings auch PChar genommen
also:

Delphi-Quellcode:

type
  XYZ = record
    XZW: PChar;
  end;

und wenn ichs so mache wie dein Vorschlag (also Arrays), kann ich beim EEPROM programmieren die Daten nicht mehr ins ftData einschreiben, da ich sie von Edits herauslese

also:
ftData.Manufacturer := PChar(Manufacturer.Text); hmmmm....


PEACE
STW