怎样将图片插入数据库呀?

Question

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));

Answer 1

学习一下：
(Query1.FieldByName('img')as TBlobField).loadFromFile('e:\temp.bmp');
TBlobField(table1.FieldByName('Image')).Assign(Image1.picture.bitmap);
取出：
(Query1.FieldByName('img') as TBlobField).savetoFile('e:\temp.bmp');
Image1.picture.Bitmap.assign(TBlobField(Table1.fieldByName('image')));

Answer 2

var
picturename,extname:string;
Jpegimage:TJpegImage;
begin
  with Qorder_master do begin
if isempty then exit;
if openpicture.Execute then begin
picturename:=openpicture.FileName;
extname:=extractfileext(picturename);
if uppercase(extname)='.BMP' then
begin
edit;
dbimage.Picture.LoadFromFile(openpicture.filename);
Post;
end;
if (uppercase(extname)='.JPG') OR (uppercase(extname)='.JEPG') then
begin
Jpegimage:=Tjpegimage.Create;
try
Jpegimage.LoadFromFile(picturename);
edit;
dbimage.Picture.Graphic.Assign(Jpegimage);
Post;
finally
jpegimage.Free;
end;
end;
 end;
    Edit ;
  end;
end;
記得在uses 里加入jpeg 單元啊﹗

Answer 3

其实很简单。 
先uses jpeg.
放一个dbimage控件
with adoquery1 do
append;
dbimage1.pictrue.loadfrom('c:\b.jpg');
post;
end;