1º PASSO: Listar o Destinatário:
Try
Connection.Connected := false;
FreeAndNilProperties( Connection );
Connection.Connected := true;
Except
On E: Exception Do
Begin
VerificaErro( E );
exit;
End;
End;
With Dm01.Destinatario Do
Begin
close;
sql.clear;
sql.add( 'SELECT ID_DESTIN, DS_DESTIN FROM DESTINATARIO' );
If rbCodDestin.Checked = true Then
sql.add( 'WHERE ID_DESTIN = ' + Trim( Ed_BuscaDestin.Text ) )
Else
sql.add( 'WHERE DS_DESTIN LIKE ' + #39 + Trim( Ed_BuscaDestin.Text )
+ '%' + #39 );
sql.add( 'ORDER BY DS_DESTIN' );
open;
End;
2º PASSO: Listar os relacionamentos do destinatário selecionado:
Dm01.sp_Ent_Dest.Active := false;
Dm01.sp_Ent_Dest.Parameters.Parambyname( '@ID_DESTIN' ).Value :=
Dm01.DestinatarioID_DESTIN.AsInteger;
Dm01.sp_Ent_Dest.Active := true; ****** É AQUI QUE DÁ O ERRO!!!!!
**********
Dm01.sp_Ent_Dest.First;
O grande problema é que só dá o erro em uma máquina e não consigo
reproduzí-lo na minha! E como se não bastasse, outras máquinas com o mesmo
SO (win98) e com menos memória rodam o programa... Como este usuário faz
muita pesquisa, acredito que seja estouro de pilha!
Valeu!
-----Mensagem original-----
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 30 de março de 2005 09:19
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Estouro de pilha
Posta o fragmento do código que tá dando o erro aqui pra gente analisar
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
> -----Mensagem original-----
> De: Maxpress - Fernanda Prado [mailto:[EMAIL PROTECTED]
> Enviada em: quarta-feira, 30 de março de 2005 09:15
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Estouro de pilha
>
>
>
> Desculpa a insistência, mas é que preciso de ajuda...
>
>
> -----Mensagem original-----
> De: Maxpress - Fernanda Prado [mailto:[EMAIL PROTECTED]
> Enviada em: terça-feira, 29 de março de 2005 17:06
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Estouro de pilha
>
>
>
> Boa tarde!
>
> Uso o Delphi 7 com SQL Server 2000.
> Estou com um problema de estouro de pilha e tentei usar a função
> "FreeAndNilProperties(ADOConnection1)", mas não está resolvendo.
>
> Alguém pode me ajudar?
>
> Obrigada!
>
> Fernanda.
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
