Problem beim Benutzen eines GDI+ API Aufufes

[sieppl]

Hi!

Ich weiß nicht, ob bei mir ein Übersetzungsfehler von C++ in Delphi unterlaufen ist oder ob ich an anderer Stelle in Problem habe:

Ich möchte aus GDI+ einen Effekt zum Entfernen des 'rote Augen'-Effektes benutzen.
Dazu müssen zunächst eine Instanz des Effektes erstellt werden und danach Parameter gesetzt werden.
WICHTIG: Ich habe bereits zahlreiche andere Effekte zum laufen gebracht, es liegt also ein speziellen Problem mit den 'Rote Augen enfernen'-Parametern vor. Folgende Dinge habe ich übersetzt:

(siehe: GDI+ MSDN

Delphi-Quellcode:

typedef struct {
    UINT numberOfAreas;
    RECT *areas;
} RedEyeCorrectionParams;

  TGPRedEyeCorrectionParams = packed record
    NumArray: Cardinal;         
    RectArray: Pointer;
  end;

Folgender Test schlägt mit lastResult = InvalidParameter fehl:

Delphi-Quellcode:

procedure TGPEffectRedEyeCorrection.SetRect;
var
  RedEyeCorrectionParams: TGPRedEyeCorrectionParams;
  ArrayRect: array of TRect;
begin
  SetLength(ArrayRect, 2);
  ArrayRect[0] := Rect(0, 0, 50, 50);
  ArrayRect[1] := Rect(100, 100, 100, 100);
  RedEyeCorrectionParams.NumArray := Length(ArrayRect);
  RedEyeCorrectionParams.RectArray := @ArrayRect[0];
  lastResult := GdipSetEffectParameters(nativeEffect, @RedEyeCorrectionParams, SizeOf(RedEyeCorrectionParams));
end;

Wobei 'nativeEffect' die Instanz des Effektes ist (Ich habe die Vorgehensweise aus der bekannten Übersetzung der GDI+ Header übernommen) Die Instanz wird korrekt erstellt.

Vielleicht kann ja jemand helfen, habe schon alles mögliche probiert. Verschiedene Record-Größen (durch Integer-Dummies) etc.

Grüße

Sebastian

[ste_ett]

Code:

typedef struct {
    UINT numberOfAreas;
    RECT *areas;
} RedEyeCorrectionParams;

wäre dann

Code:

TGPRedEyeCorrectionParams = packed record
  numberOfAreas: Cardinal;         
  areas: PRect;
end;

[Olli]

Oder eher in Richtung Borland's Stil:

Delphi-Quellcode:

TRectArray: array[0..0] of TRect;
PRectArray = ^TRectArray;
TGPRedEyeCorrectionParams = packed record
  numberOfAreas: Cardinal;         
  areas: PRectArray;
end;

[sieppl]

Zitat von ste_ett:

wäre dann

Code:

TGPRedEyeCorrectionParams = packed record
  numberOfAreas: Cardinal;         
  areas: PRect;
end;

Habe ich auch schon probiert. Ob nun Pointer oder PRect, dass sollte doch egal sein..

[Olli]

Wie lautet deine Deklaration von: GdipSetEffectParameters?

[sieppl]

Zitat von Olli:

Wie lautet deine Deklaration von: GdipSetEffectParameters?

siehe hier: MSDN

Meine Übersetzung:

  function GdipSetEffectParameters(Effect :GPeffect; Params: GPEffectParams; const Size: LongInt): GPStatus; stdcall; wobei GpEffect und GPEffectParams als 'Pointer' deklariert sind. Wie gesagt, das müsste stimmen, da ich einige andere Effektparameter damit schon erfolgreich gesetzt habe.

[Olli]

Dann hast du es dennoch falsch übersetzt. Probier mal:
function GdipSetEffectParameters(Effect :GPeffect; Params: GPEffectParams; Size: LongInt): GPStatus; stdcall; Const bedeutet in Delphi und C++ jeweils etwas anderes. Könnte sein, daß du über diese Kleinigkeit stolperst.

[sieppl]

Zitat von Olli:

Dann hast du es dennoch falsch übersetzt. Probier mal:
function GdipSetEffectParameters(Effect :GPeffect; Params: GPEffectParams; Size: LongInt): GPStatus; stdcall; Const bedeutet in Delphi und C++ jeweils etwas anderes. Könnte sein, daß du über diese Kleinigkeit stolperst.

Hi Olli!
Leider war es das auch nicht. Zum heulen.
Das Ding muss irgendwie funktionieren. Der Bild-Manager aus dem Office 2003 Paket
setzt genau diesen Effekt erfolgreich ein.

[Olli]

Dann zeige doch nochmal deine Deklarationen für die beiden Typen:

GPeffect
GPEffectParams

Wobei ersterer vermutlich weniger interessiert. Aber zeig sie trotzdem mal beide.

[sieppl]

Zitat von Olli:

Dann zeige doch nochmal deine Deklarationen für die beiden Typen:

GPeffect
GPEffectParams

Wobei ersterer vermutlich weniger interessiert. Aber zeig sie trotzdem mal beide.

Delphi-Quellcode:

  GpEffect = Pointer;
  GPAuxData = Pointer;
  GPEffectParams = Pointer;