Главная страница
    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
14-53765
Goida
2004-01-27 16:55
2004.02.17
Почтовая программа на Delphi


1-53536
BBCHa
2004-02-05 12:53
2004.02.17
Окна в TaskBare


8-53659
kvp
2003-10-20 12:51
2004.02.17
Повернуть элипс на произвольный угол


1-53611
mixi
2004-02-06 20:11
2004.02.17
XML


14-53737
}|{yk
2004-01-28 14:36
2004.02.17
Дайджесты на CD





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский