delphi FMX用TImage显示不同格式的图片
//一个按钮的点击函数
procedure TForm3.Button1Click(Sender: TObject);
var
s , ss: string;
begin
//选择一个图片 open: TOpenDialog;
if open.Execute then
begin
//获取完整路径
s := open.FileName;
//产生一个临时的 bmp文件
ss:= ChangeFileExt(s,'temp.bmp');
if CopyFile(PChar(s),PChar(ss),false) then
begin
try
//试着打开这个图片 im: TImage;
im.Bitmap.LoadFromFile(ss);
except
showmessage('无法打开此类图片');
end;
DeleteFile(PChar(ss));
end
else showmessage('发生未知错误');
end;
end;
关于改个后缀名称就可以打开不同类型的图片我也不太理解这是为什么
只是碰巧发现 想打开jpg的时候改了个后缀就打开了 不报错 可以正常显示 后来就又试了试png 等
不确保以上代码一定可以成功 可能会出现问题 或者直接用以下方法
//一个按钮的点击函数
procedure TForm3.Button1Click(Sender: TObject);
var
s: string;
stream : TmemoryStream;
begin
//选择一个图片 open: TOpenDialog;
if open.Execute then
begin
//获取完整路径
s := open.FileName;
stream := TmemoryStream.Create;
stream.LoadFromFile(s);
try
im.Bitmap.LoadFromStream(stream);
except
showmessage('无法打开此类图片');
end;
stream.Free;
end;
end;
来源：https://blog.csdn.net/qq_38204686/article/details/78735194
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.047879934310913 seconds