我在使用OpenPictureDialog组件时,在设计阶段能预览Jpg图象文件,但到了运行时确不能打开jpg文件,而且还死机

解决方案 »

  1.   

    //打开OPDraw是OpenPictureDialog
    procedure TFrmDraw.FileOpenClick(Sender: TObject);
    var ext:string;
        j:TjpegImage;
    begin
         if  OPDraw.Execute then
         begin
           ext:=uppercase(Extractfileext(OPDraw.FileName));
           if (ext='.JPG')or(ext='.JPEG') then
             begin
               j:=TjpegImage.Create;
               j.LoadFromFile(OPDraw.FileName);
             end;
          end;
    end;
      

  2.   

    //打开OPDraw是OpenPictureDialog
    procedure TFrmDraw.FileOpenClick(Sender: TObject);
    var ext:string;
        j:TjpegImage;
    begin
         if  OPDraw.Execute then
         begin
           ext:=uppercase(Extractfileext(OPDraw.FileName));
           if (ext='.JPG')or(ext='.JPEG') then
             begin
               j:=TjpegImage.Create;
               j.LoadFromFile(OPDraw.FileName);
               image1.Picture.Graphic:=j; //加了一句
             end;
          end;
    end;
    linzhengqun的代码没问题呀
    我刚试过了