MaMu
31-01-2008, 23:30:56
Yo lo que hago es lo siguiente:
//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
//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