Fast Report Enterprise Edition

Комментарии

• Stalker4 123

  February 2008 отредактировано 16:38

  написал: »

  Есть такой замечательный компонент - TfrxADOComponents.
  Умеет привязываться к ADOConnection и раздавать это соединение всем наборам данных в отчётах.
  Но вот беда-то в чём - компонентик этот почему-то связывается не с TfrxReportServer, А С ГЛОБАЛЬНОЙ ПЕРЕМЕННОЙ ADOComponents в модуле frxADOComponents! Получается следующий эффект - каждое последующее соединение сервера к новой базе данных подменяет существующие соединения к БД у всех экземпляров серверов отчётов!
  
  Уважаемые разработчики!
  Подскажите выход из сложившейся ситуации.
  Я сомневаюсь, что здесь есть простое решение, поэтому хотелось бы услышать, сколько примерно времени займёт решение данной проблемы?

  
  Я правда не разработчик, но совет могу дать:
  
  Возьми TfrxADOComponents и перепиши в них работу касающуюся DefaultDatabase и глобального свойства ADOComponents.
  В свое время, когда я делал свои движки для FR, я отказался от этого механизма, так как он ограничивает возможности движка.
  В качестве примера посмотри мой движки. Они есть в бинарной конфе или на моем сайте http://stalker4.dp.ua
• Мамонт

  February 2008 отредактировано 16:38

  Stalker4,
  Спасибо за ответ!
  
  Скачал Ваши разработки, но так и не понял, как нужно изменить TfrxADOComponents,
  чтобы в отчёты передавалось конкретное соединение, а не глобальное...
  
  По-моему проблема глубже. Вот пример:
  
  1. Конструктор TfrxADOQuery:

  constructor TfrxADOQuery.Create(AOwner: TComponent);
  begin
    FStrings := TStringList.Create;
    FQuery := TADOQuery.Create(nil);
  {$IFDEF Delphi7}
    FQuery.LockType := ltReadOnly;
  {$ENDIF}
    Dataset := FQuery;
    SetDatabase(nil);
    FLock := False;
    inherited;
  end;
  

  
  2. Метод SetDatabase:

  procedure TfrxADOTable.SetDatabase(Value: TfrxADODatabase);
  begin
    FDatabase := Value;
    if Value <> nil then
      FTable.Connection := Value.Database
    else if ADOComponents <> nil then
      FTable.Connection := ADOComponents.DefaultDatabase
    else
      FTable.Connection := nil;
    DBConnected := FTable.Connection <> nil;
  end;
  

  
  Как видно, при создании отчётом экземпляра TfrxADOQuery ему всегда присваивается глобальное соединение (SetDatabase(nil)).
  Очень хотелось бы вместо этого увидеть что-нибуть вроде такого кода:

  constructor TfrxADOQuery.Create(AOwner: TComponent);
  begin
    ...
    SetDatabase(Report.DefaultDatabase);
    inherited;
  end;
  

  
  Но как в таком случае связать Report с различными движками БД?
• Stalker4 123

  February 2008 отредактировано 16:38

  Я бы не сказал, что глубже.
  
  Посмотри мой метод TfrxAsaDataSet.Create, у меня там SetDatabase(nil) нет вообще. Как и нет самого этого метода.
  Я просто для свойства TfrxAsaDataSet.Session (это аналог свойства TQuery.Databasename) написал соответствующие обработчики (TfrxAsaDataSet.SetSession, TfrxAsaDataSet.SetSessionName). Ну и PE для этого свойства тоже сделал.
  Свойство Session это ссылка на компонент TASASession (аналог TDataBase), т.е. фактически это и есть твоя строка коннекта.
  И я могу ей присваивать как ссылку на "внутрению базу" (TfrxAsaSession - в FR), так и на внешнию базу (TASASession в Delphi).
  
  
• DmLam

  February 2008 отредактировано 16:38

  написал: »

  Уже устал писать в support - все мои запросы, тестовые примеры с демонстрацией ошибок уходят туда, как в бездонную бочку.
  Максимум, чего удалось добиться ЗА МЕСЯЦ страданий - это статус "Принято к рассмотрению" для небольшой части моих запросов :-\
  
  Пишу сюда, в надежде, что в глазах общественности разработчики проявять уважение к пользователям их продукта и займутся своими прямыми обязанностями - ИСПРАВЛЕНИЮ ДУРАЦКИХ ОШИБОК и доведению до ума жалких поделок с именами TfrxReportClient и TfrxReportServer, входящие в состав Enterprise-редакции.

  
  Это нормально, советую сразу оставить надежду на какую-то помощь от разработчиков. Ошибки, которые я нашел (и прислал код с исправлениями)в серверных компонентах два с лишним года назад (еще в 3-й версии) до сих пор не исправлены, на письма разработчикам, в форум и лично М. Филиппенко поимел только обещания все поправить в ближайшее время. Видимо, 2.5 года - еще не ближайшее время
  
  Вот здесь я на форуме об этом писал
  [url="http://fast-report.com/ru/forum/index.php?showtopic=4130&st=0&p=15199�entry15199" ] http://fast-report.com/ru/forum/index.php?...5533;entry15199[/url]
  [url="http://fast-report.com/ru/forum/index.php?showtopic=4639&st=0&p=17030�entry17030" ] http://fast-report.com/ru/forum/index.php?...5533;entry17030[/url]