Array of Integer und crash

[TiGü]

Zitat von EWeiss:

Delphi-Quellcode:

    // Daten auslesen
    if GetPropertyItem(GifImage, PropertyTagFrameDelay, PropSize, FPropItem) = OK then
    begin
      // Bytearray dimensionieren
      SetLength(Prop, PropItem.Length);
      CopyMemory(@Prop[0], PropItem.value, PropItem.Length);

Du füllst FPropItem und greifst dann auf PropItem (ohne F) zu.

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Delphi-Quellcode:

    // Daten auslesen
    if GetPropertyItem(GifImage, PropertyTagFrameDelay, PropSize, FPropItem) = OK then
    begin
      // Bytearray dimensionieren
      SetLength(Prop, PropItem.Length);
      CopyMemory(@Prop[0], PropItem.value, PropItem.Length);

Du füllst FPropItem und greifst dann auf PropItem (ohne F) zu.

FPropItem ist nicht zugänglich. (Inaccessible)
Und ja das gleiche tue ich auch unter 32 Bit ohne Probleme..

Danke.
Der Fehler den ich bekomme ist EInOutError..

zudem es ist ein Property
property PropItem: PPropertyItem read FPropItem write FPropItem;

FPropItem liest und weist das Result PropItem zu beide haben also den gleichen Wert.

gruss

[TiGü]

Reservierst du denn vorher Speicher von der Größe, die dir GdipGetPropertyItemSize liefert, für deine Membervariable FPropItem bzw. für das dahinterliegende Record?

[EWeiss]

Zitat von TiGü:

Reservierst du denn vorher Speicher von der Größe, die dir GdipGetPropertyItemSize liefert, für deine Membervariable FPropItem bzw. für das dahinterliegende Record?

Ja..

Delphi-Quellcode:

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

gruss

[TiGü]

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

[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

[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.