не компилятся даже демо проекты...

Комментарии

• GloThin

  May 2006 отредактировано May 2006

  А не пробовал в последней версии перекомпилировать все пакеты ФастРепорта через утилиту Recompile?
  
• nerv

  May 2006 отредактировано 04:55

  GloThin написал:

  А не пробовал в последней версии перекомпилировать все пакеты ФастРепорта через утилиту Recompile?

  пробовал, конечно. Результат тот же.
• nerv

  May 2006 отредактировано 04:55

  Оказывается Delphi Update не при чем.
  Сейчас снес Delphi полностью. И установил только FastReport 3.20
  В результате при попытке откомпилировать даже саме простые примеры из Demo выпадает ошибка, о которой я писал выше.
  
  Ошибка выскакивает в этой процедуре (frxClass.pas)
  

  procedure TfrxReport.Clear;
  begin
  {$IFNDEF FR_COM}
    if FEngineOptions.ReportThread <> nil then
      THackThread(FEngineOptions.ReportThread).Synchronize(DoClear) else
  {$ENDIF}
      DoClear;
  end;
  
• nerv

  May 2006 отредактировано 04:55

  У кого-нибудь вообще работает FastReport 3.19 (3.20) с Delphi 6?
• AlexTZ

  May 2006 отредактировано 04:55

  А откуда такие строки взялись в исходниках?
  {$IFNDEF FR_COM}
  такого быть не должно. В 3.21 проверьте.
• GloThin

  May 2006 отредактировано 04:55

  написал:

  А откуда такие строки взялись в исходниках?
  {$IFNDEF FR_COM}
  такого быть не должно. В 3.21 проверьте.

  В 3.21 такие строки присутствуют, тока в следующем виде:

  procedure TfrxReport.Clear;
  begin
  {$IFNDEF FR_COM}
  // if FEngineOptions.ReportThread <> nil then
  //   THackThread(FEngineOptions.ReportThread).Synchronize(DoClear) else
  {$ENDIF}
     DoClear;
  end;
  
• nerv

  May 2006 отредактировано 04:55

  GloThin написал:

  GloThin написал:

  А откуда такие строки взялись в исходниках?
  {$IFNDEF FR_COM}
  такого быть не должно. В 3.21 проверьте.

  В 3.21 такие строки присутствуют, тока в следующем виде:

  procedure TfrxReport.Clear;
  begin
  {$IFNDEF FR_COM}
  // if FEngineOptions.ReportThread <> nil then
  //   THackThread(FEngineOptions.ReportThread).Synchronize(DoClear) else
  {$ENDIF}
     DoClear;
  end;
  

  3.21 версии у меня к сожалению нет.
  А эти строчки пробовал заокмментарить.
  Он в DoClear выдает ошибку.
  В теле процедуры DoClear третья, четвертая строки, где вызываются процедуры. Сейчас Delphi c FastReport нет под рукой. Завтра напишу точнее где это исключение выдает.
  А в версии 3.15 было написано так:

  procedure TfrxReport.Clear;
  begin
   if FEngineOptions.ReportThread <> nil then
     THackThread(FEngineOptions.ReportThread).Synchronize(DoClear) else
     DoClear;
  end;
  
• AlexTZ

  May 2006 отредактировано 04:55

  Сейчас специально поставил версию d6p.exe и d7p.exe - нет в исходниках таких строк. Мы их автоматом вырезаем, чтобы не загромождать исходники.
• GloThin

  May 2006 отредактировано 04:55

  написал:

  Сейчас специально поставил версию d6p.exe и d7p.exe

  А инсталл в исходниках не пытались ставить?
  Там точна такие строки есть...

  написал:

  Мы их автоматом вырезаем, чтобы не загромождать исходники.

  Может причина не в загромождении?м
• nerv

  May 2006 отредактировано 04:55

  GloThin написал:

  Может причина не в загромождении?м

  Сейчас пошагово смотрел, где возникает исключение.
  D6 + FR3.20. Проект PrintFile из папки Demos.
  Оказалось в первый раз исключение возникает еще раньше, чем в DoClear.
  
  Ошибка появляется когда в Project1 выполняет строку

   Application.CreateForm(TForm1, Form1);
  

  Выполняется конструктор

  constructor TFunctions.Create(AScript: TfsScript);
  

  в модуле fs_isysrtti.pas
  в нем стопорится на строке

     AddMethod('function Date: TDateTime', CallMethod4, FCatDate);
  

  которая в свою очередь вызывает в свою очередь

  constructor TfsMethodHelper.Create(const Syntax: String; Script: TfsScript);
  

  в модуле fs_iinterpreter.pas
  При выполнении этого конструктора, а точнее последней строчки:

   FVarArray := VarArrayCreate([0, Count - 1], varVariant);
  

  
  вызывается exception EVariantError 'Variant array index out of bounds'
  
• AlexTZ

  May 2006 отредактировано 04:55

  Это значит, что в D6 не стоят апдейты (нужен и первый, и второй).
• nerv

  May 2006 отредактировано 04:55

  AlexTZ написал:

  Это значит, что в D6 не стоят апдейты (нужен и первый, и второй).

  В том то и дело, что FR 3.15 работало без Update.
  Перед установкой FR 3.20 я установил три Update:
  1) D6_RTL1_ent.exe
  2) D6_RTL2_ENT.exe
  3) d6_rtl3.zip
  
  после всего этого установил FR3.20.
  Этот exception EVariantError 'Variant array index out of bounds' наблюдался при этом.
  Я решил, что возможно дело в этих Update и попробовал снести FR 3.20.
  Поставил 3.19. Exception там тот же. Тогда я снес 3.19, установил 3.15 - работает нормально.
  Потом я снес Delphi, установил FR3.20 без Update D6, все тот же Exception.
  Поставил 3.15 - работает.
  
  
  
• -=Den=-

  May 2006 отредактировано 04:55

  написал:

  Перед установкой FR 3.20 я установил три Update:
  1) D6_RTL1_ent.exe
  2) D6_RTL2_ENT.exe
  3) d6_rtl3.zip

  Должны стоять эти апдейты:
  1)D6_upd1_ent
  2)D6_upd2_ent
• nerv

  May 2006 отредактировано 04:55

  написал:

  Должны стоять эти апдейты:
  1)D6_upd1_ent
  2)D6_upd2_ent

  Не подскажите где их можно скачать? На Borland.com что-то не нашел.
• -=Den=-

  May 2006 отредактировано 04:55

  ftp://ftpd.borland.com/devsupport/delphi/d6/D6_upd1_ent.exe - 28,0 МБ
  ftp://ftpd.borland.com/devsupport/delphi/d6/D6_upd2_ent.exe - 33,2 МБ
• nerv

  May 2006 отредактировано 04:55

  Спасибо за ссылки!