nachdem nun PascalMagick zumindest mit den Demoprogrammen läuft, wollte ich PascalMagick auch in meinem eigenen Programm einsetzen.
Im wesentlichen sieht es wie folgt aus:
Code: Alles auswählen
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Process, Unix, magick_wand;
...
procedure TForm1.transfer(q,z,e, en :String);
var
...
exifdate :PChar;
wand :PMagickWand;
...
begin
MagickWandGenesis;
wand := NewMagickWand;
try
MagickReadImage(wand, 'PICT3500.JPG');
exifdate := MagickGetImageAttribute(wand,'exif:DateTime');
showmessage('DateTime : ' + exifdate);
//showmessage('YResolution : ' + String(MagickGetImageAttribute(wand,'exif:YResolution')));
finally
wand := DestroyMagickWand(wand);
MagickWandTerminus;
end;
end;
...
dabei tritt der Fehler auf:
Code: Alles auswählen
fotobatch_pas.pas(245,17) Error: Wrong number of parameters specified for call to "MagickGetImageAttribute"
Den Code-Schnippsel habe ich aus dem Internet.
Überall wo MagicGetImageAttribute benutzt wird sind dort auch nur zwei Parameter.
Ich sehe keinen Fehler.
Habt Ihr Tipps oder Hinweise?
Bis dann ...
MfG
Günter