delphi FMX用TImage显示不同格式的片,u盘里的片显示格式错误

//一个按钮的点击函数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;