danielrgoes
04/03/2010 - 12:19
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
08/03/2010 - 12:34
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
12/03/2010 - 09:03
Jhona não tem nada em nenhum dos dois eventos
Jhonas
12/03/2010 - 12:32
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
15/03/2010 - 09:45
No View Code
é o proprio delphi que cria ele eu so coloquei os
ShowMessage para ver aonde da erro
Jhonas
15/03/2010 - 20:11
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
16/03/2010 - 08:30
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
16/03/2010 - 08:44
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
16/03/2010 - 11:13
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
16/03/2010 - 11:37
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.