TImage控件的怪问题：

[Iamfish]

在窗体中放一个TImage控件，加放一个图片，
放一个BitBtn控件，加入如下代码。
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Image1.Picture.Bitmap<>nil then
Image1.Picture.SaveToFile('c:\d.jpg');
end;

现象：
按下按钮后Image1里面的内容被清空了。c:\d.jpg文件也是空的。

另我，我一引用Image1.Picture.Bitmap，Image控件的内容就为空，为什么？

(改为Image1.Picture<>nil就行了)

今天为这个问题花了一天的时间!!希望各位不要犯相同的错误。

[huangrenguang]

TPicture才能处理各种格式的文件吗，TBitmap只是对位图的处理

[weibz0525]

头文件包含<jpeg.hpp>文件

[ehom]

用

if Image1.Picture.Graphic<>nil then
...

这几个对象指针意思完全不同,别乱用!

不过话说回来,这问题也不怪你,要怪就怪编译器!多做做跟踪调试的工作!原因很简单!

摘录部分调试时的汇编代码:

...
mov eax,[ebx+$000002f0]
mov eax,[eax+$00000168]
call TPicture.GetBitmap
test eax,eax
jz +$16
...

从中可以获得两点信息,如果用
if Image1.Picture.Bitmap<>nil then
后面的语句将肯定执行,换言之,Image1.Picture.Bitmap的对象指针一定不等于nil!这个从VCL中找答案!

还有就是调用了TPicture.GetBitmap,此乃图像消失的原因!

看下面从VCL中摘录的代码:

procedure TPicture.SetBitmap(Value: TBitmap);
begin
SetGraphic(Value);
end;

procedure TPicture.SetGraphic(Value: TGraphic);
var
NewGraphic: TGraphic;
begin
NewGraphic := nil;
if Value <> nil then
begin
NewGraphic := TGraphicClass(Value.ClassType).Create;
NewGraphic.Assign(Value);
NewGraphic.OnChange := Changed;
NewGraphic.OnProgress := Progress;
end;
try
FGraphic.Free;
FGraphic := NewGraphic;//关键就是以上这两句
Changed(Self);
except
NewGraphic.Free;
raise;
end;
end;

图像为空和对象指针指向nil还是有区别的!

用空再把这部分VCL再好好阅读下