Auslesen/Programmieren

[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?!