Работа с RTF

← →
DmitryK (2006-07-26 12:34) [0]

Такая задача. Есть два RTF файла. Необходимо содержимое одного файла вставить в начало второго. Подскажите как их обьединить чтоб офталось оригинальное форматирование?

← →
tesseract © (2006-07-26 14:20) [1]

tRichEdit ?

← →
DmitryK (2006-07-26 14:36) [2]

Как это сделать программно? RichEdit поддерживает только загрузку и выгрузку. Может есть какие-то компоненты слияния двух файлов(только без Wordа).

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

То для меня это ужасная задача, да к тому же на которую нет времени.

← →
Ketmar © (2006-07-26 14:44) [3]

если не жалко clipboard"а -- то можно через него. %-))

← →
DmitryK (2006-07-26 14:48) [4]

Как не затереть данные пользователя в clipboard е ?

← →
Чапаев © (2006-07-26 14:51) [5]

SaveToStream первый текст, а затем второй туда же?

← →
DmitryK (2006-07-26 14:57) [6]

> SaveToStream первый текст, а затем второй туда же?

Я не понял это о обьединении двух RTF (если да то там намного все сложнее,
я выше уже писал как это можно сделать) елси же о том как сохранить буфере, то я не понял:( .

← →
MBo © (2006-07-26 15:42) [7]

Использовать сообщения EM_STREAMIN и EM_STREAMOUT

← →
DmitryK (2006-07-26 16:06) [8]

> Использовать сообщения EM_STREAMIN и EM_STREAMOUT

А можно как-то поподробнее об этом или где можно почитать?

>А можно как-то поподробнее об этом или где можно почитать?
поиск в Google c запросом
EM_STREAMIN Peter Below

← →
Handle (2006-07-26 17:16) [10]

Открываю я например файл с форматированным текстом

if OpenDialog1.Execute then begin RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end;

Вставляю в текущую позицию курсора форматированный текст

function GetRTFText(ARichEdit: TRichedit): string; var SStr: TStringStream; EmptyStr: string; begin emptystr := ""; SStr := TStringStream.Create(EmptyStr); try ARichEdit.PlainText := False; ARichEdit.Lines.SaveToStream(SStr); Result := SStr.DataString; finally SStr.Free end; end;

begin RichEdit2.SelText:= GetRTFText(RichEdit1); end;

И чё получилось, открыл я файл с форматированным текстом загрузил в RichEdit1 нажал кнопку, в RichEdit2 вставился форматированный текст из RichEdit1 в текущую позицию курсора, в итоге форматированный текст RichEdit1 + форматированный текст из RichEdit1.

← →
Handle (2006-07-26 17:17) [11]

Сам непонял

← →
Handle (2006-07-26 17:18) [12]

И чё получилось, открыл я файл с форматированным текстом загрузил в RichEdit1 нажал кнопку, в RichEdit2 вставился форматированный текст из RichEdit1 в текущую позицию курсора, в итоге форматированный текст RichEdit1 + форматированный текст из RichEdit2.

Работа с RTF Найти похожие ветки