*.DOC Import nach TDBMemo

[Lorca]

Hallo zusammen,

wie kann man eine Word "xxx.DOC" Datei in ein TDBMemo Feld importieren. (Es handelt sich NICHT um DOCX)

Es soll der Open Dialog geöffnet, dann eine xxx.DOC Datei ausgewählt werden und danach (OpenDialog.Execute = True ) in ein TDBMemofeld geladen werden.

Derzeit mache ich das über InfoFeld.Lines.LoadFromFile( OpenDialog.FileName );
Hier stehen dann jedoch nur Sonderzeichen -> ??ࡱ?

Wird die gewünschte Datei xxx.DOC in eine Textdatei (.TXT) konvertiert werden die Umlaute (alles größer 128 ) nicht sauber dargestellt.
z.B. "Der Sänger" wird zu "Der S?nger"

Auch andere Konvertierungen (z.B. .RTF ) aus der .DOC Datei heraus gehen auf die Bretter, wenn diese in das TDBMemo Feld eingeladen werden sollen.

Kennt jemand hierzu eine Lösung des Problems?
Am besten währe ein Import direkt aus der Word Datei (.DOC) also OHNE eine vorherige Konvertierung.

Viele Grüße
Lorca

[theo]

Wird die gewünschte Datei xxx.DOC in eine Textdatei (.TXT) konvertiert werden die Umlaute (alles größer 128 ) nicht sauber dargestellt.

Womit konvertierst du das?

[af0815]

Zusätzlich zu dem was Theo fragt. MS codiert im meisten im Windows 1252 Format und nicht unter UTF-8. Da braucht man dann ein encodeing wie CP1250ToUTF8(xxx) aus der unit lconvencoding oder so ähnlich. Aber da bin ich kein Spezialist.

[Joh]

wie wäre es mit Office-Automation?

https://wiki.freepascal.org/Office_Automation/de
geht auch mit LibreOffice, also womöglich Betriebssystemunabhängig.

Wenn du die Formatierungen brauchst:
Darin ein copyToClipboard und den formatierten String einlesen.

[Lorca]

Hallo zusammen,

ein Bagger hatte die I-Net Leitungen gekappt. Die ganze Siedlung war ohne I-Net und ohne Telefon. Daher erst jetzt meine Antwort.

Danke für eure Hinweise. Mit der Funktion: CP1252ToUTF8 klappt es nun (UNIT: LConvEncoding ).
Es muss das Dokument leider erst als eine Text Datei gespeichert werden.
@theo: Ich hatte zuvor keine Konvertierung vorgenommen. Also einfach die Datei aus OpenDialog.FileName über die Stringlist eingelesen und dann in das Memo Feld gestellt.
@af0815: Dein Hinweis mit dem Format 1252 hatte mich dann weiter gebracht.
@Joh: OLE Container kann ich nicht nutzen da ich außer Windows-10 nix von MS habe.

Nochmals meinen herzlichen Dank an euch alle

Gruß
Lorca

[six1]

wie Joh schrieb....

LibreOffice ist nicht von MS