problemas relatorio qreport no win 2000

Delphi

17/09/2003

Pessoal, tenho um programa de cadastro de empresas, desenvolvido em delphi 3 (portanto, mais velho que minha avó!)...o programa sempre funcionou, do win 95 até o win ME...porém, ao passar a usar win 2000, não consigo mais imprimir os relatórios (qreport), nem salvá-los mais...o programa dá a msg de erro ´cannot create file´...esse mesmo erro ocorre no win xp...alguém já passou por isso?
Agradeço qualquer sugestão.
Abraços a todos


Kralizec

Kralizec

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

17/09/2003

Colega,

Delphi 3 utilizava o QR 2 que não é suportado sob o windows 2000/XP, para funcionar, você deverá alterar a função TempFileName na QRPrintr.pas, conforme segue:

function TempFilename : string;
var
  AName,
  ADir : array[0..255] of char;
begin
  GetTempPath(255, adir);
  GetTempFilename(aDir, PChar(´QRP´), 0, aName);
  result := StrPas(aName);
end;


Está documentado na KB (Base de conhecimento) da www.qusoft.com (fabricante).


GOSTEI 0
Kralizec

Kralizec

17/09/2003

[quote:50d24bb373=´Aroldo Zanela´]Colega,

Delphi 3 utilizava o QR 2 que não é suportado sob o windows 2000/XP, para funcionar, você deverá alterar a função TempFileName na QRPrintr.pas, conforme segue:

function TempFilename : string;
var
  AName,
  ADir : array[0..255] of char;
begin
  GetTempPath(255, adir);
  GetTempFilename(aDir, PChar(´QRP´), 0, aName);
  result := StrPas(aName);
end;


Está documentado na KB (Base de conhecimento) da www.qusoft.com (fabricante).[/quote:50d24bb373]

Eu agradeço a dica...infelizmente, meio bisonho que ainda sou no delphi, não consegui inserir este códico...na verdade, nem tenho qrprint.pas...meu programa possui uns 4 ou 5 relatórios, todos com nomes diferentes...não achei a função especificada nos .pas...


GOSTEI 0
POSTAR