Re: [delphi-br] TApplicationEvents.OnException : como obter a origem do erro
Esse tópico achei interessante! Bruno, vc poderia citar um exemplo simples (...é bem simples) utilizando a variável Exception? Blz. Em 28/05/08, Ricardo Lima[EMAIL PROTECTED] escreveu: Bruno é possível pegar a unit e linha em que o erro ocorreu? Bruno Lichot escreveu: Através das variáveis de ambiente do próprio objeto application você consegue fotografar sua aplicação no momento da exceção, é bem simples. A variável Exception também te fornece várias informações importantes sobre o erro. Abs BL From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique Sent: terça-feira, 27 de maio de 2008 09:26 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] TApplicationEvents.OnException : como obter a origem do erro Tem o MadExcept que é gratuito.. ótimo também. []s 2008/5/27 Consultores Software [EMAIL PROTECTED] mailto:consultoressoftware%40gmail.commailto:consultoressoftware%40gmail.com: Eu estive vendo sobre o EurekaLog. Me parece ser uma excelente ferramenta, mas..é pago :-( 2008/5/27 Gerson Machado [EMAIL PROTECTED] mailto:gersonamach%40yahoo.com.brmailto:gersonamach%40yahoo.com.brgersonamach%40yahoo.com.br : Eu particularmente uso o EurekaLog.v6.0.14, rapido, fácil, captura a tela com o erro, pega todos os status de registradores, memória, variáveis e me envia por email; muito bom. Gerson PS. Gera log de erro para analise posterior. Consultores Software [EMAIL PROTECTED] mailto:consultoressoftware%40gmail.commailto:consultoressoftware%40gmail.comconsultoressoftware%40gmail.com consultoressoftware%40gmail.com escreveu: Bom dia pessoal ! Tenho na aplicação, um componente TApplicationEvents, onde uso o evento OnException para capturar quaisquer Exceptions do aplicativo. Preciso saber se é possível obter a origem da Exception ( unit, linha etc ) Alguém sabe como ? Muito obrigado, desde já [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.commailto:fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi via wine
não sei em que parte esta este aplicativo, pronto, no meio, no inicio... se tiver no inicio, sugiro comprarem o IBDAC ou UniDAC da CoreLab www.crlab.com porque se ele for tão bom quando o MyDAC que uso, vc pode esquercer essas DLLs ai. baixa o trial e faz uns testes, creio q vai gostar Quanto ao WINE, tem receita de bolo ? to pensando em usar no SUSE 10.3 ou em um linux bem leve como o Insigne. Nunca usei o Debian, ja vi o Mandrake (nao gostei), uso o REDHAT9 (pena q parou no tempo otimo linux), dei uma olha no FEDORA (mas nao gostei muito achei o SUSE melhor), e estou pulando pro OpenSUSE 10.3 mas parece meio pesadinho.. ainda não tive chance de testa-lo totalmente.. []s e boa sorte Luiz Escobar - Original Message - From: Renato Bermudo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 28, 2008 5:26 PM Subject: Re: [delphi-br] Delphi via wine Olá! Estamos fazendo alguns testes com o wine (no debian), utilizamos o delphi2006+dbexpress+firebird. o executável até abre, mas não consegue carregar o fbclient.dll. Hoje colocamos o executável em uma pasta compartilhada no servidor juntamente com os arquivos dbxadapter30.dll, dbxint30.dll e fbclient.dll, com isso não precisa instalar nada na estação, somente crio um atalho do executável no servidor. Mas no wine ele não carrega o danado do fbclient.dll, alguém tem alguma dica pra isso? - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 28, 2008 4:53 PM Subject: Res: [delphi-br] Delphi via wine Grato a quem respondeu. Eh bom saber que que super Linux roda ate aquilo que não foi feito para ele e quase sem problemas. Estamos na hora de renovar as licenças com a M$, e se os teste aqui usando o wine der certo, será pouco provável que as licenças serão renovadas. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 3140 (20080528) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Assinatura digital do arquivo eletrônico NFPaulista
Alguém tem uma dica de como fazer essa assinatura digital? Entendi que se deve usar o MD5 nos arquivos (exceto no que deve conter a assinatura digital), mas tem passos posteriores de criptografia que não entendi. Graça
Re: [delphi-br] Delphi via wine
Olá Luiz, realmente a linha DAC não tem pra ninguém, o IBDAC - que uso - é muito bom. Também, queria saber se existe a tal receita me interessei... :o) []s 2008/5/29 Luiz Escobar [EMAIL PROTECTED]: não sei em que parte esta este aplicativo, pronto, no meio, no inicio... se tiver no inicio, sugiro comprarem o IBDAC ou UniDAC da CoreLab www.crlab.com porque se ele for tão bom quando o MyDAC que uso, vc pode esquercer essas DLLs ai. baixa o trial e faz uns testes, creio q vai gostar Quanto ao WINE, tem receita de bolo ? to pensando em usar no SUSE 10.3 ou em um linux bem leve como o Insigne. Nunca usei o Debian, ja vi o Mandrake (nao gostei), uso o REDHAT9 (pena q parou no tempo otimo linux), dei uma olha no FEDORA (mas nao gostei muito achei o SUSE melhor), e estou pulando pro OpenSUSE 10.3 mas parece meio pesadinho.. ainda não tive chance de testa-lo totalmente.. []s e boa sorte Luiz Escobar - Original Message - From: Renato Bermudo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, May 28, 2008 5:26 PM Subject: Re: [delphi-br] Delphi via wine Olá! Estamos fazendo alguns testes com o wine (no debian), utilizamos o delphi2006+dbexpress+firebird. o executável até abre, mas não consegue carregar o fbclient.dll. Hoje colocamos o executável em uma pasta compartilhada no servidor juntamente com os arquivos dbxadapter30.dll, dbxint30.dll e fbclient.dll, com isso não precisa instalar nada na estação, somente crio um atalho do executável no servidor. Mas no wine ele não carrega o danado do fbclient.dll, alguém tem alguma dica pra isso? - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, May 28, 2008 4:53 PM Subject: Res: [delphi-br] Delphi via wine Grato a quem respondeu. Eh bom saber que que super Linux roda ate aquilo que não foi feito para ele e quase sem problemas. Estamos na hora de renovar as licenças com a M$, e se os teste aqui usando o wine der certo, será pouco provável que as licenças serão renovadas. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] evaldoavelar%40yahoo.com.br Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 3140 (20080528) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Off - Golpes
Para quem quiser emitir boleto ou aceitar pagtos via cartão de credito como pessoa física, recomendo o PagSeguro do UOL. Muito bom, funciona direitinho (utilizo a muito tempo) e como tem o UOL por traz que a principio é uma empresa grande e séria não tem esse tipo de problemas. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Dias Enviada em: quarta-feira, 28 de maio de 2008 19:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Off - Golpes Caros colegas, Quero alertar a todos que fazem trabalhos como free-lance para não ser vitima do mesmo golpe que fui. Há uns 6 meses entrei no site www.sendep.com.br e fiz o meu cadastro para imprimir boletos de pagamento aos meus clientes, ate o mês passado estava indo tudo bem, quando tentei fazer um saque de 200,00 e não consegui, tentei também de todas as formas entra em contato com os agentes, não tive resultados. Então comecei a pesquisar e fui no google digitei sendep e percebi que não era o único a ser lesado, tinha varias pessoas com o mesmo problema, entrei no site www.registro.br e pesquise o whois do sendep.com.br e vi que estava coliado com lanceagora.com.br. Como tenho acesso ao banco de dados do natt.com.br (Prestadora de serviços de consulta para compras) resolvi fazer uma pesquisa com o nome do mesmo, e vi que era um caso de estelionatários pois o mesmo tinha 6 CPF diferente e nenhum estava legalizado pela receita federal. Cuidado gente eles são golpistas. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off - Golpes
Mas ele não aceita CPF, somente empresa, ou estou errado? Tentei um tempo atrás, mas não deixaram.. :o( []s 2008/5/29 Gerhard Roger Nack [EMAIL PROTECTED]: Para quem quiser emitir boleto ou aceitar pagtos via cartão de credito como pessoa física, recomendo o PagSeguro do UOL. Muito bom, funciona direitinho (utilizo a muito tempo) e como tem o UOL por traz que a principio é uma empresa grande e séria não tem esse tipo de problemas. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Hudson Dias Enviada em: quarta-feira, 28 de maio de 2008 19:43 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Off - Golpes Caros colegas, Quero alertar a todos que fazem trabalhos como free-lance para não ser vitima do mesmo golpe que fui. Há uns 6 meses entrei no site www.sendep.com.br e fiz o meu cadastro para imprimir boletos de pagamento aos meus clientes, ate o mês passado estava indo tudo bem, quando tentei fazer um saque de 200,00 e não consegui, tentei também de todas as formas entra em contato com os agentes, não tive resultados. Então comecei a pesquisar e fui no google digitei sendep e percebi que não era o único a ser lesado, tinha varias pessoas com o mesmo problema, entrei no site www.registro.br e pesquise o whois do sendep.com.br e vi que estava coliado com lanceagora.com.br. Como tenho acesso ao banco de dados do natt.com.br (Prestadora de serviços de consulta para compras) resolvi fazer uma pesquisa com o nome do mesmo, e vi que era um caso de estelionatários pois o mesmo tinha 6 CPF diferente e nenhum estava legalizado pela receita federal. Cuidado gente eles são golpistas. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Socket Server
Amigos, desculpe pela demora. Durante o dia de hoje farei isto. 2008/5/28 Onjahyr [EMAIL PROTECTED]: colega, poderia disponibilizar um exemplo para todos? pode colocar o arquivo zipado na lista de arquivos do grupo, assim, quem quiser faz o download :) blz. Em 28/05/08, Guionardo Furlan[EMAIL PROTECTED] guionardo%40gmail.com escreveu: Opa, também gostaria de exemplos do uso de threads com serversocket. 2008/5/28 José Mário Silva Guedes [EMAIL PROTECTED]jmarioguedes%40gmail.com : Luciano, sugiro, assim como os colegas, o uso de Threads. Se precisar postos alguns exemplos de como faço por aqui. Muitos dos problemas que eu tinha com soquete se resolveram quando passei a tratar cada conexão em threads. [As partes desta mensagem que não continham texto foram removidas] -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como utilizar o BackTrace ?
Olá pessoal, bom dia, O João Morais comentou nesse tópico sobre o backtrace. Para mim é um conceito novo, mas procurei ele e não consegui localizar na IDE do Delphi. Alguém pode resumir para que serve, onde está e como utilizar ele ? Alguém pode me auxiliar nessa ferramenta ? Obrigado pela atenção de todos. Flávio. Joao Morais [EMAIL PROTECTED] escreveu: Flavio wrote: Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa? Joao Morais - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi via wine
Olá! A realidade é que a aplicação já existe e até a alguns meses atras era feita com delphi7+clx, em linux (compilada com Kilyx) rodava normalmente, mas como o suporte a kylix parou, decidimos converter tudo para vcl e migrar para o delphi 2006. Agora estamos procurando um meio de rodar o mesmo aplicativo através do wine, e como eu disse anteriormente, o executavel até que abre, mas não carrega o arquivo fbclient.dll. - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 29, 2008 12:27 AM Subject: Re: [delphi-br] Delphi via wine não sei em que parte esta este aplicativo, pronto, no meio, no inicio... se tiver no inicio, sugiro comprarem o IBDAC ou UniDAC da CoreLab www.crlab.com porque se ele for tão bom quando o MyDAC que uso, vc pode esquercer essas DLLs ai. baixa o trial e faz uns testes, creio q vai gostar Quanto ao WINE, tem receita de bolo ? to pensando em usar no SUSE 10.3 ou em um linux bem leve como o Insigne. Nunca usei o Debian, ja vi o Mandrake (nao gostei), uso o REDHAT9 (pena q parou no tempo otimo linux), dei uma olha no FEDORA (mas nao gostei muito achei o SUSE melhor), e estou pulando pro OpenSUSE 10.3 mas parece meio pesadinho.. ainda não tive chance de testa-lo totalmente.. []s e boa sorte Luiz Escobar - Original Message - From: Renato Bermudo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 28, 2008 5:26 PM Subject: Re: [delphi-br] Delphi via wine Olá! Estamos fazendo alguns testes com o wine (no debian), utilizamos o delphi2006+dbexpress+firebird. o executável até abre, mas não consegue carregar o fbclient.dll. Hoje colocamos o executável em uma pasta compartilhada no servidor juntamente com os arquivos dbxadapter30.dll, dbxint30.dll e fbclient.dll, com isso não precisa instalar nada na estação, somente crio um atalho do executável no servidor. Mas no wine ele não carrega o danado do fbclient.dll, alguém tem alguma dica pra isso? - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 28, 2008 4:53 PM Subject: Res: [delphi-br] Delphi via wine Grato a quem respondeu. Eh bom saber que que super Linux roda ate aquilo que não foi feito para ele e quase sem problemas. Estamos na hora de renovar as licenças com a M$, e se os teste aqui usando o wine der certo, será pouco provável que as licenças serão renovadas. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 3140 (20080528) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 3142 (20080528) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Como utilizar o BackTrace ?
Na verdade não é um conceito mas uma feature que a IDE provê. Acredito que o que o joão ta se referindo é o Call stack do Delphi. CTRL+ALT+S. Muito útil na resolução de problemas. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Flavio Enviada em: quinta-feira, 29 de maio de 2008 08:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como utilizar o BackTrace ? Olá pessoal, bom dia, O João Morais comentou nesse tópico sobre o backtrace. Para mim é um conceito novo, mas procurei ele e não consegui localizar na IDE do Delphi. Alguém pode resumir para que serve, onde está e como utilizar ele ? Alguém pode me auxiliar nessa ferramenta ? Obrigado pela atenção de todos. Flávio. Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br escreveu: Flavio wrote: Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa? Joao Morais - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Como utilizar o BackTrace ?
Davi Eduardo Borges Wall wrote: Na verdade não é um conceito mas uma feature que a IDE provê. Pra ser bem preciso, é uma feature do debugger. Acredito que o que o joão ta se referindo é o Call stack Isto. Joao Morais Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br escreveu: Flavio wrote: Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa?
RES: [delphi-br] Off - Golpes
Só se andaram cortando esse cadastro ultimamente para Pessoa Física, pois tenho a conta com eles como Pessoas Física (CPF) já a um bom tempo e continuo utilizando-a. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: quinta-feira, 29 de maio de 2008 08:36 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off - Golpes Mas ele não aceita CPF, somente empresa, ou estou errado? Tentei um tempo atrás, mas não deixaram.. :o( []s 2008/5/29 Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br : Para quem quiser emitir boleto ou aceitar pagtos via cartão de credito como pessoa física, recomendo o PagSeguro do UOL. Muito bom, funciona direitinho (utilizo a muito tempo) e como tem o UOL por traz que a principio é uma empresa grande e séria não tem esse tipo de problemas. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Hudson Dias Enviada em: quarta-feira, 28 de maio de 2008 19:43 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Off - Golpes Caros colegas, Quero alertar a todos que fazem trabalhos como free-lance para não ser vitima do mesmo golpe que fui. Há uns 6 meses entrei no site www.sendep.com.br e fiz o meu cadastro para imprimir boletos de pagamento aos meus clientes, ate o mês passado estava indo tudo bem, quando tentei fazer um saque de 200,00 e não consegui, tentei também de todas as formas entra em contato com os agentes, não tive resultados. Então comecei a pesquisar e fui no google digitei sendep e percebi que não era o único a ser lesado, tinha varias pessoas com o mesmo problema, entrei no site www.registro.br e pesquise o whois do sendep.com.br e vi que estava coliado com lanceagora.com.br. Como tenho acesso ao banco de dados do natt.com.br (Prestadora de serviços de consulta para compras) resolvi fazer uma pesquisa com o nome do mesmo, e vi que era um caso de estelionatários pois o mesmo tinha 6 CPF diferente e nenhum estava legalizado pela receita federal. Cuidado gente eles são golpistas. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Socket Server
Eu tenho uma rotina, que faz consultas via arquivo texto: o cliente mandar
um arquivo txt com as requisições, o servidor gera o retorno em arquivo
texto e devolve para o cliente. O servidor fica num windows 2003, e os
clientes em pdvs numa rede local, sendo q uma determinada loja utiliza velox
para consultar na matriz.
Utilizo delphi7+socket server.
Parte Cliente:
Tenho um timer que fica verificando se existe tal aquivo:
procedure TFrmConsulta.RxTimerEvent1Timer(Sender: TObject);
begin
APPLICATION.ProcessMessages;
Narq1:=dd1.text+'CLIENTE.CMD';
Narq3:=dd1.text+'CLIENTE.STS';
jvled1.ColorOn:=clred;
TRY
if (fileexists(narq1)) then begin
IF CLIENTSOCKET.Active=FALSE THEN CLIENTSOCKET.Open;
IF CLIENTSOCKET.Active THEN BEGIN
JVLED1.ColorON:=CLgreen;
rx1.Deactivate;
ret:= TStringList.create;
ret.LoadFromFile(narq1);
Log('Enviando Arquivo: '+EDTIP.TEXT+':'+SEDTPROTA.text+' - Pdv
'+edit13.text+' Inicio:'+DateTimeToStr(Now));
log(ret.Text);
CLIENTSOCKET.Socket.SendText(BuscaTroca(RET.CommaText,'',''));
Log('Fim Comunicacao : '+EDTIP.TEXT+':'+SEDTPROTA.text+' - Pdv
'+edit13.text+' Inicio:'+DateTimeToStr(Now));
Log('--'
);
deletefile(narq1);
rx1.Activate;
END;
end;
EXCEPT
clientsocket.Close;
JVLED1.ColorON:=CLRED;
rx1.Activate;
END;
end;
no client socket no evento onread
procedure TFrmConsulta.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Txt:string;
Arquivo:Textfile;
Nomedolog:string;
a:integer;
stemp:string;
txt2: TStringList;
iLen: Integer;
Bfr: Pointer;
begin
rx1.Deactivate;
if clientsocket.Active then begin
FStream := TFileStream.Create(narq8, fmCreate or fmShareDenyWrite);
iLen := Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
Socket.ReceiveBuf(Bfr^, iLen);
FStream.Write(Bfr^, iLen);
finally
FreeMem(Bfr);
end;
Log('Recebendo Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));
if fileexists(narq3) then deletefile(narq3);
if fileexists(narq8) then deletefile(narq8);
Log('Recebendo Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));
Log('Fim Comunicacao : '+EDTIP.TEXT+':'+SEDTPROTA.text+' - Pdv
'+edit13.text+' Inicio:'+DateTimeToStr(Now));
ret.SaveToFile(narq3);
Log('--'
);
end;
rx1.Activate;
end;
no servidor utilize o seguinte:
no evento on read do socketserver
var
t: TStringList;
Arq:string;
TEXTO:STRING;
buff:string;
stemp:string;
begin
TEXTO:=SOCKET.ReceiveText;
t := TStringList.create;
sBreakApart(socket.remoteaddress, '.', t);
Pdv:=STRZERO(t.Strings[3],3);
arq:=DD2.TEXT+'PDV'+STRZERO(t.Strings[3],3)+'\';
if not DirectoryExists(ARQ) then CreateDir(ARQ);
if fileexists(ARQ+'CLIENTE.CMD') then deletefile(ARQ+'CLIENTE.CMD');
if fileexists(ARQ+'CLIENTE.STS') then deletefile(ARQ+'CLIENTE.STS');
if fileexists(ARQ+'FLUXO.CMD') then deletefile(ARQ+'FLUXO.CMD');
if fileexists(ARQ+'FLUXO.STS') then deletefile(ARQ+'FLUXO.STS');
Log('Recebendo Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));
t.clear;
sBreakApart(texto, ',', t);
IF CHECKBOX1.Checked THEN t.SaveToFile(ARQ+'CLIENTE.CMD');
IF CHECKBOX2.Checked THEN t.SaveToFile(ARQ+'FLUXO.CMD');
t.clear;
Log('Finalizando -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));
IF CHECKBOX1.Checked THEN pesquisadbf;
IF CHECKBOX2.Checked THEN PESQUISAFLUXO;
IF CHECKBOX1.CHECKED THEN DELETEFILE(ARQ+'CLIENTE.CMD');
IF CHECKBOX2.CHECKED THEN DELETEFILE(ARQ+'FLUXO.CMD');
IF (FILEEXISTS(NARQ3)) OR (FILEEXISTS(NARQ8)) THEN BEGIN
Log('Enviando Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));
T.CLEAR;
T.DelimitedText:='';
IF CHECKBOX1.Checked THEN
t.LoadFromFile(narq3);
IF CHECKBOX2.Checked THEN
t.LoadFromFile(narq8);
socket.SendText(BuscaTroca(t.CommaText,'',''));
t.Destroy;
IF CHECKBOX1.Checked THEN
DELETEFILE(ARQ+'CLIENTE.sts');
IF CHECKBOX2.Checked THEN
DELETEFILE(ARQ+'FLUXO.sts');
END;
Veja se te ajuda.
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Socket Server
O socket server já faz isso em uma thread _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi Eduardo Borges Wall Enviada em: quarta-feira, 28 de maio de 2008 10:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Socket Server Se você não utilizar threads, quando uma requisição estiver sendo processada, as outras ficaram esperando e provavelmente irão cair por time out (dependendo do tamanho do problema) O ideal seria sempre criar 1 thread por conexão. []'s De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Davi Eduardo Borges Wall Enviada em: quarta-feira, 28 de maio de 2008 10:22 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Re: Socket Server Dica: faça threads para cada conexão. De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de lucaoliveira7 Enviada em: quarta-feira, 28 de maio de 2008 10:16 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: Socket Server José Mário, Eu não estou usando threads. Não sei se deveria usar. 95% da lógica está no evento OnClientRead do Serversocket. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [SPAM][delphi-br] Copiar os Registros de um Dataset para Outro
eu fiz isso (como descrevi abaixo). mas o problema é o seguinte: eu preciso que os dados do ClientDataset2 se acumulem (pq na verdade eu tenho q passar os dados do clientdataset1 + clientdataset3 + clientdataset4 para o clientdataset2). Atualmente tenho q copiar registro a registro d cada um deles!! e isso fica mto lento obrigado - Original Message - From: Luciano Angelini - uol To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 28, 2008 2:08 PM Subject: Re: [SPAM][delphi-br] Copiar os Registros de um Dataset para Outro Boa Tarde Rafael A coisa é bem simples ClientDataSet2.Data := ClientDataSet1.data ; Espero ter ajudado .. Luciano Angelini Prefeitura de Lupionópolis-Paraná Rafael Marques escreveu: bom dia!! alguem sabe se tem alguma rotina q copie todos os registros d um dataset para outro!??! (eu vi aq uma pergunta dessa ha algum tempo e n vi resposta e tb n achei no google!) atualmente eu rodo uma tabela dando insert na outra, mas essa tab d origem tem geralmente mais d 10.000 registros e por isso fica mto lento!! eu pensei em usar a linha ClientDataset1.Data := ClientDataset2.Data, mas no meu caso n funcionaria pq eu preciso q acumule os registros no clientdataset2 (eu faço diversas pesquisas no 1 e preciso q o resultado d cada uma vá acumulando no 2). mto obrigado a todos Rafael [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 28/05/2008 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TApplicationEvents.OnException : como obter a origem do erro
Onjahyr wrote: Esse tópico achei interessante! Bruno, vc poderia citar um exemplo simples (...é bem simples) utilizando a variável Exception? A sintaxe é assim: try // bloco protegido except on E: ClasseException do begin // tratamento end; end; ClasseException é a classe de erro a partir da qual você quer capturar. Se usar Exception, irá pegar todas as exceções que forem geradas. Se usar EConvertError, vai pegar apenas exceções de conversão de tipo. E assim por diante. E, que está declarado logo em frente a classe, será uma variável que apontará para o objeto da exceção. Segure o Ctrl e pressione sobre a ClasseException para ver a declaração desta classe. Tudo o que está ali você pode ler através desta variável E, de dentro da área tratamento. Joao Morais Em 28/05/08, Ricardo Lima[EMAIL PROTECTED] escreveu: Bruno é possível pegar a unit e linha em que o erro ocorreu? Bruno Lichot escreveu: Através das variáveis de ambiente do próprio objeto application você consegue fotografar sua aplicação no momento da exceção, é bem simples. A variável Exception também te fornece várias informações importantes sobre o erro. Abs BL
Re: [delphi-br] RDPrint3.0
Valeu Alexandre, mas continua o mesmo erro, eu vou postar aqui a msg de erro q
ele da ok?
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of
address '. Process stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Alexandre
Sent: Wednesday, May 28, 2008 5:54 PM
To: delphi-br@yahoogrupos.com.br
Subject: RES: [delphi-br] RDPrint3.0
Amigão,
Tenta colocar o DtaModulo.RDPrint1.Abrir depois do DtaModulo.qryPadrao.Open;
Ou melhor, depois do First; E o Preview := true e o paginazebrada := true
antes do RDprint1.Abrir.
Saudações.
Alexandre
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ioney Hotmail
Enviada em: quarta-feira, 28 de maio de 2008 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco
de Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente
ai que o bicho ta pegando, estou usando o componente RDPrint e nao to
conseguindo fazer com que meu relatorio seja impresso...o codigo eh esse
deem uma olhadinha e vejam se encontram algum erro ok? aguardo retorno
desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject); var vTexto,
vApagaCaracter : String; begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' +
IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA
DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').a
sstring, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:=
'0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
__ NOD32 3137 (20080527) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RDPrint3.0
Rubem,
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of
address '. Process stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Rubem Nascimento da Rocha
Sent: Wednesday, May 28, 2008 5:56 PM
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] RDPrint3.0
Sim, meu caro! Posta o código e espera que a gente ache o erro pra ti? Nao
quer mais nada, né?
Qual é o erro que tá dando? Só o código num ajuda! Qual é esse erro/exceção que
tu tá tendo?
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 28 May 2008 16:55:53 -0300
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco de
Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente ai
que o bicho ta pegando, estou usando o componente RDPrint e nao to conseguindo
fazer com que meu relatorio seja impresso...o codigo eh esse deem uma olhadinha
e vejam se encontram algum erro ok? aguardo retorno desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' + IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RDPrint3.0
Qual o erro que dá... o que acontece ?? Não aparece nd na tela ??
From: Ioney Hotmail
Sent: Wednesday, May 28, 2008 4:55 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco de
Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente ai
que o bicho ta pegando, estou usando o componente RDPrint e nao to conseguindo
fazer com que meu relatorio seja impresso...o codigo eh esse deem uma olhadinha
e vejam se encontram algum erro ok? aguardo retorno desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' + IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3143 (20080529) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi via wine
Tenta assim, Copia o fbclient.dll paga gds32.dll talves resolva seu problema. ate mais Jancarlos P. Martins DEFENCE INFORMATICA 2008/5/28 Renato Bermudo [EMAIL PROTECTED]: Olá! Estamos fazendo alguns testes com o wine (no debian), utilizamos o delphi2006+dbexpress+firebird. o executável até abre, mas não consegue carregar o fbclient.dll. Hoje colocamos o executável em uma pasta compartilhada no servidor juntamente com os arquivos dbxadapter30.dll, dbxint30.dll e fbclient.dll, com isso não precisa instalar nada na estação, somente crio um atalho do executável no servidor. Mas no wine ele não carrega o danado do fbclient.dll, alguém tem alguma dica pra isso? - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, May 28, 2008 4:53 PM Subject: Res: [delphi-br] Delphi via wine Grato a quem respondeu. Eh bom saber que que super Linux roda ate aquilo que não foi feito para ele e quase sem problemas. Estamos na hora de renovar as licenças com a M$, e se os teste aqui usando o wine der certo, será pouco provável que as licenças serão renovadas. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] evaldoavelar%40yahoo.com.br Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 3140 (20080528) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TSmdbGrid - Como Agrupar, fazer Mestre/Detalhe
Andei olhando o componente TSMDBGrid http://www.scalabium.com/smdbgrid.htm mas não consegui fazer agrupamento de registros(Mestre/Detalhe). Alguem sabe em que propriedades devo mecher pra conseguir isso? Acredito que possa ser na propriedade Expression da propriedade Groupings do componente TSmdbGrid, mas não sei como usa-la. Agradeço a quem possa prestar um pouco do seu tempo para esclarecer a minha dúvida. Obrigado a todos. Cássio Noronha.
RE: [SPAM][delphi-br] Copiar os Registros de um Dataset para Outro
Já tentou o método AppendData() do ClientDataSet? Informe-se a respeito! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 29 May 2008 09:23:40 -0300 Subject: Re: [SPAM][delphi-br] Copiar os Registros de um Dataset para Outro eu fiz isso (como descrevi abaixo). mas o problema é o seguinte: eu preciso que os dados do ClientDataset2 se acumulem (pq na verdade eu tenho q passar os dados do clientdataset1 + clientdataset3 + clientdataset4 para o clientdataset2). Atualmente tenho q copiar registro a registro d cada um deles!! e isso fica mto lento obrigado - Original Message - From: Luciano Angelini - uol To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 28, 2008 2:08 PM Subject: Re: [SPAM][delphi-br] Copiar os Registros de um Dataset para Outro Boa Tarde Rafael A coisa é bem simples ClientDataSet2.Data := ClientDataSet1.data ; Espero ter ajudado .. Luciano Angelini Prefeitura de Lupionópolis-Paraná Rafael Marques escreveu: bom dia!! alguem sabe se tem alguma rotina q copie todos os registros d um dataset para outro!??! (eu vi aq uma pergunta dessa ha algum tempo e n vi resposta e tb n achei no google!) atualmente eu rodo uma tabela dando insert na outra, mas essa tab d origem tem geralmente mais d 10.000 registros e por isso fica mto lento!! eu pensei em usar a linha ClientDataset1.Data := ClientDataset2.Data, mas no meu caso n funcionaria pq eu preciso q acumule os registros no clientdataset2 (eu faço diversas pesquisas no 1 e preciso q o resultado d cada uma vá acumulando no 2). mto obrigado a todos Rafael [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 28/05/2008 [As partes desta mensagem que não continham texto foram removidas] _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] RDPrint3.0
Sugiro que vc abra o demo do RDPrint compile e execute pra ver se vai ter
algum problema.
o demo dele é bem detalhado.
outro detalhe, tira o componente Rdprint1 de dentro do DataModule e faz um
teste.
2008/5/29 Ioney Hotmail [EMAIL PROTECTED]:
Valeu Alexandre, mas continua o mesmo erro, eu vou postar aqui a msg de
erro q ele da ok?
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of
address '. Process stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Alexandre
Sent: Wednesday, May 28, 2008 5:54 PM
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Subject: RES: [delphi-br] RDPrint3.0
Amigão,
Tenta colocar o DtaModulo.RDPrint1.Abrir depois do
DtaModulo.qryPadrao.Open;
Ou melhor, depois do First; E o Preview := true e o paginazebrada := true
antes do RDprint1.Abrir.
Saudações.
Alexandre
-Mensagem original-
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Ioney Hotmail
Enviada em: quarta-feira, 28 de maio de 2008 16:56
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco
de Dados Interbase, pois bem ja estou na parte de relatorios e eh
justamente
ai que o bicho ta pegando, estou usando o componente RDPrint e nao to
conseguindo fazer com que meu relatorio seja impresso...o codigo eh esse
deem uma olhadinha e vejam se encontram algum erro ok? aguardo retorno
desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject); var vTexto,
vApagaCaracter : String; begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' +
IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA
DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').a
sstring, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:=
'0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
__ NOD32 3137 (20080527) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] RDPrint3.0
Bom,
Siga o conselho do outro colega, pegue os exemplos e de uma olhada. Outra
coisa, vc tá rodando ele a partir do Datamodule, nunca fiz isso, tenta rodar
ele LOCAL mesmo (no formulário do relatório) e veja se resolve. Manda o
pedaco da rotina modificada pra ver como ficou..
Qualquer coisa posta aí.
Alexandre
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ioney Hotmail
Enviada em: quinta-feira, 29 de maio de 2008 08:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] RDPrint3.0
Valeu Alexandre, mas continua o mesmo erro, eu vou postar aqui a msg de erro
q ele da ok?
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of address '. Process
stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Alexandre
Sent: Wednesday, May 28, 2008 5:54 PM
To: delphi-br@yahoogrupos.com.br
Subject: RES: [delphi-br] RDPrint3.0
Amigão,
Tenta colocar o DtaModulo.RDPrint1.Abrir depois do DtaModulo.qryPadrao.Open;
Ou melhor, depois do First; E o Preview := true e o paginazebrada := true
antes do RDprint1.Abrir.
Saudações.
Alexandre
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ioney Hotmail Enviada em: quarta-feira, 28 de maio de 2008 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco
de Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente
ai que o bicho ta pegando, estou usando o componente RDPrint e nao to
conseguindo fazer com que meu relatorio seja impresso...o codigo eh esse
deem uma olhadinha e vejam se encontram algum erro ok? aguardo retorno
desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject); var vTexto,
vApagaCaracter : String; begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir; vPagina := 1; vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' +
IntToStr(yCodCliente); vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex =
0,'Conta','descricao'); DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open; DtaModulo.qryPadrao.Last; vQteReg :=
DtaModulo.qryPadrao.RecordCount; DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA
DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]); end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').a
sstring, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next; end; vTexto := '-- Registros:
'+VarToStr(vQteReg)+' '; vTexto := vTexto +
zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True; DtaModulo.RDprint1.Fechar;
zProgresso02; DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
__ NOD32 3137 (20080527) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] RDPrint3.0
O Erro sugere q vc esta tentando acessar algo que ainda não foi
criado quando faço os meus relatorio faço assim...
{ Selecion os dadaos}
{ Defino Linha Inicial}
Linha:= 1;
{ Abro o relatrorio}^
RDP.abrir;
While x:=0 to recordCount - 1 do
begin
Impf ( linha , colunha, campo , ´[] );
end;
{Seup do RDprint}
Aki eu arrumo as configurações. dele;;;
RDP.Setup;
RDP.Fechar;
Tente nesta ordem...
Wesley
From: Ioney Hotmail
Sent: Thursday, May 29, 2008 8:29 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] RDPrint3.0
Rubem,
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of
address '. Process stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Rubem Nascimento da Rocha
Sent: Wednesday, May 28, 2008 5:56 PM
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] RDPrint3.0
Sim, meu caro! Posta o código e espera que a gente ache o erro pra ti? Nao
quer mais nada, né?
Qual é o erro que tá dando? Só o código num ajuda! Qual é esse erro/exceção que
tu tá tendo?
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 28 May 2008 16:55:53 -0300
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco de
Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente ai
que o bicho ta pegando, estou usando o componente RDPrint e nao to conseguindo
fazer com que meu relatorio seja impresso...o codigo eh esse deem uma olhadinha
e vejam se encontram algum erro ok? aguardo retorno desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' + IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3143 (20080529) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2007 com QuickReport: Metafile is not valid
Procure nos seus DFM's por essa propriedade e retire. Vc pode usar o Grep Search do GExperts pra procurar textos em Forms. Funcionou perfeitamente pra mim. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/28 Cristiane Campanholo [EMAIL PROTECTED]: Estou compilando minha aplicação com Delphi 2007. Para relatórios, utilizo o Quick Report, banco de dados Paradox. Quando vou visualizar o relatório, pode ser o menor relatório de todos, com poucos campos (ex. cadastro de cidades), apresenta a mensagem Metafile is not valid. Note que apenas compilei a aplicação, no Delphi anterior o relatório funcionava bem. O que pode ser? Cristiane Campanholo [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Linha da Exceção ?
Pessoal, Não acredito que vcs não conhecem o ExceptionDialog da Jedi. É realmente a Oitava Maravilha do mundo. Ele não só diz em que linha ocorreu o erro, mas mostra tbm o Call Stack todo, com que proceure chamou quem, aonde, etc, além de das DLL's que estavam em memória no momento, gera um arquivo texto e o exception ainda manda por mail pra vc, se o usuário quiser. Maravilha mesmo. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/28 Joao Morais [EMAIL PROTECTED]: Flavio wrote: Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa? Joao Morais -- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Contas a Pagar / Receber
Sempre em meus projetos, montei o modulo financeiro com base no estudo de caso feito com o cliente, com base em suas necessidades.Porem, estou em um projeto mais abrangente e, será utilizado em varios. Alguem tem alguma indicação de livro, site, link etc ... principalmente sobre contas pagar/receber pra criar um modelo generico ? Pode ser do basico ao avançado, pois ae o ajustarei com base nas experiencias que tive. Obrigado _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] TApplicationEvents.OnException : como obter a origem do erro
Tem algumas matérias e exemplos publicados sobre isso (Google,
activedelphi.com.br, clubedelphi.com.br, dn.codegear.com/br), e muita coisa no
help também. Em todo caso segue abaixo um código que pode ser usado no evento
onexception do aaplicationevents
ShowMessage('Mensagem de Erro' + E.Message);//Exemplo de trabalhar com mensagem
de erro
{Application.ExeName;
Application.MainForm;
Application.ActiveFormHandle;
//algumas informações que podem ser obtidas do application}
//Sugestao de tratamento de erro de campo não preenchido e valores invalidos
if Pos(UpperCase('must have a value'), UpperCase(E.Message)) 0 then
begin
Pos1:=Pos(, E.Message);
mensagem:=E.Message;
Delete(mensagem, Pos1, 1);
Pos2:=Pos(, mensagem);
mensagem:=copy(E.Message, Pos1 + 1, Pos2 - Pos1);
mensagem := 'É obrigatório o preenchimento do campo '+ mensagem + '.';
showmessage(mensagem);
end
if Pos(UpperCase('is not a valid float'), UpperCase(E.Message)) 0 then
begin
Pos1 :=Pos(, E.Message);
mensagem :=E.Message;
Delete(mensagem, Pos1, 1);
Pos2 := Pos(, mensagem);
mensagem :=copy(E.Message, Pos1 + 1, Pos2 - Pos1);
mensagem := 'O valor '+ mensagem + ' não é válido.';
showmessage(mensagem);
end
else if Pos(UpperCase('field value required'), UpperCase(E.Message)) 0 then
begin
Pos1 :=Pos('column ', E.Message) + 7;
Pos2 :=Pos(',', E.Message);
mensagem :=copy(E.Message, Pos1, Pos2 - Pos1);
mensagem := 'Campo ' + mensagem + ' deve ser preenchido.';
showmessage(mensagem);
end
No meu link de downloads gratuitos praticamente todos os exemplos tem o objeto
Application events com alguns erros tratados deforma simples mas tem bastante
mensagens capturadas já.
HTTP://cc.codegear.com/author/795118
Abraços
BL
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
Onjahyr
Sent: quarta-feira, 28 de maio de 2008 23:27
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] TApplicationEvents.OnException : como obter a origem
do erro
Esse tópico achei interessante!
Bruno, vc poderia citar um exemplo simples (...é bem simples)
utilizando a variável Exception?
Blz.
Em 28/05/08, Ricardo Lima[EMAIL PROTECTED]mailto:rlmariz%40gmail.com
escreveu:
Bruno é possível pegar a unit e linha em que o erro ocorreu?
Bruno Lichot escreveu:
Através das variáveis de ambiente do próprio objeto application você
consegue fotografar sua aplicação no momento da exceção, é bem
simples. A variável Exception também te fornece várias informações
importantes sobre o erro.
Abs
BL
From: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Fellipe Henrique
Sent: terça-feira, 27 de maio de 2008 09:26
To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Subject: Re: [delphi-br] TApplicationEvents.OnException : como obter a
origem do erro
Tem o MadExcept que é gratuito.. ótimo também.
[]s
2008/5/27 Consultores Software [EMAIL
PROTECTED]mailto:consultoressoftware%40gmail.com
mailto:consultoressoftware%40gmail.commailto:consultoressoftware%40gmail.com:
Eu estive vendo sobre o EurekaLog. Me parece ser uma excelente
ferramenta,
mas..é pago :-(
2008/5/27 Gerson Machado [EMAIL
PROTECTED]mailto:gersonamach%40yahoo.com.br
mailto:gersonamach%40yahoo.com.brmailto:gersonamach%40yahoo.com.brgersonamach%40yahoo.com.br
:
Eu particularmente uso o EurekaLog.v6.0.14, rapido, fácil, captura a
tela com o erro, pega todos os status de registradores, memória,
variáveis e
me envia por email; muito bom.
Gerson
PS. Gera log de erro para analise posterior.
Consultores Software [EMAIL
PROTECTED]mailto:consultoressoftware%40gmail.com
mailto:consultoressoftware%40gmail.commailto:consultoressoftware%40gmail.comconsultoressoftware%40gmail.com
consultoressoftware%40gmail.com
escreveu:
Bom dia pessoal !
Tenho na aplicação, um componente TApplicationEvents, onde uso o
evento
OnException para capturar quaisquer Exceptions do aplicativo.
Preciso saber se é possível obter a origem da Exception ( unit,
linha etc
)
Alguém sabe como ?
Muito obrigado, desde já
[As partes desta mensagem que não continham texto foram removidas]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]mailto:fellipeh%40gmail.com
mailto:fellipeh%40gmail.commailto:fellipeh%40gmail.com
Sou a favor da lei
Re: [delphi-br] Linha da Exceção ?
Realmente desconheco esse tal de ExceptionDialog da Jedi. Qual versão do Jedi possui ele e qual é a paleta de compontentes q contem ele ? Grato. Flávio. sergio cavalcante [EMAIL PROTECTED] escreveu: Pessoal, Não acredito que vcs não conhecem o ExceptionDialog da Jedi. É realmente a Oitava Maravilha do mundo. Ele não só diz em que linha ocorreu o erro, mas mostra tbm o Call Stack todo, com que proceure chamou quem, aonde, etc, além de das DLL's que estavam em memória no momento, gera um arquivo texto e o exception ainda manda por mail pra vc, se o usuário quiser. Maravilha mesmo. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/28 Joao Morais [EMAIL PROTECTED]: Flavio wrote: Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa? Joao Morais -- [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPPIC] Programação Desktop Free em Linux
Olá pessoal, bom dia. Alguém poderia dar opinião sobre qual ferramenta/IDE/Linguagem usar para Programação Desktop Free em Linux? Podendo ser somente free ou free e opensource. Tipo, lázarus, kylix, QT. Pra quem quer começar nesse mundo, e quer programar pra desktop, o que seria mais viável e produtivo em programação com banco de dados? []s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ADO
Salve comunidade... Alguem ja criou aplicações utilizando conexões ADO/Firebird ou Mysql utilizando conexão remota ? To pesquisando isso para desenvolver um projeto. Quem tiver alguma dica será muito bem vinda. Obrigado a todos. Marcus Pavan
Re: [delphi-br] Linha da Exceção ?
Oi Flávio. Cara, fazem alguns anos que inseri o bichinho na minha aplicação, então não lembro exatamente o que deve ser feito. O que lembro, é que ele fica naquela pasta de dialogs, quando vc aperta File - New - Other - Forms no delphi. aí, vc tem que, no menu Project, clicar no ultimo item que diz Insert JCL Debug Data. Tem um exemplo em um dos Demos que deu pra sacar como fazer. SC 2008/5/29 Flavio [EMAIL PROTECTED]: Realmente desconheco esse tal de ExceptionDialog da Jedi. Qual versão do Jedi possui ele e qual é a paleta de compontentes q contem ele ? Grato. Flávio. sergio cavalcante [EMAIL PROTECTED] sroc1978%40gmail.com escreveu: Pessoal, Não acredito que vcs não conhecem o ExceptionDialog da Jedi. É realmente a Oitava Maravilha do mundo. Ele não só diz em que linha ocorreu o erro, mas mostra tbm o Call Stack todo, com que proceure chamou quem, aonde, etc, além de das DLL's que estavam em memória no momento, gera um arquivo texto e o exception ainda manda por mail pra vc, se o usuário quiser. Maravilha mesmo. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/28 Joao Morais [EMAIL PROTECTED] post%40joaomorais.com.br: Flavio wrote: Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa? Joao Morais -- [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICA] MessageBox() com Timer e Barra de Progresso
function MessageBoxTimer(const AMsg, ATitle: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; MSecs: Cardinal = 0;
ShowProgressBar: Boolean = true): integer;
var
lMsgDialog: TForm;
lTimerMethod: TNotifyEvent;
procedure UpdateProgressBar(Data: Pointer; Sender: TObject);
var
lForm: TForm;
lProgressBar: TProgressBar;
begin
if Sender is TTimer then
if TTimer(Sender).Owner is TForm then
begin
lForm := TForm(TTimer(Sender).Owner);
lProgressBar := TProgressBar(lForm.FindComponent('ProgressBar'));
if Assigned(lProgressBar) then
if lProgressBar.Position + 1 lProgressBar.Max then
lProgressBar.StepIt
else
lForm.ModalResult := mrCancel;
end;
end;
procedure TranslateCaptionButtons;
const
AButtonNames: array[TMsgDlgBtn] of string = (
'YES', 'NO', 'OK', 'CANCEL', 'ABORT', 'RETRY', 'IGNORE', 'ALL', 'NOTOALL',
'YESTOALL', 'HELP');
AButtonCaptions: array[TMsgDlgBtn] of string = (
'Sim', 'Não', 'Ok', 'Cancelar', 'Abortar', 'Retentar', 'Ignorar',
'Tudo', 'Não a Tudo', 'Sim a Tudo', 'Ajuda');
var
lBtnType: TMsgDlgBtn;
lButton: TButton;
begin
for lBtnType := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
begin
lButton := TButton(lMsgDialog.FindComponent(AButtonNames[lBtnType]));
if Assigned(lButton) then
lButton.Caption := AButtonCaptions[lBtnType];
end;
end;
begin
// Cria a caixa de diálogo
lMsgDialog := CreateMessageDialog(AMsg, DlgType, Buttons);
lMsgDialog.Caption := ATitle;
// Traduz botões existentes no diálogo
TranslateCaptionButtons;
// Checa se será necessário uma barra de progresso
if MSecs 0 then
begin
with TProgressBar.Create(lMsgDialog) do
begin
Name := 'ProgressBar';
Parent := lMsgDialog;
Align := alBottom;
Max := MSecs div 1000;
Min := 0;
Step := 1;
Position := 0;
Visible := ShowProgressBar;
end;
lMsgDialog.Height := lMsgDialog.Height + (Ord(ShowProgressBar) * 20);
with TTimer.Create(lMsgDialog) do
begin
Name := 'MsgTimer';
Interval := 1000;
end;
// Cria o timer, usando uma rotina 'solta' (stand-alone, desvinculada de
// uma instância de objeto) para fazer o trabalho de atualização da barra
// de progressão (caso exista) e também o tempo que será contado para
// fechar a janela
TMethod(lTimerMethod).Code := Addr(UpdateProgressBar);
TMethod(lTimerMethod).Data := lMsgDialog.FindComponent('MsgTimer');
TTimer(lMsgDialog.FindComponent('MsgTimer')).OnTimer := lTimerMethod;
end;
try
// Chama a caixa de diálogo e verifica o seu retorno
Result := lMsgDialog.ShowModal;
finally
lMsgDialog.Free;
end;
end;
_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[delphi-br]
Lista... Como faço para saber se existe algum PC pingando meu PC através do Delphi... ??? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ADO
Sinceramente, eu não usaria componentes ADO para conexão com Firebird ou MySql use DBExpress, IBO ou Zeos. O ADO vai bem com SQL Server. Boa sorte. Gerson Marcus Vinicius Pavan [EMAIL PROTECTED] escreveu: Salve comunidade... Alguem ja criou aplicações utilizando conexões ADO/Firebird ou Mysql utilizando conexão remota ? To pesquisando isso para desenvolver um projeto. Quem tiver alguma dica será muito bem vinda. Obrigado a todos. Marcus Pavan - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPPIC] Programação Desktop Free em Linux
Se estiver acostumado a Delphi, vá de Lazarus... muito bom... []s 2008/5/29 Luciano Topolniak [EMAIL PROTECTED]: Olá pessoal, bom dia. Alguém poderia dar opinião sobre qual ferramenta/IDE/Linguagem usar para Programação Desktop Free em Linux? Podendo ser somente free ou free e opensource. Tipo, lázarus, kylix, QT. Pra quem quer começar nesse mundo, e quer programar pra desktop, o que seria mais viável e produtivo em programação com banco de dados? []'s Topolniak. [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TXT para variavel
GAlera boa tarde Eu tenho um arquivo TXT com alguns codigos exemplo: 01,03,120,301,359,623,700 Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string. Teria como fazer isso ?? Abraços, [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QRLabel - Posição
Estou tentando ver a posição do QRLabel no QuickRep e não estou conseguindo, estou fazendo assim : QRLabel1.Caption := ' ' + IntToStr(QRLabel1.Left) + ' ' + IntToStr(QRLabel1.Top) + ' '; percebi que o valor correto está em QRLabel1.Size.Left mas não estou conseguindo obter este valor como consigo na linha acima, estou fazendo uns testes e seria importante estes dados. Alguém saberia a sintaxe correta para aplicar no comando acima ? grato Stainle
[delphi-br] jeid no rad studio
alguem conseguiu instalar o jedi 3,33 no rad studio 2007? ele vai ate o final da instalacao diz q tem 5 erros e que nao pode concluir a instalacao. alguem pode me ajuda? vlw -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] jeid no rad studio
Cara, aqui instalou normal...inclusive no 6 e no 2007 ao mesmo tempo.. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/29 felipe govoni [EMAIL PROTECTED]: alguem conseguiu instalar o jedi 3,33 no rad studio 2007? ele vai ate o final da instalacao diz q tem 5 erros e que nao pode concluir a instalacao. alguem pode me ajuda? vlw -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TApplicationEvents.OnException : como obter a origem do erro
Senhores,
Dá pra saber muita informação (procedimento, unit, objeto, em qual
componente estava com foco, DLL's que estão sendo utilizadas, e muito mais)
através do JclDebug que faz parte do projeto JEDI.
link de exemplo:
http://programando.terapad.com/index.cfm?fa=contentNews.newsDetailsnewsID=9978from=listdirectoryId=2861
Abraços
Marcos Douglas
2008/5/29 Bruno Lichot [EMAIL PROTECTED]:
Tem algumas matérias e exemplos publicados sobre isso (Google,
activedelphi.com.br, clubedelphi.com.br, dn.codegear.com/br), e muita
coisa no help também. Em todo caso segue abaixo um código que pode ser usado
no evento onexception do aaplicationevents
ShowMessage('Mensagem de Erro' + E.Message);//Exemplo de trabalhar com
mensagem de erro
{Application.ExeName;
Application.MainForm;
Application.ActiveFormHandle;
//algumas informações que podem ser obtidas do application}
//Sugestao de tratamento de erro de campo não preenchido e valores
invalidos
if Pos(UpperCase('must have a value'), UpperCase(E.Message)) 0 then
begin
Pos1:=Pos(, E.Message);
mensagem:=E.Message;
Delete(mensagem, Pos1, 1);
Pos2:=Pos(, mensagem);
mensagem:=copy(E.Message, Pos1 + 1, Pos2 - Pos1);
mensagem := 'É obrigatório o preenchimento do campo '+ mensagem + '.';
showmessage(mensagem);
end
if Pos(UpperCase('is not a valid float'), UpperCase(E.Message)) 0 then
begin
Pos1 :=Pos(, E.Message);
mensagem :=E.Message;
Delete(mensagem, Pos1, 1);
Pos2 := Pos(, mensagem);
mensagem :=copy(E.Message, Pos1 + 1, Pos2 - Pos1);
mensagem := 'O valor '+ mensagem + ' não é válido.';
showmessage(mensagem);
end
else if Pos(UpperCase('field value required'), UpperCase(E.Message)) 0
then
begin
Pos1 :=Pos('column ', E.Message) + 7;
Pos2 :=Pos(',', E.Message);
mensagem :=copy(E.Message, Pos1, Pos2 - Pos1);
mensagem := 'Campo ' + mensagem + ' deve ser preenchido.';
showmessage(mensagem);
end
No meu link de downloads gratuitos praticamente todos os exemplos tem o
objeto Application events com alguns erros tratados deforma simples mas tem
bastante mensagens capturadas já.
HTTP://cc.codegear.com/author/795118
Abraços
BL
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On Behalf Of Onjahyr
Sent: quarta-feira, 28 de maio de 2008 23:27
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] TApplicationEvents.OnException : como obter a
origem do erro
Esse tópico achei interessante!
Bruno, vc poderia citar um exemplo simples (...é bem simples)
utilizando a variável Exception?
Blz.
Em 28/05/08, Ricardo Lima[EMAIL
PROTECTED]mailto:rlmariz%40gmail.comrlmariz%2540gmail.com
escreveu:
Bruno é possível pegar a unit e linha em que o erro ocorreu?
Bruno Lichot escreveu:
Através das variáveis de ambiente do próprio objeto application você
consegue fotografar sua aplicação no momento da exceção, é bem
simples. A variável Exception também te fornece várias informações
importantes sobre o erro.
Abs
BL
From: delphi-br@yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br]
On Behalf Of Fellipe Henrique
Sent: terça-feira, 27 de maio de 2008 09:26
To:
delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Subject: Re: [delphi-br] TApplicationEvents.OnException : como obter a
origem do erro
Tem o MadExcept que é gratuito.. ótimo também.
[]s
2008/5/27 Consultores Software [EMAIL PROTECTED]mailto:
consultoressoftware%40gmail.com consultoressoftware%2540gmail.com
mailto:consultoressoftware%40gmail.comconsultoressoftware%2540gmail.com
mailto:consultoressoftware%40gmail.comconsultoressoftware%2540gmail.com
:
Eu estive vendo sobre o EurekaLog. Me parece ser uma excelente
ferramenta,
mas..é pago :-(
2008/5/27 Gerson Machado [EMAIL PROTECTED]mailto:
gersonamach%40yahoo.com.br gersonamach%2540yahoo.com.br
mailto:gersonamach%40yahoo.com.br gersonamach%2540yahoo.com.br
mailto:gersonamach%40yahoo.com.br gersonamach%2540yahoo.com.br
gersonamach%40yahoo.com.br
:
Eu particularmente uso o EurekaLog.v6.0.14, rapido, fácil, captura a
tela com o erro, pega todos os status de registradores, memória,
variáveis e
me envia por email; muito bom.
Gerson
PS. Gera log de erro para analise posterior.
Consultores Software [EMAIL PROTECTED]mailto:
consultoressoftware%40gmail.com consultoressoftware%2540gmail.com
mailto:consultoressoftware%40gmail.comconsultoressoftware%2540gmail.com
[delphi-br] Fw: TXT para variavel
- Original Message - From: Filippe Maymone To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Tuesday, April 29, 2008 1:50 PM Subject: TXT para variavel GAlera boa tarde Eu tenho um arquivo TXT com alguns codigos exemplo: 01,03,120,301,359,623,700 Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string. Teria como fazer isso ?? Abraços, [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] VCL SKIN
OLá .. Instalei aki em casa o VCLSKIN, para como funciona pois nunca utilizei. E estou com akela versão DEMO, e vem no titulo do ssitema a mensagem de DEMO. Tem como retirar isso, alguem sabe ? OU alguma outra versão que seja free, ou alguma coisa parecida ?? Abraços, [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] VCL SKIN
OLá .. Instalei aki em casa o VCLSKIN, para como funciona pois nunca utilizei. E estou com akela versão DEMO, e vem no titulo do ssitema a mensagem de DEMO. Tem como retirar isso, alguem sabe ? OU alguma outra versão que seja free, ou alguma coisa parecida ?? Abraços, [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] jeid no rad studio
eu ja tinha instalado uma versao mais antiga do jedi no delphi 7 e funcionou legal mas no rad da essa mensagem de erro 2008/5/29 sergio cavalcante [EMAIL PROTECTED]: Cara, aqui instalou normal...inclusive no 6 e no 2007 ao mesmo tempo.. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/29 felipe govoni [EMAIL PROTECTED]govoni.felipe%40gmail.com : alguem conseguiu instalar o jedi 3,33 no rad studio 2007? ele vai ate o final da instalacao diz q tem 5 erros e que nao pode concluir a instalacao. alguem pode me ajuda? vlw -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Oferta de emprego: Anl. Prog. Delphi - SP
A Emphasys IT Solution, empresa que atua com desenvolvimento de software / sistemas e alocação de profissionais, seleciona profissionais no perfil abaixo para atuação em instituição de saúde localizada na região da VILA MARIANA: * Analista Programador Delphi IMPRESCINDÍVEL TER EXPERIÊNCIA de 2 anos no mínimo com programação em DELPHI e banco de dados ORACLE e no desenvolvimento de sistemas hospitalares. Contratação CLT + benefícios. PLANO DE CARREIRA. Interessados e dentro do perfil, ENVIAR CV COM PRETENSÃO SALARIAL. Cidade : São Paulo - SP Entrar em contato com Camila de Carvalho [EMAIL PROTECTED] com.br Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/
[delphi-br] [Off] Blog dos editores DevMedia
Pessoal, Estão lançados os novos blogs das revistas ClubeDelphi +PHP, .NET Magazine e WebMobile. A partir de agora os editores das respectivas revistas publicação conteúdo formal e informal nesses blogs periodicamente. Também é possível que comentem os posts publicados. Esperamos que apreciem. Os links são: ClubeDelphi +PHP http://clubedelphiphp.blogspot.com WebMobile http://webmobilemagazine.blogspot.com .NET Magazine http://dotnetmagazine.blogspot.com Os links podem ser acessados também das páginas da revista no site da DevMedia através do link: blog dos editores. Um forte abraço e até a próxima -- Adriano Santos --- Editor Técnico Revista ClubeDelphi e WebMobile http://www.delphitodelphi.blogspot.com http://www.adrianosantos.pro.br http://www.devmedia.com.br
Re: [delphi-br] jeid no rad studio
Qual mensagem? SC 2008/5/29 felipe govoni [EMAIL PROTECTED]: eu ja tinha instalado uma versao mais antiga do jedi no delphi 7 e funcionou legal mas no rad da essa mensagem de erro 2008/5/29 sergio cavalcante [EMAIL PROTECTED] sroc1978%40gmail.com: Cara, aqui instalou normal...inclusive no 6 e no 2007 ao mesmo tempo.. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/29 felipe govoni [EMAIL PROTECTED]govoni.felipe%40gmail.com govoni.felipe%40gmail.com : alguem conseguiu instalar o jedi 3,33 no rad studio 2007? ele vai ate o final da instalacao diz q tem 5 erros e que nao pode concluir a instalacao. alguem pode me ajuda? vlw -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] jeid no rad studio
instalation failed, see logs for details. so que no log nao consegui ver nada de util. 2008/5/29 sergio cavalcante [EMAIL PROTECTED]: Qual mensagem? SC 2008/5/29 felipe govoni [EMAIL PROTECTED]govoni.felipe%40gmail.com : eu ja tinha instalado uma versao mais antiga do jedi no delphi 7 e funcionou legal mas no rad da essa mensagem de erro 2008/5/29 sergio cavalcante [EMAIL PROTECTED] sroc1978%40gmail.comsroc1978% 40gmail.com: Cara, aqui instalou normal...inclusive no 6 e no 2007 ao mesmo tempo.. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/29 felipe govoni [EMAIL PROTECTED]govoni.felipe%40gmail.com govoni.felipe%40gmail.com govoni.felipe%40gmail.com : alguem conseguiu instalar o jedi 3,33 no rad studio 2007? ele vai ate o final da instalacao diz q tem 5 erros e que nao pode concluir a instalacao. alguem pode me ajuda? vlw -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] jeid no rad studio
Esse erro pode ser qualquer coisa. Dá um Copy nas linhas do log que deram erro. SC 2008/5/29 felipe govoni [EMAIL PROTECTED]: instalation failed, see logs for details. so que no log nao consegui ver nada de util. 2008/5/29 sergio cavalcante [EMAIL PROTECTED] sroc1978%40gmail.com: Qual mensagem? SC 2008/5/29 felipe govoni [EMAIL PROTECTED]govoni.felipe%40gmail.com govoni.felipe%40gmail.com : eu ja tinha instalado uma versao mais antiga do jedi no delphi 7 e funcionou legal mas no rad da essa mensagem de erro 2008/5/29 sergio cavalcante [EMAIL PROTECTED] sroc1978%40gmail.comsroc1978% 40gmail.comsroc1978% 40gmail.com: Cara, aqui instalou normal...inclusive no 6 e no 2007 ao mesmo tempo.. Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia 2008/5/29 felipe govoni [EMAIL PROTECTED]govoni.felipe%40gmail.com govoni.felipe%40gmail.com govoni.felipe%40gmail.com govoni.felipe%40gmail.com : alguem conseguiu instalar o jedi 3,33 no rad studio 2007? ele vai ate o final da instalacao diz q tem 5 erros e que nao pode concluir a instalacao. alguem pode me ajuda? vlw -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] EAccessViolation usando TList ??
Olá pessoal, boa tarde, estou usando uma TList e estou querendo acessar um ítem dela, porém quando tento pegar o ítem : TMotorista *motAux = (TMotorista *) viagemAux-listaMotoristas-Last(); o sistema gera EAccessViolation, porém antes dessa instrução contém: if(viagemAux-listaMotoristas-Count 0) onde não dá exceção nenhuma, ou seja, os dois objetos viagemAux e listaMotoristas estão instanciados porque passou pelo if sem erro. O que eu queria saber é de que maneiras uma TList instanciada e com ítems pode gerar EAccessViolation ?? - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Fw: TXT para variavel
ver se isso te serve: VarGlobal; Linha: String; procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; begin AssignFile ( arq, nomeDoArquivo ); //Cria ou Carrega o arquivo; Reset ( arq ); //Abre para somente leitura; while not Eof ( arq ) do //Enquanto não for o fim do arquivo faça; begin Linha := Linha + ReadLn ( arq, linha ); //adiciona a var Linha o valor lido na linha do arquivo; end; CloseFile ( arq ); //Fecha o Arquivo ao terminar; end; Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] - Mensagem original De: Filippe Maymone [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Enviadas: Quinta-feira, 29 de Maio de 2008 15:01:58 Assunto: [delphi-br] Fw: TXT para variavel - Original Message - From: Filippe Maymone To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br Sent: Tuesday, April 29, 2008 1:50 PM Subject: TXT para variavel GAlera boa tarde Eu tenho um arquivo TXT com alguns codigos exemplo: 01,03,120,301, 359,623,700 Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string. Teria como fazer isso ?? Abraços, [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Fw: TXT para variavel
faz assim ó
var:
wslAux : TStringList
wVar : string;
begin
wslAux := TStringList.Create
try
wslAux.LoadFromFile('Arq.txt');
wVar := wslAux.Text;
{
ou
wVar := wslAux.commatext;
ou
wVar := '';
for x1:=0 to wslAux.count-1 do
wVar := wVar + wslAux[x1]
}
finally
wslAux.Free;
end;
end
Jean Barreiros escreveu:
ver se isso te serve:
VarGlobal;
Linha: String;
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
begin
AssignFile ( arq, nomeDoArquivo ); //Cria ou Carrega o arquivo;
Reset ( arq ); //Abre para somente leitura;
while not Eof ( arq ) do //Enquanto não for o fim do arquivo faça;
begin
Linha := Linha + ReadLn ( arq, linha ); //adiciona a var Linha o
valor lido na linha do arquivo;
end;
CloseFile ( arq ); //Fecha o Arquivo ao terminar;
end;
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] mailto:jean%40comerciofsa.com.br
e-mail: [EMAIL PROTECTED] mailto:delphijean%40gmail.com
- Mensagem original
De: Filippe Maymone [EMAIL PROTECTED]
mailto:filippe_info%40globo.com
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
mailto:lista-delphi%40yahoogrupos.com.br
Enviadas: Quinta-feira, 29 de Maio de 2008 15:01:58
Assunto: [delphi-br] Fw: TXT para variavel
- Original Message -
From: Filippe Maymone
To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br
Sent: Tuesday, April 29, 2008 1:50 PM
Subject: TXT para variavel
GAlera boa tarde
Eu tenho um arquivo TXT com alguns codigos exemplo:
01,03,120,301, 359,623,700
Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string.
Teria como fazer isso ??
Abraços,
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/ http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Erro ao instalar componente no delphi 2005
Alguem conhece esse erro xmlrtl e dbrtl not found ? --- Em delphi-br@yahoogrupos.com.br, Alexsandro [EMAIL PROTECTED] escreveu Pessoal eu estou intalando 2 componentes visuais no delphi 2005 edition e esta dando esses erros : em um componente esta dandos esse: E2202 Required package 'xmlrtl' not found No outro esse: E2202 Required package 'dbrtl' not found Alguém conhece esse erro para poder me ajudar a desvendar isso a desvendar isso
Re: [delphi-br] RDPrint3.0
Valeu pessoal pela atencao ja consegui...
From: BandaLemuel
Sent: Thursday, May 29, 2008 10:36 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] RDPrint3.0
O Erro sugere q vc esta tentando acessar algo que ainda não foi criado
quando faço os meus relatorio faço assim...
{ Selecion os dadaos }
{ Defino Linha Inicial }
Linha := 1 ;
{ Abro o relatrorio }^
RDP.abrir ;
While x :=0 to recordCount - 1 do
begin
Impf ( linha , colunha, campo , ´[] );
end;
{ Seup do RDprint }
Aki eu arrumo as configurações. dele;;;
RDP.Setup ;
RDP.Fechar;
Tente nesta ordem...
Wesley
From: Ioney Hotmail
Sent: Thursday, May 29, 2008 8:29 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] RDPrint3.0
Rubem,
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of
address '. Process stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Rubem Nascimento da Rocha
Sent: Wednesday, May 28, 2008 5:56 PM
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] RDPrint3.0
Sim, meu caro! Posta o código e espera que a gente ache o erro pra ti? Nao
quer mais nada, né?
Qual é o erro que tá dando? Só o código num ajuda! Qual é esse erro/exceção que
tu tá tendo?
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 28 May 2008 16:55:53 -0300
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco de
Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente ai
que o bicho ta pegando, estou usando o componente RDPrint e nao to conseguindo
fazer com que meu relatorio seja impresso...o codigo eh esse deem uma olhadinha
e vejam se encontram algum erro ok? aguardo retorno desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' + IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3143 (20080529) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBExpress x FireBird 2 x UIB FireBird15
O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no gerenciamento de transação. Além daquele do campo BLOB já relatado nesta lista. Explico: Se dentro do contexto da transação tiver um SQLDataSet/SQLQuery/... fazendo um select em uma tabela, ao executar o SQLDataSet.Close ele commita a transação, e continua o procedimento normalmente. Se ocorrer algum erro após esse SQLDataSet.Close, as operações de I/O que foram feitas no início não serão desfeitas, mesmo sendo executado o RoolBack. Não deve estar acreditando, na hora eu também não acreditei. Fiz um teste com o mesmo código com o dirver Interbase e funciona perfeitamente. Mas esse driver não funciona perfeitamente com o FireBird 2. Isso só acontece com operação de SELECT, se dentro da transação só tiver INSERT, UPDATE e DELETE irá funcionar perfeitamente. Código exemplo (síntese): begin ... StartTransaction; try SQLDataSet1.CommandText := 'insert into table (codigo) values (1)'; SQLDataSet1.ExecSQL; SQLDataSet1.Close; SQLDataSet1.CommandText := 'select * from table'; SQLDataSet1.Open; SQLDataSet1.Close; // Aqui ele comita a transação automaticamente. // Quando chegar aqui, o 1º insert já está comitado, se houver erro daqui para frente ele não será desfeito. SQLDataSet1.CommandText := 'insert into table (codigo) values (2)'; SQLDataSet1.ExecSQL; SQLDataSet1.Close; CommitWork; except RollBack; end; end; Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res: DBExpress x FireBird 2 x UIB FireBird15
Esquece de mencionar que estou usando BDS 2006 (Windows XP e Vista); Luciano Calenzani Simões - Mensagem original De: Luciano Calenzani Simões [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41 Assunto: DBExpress x FireBird 2 x UIB FireBird15 O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no gerenciamento de transação. Além daquele do campo BLOB já relatado nesta lista. Explico: Se dentro do contexto da transação tiver um SQLDataSet/SQLQuery/... fazendo um select em uma tabela, ao executar o SQLDataSet.Close ele commita a transação, e continua o procedimento normalmente. Se ocorrer algum erro após esse SQLDataSet.Close, as operações de I/O que foram feitas no início não serão desfeitas, mesmo sendo executado o RoolBack. Não deve estar acreditando, na hora eu também não acreditei. Fiz um teste com o mesmo código com o dirver Interbase e funciona perfeitamente. Mas esse driver não funciona perfeitamente com o FireBird 2. Isso só acontece com operação de SELECT, se dentro da transação só tiver INSERT, UPDATE e DELETE irá funcionar perfeitamente. Código exemplo (síntese): begin ... StartTransaction; try SQLDataSet1.CommandText := 'insert into table (codigo) values (1)'; SQLDataSet1.ExecSQL; SQLDataSet1.Close; SQLDataSet1.CommandText := 'select * from table'; SQLDataSet1.Open; SQLDataSet1.Close; // Aqui ele comita a transação automaticamente. // Quando chegar aqui, o 1º insert já está comitado, se houver erro daqui para frente ele não será desfeito. SQLDataSet1.CommandText := 'insert into table (codigo) values (2)'; SQLDataSet1.ExecSQL; SQLDataSet1.Close; CommitWork; except RollBack; end; end; Luciano Calenzani Simões Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RDPrint3.0
Obrigado nada, fala qual era o problema.
compartilhe a solução com todos.. heheh
2008/5/29 Ioney Hotmail [EMAIL PROTECTED]:
Valeu pessoal pela atencao ja consegui...
From: BandaLemuel
Sent: Thursday, May 29, 2008 10:36 AM
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Subject: Re: [delphi-br] RDPrint3.0
O Erro sugere q vc esta tentando acessar algo que ainda não foi criado
quando faço os meus relatorio faço assim...
{ Selecion os dadaos }
{ Defino Linha Inicial }
Linha := 1 ;
{ Abro o relatrorio }^
RDP.abrir ;
While x :=0 to recordCount - 1 do
begin
Impf ( linha , colunha, campo , ´[] );
end;
{ Seup do RDprint }
Aki eu arrumo as configurações. dele;;;
RDP.Setup ;
RDP.Fechar;
Tente nesta ordem...
Wesley
From: Ioney Hotmail
Sent: Thursday, May 29, 2008 8:29 AM
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Subject: Re: [delphi-br] RDPrint3.0
Rubem,
Project Contabil.exe raised exception class EAccessViolation with message
'Access violation at address . read of
address '. Process stopped. Use Step or Run to Continue.
O que eu faco?
desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
seria mas facil de resolver...
Abraco
From: Rubem Nascimento da Rocha
Sent: Wednesday, May 28, 2008 5:56 PM
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Subject: RE: [delphi-br] RDPrint3.0
Sim, meu caro! Posta o código e espera que a gente ache o erro pra ti? Nao
quer mais nada, né?
Qual é o erro que tá dando? Só o código num ajuda! Qual é esse erro/exceção
que tu tá tendo?
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] ioneyspg%40hotmail.com
Date: Wed, 28 May 2008 16:55:53 -0300
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco
de Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente
ai que o bicho ta pegando, estou usando o componente RDPrint e nao to
conseguindo fazer com que meu relatorio seja impresso...o codigo eh esse
deem uma olhadinha e vejam se encontram algum erro ok? aguardo retorno
desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' +
IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO
DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'---
-- - --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:=
'0'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus
signature database 3143 (20080529
Re: [delphi-br] Re: Erro ao instalar componente no delphi 2005
ele não ta achando esses pacotes na hora de compilar. 2008/5/29 Alexsandro [EMAIL PROTECTED]: Alguem conhece esse erro xmlrtl e dbrtl not found ? --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Alexsandro [EMAIL PROTECTED] escreveu Pessoal eu estou intalando 2 componentes visuais no delphi 2005 edition e esta dando esses erros : em um componente esta dandos esse: E2202 Required package 'xmlrtl' not found No outro esse: E2202 Required package 'dbrtl' not found Alguém conhece esse erro para poder me ajudar a desvendar isso a desvendar isso -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RDPrint3.0
; DtaModulo.qryPadrao.Close; end; [As partes desta mensagem que não continham texto foram removidas] __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3143 (20080529) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 269.24.3/1472 - Release Date: 29-05-2008 07:27 [As partes desta mensagem que não continham texto foram removidas]
