Array of Integer und crash

[TiGü]

Zitat von EWeiss:

Zitat von TiGü:

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 von TiGü:

Zitat von EWeiss:

Zitat von TiGü:

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 von EWeiss:

Zitat von TiGü:

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