如何在数据中能加载.JPG格式的图片

數據庫table定義
create table test(image image)

delphi程序
ADOQuery1的sql為'select * from test'

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,JPEG,StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery1image: TBlobField;

    PRocedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  jpeg:TJpegImage;
  mem:TmemoryStream;
begin
   mem:=TmemoryStream.Create;
   mem.LoadFromFile('E:/Adobe/Adobe1.jpg');
   ADOQuery1.Insert;
   TBlobField(ADOQuery1.FieldByName('Image')).LoadFromStream(mem);
   ADOQuery1.Post;
   mem.Free;

   ADOQuery1.First;
   jpeg:=TJpegImage.Create;
   TBlobField(ADOQuery1.FieldByName('image')).SaveToFile('E:/aa.jpg');
   jpeg.LoadFromFile('E:/aa.jpg');
   Image1.Picture.Assign(jpeg);
   jpeg.Free;
   deleteFile('E:/aa.jpg');

end;

end.

一定要Use JPEG!!!!
通过这个方法，任何可被操作系统识别的文件，都可以载入载出到数据库。