При открытие в OpenDialog .doc-вский файл должен отображаться в RichEdit. doc to rtf

[Lemon]

Как сделать так чтобы при открытие с помощью OpenDialog .doc-вский файл отображался в RichEdit (или в каком-либо другом текстовом окне).

[pu4koff]

открываешь этот файл в ворде, сохраняешь как rtf и открываешь себе на здоровье. Только если там таблички есть, то плоховато будет в RichEdit это выглядеть

[ZhekON]

в .doc-файлах кодировка другая, а такие редакторы, как в Дельфи читают только ANSI-строки, а Unicode - нет, но можно вить написать перекодировщик

[pu4koff]

Сообщение от ZhekON

в .doc-файлах кодировка другая, а такие редакторы, как в Дельфи читают только ANSI-строки, а Unicode - нет, но можно вить написать перекодировщик

какая еще нафиг кодировка? Например, архивы тогда в какой кодировке по твоему?

[rpy3uH]

в doc файлах формат представления текста другой, он чем то похож на формат html

[ZhekON]

Сообщение от pu4koff

какая еще нафиг кодировка? Например, архивы тогда в какой кодировке по твоему?

извеняюсь
Я попутал Dos и Doc
бывает...

[Lemon]

Сообщение от pu4koff

открываешь этот файл в ворде, сохраняешь как rtf и открываешь себе на здоровье. Только если там таблички есть, то плоховато будет в RichEdit это выглядеть

Спасибо конечно за подсказку, но я создаю программу для пользователя и он не может предворительно открывать doc файл и сохранять как rtf.

Спасибо всем за подсказку, но не ужели нельзя открыть doc-вский файл чтобы он отображался в RichEdit (или в каком-либо другом текстовом окне).

[pu4koff]

Сообщение от Lemon

Спасибо конечно за подсказку, но я создаю программу для пользователя и он не может предворительно открывать doc файл и сохранять как rtf.

Спасибо всем за подсказку, но не ужели нельзя открыть doc-вский файл чтобы он отображался в RichEdit (или в каком-либо другом текстовом окне).

врядли такие компоненты есть, а если и есть, то стоят туеву хучу денег
ну еще можно написать пять строк, которые будут соединяца с вордом, тот в свою очередь сохранит файл как rtf и уже этот файл открывать...

[pu4koff]

var
 oWord: OleVariant;
 oDoc: OleVariant;
begin
if Form1.OpenDialog1.Execute then begin
 Caption := ExtractFileName(Form1.OpenDialog1.FileName);
 If Copy(Form1.OpenDialog1.FileName, Length(Form1.OpenDialog1.FileName)-2, 3)='doc' then begin
   try
   oWord := GetActiveOleObject('Word.Application');
 except
   oWord := CreateOleObject('Word.Application');
 end;
 oWord.Documents.Open(Form1.OpenDialog1.FileName);
 oDoc  := oWord.ActiveDocument;
 Form1.OpenDialog1.FileName := ChangeFileExt(Form1.OpenDialog1.FileName, '.rtf');
 oDoc.SaveAs(FileName, wdFormatRTF);
 oWord.ActiveDocument.Close(0, EmptyParam, EmptyParam);
 oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
 oDoc := VarNull;
 oWord := VarNull;
   end;
 with Form1.RichEdit1 do
 begin
   Lines.LoadFromFile(Form1.OpenDialog1.FileName);
   SelStart := 0;
   Modified := False;
 end;
end;
end;

[Lemon]

Я с этим справилсь. Спасибо всем за помощь.