如何快速得到一个图片或文件夹中所有图片的尺寸？

Question

如何快速得到一个图片或文件夹中所有图片的尺寸？
在不用“image”控件从文件中装载图像的情况下，如何快速得到一个图片或文件夹中所有图片的尺寸？
谢谢！

Answer 1

1.使用流的方法,把图片读入流,然后读出大小
2.使用文件API,filesize即为大小

Answer 2

var
  jpg: TJpegImage;
  bmp:TBitmap;
begin
 if not OpenPictureDialog1.Execute then exit; if UpperCase(ExtractFileExt(OpenPictureDialog1.FileName))='.BMP' then
  begin
   bmp:=TBitmap.Create;
   bmp.LoadFromFile(OpenPictureDialog1.FileName);
   showmessage(inttostr(bmp.Width)+'    '+inttostr(bmp.Width))
   end
 else
  begin
   jpg:=TJpegImage.Create;
   jpg.LoadFromFile(OpenPictureDialog1.FileName);
   showmessage(inttostr(jpg.Width)+'    '+inttostr(jpg.Width))
  end;
Bmp或Jpg图片可以用上述方法获取。其它格式的需要另想办法。其实PNG、Gif、TIF等图片格式也是可以做到的，关键是你给分太少。
甚至PSD格式的都可以帮你做出来。至于它们之间格式相互转换，转成AVI都没有问题。

Answer 3

谢谢以上三位网友！其实我的主要问题是需同时找出某个文件夹所有图片的尺寸（分辨率），‘mwy654321’提供的源码是对单个的文件，如果文件夹中的图片太多可能需要花较多的时间?!下一步准备试一下！再一次感谢！