dbimage中如何装载jpg文件 2015-02-27 20:44:15| 分类： 电脑 |举报|字号 订阅 下载LOFTER我的照片书 | dbimage中如何装载jpg文

dbimage中如何装载jpg文件  

2015-02-27 20:44:15|  分类： 电脑|举报|字号 订阅

       

  下载LOFTER 我的照片书  |

dbimage中如何装载jpg文件  

修改TDBImage的源碼. 具體操作如下:

1.找到Delphi6\Source\DBCtrls.pas,將其拷貝至目錄Delphi6\Lib中.

2.打開Delphi6\Lib\DBCtrls.pas,在uses中加入JPEG.

3.修改TDBImage.LoadPicture過程.新代碼如下:

procedure TDBImage.LoadPicture;

var

  JPEG:TJPEGImage;

begin

  if not FPictureLoaded and (not Assigned(FDataLink.Field) or

    FDataLink.Field.IsBlob) then

    try

      Picture.Assign(FDataLink.Field);

    except

      JPEG:=TJPEGImage.Create;

      try

        JPEG.Assign(FDataLink.FField);

        Picture.Assign(JPEG);

      finally

        JPEG.Free;

      end;

    end;

end;

4.保存,編譯(編譯的話只要在一個程序中放入一個DBImage,運行即可),

修改結果會保存至Delphi6\Lib\DBCtrls.dcu中,

再將Delphi6\Lib\DBCtrls.pas刪除.

5.你已經可以在DBImage中載入BMP,JPEG圖片了,在設計階段載入JPEG圖片會出現異常,

因為修改后的代碼是嘗試以Bitmap格式載入,失敗后再嘗試以JPEG格式載入.但在Exe文件中不會.可以正常使用.