LoadFromFile是一种方法,也可以用LoadFromStream
例:
var
MS: TMemoryStream;
begin
//如果不在修改或增加状态,改变状态
if not (table1.State in [dsInsert, dsEdit]) then
table1.Insert;
MS := TMemoryStream.Create();
try
Image1.Picture.Bitmap.SaveToStream(MS);
TBlobField(Table.FieldbyName('xxx')).LoadFromStream(MS);
finally
MS.Free;
end;
Table1.Post; //提交数据
end;