Ich habe folgende Prozedur, die aus einem BLOB-Feld (Word_Document) der DB eine MS Word-Datei erstellt, und diese dann in einem OLE-Container als Objekt anzeigt:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| var
fs: TFileStream;
bs: TBlobStream;
begin
with OraQuery1 do
begin
bs := TBlobStream(CreateBlobStream(FieldByName('Word_Document'), bmRead));
fs := TFileStream.Create('c:\temp\temp.doc', fmCreate);
fs.CopyFrom(bs, 0);
bs.Free;
fs.free;
OleContainer1.CreateObjectFromFile('c:\temp\temp.doc',false);
end;
DeleteFile('c:\temp\temp.doc'); |
Gibt es eine Möglichkeit, den BlobStream direkt im OLE-Container anzuzeigen, ohne vorher eine temporäre Datei erstellen zu müssen und diese dann im Container anzuzeigen und anschliessend löschen zu müssen?
Danke
Heinz
