如何用OPENPICTUREDIALOG和IMAGE打开JPG的图片

csdn1981 2003-07-08 09:56:41

下面这段有何处不妥,
str:=extractfileext(openpicturedialog1.filename);
//openpicturedialog1.Filter:='BMPFile(*.bmp)|*.bmp';
if openpicturedialog1.Execute then
if (str='.bmp') then
form4.Image1.Picture.LoadFromFile(openpicturedialog1.FileName);
form4.Caption:=openpicturedialog1.FileName;
form4.show;

if (str='.jpg') then
jpg.LoadFromFile(openpicturedialog1.filename);
form4.Image1.Picture.Graphic:=jpg;
form4.show;

...全文

74 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wellshddelphi 2003-09-19

打赏
举报

if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

myling 2003-07-11

打赏
举报

呵呵，也可以这样

var

MS: TFileStream;

begin

if OpenDialog1.Execute then

begin

MS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);

Image1.Picture.Bitmap.LoadFromStream(MS);

MS.Free;

end;

end;

myling 2003-07-11

打赏
举报

风焱兄，你这家伙不是说停止抢分了吗？

好歹你叫俺升个双星呀，:(

看来cadn俺是混不先去了

我闪

firetoucher 2003-07-11

打赏
举报

form4.Image1.graphi.bmp.assign(jpg);
form4.show;

cnssk 2003-07-11

打赏
举报

在uses中加入Jpeg;
可用下面的代码

if (str='.jpg') then
Form4.Image1.Picture.LoadFromFile(openpicturedialog1.filename);
form4.show;

或者根本就不用判断定是jpg 还是bmp都用

Form4.Image1.Picture.LoadFromFile(openpicturedialog1.filename);
form4.show;