注意申明uses jpeg;(否則會報錯) ... begin Image.Picture.LoadFromFile('你的圖片路徑'); end;
uses jpeg;Image有好些图片格式不支持的,如.png .gif等,所以显示的时候最好先判断一下:var FileExt: string[4]; begin FileExt := AnsiUpperCase(ExtractFileExt(FileName)); if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') or (FileExt = '.EMF') or (FileExt = '.JPG')then begin Image1.Picture.LoadFromFile(FileName); end; end;
//将图片文件载入
(Image.Picture.Graphic as TJpegImage).DibNeeded; //是Picture的Graphic转换成Bmp模式
fBitmap:=TBitmap.Create(Self);
fBitmap.Assign(Image.Picture.Graphic); 注意需要uses jpeg
uses jpeg;
...
Image.Picture.LoadFromFile(PicFileName);
http://www.kaer.cn/default.aspx
下载基地-》 基础类 -》显示JPG格式图片
...
begin
Image.Picture.LoadFromFile('你的圖片路徑');
end;
FileExt: string[4];
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileName));
if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') or
(FileExt = '.EMF') or (FileExt = '.JPG')then
begin
Image1.Picture.LoadFromFile(FileName);
end;
end;