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

核心提示：數據庫table定義create table test(image image)delphi程序ADOQuery1的sql為'select * from test'unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Class

數據庫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!!!!
通过这个方法，任何可被操作系统识别的文件，都可以载入载出到数据库。