jpeg的问题?

Question

Image1.Picture.Graphic:=JPEGImage; 
改成：
Image1.Picture.Graphic.Assign(JpegImage);
试试！

Answer 1

另外可以看一下Delphi中的 Jpeg例子：
好象放在Delphi5\Help\Samples\jpeg下（跟Demos的目录不一样） 

Answer 2

  //这样试试
  //我用的是image1.Picture.Bitmap.Assign(JPEGfile);
  //另外，你连续看的都是JPEG图象吗？
  filename:=OpenPictureDialog1.FileName;
  Image1.Picture.LoadFromFile(filename);
  if Image1.Picture.Graphic is TJPEGImage then
  begin
    JPEGfile:=TJPEGImage.Create;
    JPEGfile.LoadFromFile(filename);
    image1.Picture.Bitmap.Assign(JPEGfile);
    JPEGfile.Free;
  end;