FreeReport232 на компеляторах ВС6 и BD7

jeka_t

Я скачал исходники FreeReport232, в инструкции по установке есть фраза:

написал:

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

Но в исходниках я не нашёл ни модуля, ни папок...
Может кто-нибудь подскажет где я могу достать их...

-=Serg=-

А помоему в FreeReport'e есть и FR_Class.pas, смотрите внимательнее.

jeka_t

Тогда может вы расскажите почему пишет ошибку:

написал:

[Fatal Error] FREEREP6.dpk(35): Required package 'IBO_D6' not found

при компиляции?

-=Serg=-

Вы собираетесь использовать IBO?

Если нет, то советую востановить из архива FREEREP6.dpk и перекомпилировать его, а на запрос о сохранении отвечать "НЕТ!"

Так же нужно добавить в fr.inc:

{$IFDEF VER150}      // Delphi 7.0
  {$DEFINE Delphi4}
  {$DEFINE Delphi5}
  {$DEFINE Delphi6}
  {$DEFINE Delphi7}
  {$WARN UNSAFE_CODE OFF}
{$ENDIF}

Потом должна появится проблемма в строке ~1675 (FR_Class.pas):
замените на:

// preventing Win32 error when printing
if (aw <> nw) and not Exporting then
{$IFDEF Delphi7}
  GetCharacterPlacement(Canvas.Handle, PChar(str), Length(str), nw, GCP, GCP_JUSTIFY + GCP_MAXEXTENT)
{$ELSE}
  GetCharacterPlacement(Canvas.Handle, PChar(str), BOOL(Length(str)), BOOL(nw), GCP, GCP_JUSTIFY + GCP_MAXEXTENT)
{$ENDIF}

jeka_t

Сново при компиляции пишет ошибку:

написал:

[Fatal Error] Fr_reg.pas(27): File not found: 'DsgnIntf.dcu'

-=Serg=-

Jeka! А вот такие вопросы стыдно задавать.
Найди где этот файл и в IDE пропиши пути к нему.

jeka_t

Стыдно должно быть Вам, извените...
Во первый: надо учитывать разный уровень программиста
Во вторых: ни где в исходниках не присутствует это модуль...
В третьих: Что такое IDE?

-=Serg=-

В меню Tools-Environment options-Library-Browsing path добавьте строку $(DELPHI)\Source\ToolsAPI

jeka_t

Я этот модуль не нахожу: 'DsgnIntf.dcu'

-=Serg=-

Это выполнил?

написал:

Так же нужно добавить в fr.inc:

{$IFDEF VER150}      // Delphi 7.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$DEFINE Delphi7}
{$WARN UNSAFE_CODE OFF}
{$ENDIF}

А упоминание о модуле DsgnIntf есть в FR_reg, но оно ограничено DEFFIN'ами. А если ты не добавил код (см. выше) в fr.inc, то условная компиляция работает неправильно.

jeka_t

Теперь пишет:
[Fatal Error] fr_sntxe.pas(19): File not found: 'SyntaxEd.dcu'

-=Serg=-

Хм. У меня такого не спрашивал...
Попробуй убрать этот модуль из uses

jeka_t

Не получается...
Там в модуле используется эти классы...

batonn

jeka_t написал: »

Не получается...
Там в модуле используется эти классы...

Дела давно минувших дней, но дело тут все в том, что у тебя Жека наверняка или нет принтера в системе или он сетевой или какой то левый.
Сам через это прошел. Установи Лизард виртуальный и все ОК.