Ver Mensaje Individual
  #1  
Antiguo 31-01-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 21
MaMu Va por buen camino
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
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita