保存图像到图像字段-- procedure TForm1.Button1Click(Sender: TObject); var bitmap:tbitmap; begin bitmap:=tbitmap.Create; try if opendialog1.Execute then begin bitmap.LoadFromFile(opendialog1.filename); table1.edit; table1.FieldByName('img').assign(bitmap);//存到数据库 table1.post; end; finally bitmap.Free; end; end;
可是没有LOADFROMFILE属性的,只有ADOQUERY有,请你能不能给我详细点呢?
一般的解决方法都是通过储存连接的路径来解决的~但是这种方法有一定的弊端~例如你的图片有可能被别人该的面目全非~!
procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:tbitmap;
begin
bitmap:=tbitmap.Create;
try
if opendialog1.Execute then
begin
bitmap.LoadFromFile(opendialog1.filename);
table1.edit;
table1.FieldByName('img').assign(bitmap);//存到数据库
table1.post;
end;
finally
bitmap.Free;
end;
end;