Obtener resolución de JPG,BMP y GIF

[MaMu]

Yo lo que hago es lo siguiente:

Código Delphi [-]
//resolucion
function Resolucion(Filename:string):string;
var MyJPEG : TJPEGImage;
    MyBMP  : TBitmap;
    datos:TJPEGImage;
    ex,root:string;
begin
  root:=ExtractFilePath(Application.ExeName);
  ex:=ExtractFileExt(Filename);
 //para JPEG
 if (ex='.jpg') or (ex='.jpeg')
 then begin
  Datos:=TJPEGImage.Create;
  Datos.LoadFromFile(Filename);
    try
     Result:=IntToStr(Datos.Height)+' x '+IntToStr(Datos.Width);
    finally
     Datos.Free;
     Datos:=nil;
    end;
 end;

En el caso de los BMP, paso de BMP a JPG etc.
Pero hay alguna forma o algun componente en donde pueda obtener la resolucion del archivo, sea JPG,BMPy GIF. No se me ocurre como hacerlo, ya que no puedo grabar momentaneamente ningun archivo que pase de formato, necesito correr la aplicacion en un disco de solo lectura, por lo que no me permite guardar lo que pense de pasar BMP a JPG.

Si hay otras formas, les agradeceria mucho la ayuda.

Saludos

[dec]

Hola,

En pocas palabras: Vampyre Imaging Library

[MaMu]

SOLUCIONADO

Vampyre Imaging Library