如何获得jpg和bmp图象的长和宽,从文件中读取,不是从图象框读取
解决方案 »
- 以下线程中私有变量该怎样去赋值?请高手赐教,在线等!!
- 如何把文件上传到数据库/下载到本地!!
- 用 Socket 如何取得 HTTP/WEB 网页的内容长度?
- 关于EDIT[i]下标的问题
- BitBtn2的action属性如何进行设置啊,关联F1,F2???
- 定时刷新,急
- 用ADO或BDE动态连接不同的数据库,如何判断所连接数据库是什么类型的数据库(如Access,MS SQL Server,Paradox等)?
- 关于批提交?
- PsRBExportDevices 輸出pdf文件, 中文亂碼,如何解決?
- winxp下局域网问题
- 使用DCom,如何在服务器端取得客户端的属性,比如客户端的ip等信息
- [--申请一个外部ip地址要多少钱--]
PicHeight, PicWidth: integerbegin PicHeight := Image.Picture.Height; {取图片高}
PicWidth := Image.Picture.Width; {取宽}
myBmp: TBitmap;
myJpg: TJpegImage;
begin
myBmp:=TBitmap.Create;
myJpg:=TJpegImage.Create;
try
myBmp.LoadFromFile('D:\My Documents\My Pictures\pig.bmp');
myJpg.LoadFromFile('D:\My Documents\My Pictures\样品.jpg');
Memo1.Text:='The Bitmap Width='+IntToStr(myBmp.Width)+', Height='+IntToStr(myBmp.Height);
Memo1.Lines.Append('The JpegImage Width='+IntToStr(myJpg.Width)+', Height='+IntToStr(myJpg.Height));
finally
myBmp.Free;
myJpg.Free;
end; //end of try
end;