如何提取Image的picture的size (50分)

  • 主题发起人 主题发起人 mwlwlm
  • 开始时间 开始时间
M

mwlwlm

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Get_size;
var
size:=integer;
begin
size:=image1.gettextlen;
end;
为何size始终等于0(image1中已经有图像);
 
gettextlen可不是你这么用的,“Returns the length of the control's text”,它
不是返回picture的size。

size:=Image1.picture.Height;
 
我不知道你的Size是什么意思,
如果你需要知道Picture的尺寸的化,你可以用TPICture的Width和Height属性。
似乎不用这么麻烦。
 
他是不是想知道图像文件的大小?
 
什么?
FWidth :=Image.Picture.Bitmap.Width;
FHeight :=Image.Picture.Bitmap.Height;
 
Image的AutoSize为true ,取得Image的Width和 Height.
 
9494,
VAR
TEMPIMAGE:TIMAGE;

...........
TEMPIMAGE:=tiMAGE1.cREATE(SELF);
TEMPIMAGE.PICTURE=iMAGE1.PICTURE;
SIZE=TEMPIMAGE.BITMAP.HEIGHT/WIDTH;
TEMPIMAGE.PICTURE:=NIL;
TEMPIMAGE.FREE;
 
FWidth :=Image.Picture.Width;
FHeight :=Image.Picture.Height;
 
Image的什么SIZE?图像区域大小,占内存空间大小,还是SAVETOFILE后的文件大小?
 
Width :=Image.Picture.Bitmap.Width;
Height :=Image.Picture.Bitmap.Height;
 
如何把bmp文件放到缓冲中并的到他的大小和Pointer
我放入后在读出类就出现bmp image error 错误无法现示
 
后退
顶部