if openpic.Execute then
begin
caption:='图象浏览器'+openpic.FileName;
filename:=openpic.FileName;
Image1.Picture.LoadFromFile(filename); end;
上面代码,对于bmp文件没有事情,但是jpg就会产生异常,我该怎么解决jpg的载入啊,谢谢
begin
caption:='图象浏览器'+openpic.FileName;
filename:=openpic.FileName;
Image1.Picture.LoadFromFile(filename); end;
上面代码,对于bmp文件没有事情,但是jpg就会产生异常,我该怎么解决jpg的载入啊,谢谢
JPeg; //加入Jpeg单元
if openpic.Execute then
begin
caption:='图象浏览器'+openpic.FileName;
filename:=openpic.FileName;
Image1.Picture.LoadFromFile(filename); end;
这样就可以了