好象用image只能放bmp图片，jpg图片怎么显示啊

Question

如题

Answer 1

if OpenPictureDialog1.Execute then begin
      //open jpeg image
      if (CompareText(ExtractFileExt(OpenPictureDialog1.FileName),'.jpg')=0) or
          (CompareText(ExtractFileExt(OpenPictureDialog1.FileName),'.jpeg')=0) then begin
        Jpg:=TJpegImage.Create();
        try
          try
            Jpg.LoadFromFile(OpenPictureDialog1.FileName);
            ImageTmp.Picture.Bitmap.Assign(Jpg);
          except
            MessageBox(Handle,pchar(TransStr('ErrOpenJpg','Error to open jpeg image!')),pchar(Application.Title),MB_ICONERROR);
          end;
        finally
          Jpg.Free;
        end;
      end

Answer 2

忘了加上
uses
  Jpegvar
  Jpg:TJpegImage;

Answer 3

Image1.Picture.LoadFromFile('aaa.jpg');
uses语句中包含jpeg单元

Answer 4

在Delphi6中Image支持加jpg,其它什么都来用自己管了

Answer 5

在Delphi6中Image支持加jpg,其它什么都不用自己管了