Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Вниз

RichEdit и документы Word   Найти похожие ветки 

 
Gad   (2004-02-07 11:35) [0]

Здравствуйте.
У меня такой вопрос:
Есть Word овский файл и есть компонент TRichEdit
подскажите пожалуста как содержимое этого файла помесить в поле вывода компанента естессно не открывая самого верда. Если можно поподробнее.
Заранее благодарен.


 
Юрий Федоров   (2004-02-07 11:44) [1]

наверное никак
только конвертировать *.doc в *.rtf (хотя бы тем же вордом), а потом уже открыть в TRichEdit


 
Gad   (2004-02-07 11:47) [2]

а можно поподробнее как это делаеться?
я просто никогда не сталкивался с такой проблемой и поэтому возможно задаю глупые вопросы


 
Александр из Минска   (2004-02-07 15:35) [3]

uses ..., ComObj;
.................
var
WD : OleVariant;
begin
try
WD := CreateOleObject("Word.Application");
except
ShowMessage("Невозможно запустить Microsoft Word");
Exit;
end;
WD.Visible := False;
try
WD.Documents.Open("temp.doc");
except
ShowMessage("Невозможно открыть документ в Microsoft Word");
Exit;
end;
try
WD.ActiveDocument.SaveAs("temp.rtf", $00000006);
except
ShowMessage("Невозможно сохранить документ из Microsoft Word");
Exit;
end;
try
WD.ActiveDocument.Close;
WD.Quit;
except
ShowMessage("Переконвертация прошла успешно. Однако, невозможно освободить оперативную память от данного документа Microsoft Word");
end;
RichEdit1.Lines.LoadFromFile("temp.rtf");
end;

Надеюсь, поможет.


 
Александр из Минска   (2004-02-07 15:39) [4]

+ еще WD.Free; внизу кинь


 
Gad   (2004-02-08 08:36) [5]

Спасибо огромное за помощь!!!!


 
TUser   (2004-02-08 11:16) [6]

Открывай в OleContainer.


 
KilkennyCat   (2004-02-08 13:51) [7]

2 Юрий Федоров

Ну почему же никак... голый текст выдрать, без форматирования - очень легко. С форматированием - сложнее, но тоже не проблема.
А при конвертации открывать Ворд, даже невизуально, некрасиво, ИМХО. Можно просто использовать, если не ошибаюсь MSCONV97.DLL и соответсвующий *.CNV (MSWRD832.CNV, например.)

А пример выдерки текста я уже где-то здесь давно публиковал.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
4-53825
deema
2003-12-14 18:59
2004.02.17
Clipboard format


8-53649
Леон
2003-10-13 22:45
2004.02.17
разоряюсь при черно-белой печати на цветные чернила


1-53602
2Freak
2004-02-07 19:24
2004.02.17
JPEG на Pascal или в консольном приложении Delphi


1-53574
lipskiy
2004-02-09 01:39
2004.02.17
Как автоматически ответить на диалоговое окно?


3-53389
denis24
2004-01-27 10:19
2004.02.17
table1.checkopen





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский