Ajuda - Busca - Membros - Calendário
Versão Completa: Erro de operação ilegal no Sistema
Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix
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
QUOTE
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
QUOTE
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
QUOTE
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
QUOTE
Frmimparquivos.qr_imparquivos.Preview


experimente usar assim

CODE
Frmimparquivos.qr_imparquivos.Previewmodal


ou ainda assim

CODE
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
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.
Invision Power Board © 2001-2012 Invision Power Services, Inc.