Access数据库中存有员工的信息,有一项是JPEG格式的图片,但用TImage显示时总是出错:
procedure TTForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
JPEG:TJPEGImage;
begin
if DataSource1.DataSet.FieldByName('照片').IsNull=false then
begin
JPEG:=TJPEGImage.Create;
try
JPEG.Assign(DataSource1.DataSet.FieldByName('照片'));
Image1.Picture.Assign(JPEG);
finally
JPEG.Free;
end;
end
else
Image1.Picture.Assign(nil);
end;
总是提示出错“JPEG error #53”.生成的EXE文件能够正确的显示图片,但每次启动EXE文件时总会弹出这个出错提示。
麻烦大家帮我看看,先谢谢了!
procedure TTForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
JPEG:TJPEGImage;
begin
if DataSource1.DataSet.FieldByName('照片').IsNull=false then
begin
JPEG:=TJPEGImage.Create;
try
JPEG.Assign(DataSource1.DataSet.FieldByName('照片'));
Image1.Picture.Assign(JPEG);
finally
JPEG.Free;
end;
end
else
Image1.Picture.Assign(nil);
end;
总是提示出错“JPEG error #53”.生成的EXE文件能够正确的显示图片,但每次启动EXE文件时总会弹出这个出错提示。
麻烦大家帮我看看,先谢谢了!
你的代码只能显示JPEG的图片显示不能用
var
JPEG:TJPEGImage;
而且我生成的EXE文件能够正确的显示图片,就是每次启动时都会弹出这个出错提示,麻烦你说具体一些好吗? 谢谢!