装载图片错误，请指教！

Question

程序是这样写的：image1.Picture.LoadFromFile(filelistbox1.Items[j]);
运行后系统报错：Unknown picture file extension(.jpg);
请问一下为什么会出这样的错误，该如何修改！

Answer 1

TImage1不支持JPG。
给你一段代码：uses ..., Jpeg;procedure TForm1.SaveJPG;
 var
   mJPEGStream: TMemoryStream;
   mJPEG: TJPEGImage;
begin
   MJPEGStream:=TMemoryStream.create;
   MJPEG:=TJPEGImage.create;
   if SavePictureDialog1.Execute then begin
      MJPEG.LoadFromFile(SavePictureDialog1.FileName);
      MJPEG.SaveToStream(MJPEGStream);
      tblobField(tmpQuery.FieldByName('photoField')).LoadFromStream(MJPEGStream);
   end;
end;