//粘贴图片至 Image1 procedure TForm1.BitBtn1Click(Sender: TObject); begin OpenPictureDialog1.Execute; Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; //将图片插入数据库 procedure TForm1.BitBtn2Click(Sender: TObject); begin with Query1 do begin close; sql.clear; sql.add('insert into 表名(字段名) values(:imag)'); end; Query1.ParamByName('Imag').LoadfromFile(OpenPictureDialog1.FileName,ftGraphic); Query1.execsql; end;
//取出表中ole对象字段的值
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from bb');
adoquery1.Open ;
dbedit1.Text := tblobfield(adoquery1.FieldByName('s6')).value ;//s6是ole字段,
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
//将图片插入数据库
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
with Query1 do
begin
close;
sql.clear;
sql.add('insert into 表名(字段名) values(:imag)');
end;
Query1.ParamByName('Imag').LoadfromFile(OpenPictureDialog1.FileName,ftGraphic);
Query1.execsql;
end;