Buenas pessoal,

encontrei essa biblioteca open-source
http://delphihaven.wordpress.com/ccr-exif/ e estou tentando port?-la para laz-fpc.
Est? complicado, porque o lazarus n?o tem algumas units como xmldom, por exemplo, al?m de n?o compilar algumas declara??es como "class helper".

Ent?o, algu?m tem uma sugest?o de classe que leia as informa??es de EXIF?

Aquele abra?o.

-------------------

Hi all,

I found this open source library
http://delphihaven.wordpress.com/ccr-exif/ and I'm trying to porting it to Laz-fpc.
It's complicated, because Lazarus don't have some units as xmldom, for example, and don't compile some statements as "helper class".

So someone has a hint of class to read the EXIF information?

That hug.

(Google Translate)

Have you tried looking into ImageMagick ?

http://wiki.lazarus.freepascal.org/PascalMagick

Hi, I've installed the PascalMagick + ImageMagick.

With the console tool "identify" I get the EXIF properties. But, using PascalMagick, the only method that appears to do this is the MagickGetImageAttribute(), that returns only the timestamp of the file (not the timestamp of picture taken by the camera).
Maybe I'm doing something wrong...

There is the code I'm testing:

program mywanddemo;
{$apptype console}
{$mode objfpc}{$H+}
uses SysUtils, magick_wand, ImageMagick;
procedure ThrowWandException(wand: PMagickWand);
var
 description: PChar;
 severity: ExceptionType;
begin
 description := MagickGetException(wand, @severity);
 WriteLn(Format('An error ocurred. Description: %s', [description]));
 description := MagickRelinquishMemory(description);
 Abort;
end;
var
 status: MagickBooleanType;
 wand: PMagickWand;
 s: string;
begin
  MagickWandGenesis;
 wand := NewMagickWand;
 try
   status:=MagickReadImage(wand,'teste.jpg');
   if (status = MagickFalse) then ThrowWandException(wand);
   s:=String(MagickGetImageAttribute(wand));
   writeln(s);
 readln;
 finally
   wand := DestroyMagickWand(wand);
   MagickWandTerminus;
 end;
end.

2010/1/18 Michael Joyner ?? :