Как передавать данные в FreeReport?

[Vit@L]

Привет всем!
Подскажите пожалуйста, как передать данные компоненту Memo в FreeReport'e? Т.е. в DataSet'ами все ясно, а вот как передать, к примеру, знаечение edit1.Text или значение какой-нибудь другой переменной не знаю. Подскажите пожалуйста.
Заранее спасибо!

[Aleksandr]

procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
 if ParName = 'Edit1' then
  ParValue := Edit1.Text;
end;

[Vit@L]

Aleksandr, а можно по подробнее, потому как, следуя вашему примеру, у меня ничего не получилось.

Ничего не получается, подскажите пожалуйста как это реализовать?
Мне требуется чтобы в memo8 (это не тот компонент который в Делфи, а компонент FreeReporta) передавалось значение Label10.Caption
Делаю по примеру Александра:

procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
if ParName='Memo8' then ParValue:=Label10.Caption;
end;

Итог: То выдается какая-то ошибка (Эксесс Виолейшн), то просто никакого значения не присваивается. И вообще, это у меня так или вообще сам компонент FreeReport такой глючный?

Ах да, и еще вопрос. Когда я помещаю в отчет компонент Shape, то при формировании отчета выдается ошибка:


Если честно, то все хвалят этот компонент, а у меня одни глюки. Да, понимаю, что многие скажут что руки не оттуда растут или что-либо еще в этом плане, но честное слово, устанавливал как все компоненты, по инструкции, за исключением вот этого пункта:

FreeReport поставляется в исходных текстах. В ограниченной версии есть
только один скомпилированный модуль - FR_Class.dcu. Версии этого модуля
для Delphi 2/3/4/5 содержатся в каталогах LIB_D2...LIB_D5. Перед
установкой компонента скопируйте нужную версию модуля в каталог ..\FR\SOURCE

Вот убейте, я не могу найти каталоги LIB_D2...LIB_D5, я так понимаю что ошибка с классами у меня по этой причине и получается, но как быть?
Знатоки Фрирепорта, подскажите пожулйста. Ну и, конечно же, вопрос с передачей данных в компоненты Мемо остается открытым, заранее спасибо!

Ну подскажите пожалуйста. Как передавать данные в отчет?

[Lecter2009]

А элемент MEMO8 в отчете присутсвует? Именно с таким именем?

[Vit@L]

А элемент MEMO8 в отчете присутсвует? Именно с таким именем?

Да, присутствует. В общем я тут нашел способ передавать данные. Нашел на сайте разработчиков в руководстве к Fast Report:

Объекты FastReport (такие, как страница отчета, бэнд, мемо-объект) напрямую недоступны из вашего кода. Это означает, что вы не можете обратиться к объекту по его имени, как, например, обращаетесь к кнопке на вашей форме. Чтобы обратиться к объекту, надо найти его с помощью метода TfrxReport.FindObject:

Pascal:

var
Memo1: TfrxMemoView;

Memo1 := frxReport1.FindObject('Memo1') as TfrxMemoView;

[Aleksandr]

Вот простенький пример.

[Vit@L]

Ок, спасибо. Я посмотрю пример.

[Serge_Bliznykov]

Vit@L
существует МНОГО разных способов, как можно передать переменную в отчёт. (правда, я работал только с FastReport, но не думаю, что он в этом плане сильно отличается от FreeReport'а)

1) тот, что использовали вы через FindObject
(по хорошему ещё надо проверять, нашлось или нет, но это уже лежит на Вашей совести, как разработчика программы)

2) добавить в отчёт переменную и присваивать ей значение

frReport1.Dictionary.Variables.Variable['My_Edit1'] := Edit1.Text;

3) использовать способ, который Вы пытались задействовать в пост #3 - (через GetValue)
но только его надо правильно использовать. (в документации, кстати, об этом есть!):
в GetValue попадает вызов, когда в тексте отчёта встречаются выражения в квадратных скобках.
напишите внутри вашего любого memo текст (к примеру): [MYEDIT1] )

и используйте такой код, назначенный на GetValue:

procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
 if ParName = 'MYEDIT1' then
   ParValue := Edit1.Text;
end;

[Vit@L]

Serge_Bliznykov, спасибо большое за помощь. Сейчас пользуюсь первым вариантом. А по поводу того что нашелся или нет объект, то он обязательно найдется, так как они у меня заранее созданы и это фиксированный набор объектов. Так что для меня 1-й вариант подходит вполне.
Но все равно, еще раз спасибо большое за помощь.

[taxyxa]

Спасибо Aleksandr за пример, очень помог разобраться и понять как работает компонент TfrReport.

Подскажите пожалуйста как изменить кодировку в FreeReporte.





Спасибо.