Erro de operação ilegal no Sistema

[danielrgoes]

Boa tarde

Estou com um problemao gostaria de compartilhar com vocês e ver se alguém tem alguma ideia

eu tenho um aplicação que desenvolvi em delphi 2007 com banco de dados firebird 1.5

ele esta funcionando bem porem tem uma deteminada maqui (SO XP) que quando executo da erro de operação ilegal (sabe aquela famosa de enviar relatorio para a microsoft)

então ei coloquei Showmessage na aplicaçao quando vai criar o form

ShowMessage (' ****** 1 ****** ');

Application.Initialize;

ShowMessage (' ****** 2 (Modulo) ****** ');

Application.CreateForm(TModulo, Modulo);

ShowMessage (' ****** 3 ****** ');

Application.CreateForm(TFrmLogin, FrmLogin);

ShowMessage (' ****** 4 ****** ');

Application.CreateForm(TFrmSobre, FrmSobre);

ShowMessage (' ****** 5 ****** ');

Application.CreateForm(Timp_historico, imp_historico);

ShowMessage (' ****** 6 ****** ');

Application.CreateForm(TFrm_impPerformance, Frm_impPerformance);

ShowMessage (' ****** 7 ****** ');

Application.CreateForm(TFrm_impgrafico, Frm_impgrafico);

ShowMessage (' ****** 8 ****** ');

Application.CreateForm(TFrm_plotar, Frm_plotar);

ShowMessage (' ****** 9 ****** ');

Application.CreateForm(TForm2, Form2);

ShowMessage (' ****** 10 ****** ');

e notei que para bem no 5 que é quando vai carregar o relatorio em QR

se eu comentar as linha do Form com o QR abre o Sistema

alguém tem alguma ideia do que pode ser ?

[Jhonas]

Application.CreateForm(TFrmSobre, FrmSobre);

ShowMessage (' ****** 5 ****** ');

Application.CreateForm(Timp_historico, imp_historico);

ShowMessage (' ****** 6 ****** ');

notei que para bem no 5 que é quando vai carregar o relatorio em QR

se eu comentar as linha do Form com o QR abre o Sistema

Verifique o código no evento OnCreate e no OnActive do form

abraço

[danielrgoes]

Jhona não tem nada em nenhum dos dois eventos

[Jhonas]

Application.CreateForm(TFrmSobre, FrmSobre);

ShowMessage (' ****** 5 ****** ');

Application.CreateForm(Timp_historico, imp_historico);

ShowMessage (' ****** 6 ****** ');

Em que parte do seu projeto está esse código ?

[danielrgoes]

No View Code

é o proprio delphi que cria ele eu so coloquei os

ShowMessage para ver aonde da erro

[Jhonas]

No View Code

é o proprio delphi que cria ele eu so coloquei os

ShowMessage para ver aonde da erro

pode ser erro de criação do proprio formulario ( Timp_historico )

a solução mais rápida é reconstruí-lo novamente

abraço

[danielrgoes]

Jhonas

Eu achava que não era isso porem recriei ele e mesmo assim nada

pois se eu comentar essa linha ele vai ate na criaçao do proximo form que tenha QR

aieu comento ele e para na proxima quetem QR

eu acredito que seja algo com o QuickReport

porem não estou conseguindo identificar o que é pois tem maquinas que fuincionam

ai eu comentei todas e entrou no programa mais ao acionar o botao imprimir que chama o form

try

Frmimparquivos := Tfrmimparquivos.Create(Application);

Frmimparquivos.qr_imparquivos.Preview

finally

FreeandNil(frmimparquivos);

end

Porem da o seguinte erro

Access violatioat address 00448EA9 in mudulo projeto.exe read of address 000000028

mais nas maquinas que estavam funcionando sem comentar abri normalmente

abraços

[Douglas Soares]

Cara eu tinha esses erros em uma maquina também quando eu tinha um DataModule/SQLConnection e deixava ele como Connected = True, mesmo o erro não apontando pra ele, eu ia la e o desativava e sempre resolvia os problemas, se estiver conectado o seu, sete o connect para False e somente conecte no final do processo...

Abraços

[danielrgoes]

Cara isso realmente é um problema na minha aplicaçao

mais isso eu já faço deixo sempre como false

nesse caso não é isso =(

[Jhonas]

Frmimparquivos.qr_imparquivos.Preview

experimente usar assim

Frmimparquivos.qr_imparquivos.Previewmodal

ou ainda assim

try
 if Frmimparquivos.qr_imparquivos.Preview = Nil then
   Frmimparquivos.qr_imparquivos := TFrmimparquivos.qr_imparquivos.Create(self);
 except
   ShowMessage('Erro na criação do relatório!!');
    exit;
 end;

 Frmimparquivos.qr_imparquivos.Prepare;
 Frmimparquivos.qr_imparquivos.PreviewModal;

abraço