怎样将图形文件（如BMP、JPG格式）以流的形式存入数据库的一个字段中？请给些代码参考好吗？(50分)

怎样将图形文件（如BMP、JPG格式）以流的形式存入数据库的一个字段中？请给些代码参考好吗？

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Image1: TImage;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
image1.Picture.LoadFromFile(opendialog1.filename);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image1.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
ADOTable1.Edit;

TBlobField(ADOTable1.FieldbyName('tu')).LoadFromStream(MS);
ADOTable1.Post;

end;
finally
MyJPEG.Free;
end;
end;

end.

TO:：iapollo
谢谢你的回答，
MyJPEG : TJPEGImage; 这一句编译出错，提示说变量"TJPEGImage"未标识？是不是这个类的名字写错了？

你有没有uses JPEG这个单元？----肯定没有！[]

那个字段要设成 Blob类型的！
不知道所有的文档是不是都能装进去？WORD

怎样可以把流读出来，存成JPG文件？

多人接受答案了。