![]() |
TOleContainer lädt nicht aus Datei + Lösung
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:
Der Code zum speichern:
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;
Delphi-Quellcode:
Was mich besonders gewundert hat, ist das 'Test_Beta.doc' genauso aussieht wie 'test_Alpha.doc', dennoch kommt von dem Olecontainer immer folgender Fehler:
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; 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??? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz