Array of Integer und crash

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1414264)

Ein kleines 20-50 Zeilenprogramm zum nachvollziehen und selber kompilieren?

Leider nicht.
Es geht um GDIPlus alleine die Header sind schon ein paar Hundert Zeilen.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1414266)

Zitat:

Zitat von TiGü (Beitrag 1414264)

Ein kleines 20-50 Zeilenprogramm zum nachvollziehen und selber kompilieren?

Leider nicht.
Es geht um GDIPlus alleine die Header sind schon ein paar Hundert Zeilen.

gruss

Kein Problem, die sind ja in jeden neueren Delphi unter Winapi.GDIPAPI mit dabei.

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1414268)

Zitat:

Zitat von EWeiss (Beitrag 1414266)

Zitat:

Zitat von TiGü (Beitrag 1414264)

Ein kleines 20-50 Zeilenprogramm zum nachvollziehen und selber kompilieren?

Leider nicht.
Es geht um GDIPlus alleine die Header sind schon ein paar Hundert Zeilen.

gruss

Kein Problem, die sind ja in jeden neueren Delphi unter Winapi.GDIPAPI mit dabei.

Diese sind zu meiner Engine nicht kompatibel.
Mein Header lädt die GDIPlus dynamisch und alle Funktionen basieren auf WinAPI32 nicht auf Classen.

Hmm... ist wieder so ein Problem wo ich mit einem Beispiel leider nicht dienen kann auch wenn ich es wollte.
Danke.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1414270)

Zitat:

Zitat von TiGü (Beitrag 1414268)

Kein Problem, die sind ja in jeden neueren Delphi unter Winapi.GDIPAPI mit dabei.

Diese sind zu meiner Engine nicht kompatibel.
Mein Header lädt die GDIPlus dynamisch und alle Funktionen basieren auf WinAPI32 nicht auf Classen.

Hmm... ist wieder so ein Problem wo ich mit einem Beispiel leider nicht dienen kann auch wenn ich es wollte.
Danke.

Die Funktionen in Winapi.GDIPAPI sind flach und direkte WinAPI32. Nicht mit Winapi.GDIPOBJ verwechseln!

Versuche damit ein Beispielprogramm mit Initialisierung, Bild laden und das Abfragen der von dir gewünschten Funktion zu bauen.

[EWeiss]

Zitat:

Diese sind zu meiner Engine nicht kompatibel.

Das Beispiel Projekt muss sich an den Richtlinien halten wie sie von meiner Library vorgegeben sind.
Ansonsten macht es keinen sinn.

Sorry nein kein Beispiel.

gruss

[TiGü]

Ggf. sind aber deine Header nicht richtig übersetzt?
Das wäre doch genau der springende Punkt.
Wenn das Beispielprojekt mit den mitgelieferten Headern geht und mit deinen nicht, dann weißt du doch wo der Fehler ist.

[EWeiss]

Zitat:

Ggf. sind aber deine Header nicht richtig übersetzt?

Denke mal nicht.
Der einzige unterschied ist ich verwende LONG_PTR anstelle von Pointer für die Images.

Meine..

Delphi-Quellcode:

  GdipImageGetFrameCount: function(Image: LONG_PTR; dimensionID: PGUID; var count: UINT): GPSTATUS; stdcall;
  GdipGetPropertyItem: function(Image: LONG_PTR; propId: PROPID; propSize: UINT; var buffer: PPROPERTYITEM): GPSTATUS; stdcall;
  GdipGetPropertyItemSize: function(Image: LONG_PTR; propId: PROPID; var size: UINT): GPSTATUS; stdcall;
  GdipGetPropertyCount: function(Image: LONG_PTR; var numOfProperty: UINT): GPSTATUS; stdcall;
  GdipGetPropertyIdList: function(Image: LONG_PTR; numOfProperty: UINT; var list: PPROPID): GPSTATUS; stdcall;

Winapi.GDIPAPI

Delphi-Quellcode:

  function GdipImageGetFrameCount(image: GPIMAGE; dimensionID: PGUID;
    var count: UINT): GPSTATUS; stdcall;
  {$EXTERNALSYM GdipImageGetFrameCount}
  
  function GdipGetPropertyItem(image: GPIMAGE; propId: PROPID; propSize: UINT;
    buffer: PPROPERTYITEM): GPSTATUS; stdcall;
  {$EXTERNALSYM GdipGetPropertyItem}

  function GdipGetPropertyItemSize(image: GPIMAGE; propId: PROPID;
    var size: UINT): GPSTATUS; stdcall;
  {$EXTERNALSYM GdipGetPropertyItemSize}

  function GdipGetPropertyCount(image: GPIMAGE;
    var numOfProperty: UINT): GPSTATUS; stdcall;
  {$EXTERNALSYM GdipGetPropertyCount}

  function GdipGetPropertyIdList(image: GPIMAGE; numOfProperty: UINT;
    list: PPROPID): GPSTATUS; stdcall;
  {$EXTERNALSYM GdipGetPropertyIdList}

hmmm.. sehe gerade hier ist kein var.
var buffer: PPROPERTYITEM bei GdipGetPropertyItem (Winapi.GDIPAPI) muss das mal testen.

Zitat:

Da ist ein Fehler in der Winapi.GDIPAPI
der Buffer MUSS über var zurückgegeben werden.

Soviel zu Winapi.GDIPAPI ;)

Was gibt er also zurück bei der Winapi.GDIPAPI bei der Funktion GdipGetPropertyItem? NICHTS!
Hier ist auch ein Fehler GdipGetPropertyIdList keine Rückgabe, sollte eigentlich den Zeiger auf das Array der Liste zurückgeben.
Sorry aber mit so was kann man nicht arbeiten.

gruss

[EWeiss]

Code:

DECLARE FUNCTION GdipGetPropertyIdList ( _
     BYVAL pImage AS DWORD, _
     BYVAL numOfProperty AS DWORD, _
     BYREF list AS DWORD _
 ) AS LONG

list
[out] Pointer to an array that receives the property identifiers.

DECLARE FUNCTION GdipGetPropertyItem ( _     
     BYVAL pImage AS DWORD, _
     BYVAL propId AS DWORD, _
     BYVAL propSize AS DWORD, _
     BYREF buffer AS PropertyItem _
 ) AS LONG
buffer 
[out] Pointer to a PropertyItem structure that receives the property item.

Auch hier BYREF = var in Delphi!

verstehe wer will.

gruss

[EWeiss]

Ok ist erledigt Danke.

Es scheint wohl kein Fehler in der Winapi.GDIPAPI vorzuliegen.

Habe mal meine beiden Versionen 32 und 64 Bit gegengeprüft.

Bei 32 Bit ohne "var" stürzt die Anwendung ab. (D2010)
Bei 64 Bit mit "var" genauso. (DX)
----------------------------------------------
Bei 32 Bit mit var funktioniert alles. (D2010)
Bei 64 Bit ohne var auch. (DX)

Unverständlich warum es hier unterschiede gibt.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1414281)

Ok ist erledigt Danke.

Es scheint wohl kein Fehler in der Winapi.GDIPAPI vorzuliegen.

Habe mal meine beiden Versionen 32 und 64 Bit gegengeprüft.

Bei 32 Bit ohne "var" stürzt die Anwendung ab. (D2010)
Bei 64 Bit mit "var" genauso. (DX)
----------------------------------------------
Bei 32 Bit mit var funktioniert alles. (D2010)
Bei 64 Bit ohne var auch. (DX)

Unverständlich warum es hier unterschiede gibt.

Wahrscheinlich vertust du dich beim Holen der einzeln Items sowie der vorigen Speicherreservierung, dass macht schnell den Stack kaputt und man hat merkwürdige Fehler.
Anbei ein Testprojekt als ZIP-Archiv und Quelltext, mit dem du nachvollziehen kannst, wie es in 32- und 64-Bit funktioniert.

Delphi-Quellcode:

unit Unit4;

interface

uses
  Winapi.Windows, System.SysUtils, System.Classes,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtDlgs;

type
  TForm4 = class(TForm)
    Memo1: TMemo;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure Memo1Click(Sender: TObject);
  private
    procedure ShowExifInfos(const AFileName: string);
    procedure LogToMemo(AText: string);
  end;

var
  Form4: TForm4;

implementation

uses
  Winapi.ActiveX,
  Winapi.GDIPAPI,
  Winapi.GDIPOBJ,
  Winapi.GDIPUTIL;

{$R *.dfm}

procedure GetExifInfo(const AFileName: string; const CommonExifProperties: TArray<PROPID>; const ALogCallback: TProc<string>);
var
  Image: TGPBitmap;
  PropSize: UINT;
  PropItemPtr: PPropertyItem;
  MyPropID: PROPID;
  MyStatus: Status;
  LogMsg: string;
begin
  Image := TGPBitmap.Create(AFileName);
  try
    if (Image.GetWidth <> 0) and (Image.GetHeight <> 0) then
    begin
      for MyPropID in CommonExifProperties do
      begin
        PropSize := Image.GetPropertyItemSize(MyPropID);
        if PropSize > 0 then
        begin
          GetMem(PropItemPtr, PropSize);
          try
            MyStatus := Image.GetPropertyItem(MyPropID, PropSize, PropItemPtr);
            if MyStatus = Status.Ok then
            begin
              LogMsg := 'Exif-Property: ' + GetMetaDataIDString(PropItemPtr.id) +
                ' with PropSize: ' + PropItemPtr.length.ToString +
                ' and data type: ' + ValueTypeFromULONG(PropItemPtr.type_);

              if Assigned(ALogCallback) then
              begin
                ALogCallback(LogMsg)
              end;
            end;
          finally
            FreeMem(PropItemPtr, PropSize);
          end;
        end;
      end;
    end;
  finally
    Image.Free;
  end;
end;

procedure TForm4.LogToMemo(AText: string);
begin
  Memo1.Lines.Add(AText);
end;

procedure TForm4.Memo1Click(Sender: TObject);
var
  MyFileName: string;
begin
  OpenPictureDialog1.Filter := '*.jpg; *.jpeg';
  if OpenPictureDialog1.Execute(Self.Handle) then
  begin
    MyFileName := OpenPictureDialog1.FileName;
    LogToMemo('Öffne Datei ' + MyFileName + sLineBreak);
    ShowExifInfos(MyFileName);
    LogToMemo(sLineBreak + 'Fertig!');
  end;
end;

procedure TForm4.ShowExifInfos(const AFileName: string);
var
  CommonExifProperties: TArray<PROPID>;
begin
  CommonExifProperties := [
    PropertyTagExifAperture
      , PropertyTagExifBrightness
      , PropertyTagExifCfaPattern
      , PropertyTagExifColorSpace
      , PropertyTagExifCompBPP
      , PropertyTagExifCompConfig
      , PropertyTagExifDTDigitized
      , PropertyTagExifDTDigSS
      , PropertyTagExifDTOrig
      , PropertyTagExifDTOrigSS
      , PropertyTagExifDTSubsec
      , PropertyTagExifExposureBias
      , PropertyTagExifExposureIndex
      , PropertyTagExifExposureProg
      , PropertyTagExifExposureTime
      , PropertyTagExifFileSource
      , PropertyTagExifFlash
      , PropertyTagExifFlashEnergy
      , PropertyTagExifFNumber
      , PropertyTagExifFocalLength
      , PropertyTagExifFocalResUnit
      , PropertyTagExifFocalXRes
      , PropertyTagExifFocalYRes
      , PropertyTagExifFPXVer
      , PropertyTagExifInterop
      , PropertyTagExifISOSpeed
      , PropertyTagExifLightSource
      , PropertyTagExifMakerNote
      , PropertyTagExifMaxAperture
      , PropertyTagExifMeteringMode
      , PropertyTagExifOECF
      , PropertyTagExifPixXDim
      , PropertyTagExifPixYDim
      , PropertyTagExifRelatedWav
      , PropertyTagExifSceneType
      , PropertyTagExifSensingMethod
      , PropertyTagExifShutterSpeed
      , PropertyTagExifSpatialFR
      , PropertyTagExifSpectralSense
      , PropertyTagExifSubjectDist
      , PropertyTagExifSubjectLoc
      , PropertyTagExifUserComment
      , PropertyTagExifVer
    ];

  GetExifInfo(AFileName, CommonExifProperties, LogToMemo);
end;

end.

[EWeiss]

Danke dir für das Beispiel.

Wie ich jedoch Einfluss darauf nehmen kann was mir GetPropertyItem zurück liefert, entschließt sich meiner Kenntnis.
Ich halte mich jetzt strikt an MS und deren API in (C++) also OHNE var in beiden varianten 32 und 64 Bit.
Es scheint so das jeder glaubt machen zu können was er will.

Zitat:

mit dem du nachvollziehen kannst, wie es in 32- und 64-Bit funktioniert.

Ich kann es nicht wirklich nachvollziehen, nach welchen Merkmalen\Definitionen\Kriterien abhängig davon das ich die Plattform ändere.
Woran erkenne ich also innerhalb des Quelltextes ob es sich um 64 oder 32 Bit handelt.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1414299)

Wie ich jedoch Einfluss darauf nehmen kann was mir GetPropertyItem zurück liefert, entschließt sich meiner Kenntnis.

Entweder ist die Frage unscharf formuliert oder du musst gedanklich zwei Schritte zurückgehen.
Du entscheidest durch Angaben von Konstanten wie bspw. PropertyTagExifBrightness, welche Property du möchtest.

Die Größe des zu reservierenden Buffers entscheidet sich durch die Abfrage mit der GetPropertyItemSize.
Du muss Speicher mit der zurückgebenden Größe reservieren, weil es nämlich ein Record mit variabler Größe ist.

Dies wird durch PropertyItem.value verursacht.
PropertyItem.value ist ein Zeiger auf ein Buffer, der so groß ist wie PropertyItem.length bzw. die GetPropertyItemSize.
Reservierst du jetzt nur Speicher für das Record PropertyItem/TPropertyItem, dann ist das in vielen Fällen zuwenig.

Delphi-Quellcode:

  {$EXTERNALSYM PropertyItem}
  PropertyItem = record // NOT PACKED !!
    id       : PROPID;  // ID of this property
    length   : ULONG;   // Length of the property value, in bytes
    type_    : WORD;    // Type of the value, as one of TAG_TYPE_XXX
    value    : Pointer; // property value
  end;
  TPropertyItem = PropertyItem;
  {$EXTERNALSYM TPropertyItem}
  PPropertyItem = ^TPropertyItem;
  {$EXTERNALSYM PPropertyItem}


// Das ist falsch:

var
  MyPropItemPtr: PPropertyItem;
  Size: UINT;
begin
  GetMem(MyPropItemPtr, SizeOf(PropertyItem)); 
  GetPropertyItem(Image, EXAMPLE_PROPERTY, SizeOf(PropertyItem), MyPropItemPtr);
// Das knallt hier früher oder später

  
// so wäre richtig:
  Size := GetPropertyItemSize(EXAMPLE_PROPERTY);
  GetMem(MyPropItemPtr, Size);
  GetPropertyItem(Image, EXAMPLE_PROPERTY, Size, MyPropItemPtr);
  // ... mache dein Zeug
  FreeMem(MyPropItemPtr, Size);

[EWeiss]

Zitat:

Entweder ist die Frage unscharf formuliert oder du musst gedanklich zwei Schritte zurückgehen.

Wohl eher unscharf.. denn es war keine frage sondern eine Feststellung.
Ich habe keinen Einfluss darauf was mir GetPropertyItem zurück liefert bzw. kann keinen Einfluss darauf nehmen abgesehen davon den Speicher richtig zu Reservieren.
Mein Problem ergab sich aus der VAR variable (Rückgabe) diese scheint bei unterschiedlichen Programmiersprachen anders ausgelegt zu werden.(Oder diese wurde dort falsch definiert).
Deshalb halte ich mich jetzt strikt an die Funktion die von MS festgelegt wurde (C++)

Aber danke verstehe was du meinst.

Delphi-Quellcode:

  Size := GetPropertyItemSize(EXAMPLE_PROPERTY);
   GetMem(MyPropItemPtr, Size);
   GetPropertyItem(Image, EXAMPLE_PROPERTY, Size, MyPropItemPtr);
   // ... mache dein Zeug
   FreeMem(MyPropItemPtr, Size);

Ist doch genau das selbe was ich auch mache.
Ich hole mir den Size vom Record und Reserviere den Speicher dafür.

Delphi-Quellcode:

    // Datengröße vom EXIF-Tag PropertyTagLoopCount ermitteln
    if GDIP_GetPropertyItemSize(GifImage, PropertyTagLoopCount, PropSize) = OK then
    begin
      // Speicher allokieren
      GetMem(FPropItem, PropSize);

      // Daten auslesen
      if GetPropertyItem(GifImage, PropertyTagLoopCount, PropSize, FPropItem) = OK then

gruss

[TiGü]

Hast du denn mal mein Beispielprojekt ausgeführt und auf GIF geändert und die entsprechende Property eingetragen, die dich für GIF interessiert?

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1414313)

Hast du denn mal mein Beispielprojekt ausgeführt und auf GIF geändert und die entsprechende Property eingetragen, die dich für GIF interessiert?

Sorry nein, weil mein Projekt ja nach dem entfernen von VAR funktioniert.
Beide 32 und 64 Bit.

Es ist ja dann das gleiche wie bei dir.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1414314)

Zitat:

Zitat von TiGü (Beitrag 1414313)

Hast du denn mal mein Beispielprojekt ausgeführt und auf GIF geändert und die entsprechende Property eingetragen, die dich für GIF interessiert?

Sorry nein, weil mein Projekt ja nach dem entfernen von VAR funktioniert.
Beide 32 und 64 Bit.

Es ist ja dann das gleiche wie bei dir.

gruss

Siehe Beitrag #46! :roll:

[EWeiss]

Zitat:

Ggf. sind aber deine Header nicht richtig übersetzt?

Sie sind jetzt korrekt übersetzt sagte ich doch schon VAR darf nicht addiert werden..
Warum ich damit Probleme hatte liegt an den unterschiedlichen Übersetzungen verschiedener Programmiersprachen.

Wenn du es testen möchtest bitte... es ist deine Entscheidung.
Achtung nur GIF funktioniert (dort hatte ich das besagte Problem) es befindet sich kein APNG im PNG Ordner.
Und ja auf Win10 getestet den Beitrag schreibe ich gerade unter Win10.

Danke.

gruss