我装的DELPHI7中装的是是RAVE7.0的控件 只支持BMP格式图片 获取不到JPGE 的图片 这个怎么弄啊??请教个位大侠!!!!

解决方案 »

  1.   

    创建一个TJPEGImage, 读入后再转化为BMP:代码如下:procedure TSeleteImageFrm.Button3Click(Sender: TObject);
    var FileName:string;
        JPG:TJPEGImage;
        Bmp: TBitmap;
    begin
      Panel1.BringToFront;
      OpenPictureDialog1.InitialDir:=ImagePath;
      OpenPictureDialog1.Filter:='打开图片文件[*.JPG]|*.JPG';
      if OpenPictureDialog1.Execute then
      begin
        FileName:=OpenPictureDialog1.FileName;
        JPG:=TJPEGImage.Create;
        Bmp:=TBitmap.Create;
        try
          JPG.LoadFromFile(FileName);
          BMP.Assign(JPG);
          Image1.Picture.Assign(BMP);
          Image2.Picture.Assign(BMP);
          ChangeImageSize;
        finally;
          JPG.Free;
          Bmp.Free;
        end;
      end;
    end;