Слиент-сервер передача параметров

minva

Есть такой вот скрипт

var
  DateFrom: string;
  DateTo: string;
    
procedure mTitleOnBeforePrint(Sender: TfrxComponent);
begin
  if DateFrom = '' then 
    mTitle.text := 'Ведомость клиента за период до [DateTo]';
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
   if DateTo = '' then 
    DateTo := <Date>;    
  try
    StrToDate(DateTo);
    if DateFrom <> '' then
      StrToDate(DateFrom);
  except
    RaiseException('Неверно задана дата!')      
  end         
end;

begin
  DateFrom := '20.01.2008';  
  DateTo := '';                
end.

Нормально работает. Если написать DateFrom := 'qqq'; то получаю ошибку. Но это в дизайнере
Теперь пробуем получить отчет по web.
Строка отправляемая на сервер
192.168.4.39/result?report=DetailedReport.fr3&Client=2&Account=1&DateFrom=22.02.2008&DateTo=22.03.2008&AFS=-1&Product=-1

Выводится mTitle.text = Ведомость клиента за период до 22.03.2008
Пробую так
192.168.4.39/result?report=DetailedReport.fr3&Client=2&Account=1&DateFrom=qqq&DateTo=22.03.2008&AFS=-1&Product=-1
Заголовок тот же!
Пробую так
192.168.4.39/result?report=DetailedReport.fr3&Client=2&Account=1&DateFrom=qqq&DateTo=www&AFS=-1&Product=-1
Получаю mTitle.text = Ведомость клиента за период до www

Начинаю танцевать с бубном делаю такой код

procedure mTitleOnBeforePrint(Sender: TfrxComponent);
begin
 if DateTo = '' then 
    DateTo := <Date>;    
  try
    StrToDate(DateTo);
    if DateFrom <> '' then
      StrToDate(DateFrom);
  except
    RaiseException('Неверно задана дата!')      
  end;      
  if DateFrom = '' then 
    mTitle.text := 'Ведомость клиента за период до [DateTo]';
end;

Получаю: Ведомость клиента за период с qqq до www

Что я не так или не там делаю? Это проявляется именно при работе клиент-сервер. Кэширование у сервера отключено.
FR4.2 D7

minva

minva написал: »

Получаю: Ведомость клиента за период с qqq до www

Вдогонку
начальное значение mTitle.Text = Ведомость клиента за период с [DateFrom] до [DateTo]