delphi 取图片宽高

Var  
      Bmp:TBitMap;  
      Stream:TMemoryStream;  
  begin  
      Bmp   :=TBitMap.Create;  
      Bmp.LoadFromFile('XX.BMP');  
  //尺寸  
      PX   :=Bmp.Width   ;  
      PY   :=Bmp.Height;  
      Stream:=TMemoryStream.Create;  
      Bmp.SaveToStream(Stream);  
  //大小  
      Size   :=Stream.Size;  
      Stream.Free;  
      Bmp.Free;  
  end;   

可以用TBITMAP得到BMP文件  
  TICON得到ICO文件  
  TJPGIMAGE得到JPEG,JPG文件,DELPHI现只支持这些格式,如要用其它的,呵呵,你自己作解码算法吧,就没这么简单了

阅读更多
文章标签: delphi stream 算法
个人分类: DELPHI
上一篇delphi bmp转jpg
下一篇用Delphi改变图片的像素,即大小
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭