Problemas no Instalador do Forte Report para bds2006

[farnetani]

Pessoal, existe um problema para se utilizar o instalador do forte report.

Na linha 654 do arquivo RLMetaVCL tive que deixar assim:

    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psSolid
    (Count: 2;Lengths: (3, 1, 0, 0, 0, 0)), // psDash
    (Count: 2;Lengths: (1, 1, 0, 0, 0, 0)), // psDot
    (Count: 4;Lengths: (2, 1, 1, 1, 0, 0)), // psDashDot
    (Count: 6;Lengths: (3, 1, 1, 1, 1, 1)), // psDashDotDot
{$IfDef FPC}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psInsideFrame
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psPattern
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0))  // psClear
{$Else}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear
{$ifdef DELPHI2006}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)),
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)),
{$endif}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psInsideFrame
{$IfDef DELPHI2007_UP}// delphi 2007 em diante
    ,
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psUserStyle
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psAlternate
{$endif}
{$endif}
    );

E no arquivo RLXLSXFileFormat tive que corrigir os erros causados pelo RawBytes...

Como por exemplo na linha 778, 1396, 1430 (AnsiString), 1440:

Result := {$IfDef FPC}String(RawBytes){$Else} UTF8ToUnicodeString(RawBytes){$EndIf};

para:

Result := {$IfDef FPC}String(RawBytes){$EndIf}{$IfDef DELPHI2006}String(RawBytes){$Else} UTF8ToUnicodeString(RawBytes){$EndIf};

 

Desculpem, não sei se fiz certo, mas compilou e instalei. Também não sabia aonde postar, só quis contribuir

para que fosse corrigido no instalador!

 

 

[Juliomar Marchetti]

4 horas atrás, farnetani disse:

Pessoal, existe um problema para se utilizar o instalador do forte report.

Na linha 654 do arquivo RLMetaVCL tive que deixar assim:

    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psSolid
    (Count: 2;Lengths: (3, 1, 0, 0, 0, 0)), // psDash
    (Count: 2;Lengths: (1, 1, 0, 0, 0, 0)), // psDot
    (Count: 4;Lengths: (2, 1, 1, 1, 0, 0)), // psDashDot
    (Count: 6;Lengths: (3, 1, 1, 1, 1, 1)), // psDashDotDot
{$IfDef FPC}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psInsideFrame
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psPattern
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0))  // psClear
{$Else}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear
{$ifdef DELPHI2006}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)),
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)),
{$endif}
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psInsideFrame
{$IfDef DELPHI2007_UP}// delphi 2007 em diante
    ,
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psUserStyle
    (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psAlternate
{$endif}
{$endif}
    );

E no arquivo RLXLSXFileFormat tive que corrigir os erros causados pelo RawBytes...

Como por exemplo na linha 778, 1396, 1430 (AnsiString), 1440:

Result := {$IfDef FPC}String(RawBytes){$Else} UTF8ToUnicodeString(RawBytes){$EndIf};

para:

Result := {$IfDef FPC}String(RawBytes){$EndIf}{$IfDef DELPHI2006}String(RawBytes){$Else} UTF8ToUnicodeString(RawBytes){$EndIf};

 

Desculpem, não sei se fiz certo, mas compilou e instalei. Também não sabia aonde postar, só quis contribuir

para que fosse corrigido no instalador!

 

 

No caso tu tem que mandar um pull request no git do fortes report sugerindo a correção!