Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скопировать текст из готового отчёта FastReport 
:(
    Опции темы
DarkProg
Дата 23.12.2011, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
Мне необходимо взять из готового отчёта FastReport сформированный текст.

Структура отчёта такая:
Страница, на странице MasterData, на MasterData расположен RichView, в этом RichView часть текста впечатывается, а часть передаётся в виде параметров.

Мне необходим готовый текст, т.е. тот что мы видим непосредственно перед выводом на печать, и его каким-то образом вытащить из отчёта и далее производить с ним манипуляции.

Кто-нибудь делал такое?
Я даже не пойму с какой стороны подойти к этому. В принципе ведь FastReport позволяет редактировать отчёт перед печатью, но как войти в этот режим чтобы скопировать текст я не знаю...


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 23.12.2011, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Может, как-то примерно так?
Код

Frxreport1.Preparereport();
 for j:=1 to Frxreport1.ComponentCount-1 do
 if (Frxreport1.Components[j] is TFrxmemoView) then
  Showmessage(TFrxMemoview(Frxreport1.Components[j]).Text); 



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
chip_and_dayl
Дата 23.12.2011, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 2
Всего: 9
Если я не ошибаюсь то там еще есть метод Find в которую передается имя объекта в фаст репорте и возвращается ссылка

Добавлено через 4 минуты и 57 секунд
FindObject зовется метод

Добавлено через 7 минут и 16 секунд
А вот собственно пример

Код

Var  m: TfrxMemo;
begin
    m:=frReport1.FindObject('Memo6');
   
   if m<>nil then
   ShowMessage(m.text);
end;



--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
DarkProg
Дата 23.12.2011, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
Цитата(Данкинг @  23.12.2011,  17:16 Найти цитируемый пост)
Frxreport1.Preparereport();
 for j:=1 to Frxreport1.ComponentCount-1 do
 if (Frxreport1.Components[j] is TFrxmemoView) then
  Showmessage(TFrxMemoview(Frxreport1.Components[j]).Text); 

Данкинг, а у тебя такое работает у меня почему-то днём подобное не прокатило?

 ещё раз попробовать что ли... smile 


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 23.12.2011, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Да, конкретно такое - работает.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
DarkProg
Дата 24.12.2011, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
А у меня RichView и для него не работает.


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
chip_and_dayl
Дата 24.12.2011, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 2
Всего: 9
DarkProg
читай выше

Добавлено через 57 секунд
Только отчет должен быть уже создан  в памяти


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Данкинг
Дата 24.12.2011, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Код

 for j:=1 to Frxreport1.ComponentCount-1 do
 if (Frxreport1.Components[j] is TFrxrichview) then
  Showmessage(TFrxrichview(Frxreport1.Components[j]).RichEdit.Text);




--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
DarkProg
Дата 24.12.2011, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
Цитата(chip_and_dayl @  24.12.2011,  16:08 Найти цитируемый пост)
Только отчет должен быть уже создан  в памяти 

Это что выполнить? PrepareReport?


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 24.12.2011, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
DarkProg, мой код с TFrxrichview тоже не работает?

Это сообщение отредактировал(а) Данкинг - 24.12.2011, 21:15


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
DarkProg
Дата 24.12.2011, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
Цитата(Данкинг @  24.12.2011,  22:15 Найти цитируемый пост)
DarkProg, мой код с TFrxrichview тоже не работает?

Да. Я сначала не обратил внимание и копипастанул так. Когда эффекта не было вчитался и сам поставил класс TFrxrichview и эффект ноль. У меня выпадает только текст состоящий из параметров.


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 24.12.2011, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
А если ради эксперимента не параметрами попробовать, а просто вбить текст в RichEdit, то будет работать?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
DarkProg
Дата 25.12.2011, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
Цитата(Данкинг @  25.12.2011,  00:00 Найти цитируемый пост)
А если ради эксперимента не параметрами попробовать, а просто вбить текст в RichEdit, то будет работать? 

Текст выводится. А мне нужно как бы чтобы был текст, который получен с использованием параметров...
Я придумал один извращенский вариант, но он реально извращенский...и я его хотел бы использовать только в крайнем случае.


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 25.12.2011, 00:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Ну так положи на форму обычный RichEdit и скопируй в него.
Цитата(DarkProg @  25.12.2011,  01:00 Найти цитируемый пост)
Я придумал один извращенский вариант,

Экспорт во что-нибудь из Фаста?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
DarkProg
Дата 25.12.2011, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19
Цитата(Данкинг @  25.12.2011,  01:06 Найти цитируемый пост)
Ну так положи на форму обычный RichEdit и скопируй в него.

И толку? Я из фаста вытаскиваю только текст содержащий параметры, а не текст со значениями этих параметров.


Цитата(Данкинг @  25.12.2011,  01:06 Найти цитируемый пост)
Экспорт во что-нибудь из Фаста? 

Ага, только ну очень не хочется заниматься этим...


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0534 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.