Hallo,
ich habe ein etwas kniffliges Problem:
Eine Anwendung speichert Worddokumente in einer
DB (in Blob Feldern).
Die Dokumente sind als OleStream/oder Olecontainer gespeichert.
Ich kann diese "Dokumente" weder mit Word laden noch mit der Delphi OleContainer Komponente.
-> die "andere" Anwendung kann diese Dokumente laden und reicht sie "irgendwie" an Word weiter.
Bis zu diesem Punkt dachte ich, gut, ist wohl kein "richtiger" OleStream, bzw. Stream aus dem ich da lese.
Also TestAnwendung gebaut:
OracleDatset auf eine Form (ein AdoDataset wirds auch tun).
Eine Navi Komponente.
Ein Laden und speichern button....
und eine Olecontainer Komponente. In den Olecontainer kommt noch ein Wordokument.
Der Code zum laden:
Delphi-Quellcode:
var
a_Verbs: TStrings;
begin
(orcldtst1.FieldByName('RawData') as TBlobField).SaveToFile('Test_Alpha.doc');
olecontnr1.CreateObjectFromFile('Test_Alpha.doc', False);
// olecontnr1.CreateLinkToFile('Test_Alpha.doc', False);
// olecontnr1.CreateObject('word.document',False);
// a_Verbs := olecontnr1.ObjectVerbs;
// try
// olecontnr1.
// finally
// a_Verbs.Free;
// end;
end;
Der Code zum speichern:
Delphi-Quellcode:
procedure TForm1.olecontnr1Deactivate(Sender: TObject);
begin
olecontnr1.SaveAsDocument('Test_Beta.Doc');
orcldtst1.Edit;
(orcldtst1.FieldByName('RawData') as TBlobField).LoadFromFile('Test_Beta.doc');
orcldtst1.Post;
end;
Was mich besonders gewundert hat, ist das 'Test_Beta.doc' genauso aussieht wie 'test_Alpha.doc', dennoch kommt von dem Olecontainer immer folgender Fehler:
Im Project prjOleDoc.exe ist eine
Exception der Klasse EOleSysError mit der Meldung '%1 wurde nicht gefunden' aufgetreten.
----
Inzwischen bin ich beim schreiben der Nachricht ins Forum drauf gekommen...
Es funzt sobald man komplett den Pfad angibt.
Außerdem muss man offnesichtlich vorher wirklich ein Worddokument erstellt haben, ein direktes laden ohne vorheriges erstellen bringt nur merkwürdige Fehlermeldungen.
Also:
1. Olecontainer aufs Form
2. worddocument in dem olecontainer erzeugen [olecontnr1.Createobject('word.document', false)]
(3. Blob-Feld als Datei speichern)
4. Datei aus 3. laden mit olecontnr1.LoadFromField( kompletterpfad + NamedesDokuments )
dann geht es. Ich konnte aber nicht direkt aus dem Stream laden.
Wenn da noch jemand eine Idee hat???