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

Question

下面这段有何处不妥,
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;

Answer 1

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

Answer 2

风焱兄，你这家伙不是说停止抢分了吗？好歹你叫俺升个双星呀，:(
看来cadn俺是混不先去了我闪

Answer 3

呵呵，也可以这样varMS: TFileStream;beginif OpenDialog1.Execute thenbeginMS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);Image1.Picture.Bitmap.LoadFromStream(MS);MS.Free;end;end;

Answer 4

在uses中加入Jpeg;
可用下面的代码if (str='.jpg') then
 Form4.Image1.Picture.LoadFromFile(openpicturedialog1.filename);
 form4.show;或者根本就不用判断定是jpg 还是bmp都用Form4.Image1.Picture.LoadFromFile(openpicturedialog1.filename);
 form4.show;

Answer 5

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