Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Obtener resolución de JPG,BMP y GIF (https://www.clubdelphi.com/foros/showthread.php?t=52821)

MaMu 31-01-2008 23:30:56

Obtener resolución de JPG,BMP y GIF
 
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 31-01-2008 23:56:30

Hola,

En pocas palabras: Vampyre Imaging Library ;)

MaMu 31-01-2008 23:59:32

SOLUCIONADO

Vampyre Imaging Library


La franja horaria es GMT +2. Ahora son las 03:56:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi