Mit Daten befüllen wahrscheinlich wie üblich über CreateOleObject.
In der Datenbank speichern, da fällt mir im Moment nur die Option über TOlecontainer ein, hier unten ein filestream, bei Dir dann halt ein Blobstream ...
Allerdings halte ich die Lösung für Suboptimal, vielleicht hat noch jemand etwas besseres zu bieten ....
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
fs:TFileStream;
begin
OleContainer1.CreateObjectFromFile('C:\temp\1.docx', False);
OleContainer1.Run;
OleContainer1.AutoActivate := aaManual;
OleContainer1.DoVerb(ovShow);
OleContainer1.Align := alClient;
fs:=TFileStream.Create('C:\temp\fs1.fs',fmCreate);
try
olecontainer1.SaveToStream(fs);
finally
fs.Free;
end;
end;
procedure TForm3.Button2Click(Sender: TObject);
var
fs:TFileStream;
begin
fs:=TFileStream.Create('C:\temp\fs1.fs',fmOpenRead);
try
olecontainer1.LoadFromStream(fs);
OleContainer1.Run;
OleContainer1.AutoActivate := aaManual;
OleContainer1.DoVerb(ovShow);
OleContainer1.Align := alClient;
finally
fs.Free;
end;
end;