Платные хостинги     Раскрутка сайта     Книги по программированию

DOC->RTF

- Задача. Человек выбирает а всандарном опен далоге документ ворд. Он конвертируется в rtf и отражается в RichEdit. Я нашёл вот такой код для этого. Код 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(Form1.OpenDialog1.FileName);  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;highlightSyntax('delphiMjBlOD','delphi');Но к сожалению он работает не корректно. 1. Он работает если предварительно ручками открыть ворд.2. После конвертации в richedit отображается токай же бред как если бы я просто открыл доковский док. А в ворде он этот рич открывает запросто. Помогите пожалуйста!

- 1) Дело в том, что по умолчанию Дельфи извещает об случившемся исключении(а если посмотреть на код, то создание экземпляра Word идет в случае исключения, вызванного отсутствием активных копии) - либо отключи эту возможность, либо запускай свою программу вне IDE, либо поищи поиском мой код активизации документа с проверкой на уже запущенные процессы Word-а.2)Попробуй при сохранении указать формат документа:Код oDoc.SaveAs(FileName, wdFormatRTF);highlightSyntax('delphiMwNzU2','delphi');Костанта должна быть в файле WordXP.

- 1. Спасибо большое с этим я разобрался...2. А можно поподробнее? Что за WordXP?

- Опс. Сапасибо! Я всё сделал

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD