读取:
var
bf: TBlobField;
begin
...
with ClientDataSet do
begin
CommandText := 'SELECT FIELD FROM T_TABLE WHERE ID = :ID';
Params.ParamByName('ID').AsString := id;
Open;
bf := FieldByName('FIELD') as TBlobField;
bf.SaveToFile('c:\1.doc');
Close;
end;
...
end;
保存:
Stream := TMemoryStream.Create;
Stream.LoadFromFile(Str);
with ClientDataSet do
begin
CommandText := 'INSERT INTO T_TABLE(FIELD) VALUES(:FIELD)';
Params.ParamByName('FIELD').LoadFromStream(Stream, ftBlob);
end;
Execute;
Stream.Free;