Hi, I need to get width and height of a JPeg file from a CGI app, and it allways return 0 for both properties. If I test the same function on a GTK2 or Win32 application, the values are returned correctly. Is this a bug?.

function getWidth: Integer;
var
   lJpeg: TJPEGImage;
begin
   lJpeg := TJPEGImage.Create;
   try
     lJpeg.LoadFromFile('myimage.jpg');
     Result := lJpeg.Width;
   finally
     lJpeg.Free;
   end;
end;

I'm using Lazarus and FPC from Trunk in Ubuntu 10.04 64bits.

Don't use TJPEgImage;

This is a visual component and relies on the LCL, which is not available in CGI apps.

Use TFPMemoryImage of the fpimage unit instead:

function getWidth: Integer;
var
   lJpeg: TFPMemoryImage;
begin
   lJpeg := TFPMemoryImage.Create;
   try
     lJpeg.LoadFromFile('myimage.jpg');
     Result := lJpeg.Width;
   finally
     lJpeg.Free;
   end;
end;

Make sure that fpreadjpg is included in your uses clause, so jpeg format can be read.

Michael.

El mar, 31-08-2010 a las 19:21 +0200, Michael Van Canneyt escribi?:

Thanks Michael, much better now.