delphi6中如何将图片文件保存进数据库

Question

如何将一个图片文件保存到数据库中建的表的字段中
例如:数据集为adoquery1,表中的字段名为tupian,图片被加载在image1,请举例说明,谢谢.小弟在线等待.

Answer 1

var
  l_Stream:TMemoryStream;
begin
  l_Stream:=TMemoryStream.Create;
  RichEdit1.Lines.SaveToStream(l_Stream);
  dm1.dm.Query1.Edit;
  TBlobField(dm1.dm.Query1.FieldByName('Info')).LoadFromStream(l_Stream);
  dm1.dm.Query1.Post;
end;

Answer 2

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into lcdcpk (Chartx) values(:Pic)');
ADOQuery1.Parameters.ParamByName('Pic').Assign(Image1.Picture.Bitmap);
ADOQuery1.ExecSQL; 

Answer 3

对于大量的这类记录，我担心其速度。关注ing

Answer 4

//保存
begin
  with ADOQuery1 do
  begin
    close;
    SQL.Text := 'select Image1 from t_1';
    Open;
    TBlobFile(Fields[0]).LoadFromFile('xxxx.bmp');
    Close;
  end;
end;