代码很简单
MF:=TFileStream.Create('TestFile',fmOpenReadWrite);
With ADOQuery1 do
begin
Close;
Sql.Clear ;
Sql.Text:='Select * From testblob ';
Open;
//first;
end;
With ADOQuery1 do
begin
append;
ADOQuery1['str1']:='1wwwdd34567edfdefefe';
ADOQuery1['fint1']:=200;
TBlobField(ADOQuery1.FieldByName('blob1')).LoadFromStream(MF);
Post;
end;
MF.Free;
如果表中没有blob数据存储没问题。但如果已经存了一个,就不能再存了。