Re: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Daniel Bastos
Que coicidência, fiz isso hoje a tarde :)

pra facilitar, criei um exemplo com o código importânte. Funciona bem, mas,
como dito anteriormente, no início o tempo fica meio louco. Depois
estabiliza.

pode baixar o exemplo pelo link abaixo
www.tadeu.pro.br/daniel/exemplo1.zip

e só pra avisar, foi feito em delphi 2007, e pode dar algum problema pra
abrir em outro delphi, mas acho difícil que não funcione até mesmo no delphi
1, pois o código é simples d+ :)

Abs.
Daniel A. Bastos

Em 30/10/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]>
escreveu:
>
>   Não é muito dificil, veja bem, é só vc medir o tempo de 1 regsitro e
> multiplicar por 4000 e ir sempre atualizando o valor do tempo à cada
> registro cadastrado
> O tempo vai variando um pouco no começo mas no final vai estar
> estabilizado, fiz isso em clipper e funicona legal.
> Vou te dar o exemplo em CLIPPER, pois to sem tempo pra converte-lo pra
> DELPHI mas não é dificil e nem muito demorado..
> A base é o seguinte, chame o STARTREG() e depois vai chamando o SAYREG()
> para ir atualizando o tempo
> Usava isso para dar o tempo de criação nos indices em clipper, pois
> demorava muiito no 386 da época... hoje até que é super rapido..
>
> //
> // COMPILAR COM:
> // CLIPPER SAYREG -N
> //
> //
> *
>
> STATIC OLDROW:=0, OLDCOL:=0, POSROW:=0, POSCOL:=0, INITIME:=0
> STATIC ROT := { "|", "/", "-", "\" }, PROT := 1
> STATIC lastrec := 0, recno := 0, seconds := 0
> static time:=0, porc:=0, nRetVal := .t.
>
> FUNC IndexON( titulo, db, indices )
> SaveBox( 04, 00, 12, 77, " ", "W/G" )
> SETCOLOR( "N/W" )
> SSAY( 05, 01, titulo )
> for x : - 1 to len( indices )
> dbUseArea( .F.,, db,,, .F. )
> SSAY( 07, 03, "Indice ("+alltrim(str(x))+"/"+alltrim(str(len(indices))+")
> - "+indices[x,3] )
> StartRegAut()
> ordCondSet(,,, {|| sayreg()},,, RECNO() )
> codeblock := &( "{ || "+indices[x,2]+" } " )
> ordCreate( indices[x,1],, indices[x,2], codeblock )
> dbCloseArea()
> next x
> RETURN
>
> FUNC SAYREG
> recno := recno()
> if recno = lastrec .or. seconds <> seconds()
> SetPos( POSROW, POSCOL )
> seconds := seconds()
> time := seconds-initime
> porc := (recno*100)/lastrec
> QQOut( transform(recno,"@E 99,999,999"),;
> tstring(time),;
> transform(porc,"@R 999%" ),;
> tstring((time*100)/porc) )
> // rot[if(prot<4,++prot,prot:=1)] )
> // SETPOS( OLDROW, OLDCOL )
> if inkey() == 27
> nRetVal := .f.
> endif
> endif
> RETURN nRetVal
>
> PROC STARTREG( row, col )
> // ENDREG( oldrow, oldcol )
> OLDROW := ROW(); OLDCOL := COL(); INITIME := SECONDS()
> IF ROW = NIL; ROW := ROW(); ENDIF
> IF COL = NIL; COL := COL(); ENDIF
> SETPOS( ROW, COL ); QQOut( transform(lastrec(),"@E 99,999,999" ),
> tstring(initime) )
> POSROW := ROW(); POSCOL := COL()
> lastrec := lastrec()
> seconds := 0
> nRetVal := .t.
> RETURN
>
> Luiz Escobar - Analista/Desenvolvedor:
> WEB - HTML/JavaScript/PHP/MySQL
> WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
> SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
>
> - Original Message -
> From: Evaldo
> To: delphi-br@yahoogrupos.com.br 
> Sent: Tuesday, October 30, 2007 2:54 PM
> Subject: [delphi-br] Estimar o tempo que será gasto com uma tarefa
>
> Alguém tem alguma formula onde eu possa calcular o tempo que será gasto
> com o processamento de uma tarefa?
>
> Por exemplo:
> vou inserir 4000 registro no banco, então eu faria o calculo de
> aproximação do tempo que será gasto para a inserção dos registros e
> mostraria uma msg ao usuário com o tempo estimado .
>
> Penso que teria que levar em consideração o hardware da máquina e os
> processos que já estão rodando no momento.
>
> É possível fazer esse calculo?
>
> 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]
>
> [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] <<< FastReports... >>>

2007-10-30 Por tôpico Eduardo Silva dos Santos
so complementando, o desenvolvimento dessa rotina de busca será feita dentro
do arquivo de relatório. você não vai precisar
fazer referencia a qualquer procedure ou função que estiver no sistema.

Em 30/10/07, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
> Olá Juliano, que bom poder ajudar.
>
> seus problemas acabaram, o Fast tem essa possibilidade, de salvar o
> relatório em arquivo para posteriores atualizações.
>
> quando ao formulário, o mesmo fica armazenado no arquivo do Fast. e toda a
> programação é feita no proprio arquivo ou seja vc manipula todo o relatório
> com código Object Pascal dentro de arquivo do relatório.
>
> assim vc vai enviar somente o arquivo do relatório sem precisar recompilar
> seu exe.
>
> Em 30/10/07, Juliano Silva - Yahoo < [EMAIL PROTECTED]> escreveu:
> >
> >   Olá Eduardo,
> >
> > Primeiramente obrigado pelas respostas, e lá vai mais uma, hoje o
> > problema
> > que encontro nos relatórios e acredito que a maioria também tem este
> > problema, é que sempre que monto um relatório novo, tenho que compilar
> > uma
> > nova versão do sistema pelo fato de ter adicionado um novo relatório,
> > com o
> > Report Builder eu consigo criar relatórios e colocar no servidor e até
> > mesmo
> > salvar este relatório em um arquivo enviar para o cliente e pedir para
> > ele
> > importar lá... no entanto este relatórios ficam limitados a gerarem a
> > informação engessada que vai nele, não dá por exemplo para enviar um
> > FORM de
> > filtro para o relatório dentro do relatório entende? Com o FAST é
> > possível
> > isso, eu consigo colocar um FORM dentro dele que faça chamada a uma
> > função
> > de BUSCA GENÉRICA que tenho dentro do sistema?
> >
> > Nossa, agora acho que fui além... rsrrs
> >
> > Estou buscando uma solução para não precisar mais gerar versões sempre
> > que
> > crio um relatório novo... mas está difícil viu... pois se as informações
> > se
> > limitassem a datas ficaria fácil, mas os relatórios devem ter filtros
> > por
> > exemplo para filtrar por FAMILIA e SUB-FAMILIA...
> >
> > Juliano Silva
> >
> > _
> >
> > De: delphi-br@yahoogrupos.com.br 
> > [mailto:delphi-br@yahoogrupos.com.br]
> > Em
> > nome de Eduardo Silva dos Santos
> > Enviada em: terça-feira, 30 de outubro de 2007 18:00
> > Para: delphi-br@yahoogrupos.com.br 
> > Assunto: Re: [delphi-br] <<< FastReports... >>>
> >
> > Olá Juliano Silva, vamos lá...
> >
> > >> 1. Tem algum recurso parecido como Data Dictionary do Report Builder
> > (Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
> > R: Existem duas possibilidades, uma é deixar o arquivo com o relatório
> > no
> > Servidor outra é criar um Servidor de Relatórios. esse servidor é criado
> > na
> > versão Enterprise. com a opção do Servidor de Relatorios vc pode
> > visualizar
> > os mesmos ate pelo navegador.
> >
> > >> 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
> > que
> > o no Fast é possível, não sei se é verdade...
> > R: É possível sim, e vai alem disso, ele possui eventos no Preview onde
> > vc
> > pode identificar em qual componente esta clicando por exemplo;
> >
> > >>3. Entre o Report Builder e Fast Reports, qual preferem?
> > R: Nunca usei o Resport Builder, mas o Fast uso desde a versão 2.45 e
> > não me
> > arrependo..
> >
> > da uma olhada no site, baixe o trial e surprienda-se com os recursos do
> > FastReport 4
> >
> > Em 30/10/07, Juliano Silva - Yahoo  > "mailto:smjjuliano%40yahoo.com.br"[EMAIL PROTECTED] com.br> escreveu:
> > >
> > > Pessoal
> > >
> > > Alguém sabe me dizer o seguinte sobre o FASTREPORTS.-..
> > >
> > > 1. Tem algum recurso parecido como Data Dictionary do Report Builder
> > > (Onde podemos fazer relatórios que irão ficar armazenados no
> > servidor)?
> > > 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
> > > que o no Fast é possível, não sei se é verdade...
> > > 3. Entre o Report Builder e Fast Reports, qual preferem?
> > >
> > > Juliano Silva
> > >
> > > No virus found in this incoming message.
> > > Checked by AVG Free Edition.
> > > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> > > 30/10/2007
> > > 10:06
> > >
> > > No virus found in this outgoing message.
> > > Checked by AVG Free Edition.
> > > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> > > 30/10/2007
> > > 10:06
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > -.-.-.-.-...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: HYPERLINK "mailto:eduardo.drd%40gmail.com"[EMAIL PROTECTED] gmail.com
> > Site: HYPERLINK "http://www.drdsistemas.com/"http://www.drdsiste-mas.com/
> > -.-.-.-.-...
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > No virus found in this incoming message.
> > Checked by AVG Free Edition.
> > Versio

Re: [delphi-br] <<< FastReports... >>>

2007-10-30 Por tôpico Eduardo Silva dos Santos
Olá Juliano, que bom poder ajudar.

seus problemas acabaram, o Fast tem essa possibilidade, de salvar o
relatório em arquivo para posteriores atualizações.

quando ao formulário, o mesmo fica armazenado no arquivo do Fast. e toda a
programação é feita no proprio arquivo ou seja vc manipula todo o relatório
com código Object Pascal dentro de arquivo do relatório.

assim vc vai enviar somente o arquivo do relatório sem precisar recompilar
seu exe.

Em 30/10/07, Juliano Silva - Yahoo <[EMAIL PROTECTED]> escreveu:
>
>   Olá Eduardo,
>
> Primeiramente obrigado pelas respostas, e lá vai mais uma, hoje o problema
> que encontro nos relatórios e acredito que a maioria também tem este
> problema, é que sempre que monto um relatório novo, tenho que compilar uma
> nova versão do sistema pelo fato de ter adicionado um novo relatório, com
> o
> Report Builder eu consigo criar relatórios e colocar no servidor e até
> mesmo
> salvar este relatório em um arquivo enviar para o cliente e pedir para ele
> importar lá... no entanto este relatórios ficam limitados a gerarem a
> informação engessada que vai nele, não dá por exemplo para enviar um FORM
> de
> filtro para o relatório dentro do relatório entende? Com o FAST é possível
> isso, eu consigo colocar um FORM dentro dele que faça chamada a uma função
> de BUSCA GENÉRICA que tenho dentro do sistema?
>
> Nossa, agora acho que fui além... rsrrs
>
> Estou buscando uma solução para não precisar mais gerar versões sempre que
> crio um relatório novo... mas está difícil viu... pois se as informações
> se
> limitassem a datas ficaria fácil, mas os relatórios devem ter filtros por
> exemplo para filtrar por FAMILIA e SUB-FAMILIA...
>
> Juliano Silva
>
> _
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em
> nome de Eduardo Silva dos Santos
> Enviada em: terça-feira, 30 de outubro de 2007 18:00
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: [delphi-br] <<< FastReports... >>>
>
> Olá Juliano Silva, vamos lá...
>
> >> 1. Tem algum recurso parecido como Data Dictionary do Report Builder
> (Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
> R: Existem duas possibilidades, uma é deixar o arquivo com o relatório no
> Servidor outra é criar um Servidor de Relatórios. esse servidor é criado
> na
> versão Enterprise. com a opção do Servidor de Relatorios vc pode
> visualizar
> os mesmos ate pelo navegador.
>
> >> 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
> que
> o no Fast é possível, não sei se é verdade...
> R: É possível sim, e vai alem disso, ele possui eventos no Preview onde vc
> pode identificar em qual componente esta clicando por exemplo;
>
> >>3. Entre o Report Builder e Fast Reports, qual preferem?
> R: Nunca usei o Resport Builder, mas o Fast uso desde a versão 2.45 e não
> me
> arrependo..
>
> da uma olhada no site, baixe o trial e surprienda-se com os recursos do
> FastReport 4
>
> Em 30/10/07, Juliano Silva - Yahoo  "mailto:smjjuliano%40yahoo.com.br"[EMAIL PROTECTED]> escreveu:
> >
> > Pessoal
> >
> > Alguém sabe me dizer o seguinte sobre o FASTREPORTS.-..
> >
> > 1. Tem algum recurso parecido como Data Dictionary do Report Builder
> > (Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
> > 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
> > que o no Fast é possível, não sei se é verdade...
> > 3. Entre o Report Builder e Fast Reports, qual preferem?
> >
> > Juliano Silva
> >
> > No virus found in this incoming message.
> > Checked by AVG Free Edition.
> > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> > 30/10/2007
> > 10:06
> >
> > No virus found in this outgoing message.
> > Checked by AVG Free Edition.
> > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> > 30/10/2007
> > 10:06
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> -.-.-.-.-...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: HYPERLINK "mailto:eduardo.drd%40gmail.com"[EMAIL PROTECTED]
> Site: HYPERLINK "http://www.drdsistemas.com/"http://www.drdsiste-mas.com/
> -.-.-.-.-...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007
> 10:06
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007
> 10:06
>
>
> [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/
...


[As part

RES: [delphi-br] <<< FastReports... >>>

2007-10-30 Por tôpico Juliano Silva - Yahoo
Olá Eduardo, 

 

Primeiramente obrigado pelas respostas, e lá vai mais uma, hoje o problema
que encontro nos relatórios e acredito que a maioria também tem este
problema, é que sempre que monto um relatório novo, tenho que compilar uma
nova versão do sistema pelo fato de ter adicionado um novo relatório, com o
Report Builder eu consigo criar relatórios e colocar no servidor e até mesmo
salvar este  relatório em um arquivo enviar para o cliente e pedir para ele
importar lá... no entanto este relatórios ficam limitados a gerarem a
informação engessada que vai nele, não dá por exemplo para enviar um FORM de
filtro para o relatório dentro do relatório entende? Com o FAST é possível
isso, eu consigo colocar um FORM dentro dele que faça chamada a uma função
de BUSCA GENÉRICA que tenho dentro do sistema?

 

Nossa, agora acho que fui além... rsrrs 

 

Estou buscando uma solução para não precisar mais gerar versões sempre que
crio um relatório novo... mas está difícil viu... pois se as informações se
limitassem a datas ficaria fácil, mas os relatórios devem ter filtros por
exemplo para filtrar por FAMILIA e SUB-FAMILIA... 

 

Juliano Silva

 

   _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo Silva dos Santos
Enviada em: terça-feira, 30 de outubro de 2007 18:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] <<< FastReports... >>>

 

Olá Juliano Silva, vamos lá...

>> 1. Tem algum recurso parecido como Data Dictionary do Report Builder
(Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
R: Existem duas possibilidades, uma é deixar o arquivo com o relatório no
Servidor outra é criar um Servidor de Relatórios. esse servidor é criado na
versão Enterprise. com a opção do Servidor de Relatorios vc pode visualizar
os mesmos ate pelo navegador.

>> 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer que
o no Fast é possível, não sei se é verdade...
R: É possível sim, e vai alem disso, ele possui eventos no Preview onde vc
pode identificar em qual componente esta clicando por exemplo;

>>3. Entre o Report Builder e Fast Reports, qual preferem?
R: Nunca usei o Resport Builder, mas o Fast uso desde a versão 2.45 e não me
arrependo..

da uma olhada no site, baixe o trial e surprienda-se com os recursos do
FastReport 4

Em 30/10/07, Juliano Silva - Yahoo mailto:smjjuliano%40yahoo.com.br"[EMAIL PROTECTED]> escreveu:
>
> Pessoal
>
> Alguém sabe me dizer o seguinte sobre o FASTREPORTS.-..
>
> 1. Tem algum recurso parecido como Data Dictionary do Report Builder
> (Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
> 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
> que o no Fast é possível, não sei se é verdade...
> 3. Entre o Report Builder e Fast Reports, qual preferem?
>
> Juliano Silva
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007
> 10:06
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007
> 10:06
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
-.-.-.-.-...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: HYPERLINK "mailto:eduardo.drd%40gmail.com"[EMAIL PROTECTED]
Site: HYPERLINK "http://www.drdsistemas.com/"http://www.drdsiste-mas.com/
-.-.-.-.-...

[As partes desta mensagem que não continham texto foram removidas]

 


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007
10:06



No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007
10:06
 


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Report Bullder - como fazer isto?

2007-10-30 Por tôpico Fellipe Henrique
Você não conseguiria fazer usando um Sumary?

[]s

Em 30/10/07, Eduardo Galvão <[EMAIL PROTECTED]> escreveu:
>
>   Pessoal,
>
> No Report Builder, tenho um relatório onde alguns registros
> possuem uma observação associada.
>
> Eu quero que estas observações saiam no rodapé DA PÁGINA,
> alguém teria alguma dica?
>
> Veja, no rodapé de um GRUPO, ou ainda no rodapé final do relatório,
> eu consigo, mas no final da página é que está pegando..
>
> Saudações,
>
> Eduardo Paci Galvão
> Engenheiro Eletricista - UFMG 1990
> www.egalvao.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] <<< FastReports... >>>

2007-10-30 Por tôpico Eduardo Silva dos Santos
Olá Juliano Silva, vamos lá...

>> 1. Tem algum recurso parecido como Data Dictionary do Report Builder
(Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
R: Existem duas possibilidades, uma é deixar o arquivo com o relatório no
Servidor outra é criar um Servidor de Relatórios. esse servidor é criado na
versão Enterprise. com a opção do Servidor de Relatorios vc pode visualizar
os mesmos ate pelo navegador.

>> 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer que
o no Fast é possível, não sei se é verdade...
R: É possível sim, e vai alem disso, ele possui eventos no Preview onde vc
pode identificar em qual componente esta clicando por exemplo;

>>3. Entre o Report Builder e Fast Reports, qual preferem?
R: Nunca usei o Resport Builder, mas o Fast uso desde a versão 2.45 e não me
arrependo..


da uma olhada no site, baixe o trial e surprienda-se com os recursos do
FastReport 4

Em 30/10/07, Juliano Silva - Yahoo <[EMAIL PROTECTED]> escreveu:
>
>   Pessoal
>
> Alguém sabe me dizer o seguinte sobre o FASTREPORTS...
>
> 1. Tem algum recurso parecido como Data Dictionary do Report Builder
> (Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
> 2. É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
> que o no Fast é possível, não sei se é verdade...
> 3. Entre o Report Builder e Fast Reports, qual preferem?
>
> Juliano Silva
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007
> 10:06
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007
> 10:06
>
>
> [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/
...


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] <<< FastReports... >>>

2007-10-30 Por tôpico Juliano Silva - Yahoo
Pessoal

 

Alguém sabe me dizer o seguinte sobre o FASTREPORTS... 

 

1.  Tem algum recurso parecido como Data Dictionary do Report Builder
(Onde podemos fazer relatórios que irão ficar armazenados no servidor)?
2.  É possível colocar FORMS nos relatórios, dentro deles, ouvi dizer
que o no Fast é possível, não sei se é verdade... 
3.  Entre o Report Builder  e Fast Reports, qual preferem?

 

Juliano Silva


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007
10:06



No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007
10:06
 


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Conexão em rede

2007-10-30 Por tôpico Vinicius Barreira
Pelo que eu sei precisa do TCP rodando mas não precisa ser
"configurado"; ouvi um comentário uma vez que até mesmo o TCP do dial-up
serviria. A conexão vc poderia fazer assim:

LocalHost:c:\seu diretorio\suabase.fdb

Ou usar aquele IP loopback

127.0.0.0:c:\seu diretorio\suabase.fb.

Hoje em dia é difícil um micro sem placa de rede, nem que seja uma
onboard simples.

Vinicius Barreira
Delphi 7 / Firebird 2.0 / DbExpress
São Bernardo do Campo - SP
Software Para Hotéis / Pousadas / Moteis


valdir escreveu:
>
> Prezados,
>
> Tenho uma dúvida em relação à configuração do Firebird em Windows Vista.
> Pelo que entendi, mesmo numa instalação stand alone, o sistema deve ser
> configurado para acessar o banco via IP ou instalar o Firebird como
> aplicação (o que não é recomedável para instalações em atacado, pois 
> até que
> leigo entenda como fazer isso, já perdeu-se o cliente/usuário).
>
> Dúvida: numa máquina onde o protocolo tcp/ip não está configurado a
> aplicação não funcionaria até que se faça essa configuração? Novamente é
> preciso que o potencial usuário do meu sistema tenha que solicitar 
> auxílio
> técnico?
>
> Na verdade minha dúvida está relacionada em como fazer uma instalação e
> disponibilizá-la para que usuários (leigos) possam fazer o download,
> instalar e acessar normalmente o programa sem que para isso precisem de
> suporte especializado.
>
> Obrigado.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  




[delphi-br] CDS - Aleluia !!!

2007-10-30 Por tôpico Junior
Gostaria de agradecer a todos que de alguma forma me ajudaram

no dia de hoje nesta longa batalha em prol do entendimento do

nosso querido amigo ClientDataSet.

A batalha foi dura, mas até que enfim chegamos ao final.

No final da batalha, mas não da guerra.

Amanhã tem mais !!!   rsrsrsrsrs

 

 

 

A todos meus sinceros agradecimentos

 

 

 

Atenciosamente,

 

Junior

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Sergio Eurico
Que tal dar um ping para um ou varios sites?


Em 30/10/07, Eduardo Silva <[EMAIL PROTECTED]> escreveu:
>
>   Galera, como eu faço para testar uma conexão com a internet e, caso ela
> não esteja funcionando, enviar uma mensagem ao usuário informando que a
> conexão com a internet não esta funcionando.
>
> Obrigado
>
> 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] Testar conexão com a internet

2007-10-30 Por tôpico Adriano Santos
Puts, depois eu vi. Sem crise. heheh
Abs

Robson respondeu:
>
> desculpem, é do tópico "Estimar o tempo que será gasto com uma tarefa"
>
> Kaputz, Robson
> Skype: kaputz_gri
>
> - Mensagem original 
> De: Adriano Santos <[EMAIL PROTECTED] 
> >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 30 de Outubro de 2007 16:05:25
> Assunto: Re: Res: Res: [delphi-br] Testar conexão com a internet
>
> Oxe, num entendi. Calculo? Pra detectar internet?
> Tô doidão.
>
> Abs
>
> Adriano
>
> Robson respondeu:
> >
> > Esqueci:
> > depois de implementar a rotina, faça um outro teste, compile a
> > aplicação, reinicie o micro e faça o teste, depois faça o teste mas
> > sem a rotina do calculo, compile o programa sem a rotina do calculo,
> > reinicie o micro e faça a medição manualmente com um relógio e naum se
> > assuste, caso tempo seje em média a metade do tempo gasto.
> > este teste em específico ainda naum fiz, mas ja fiz diversos outros
> > calculos e toda vez q marcava manualmente o tempo gasto era muito
> > menor, principalmente em rotinas q levam minutos para serem executadas.
> >
> >
> > Kaputz, Robson
> > Skype: kaputz_gri
> > "Keep the Dream Alive"
> >
> > - Mensagem original 
> > De: Robson <[EMAIL PROTECTED] com.br  com.br>>
> > Para: [EMAIL PROTECTED] os.com.br  .com.br>
> > Enviadas: Terça-feira, 30 de Outubro de 2007 14:43:43
> > Assunto: Res: [delphi-br] Testar conexão com a internet
> >
> > testei aki com velox discado e funcionou normal e ambas as repostas
> > foram rapidas (menos 1 seg), o teste foi no clicando em um botão, naum
> > teste como monitoramento.
> >
> > Kaputz, Robson
> > Skype: kaputz_gri
> > "Keep the Dream Alive"
> >
> > - Mensagem original 
> > De: Eduardo Silva dos Santos 
> > Para: [EMAIL PROTECTED] os.com.br
> > Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18
> > Assunto: Re: [delphi-br] Testar conexão com a internet
> >
> > faz um teste, faz um sistema que chame a função, verifica o estado da
> > conexão, sem fechar o sistema, desconecte e teste novamente..
> >
> > lembrando que eu reparei isso em conexão ADSL onde o modem esta
> > roteado e eu
> > conectado via redelocal.
> >
> > repare que na 1º verificação ele ate demora um pouco... mas ja na
> > segunda é
> > muito rápido..
> >
> > vou procurar a materia que relatava esse bug na API;
> >
> > para conexões discadas diretamente da máquina nunca testei.
> >
> > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com> escreveu:
> > >
> > > Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> > > Inclusive em casa que tenho essa situação que falou.
> > >
> > > Vlw
> > >
> > > --
> > > Adriano Santos
> > >  - - - - - -
> > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> > >
> > > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > > http://www.delphito delphi.blogspot. com
> > > http://www.devmedia .com.br
> > > http://www.devmedia .com.br/clubedel phi/pagina. asp
> > >
> > > Eduardo Silva dos Santos respondeu:
> > > >
> > > > O problema dessa rotina é que se vc estiver conectado via rede-local
> > > > atravez
> > > > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > > > modem.
> > > >
> > > > eu uso essa rotina:
> > > >
> > > > //Verifica a existe conexão à internet. //Uses Wininet
> > > > Function IsConnectedOnIntern et:Boolean;
> > > > begin
> > > > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com
> > > > ', 1, 0);
> > > >
> > > > end;
> > > >
> > > > o problema é que existe um bug na api do windows responsavel por
> > checar
> > > a
> > > > conexão, a informação correta só é passada
> > > > uma vez, vc checa, se depois disso desconectar e checar 
> novamente vai
> > > > continuar acusando o estado da primeira verificação.
> > > >
> > > > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> > > >
> > > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED]
> > com
> > > > > escreveu:
> > >
> > > > >
> > > > > uses
> > > > > WinInet
> > > > > ...
> > > > > function DetectarInternet: Boolean;
> > > > > var
> > > > > Flags : dword;
> > > > > begin
> > > > > Result := InternetGetConnecte dState(@Flags, 0);
> > > > > end;
> > > > >
> > > > > --
> > > > > Adriano Santos
> > > > >  - - - - - -
> > > > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > > > Bacharel em Comunicação Social pela Universidade Cruzeiro do
> > Sul, SP.
> > > > >
> > > > > Editor Técnico, Colunista e Comissão Editorial da revista
> > ClubeDelphi.
> > > > > http://www.delphito delphi.blogspot. com
> > > > 

Res: [delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Robson
desculpem, é do tópico "Estimar  o tempo que será gasto com uma tarefa"
 
Kaputz, Robson
Skype: kaputz_gri

- Mensagem original 
De: Adriano Santos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 16:05:25
Assunto: Re: Res: Res: [delphi-br] Testar conexão com a internet

Oxe, num entendi. Calculo? Pra detectar internet?
Tô doidão.

Abs

Adriano

Robson respondeu:
>
> Esqueci:
> depois de implementar a rotina, faça um outro teste, compile a 
> aplicação, reinicie o micro e faça o teste, depois faça o teste mas 
> sem a rotina do calculo, compile o programa sem a rotina do calculo, 
> reinicie o micro e faça a medição manualmente com um relógio e naum se 
> assuste, caso tempo seje em média a metade do tempo gasto.
> este teste em específico ainda naum fiz, mas ja fiz diversos outros 
> calculos e toda vez q marcava manualmente o tempo gasto era muito 
> menor, principalmente em rotinas q levam minutos para serem executadas.
>
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> - Mensagem original 
> De: Robson <[EMAIL PROTECTED] com.br >
> Para: [EMAIL PROTECTED] os.com.br 
> Enviadas: Terça-feira, 30 de Outubro de 2007 14:43:43
> Assunto: Res: [delphi-br] Testar conexão com a internet
>
> testei aki com velox discado e funcionou normal e ambas as repostas 
> foram rapidas (menos 1 seg), o teste foi no clicando em um botão, naum 
> teste como monitoramento.
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> - Mensagem original 
> De: Eduardo Silva dos Santos 
> Para: [EMAIL PROTECTED] os.com.br
> Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18
> Assunto: Re: [delphi-br] Testar conexão com a internet
>
> faz um teste, faz um sistema que chame a função, verifica o estado da
> conexão, sem fechar o sistema, desconecte e teste novamente..
>
> lembrando que eu reparei isso em conexão ADSL onde o modem esta 
> roteado e eu
> conectado via redelocal.
>
> repare que na 1º verificação ele ate demora um pouco... mas ja na 
> segunda é
> muito rápido..
>
> vou procurar a materia que relatava esse bug na API;
>
> para conexões discadas diretamente da máquina nunca testei.
>
> Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com> escreveu:
> >
> > Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> > Inclusive em casa que tenho essa situação que falou.
> >
> > Vlw
> >
> > --
> > Adriano Santos
> >  - - - - - -
> > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> >
> > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > http://www.delphito delphi.blogspot. com
> > http://www.devmedia .com.br
> > http://www.devmedia .com.br/clubedel phi/pagina. asp
> >
> > Eduardo Silva dos Santos respondeu:
> > >
> > > O problema dessa rotina é que se vc estiver conectado via rede-local
> > > atravez
> > > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > > modem.
> > >
> > > eu uso essa rotina:
> > >
> > > //Verifica a existe conexão à internet. //Uses Wininet
> > > Function IsConnectedOnIntern et:Boolean;
> > > begin
> > > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com
> > > ', 1, 0);
> > >
> > > end;
> > >
> > > o problema é que existe um bug na api do windows responsavel por 
> checar
> > a
> > > conexão, a informação correta só é passada
> > > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > > continuar acusando o estado da primeira verificação.
> > >
> > > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> > >
> > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] 
> com
> > > > escreveu:
> >
> > > >
> > > > uses
> > > > WinInet
> > > > ...
> > > > function DetectarInternet: Boolean;
> > > > var
> > > > Flags : dword;
> > > > begin
> > > > Result := InternetGetConnecte dState(@Flags, 0);
> > > > end;
> > > >
> > > > --
> > > > Adriano Santos
> > > >  - - - - - -
> > > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > > Bacharel em Comunicação Social pela Universidade Cruzeiro do 
> Sul, SP.
> > > >
> > > > Editor Técnico, Colunista e Comissão Editorial da revista 
> ClubeDelphi.
> > > > http://www.delphito delphi.blogspot. com
> > > 
> > > > http://www.devmedia .com.br 
> > > > http://www.devmedia .com.br/clubedel phi/pagina. asp
> > > 
> > > >
> > > > Eduardo Silva respondeu:
> > > > >
> > > > > Galera, como eu faço para testar uma conexão com a internet e, 
> caso
> > > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> > inf

Re: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico escobar
Não é muito dificil, veja bem, é só vc medir o tempo de 1 regsitro e 
multiplicar por 4000 e ir sempre atualizando o valor do tempo à cada registro 
cadastrado
O tempo vai variando um pouco no começo mas no final vai estar estabilizado, 
fiz isso em clipper e funicona legal.
Vou te dar o exemplo em CLIPPER, pois to sem tempo pra converte-lo pra DELPHI 
mas não é dificil e nem muito demorado..
A base é o seguinte, chame o STARTREG() e depois vai chamando o SAYREG() para 
ir atualizando o tempo
Usava isso para dar o tempo de criação nos indices em clipper, pois demorava 
muiito no 386 da época... hoje até que é super rapido..

//
// COMPILAR COM:
// CLIPPER SAYREG -N
//
// *

STATIC OLDROW:=0, OLDCOL:=0, POSROW:=0, POSCOL:=0, INITIME:=0
STATIC ROT := { "|", "/", "-", "\" }, PROT := 1
STATIC lastrec := 0, recno := 0, seconds := 0
static time:=0, porc:=0, nRetVal := .t.

FUNC IndexON( titulo, db, indices )
 SaveBox( 04, 00, 12, 77, " ", "W/G" )
 SETCOLOR( "N/W" )
 SSAY( 05, 01, titulo )
 for x : - 1 to len( indices )
dbUseArea( .F.,, db,,, .F. )
SSAY( 07, 03, "Indice 
("+alltrim(str(x))+"/"+alltrim(str(len(indices))+") - "+indices[x,3] )
StartRegAut()
ordCondSet(,,, {|| sayreg()},,, RECNO() )
codeblock := &( "{ || "+indices[x,2]+" } " )
ordCreate( indices[x,1],, indices[x,2], codeblock )
dbCloseArea()
 next x
 RETURN

FUNC SAYREG
 recno := recno()
 if recno = lastrec .or. seconds <> seconds()
SetPos( POSROW, POSCOL )
seconds := seconds()
time := seconds-initime
porc := (recno*100)/lastrec
QQOut( transform(recno,"@E 99,999,999"),;
   tstring(time),;
   transform(porc,"@R 999%" ),;
   tstring((time*100)/porc) )
//   rot[if(prot<4,++prot,prot:=1)] )
//SETPOS( OLDROW, OLDCOL )
if inkey() == 27
   nRetVal := .f.
endif
 endif
 RETURN nRetVal

PROC STARTREG( row, col )
// ENDREG( oldrow, oldcol )
 OLDROW  := ROW(); OLDCOL := COL(); INITIME := SECONDS()
 IF ROW = NIL; ROW := ROW(); ENDIF
 IF COL = NIL; COL := COL(); ENDIF
 SETPOS( ROW, COL ); QQOut( transform(lastrec(),"@E 99,999,999" ), 
tstring(initime) )
 POSROW  := ROW(); POSCOL := COL()
 lastrec := lastrec()
 seconds := 0
 nRetVal := .t.
 RETURN



Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP



  - Original Message - 
  From: Evaldo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 30, 2007 2:54 PM
  Subject: [delphi-br] Estimar o tempo que será gasto com uma tarefa


  Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 

  Por exemplo: 
  vou inserir 4000 registro no banco, então eu faria o calculo de aproximação 
do tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 

  Penso que teria que levar em consideração o hardware da máquina e os 
processos que já estão rodando no momento.

  É possível fazer esse calculo?

  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]



   

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Memo no SqlServer

2007-10-30 Por tôpico stainle2003
estou tentando gravar um campo to tipo TEXT(MEMO) no SQL SERVER 2000 e 
náo consigo, náo da mensagem de erro mas tambem náo grava, um detalhe, 
no UPDATESQL eu náo coloquei este campo pois ai daria um erro.
alguem sabe me dizer como tenho que fazer para gravar.

grato

Stainle



[delphi-br] Exemplo de formulário padrão para utilizar em herança E Db2

2007-10-30 Por tôpico Juliano
Pessoal, tenho planos de começar um projeto grande e gostaria de saber
se alguem sabe onde posso encontrar um exemplo de form que acessa BD
no qual quero colocar algumas características e após utilizar como
herança, para que não seja necessário reescrever vários detalhes.

Se alguem acessa DB2 por favor poste aqui qual o método que utiliza e
se está tendo sucesso.

obrigado,
Juliano.




Re: Res: Res: [delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Adriano Santos
Oxe, num entendi. Calculo? Pra detectar internet?
Tô doidão.

Abs

Adriano

Robson respondeu:
>
> Esqueci:
> depois de implementar a rotina, faça um outro teste, compile a 
> aplicação, reinicie o micro e faça o teste, depois faça o teste mas 
> sem a rotina do calculo, compile o programa sem a rotina do calculo, 
> reinicie o micro e faça a medição manualmente com um relógio e naum se 
> assuste, caso tempo seje em média a metade do tempo gasto.
> este teste em específico ainda naum fiz, mas ja fiz diversos outros 
> calculos e toda vez q marcava manualmente o tempo gasto era muito 
> menor, principalmente em rotinas q levam minutos para serem executadas.
>
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> - Mensagem original 
> De: Robson <[EMAIL PROTECTED] >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 30 de Outubro de 2007 14:43:43
> Assunto: Res: [delphi-br] Testar conexão com a internet
>
> testei aki com velox discado e funcionou normal e ambas as repostas 
> foram rapidas (menos 1 seg), o teste foi no clicando em um botão, naum 
> teste como monitoramento.
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> - Mensagem original 
> De: Eduardo Silva dos Santos 
> Para: [EMAIL PROTECTED] os.com.br
> Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18
> Assunto: Re: [delphi-br] Testar conexão com a internet
>
> faz um teste, faz um sistema que chame a função, verifica o estado da
> conexão, sem fechar o sistema, desconecte e teste novamente..
>
> lembrando que eu reparei isso em conexão ADSL onde o modem esta 
> roteado e eu
> conectado via redelocal.
>
> repare que na 1º verificação ele ate demora um pouco... mas ja na 
> segunda é
> muito rápido..
>
> vou procurar a materia que relatava esse bug na API;
>
> para conexões discadas diretamente da máquina nunca testei.
>
> Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com> escreveu:
> >
> > Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> > Inclusive em casa que tenho essa situação que falou.
> >
> > Vlw
> >
> > --
> > Adriano Santos
> >  - - - - - -
> > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> >
> > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > http://www.delphito delphi.blogspot. com
> > http://www.devmedia .com.br
> > http://www.devmedia .com.br/clubedel phi/pagina. asp
> >
> > Eduardo Silva dos Santos respondeu:
> > >
> > > O problema dessa rotina é que se vc estiver conectado via rede-local
> > > atravez
> > > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > > modem.
> > >
> > > eu uso essa rotina:
> > >
> > > //Verifica a existe conexão à internet. //Uses Wininet
> > > Function IsConnectedOnIntern et:Boolean;
> > > begin
> > > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com
> > > ', 1, 0);
> > >
> > > end;
> > >
> > > o problema é que existe um bug na api do windows responsavel por 
> checar
> > a
> > > conexão, a informação correta só é passada
> > > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > > continuar acusando o estado da primeira verificação.
> > >
> > > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> > >
> > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] 
> com
> > > > escreveu:
> >
> > > >
> > > > uses
> > > > WinInet
> > > > ...
> > > > function DetectarInternet: Boolean;
> > > > var
> > > > Flags : dword;
> > > > begin
> > > > Result := InternetGetConnecte dState(@Flags, 0);
> > > > end;
> > > >
> > > > --
> > > > Adriano Santos
> > > >  - - - - - -
> > > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > > Bacharel em Comunicação Social pela Universidade Cruzeiro do 
> Sul, SP.
> > > >
> > > > Editor Técnico, Colunista e Comissão Editorial da revista 
> ClubeDelphi.
> > > > http://www.delphito delphi.blogspot. com
> > > 
> > > > http://www.devmedia .com.br 
> > > > http://www.devmedia .com.br/clubedel phi/pagina. asp
> > > 
> > > >
> > > > Eduardo Silva respondeu:
> > > > >
> > > > > Galera, como eu faço para testar uma conexão com a internet e, 
> caso
> > > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> > informando
> > > > > que a conexão com a internet não esta funcionando.
> > > > >
> > > > > Obrigado
> > > > >
> > > > > 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: Res: [delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Eduardo Silva dos Santos
As vezes ficar calculando o tempo deixa a rotina mais lenta mesmo,

eu fiz o seguinte, para rotinas onde nao da pra usar um progressbar coloquei
um AVI com uma animação.

Em 30/10/07, Robson <[EMAIL PROTECTED]> escreveu:
>
>   Esqueci:
> depois de implementar a rotina, faça um outro teste, compile a aplicação,
> reinicie o micro e faça o teste, depois faça o teste mas sem a rotina do
> calculo, compile o programa sem a rotina do calculo, reinicie o micro e faça
> a medição manualmente com um relógio e naum se assuste, caso tempo seje em
> média a metade do tempo gasto.
> este teste em específico ainda naum fiz, mas ja fiz diversos outros
> calculos e toda vez q marcava manualmente o tempo gasto era muito menor,
> principalmente em rotinas q levam minutos para serem executadas.
>
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> - Mensagem original 
> De: Robson <[EMAIL PROTECTED] >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 30 de Outubro de 2007 14:43:43
> Assunto: Res: [delphi-br] Testar conexão com a internet
>
> testei aki com velox discado e funcionou normal e ambas as repostas foram
> rapidas (menos 1 seg), o teste foi no clicando em um botão, naum teste como
> monitoramento.
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> - Mensagem original 
> De: Eduardo Silva dos Santos 
> Para: [EMAIL PROTECTED] os.com.br
> Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18
> Assunto: Re: [delphi-br] Testar conexão com a internet
>
> faz um teste, faz um sistema que chame a função, verifica o estado da
> conexão, sem fechar o sistema, desconecte e teste novamente..
>
> lembrando que eu reparei isso em conexão ADSL onde o modem esta roteado e
> eu
> conectado via redelocal.
>
> repare que na 1º verificação ele ate demora um pouco... mas ja na segunda
> é
> muito rápido..
>
> vou procurar a materia que relatava esse bug na API;
>
> para conexões discadas diretamente da máquina nunca testei.
>
> Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com> escreveu:
> >
> > Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> > Inclusive em casa que tenho essa situação que falou.
> >
> > Vlw
> >
> > --
> > Adriano Santos
> >  - - - - - -
> > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> >
> > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > http://www.delphito delphi.blogspot. com
> > http://www.devmedia .com.br
> > http://www.devmedia .com.br/clubedel phi/pagina. asp
> >
> > Eduardo Silva dos Santos respondeu:
> > >
> > > O problema dessa rotina é que se vc estiver conectado via rede-local
> > > atravez
> > > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > > modem.
> > >
> > > eu uso essa rotina:
> > >
> > > //Verifica a existe conexão à internet. //Uses Wininet
> > > Function IsConnectedOnIntern et:Boolean;
> > > begin
> > > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com
> > > ', 1, 0);
> > >
> > > end;
> > >
> > > o problema é que existe um bug na api do windows responsavel por
> checar
> > a
> > > conexão, a informação correta só é passada
> > > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > > continuar acusando o estado da primeira verificação.
> > >
> > > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> > >
> > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com que s.com>
> > > > escreveu:
> >
> > > >
> > > > uses
> > > > WinInet
> > > > ...
> > > > function DetectarInternet: Boolean;
> > > > var
> > > > Flags : dword;
> > > > begin
> > > > Result := InternetGetConnecte dState(@Flags, 0);
> > > > end;
> > > >
> > > > --
> > > > Adriano Santos
> > > >  - - - - - -
> > > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul,
> SP.
> > > >
> > > > Editor Técnico, Colunista e Comissão Editorial da revista
> ClubeDelphi.
> > > > http://www.delphito delphi.blogspot. com
> > > 
> > > > http://www.devmedia .com.br 
> > > > http://www.devmedia .com.br/clubedel phi/pagina. asp
> > > 
> > > >
> > > > Eduardo Silva respondeu:
> > > > >
> > > > > Galera, como eu faço para testar uma conexão com a internet e,
> caso
> > > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> > informando
> > > > > que a conexão com a internet não esta funcionando.
> > > > >
> > > > > Obrigado
> > > > >
> > > > > 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 removi

[delphi-br] estudos sobre dbexpress aplicao multicamadas e oracle

2007-10-30 Por tôpico alineri
Boa tarde pessoa,

Onde posso encontrar um material de estudo pode ser apostila, artigo 
livro sobre esse assunto : dbexpress + multicamadas + oracle

a versao do delphi que utilizo e 2006
o oracle 10g express

O que tenho encontrado por ai e muito superficial se alguem puder me 
dar essa dica desde ja agradeco

Sempre trabalhei com os componentes IBX ou ADO e Bancos Firebird, SQL 
Server e Access, e estou precisando estudar bem o dbexpress com oracle 
para um novo projeto.

desde ja agradeco a todos 

um forte abraco
alineri



[delphi-br] Backup SQL

2007-10-30 Por tôpico ML

Por favor

Alguem poderia me dizer qual a maneira mais segura de fazer backup de um banco 
em SQL-Express? 
Aquela opção do Studio Express é segura? 
Alguem tem ou sabe alguma rotina para fazer o backup via Delphi? 
Eu uso o Sdac para acessa-lo. 

Se alguem puder me ajudar, agradeço.

Marô 


[As partes desta mensagem que não continham texto foram removidas]



Res: Res: [delphi-br] Testar conexão com a inter net

2007-10-30 Por tôpico Robson
Esqueci:
depois de implementar a rotina, faça um outro teste, compile a aplicação, 
reinicie o micro e faça o teste, depois faça o teste mas sem a rotina do 
calculo, compile o programa sem a rotina do calculo, reinicie o micro e faça a 
medição manualmente com um relógio e naum se assuste, caso tempo seje em média 
a metade do tempo gasto.
este teste em específico ainda naum fiz, mas ja fiz diversos outros calculos e 
toda vez q marcava manualmente o tempo gasto era muito menor, principalmente em 
rotinas q levam minutos para serem executadas.
 
 
Kaputz, Robson
Skype: kaputz_gri
 "Keep the Dream Alive"



- Mensagem original 
De: Robson <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 14:43:43
Assunto: Res: [delphi-br] Testar conexão com a internet

testei aki com velox discado e funcionou normal e ambas as repostas foram 
rapidas (menos 1 seg), o teste foi no clicando em um botão, naum teste como 
monitoramento. 

Kaputz, Robson
Skype: kaputz_gri
"Keep the Dream Alive"

- Mensagem original 
De: Eduardo Silva dos Santos 
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18
Assunto: Re: [delphi-br] Testar conexão com a internet

faz um teste, faz um sistema que chame a função, verifica o estado da
conexão, sem fechar o sistema, desconecte e teste novamente..

lembrando que eu reparei isso em conexão ADSL onde o modem esta roteado e eu
conectado via redelocal.

repare que na 1º verificação ele ate demora um pouco... mas ja na segunda é
muito rápido..

vou procurar a materia que relatava esse bug na API;

para conexões discadas diretamente da máquina nunca testei.

Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com> escreveu:
>
> Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> Inclusive em casa que tenho essa situação que falou.
>
> Vlw
>
> --
> Adriano Santos
>  - - - - - -
> Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
>
> Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> http://www.delphito delphi.blogspot. com
> http://www.devmedia .com.br
> http://www.devmedia .com.br/clubedel phi/pagina. asp
>
> Eduardo Silva dos Santos respondeu:
> >
> > O problema dessa rotina é que se vc estiver conectado via rede-local
> > atravez
> > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > modem.
> >
> > eu uso essa rotina:
> >
> > //Verifica a existe conexão à internet. //Uses Wininet
> > Function IsConnectedOnIntern et:Boolean;
> > begin
> > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com
> > ', 1, 0);
> >
> > end;
> >
> > o problema é que existe um bug na api do windows responsavel por checar
> a
> > conexão, a informação correta só é passada
> > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > continuar acusando o estado da primeira verificação.
> >
> > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> >
> > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com > s.com>
> > > escreveu:
>
> > >
> > > uses
> > > WinInet
> > > ...
> > > function DetectarInternet: Boolean;
> > > var
> > > Flags : dword;
> > > begin
> > > Result := InternetGetConnecte dState(@Flags, 0);
> > > end;
> > >
> > > --
> > > Adriano Santos
> > >  - - - - - -
> > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> > >
> > > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > > http://www.delphito delphi.blogspot. com
> > 
> > > http://www.devmedia .com.br 
> > > http://www.devmedia .com.br/clubedel phi/pagina. asp
> > 
> > >
> > > Eduardo Silva respondeu:
> > > >
> > > > Galera, como eu faço para testar uma conexão com a internet e, caso
> > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> informando
> > > > que a conexão com a internet não esta funcionando.
> > > >
> > > > Obrigado
> > > >
> > > > 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]
> > > >
> > > >
> > > >  - - - - - -
> > > >
> > > > No virus found in this incoming message.
> > > > Checked by AVG Free Edition.
> > > > Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date:
> > > 29/10/2007 09:28
> > > >
> > >
> > >
> > >
> >
> > --
> >  . . . . ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: eduardo.drd@ gma

[delphi-br] BDE X .NET

2007-10-30 Por tôpico Agiw - André de Oliveira
Pessoal estou fazendo um programa em Windows Forms, que acessa a mesma base de 
uma aplicação feita em delphi win32 com BDE.

O BDE está configurado como Pdox ANSI Intl850, porém está dando problema com 
acentuação.

Vocês sabem uma forma de compatibilizar a acentuação nos dois sistemas?

André de Oliveira.


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Sergio S. Barbosa
Excelente sugestão: simples e funcional.
[]'s
Sérgio S. Barbosa

  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 30, 2007 2:40 PM
  Subject: RE: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma 
tarefa



  Imagino que vc, ao fazer essa inclusão de registros, esteja envolvendo toda a 
operação dentro de um contexto transacional. Após iniciar a transação, 
cronometre o tempo gasto na execução da primeira operação de inclusão. Como 
fazer isso? Muito simples!

  Após iniciar a transação e antes de efetuar a primeira operação de INSERT, 
pegue a 'hora inicial' usando o valor retornado pela função GetTickCount(), da 
API do Windows (unit Windows). Após a execução do INSERT, pegue a 'hora atual' 
usando novamente GetTickCount(). A diferença entre este valor e o valor 
capturado no início (em milissegundos) permitem estimar quanto tempo uma única 
operação irá levar. O tempo total será, portanto, a quantidade de registros a 
serem incluídos multiplicado por essa diferença encontrada.
  Dessa forma, pode-se montar um tela com uma barra de progresso que, além de 
mostrar o andamento atual do processamento, poderá mostrar o tempo estimado e o 
tempo atual de processamento da operação.

  Esta é a minha sugestão. Não recomendo ir tão à fundo no cálculo dessa 
estimativa baseando-se no tempo de execução de outros processos. Acredito que 
esse básico seja mais do que suficiente. Agora, se a operação estiver levando 
mais tempo que o normal, seria o caso de rever o algoritmo usado neste processo 
para que este seja otimizado, seja este processo o que for.

  Sds.

  To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 30 Oct 2007 10:17:27 
-0700Subject: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma 
tarefa

  Já uso a barra, mas eu queria mesmo era dar uma estimativa antes de começar a 
tarefa.- Mensagem original De: Davi Eduardo Borges Wall <[EMAIL 
PROTECTED]>Para: [EMAIL PROTECTED]: Terça-feira, 30 de Outubro de 2007 
15:05:03Assunto: RES: [delphi-br] Estimar o tempo que será gasto com uma 
tarefaUma barra de progresso não ajudaria?De: [EMAIL PROTECTED] os.com.br 
[mailto:[EMAIL PROTECTED] os.com.br] Em nome de EvaldoEnviada em: terça-feira, 
30 de outubro de 2007 13:54Para: [EMAIL PROTECTED] os.com.brAssunto: 
[delphi-br] Estimar o tempo que será gasto com uma tarefaAlguém tem alguma 
formula onde eu possa calcular o tempo que será gasto com o processamento de 
uma tarefa? Por exemplo: vou inserir 4000 registro no banco, então eu faria o 
calculo de aproximação do tempo que será gasto para a inserção dos registros e 
mostraria uma msg ao usuário com o tempo estimado . Penso que teria que levar 
em consideração o hardware da máquina e os processos que já estão rodando no 
momento.É possível fazer esse calculo?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][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] 

  __
  Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas 
com Windows Desktop Search GRÁTIS!
  http://desktop.msn.com.br/

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]



Res: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Evaldo
Muito boa sugestão!

 As vezes a gente complica algo que é muito simples por estar stressado demais.
Obrigado.
 


- Mensagem original 
De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 14:40:45
Assunto: RE: Res: RES: [delphi-br] Estimar  o tempo que será gasto com uma 
tarefa









  





Imagino que vc, ao fazer essa inclusão de registros, esteja envolvendo toda a 
operação dentro de um contexto transacional. Após iniciar a transação, 
cronometre o tempo gasto na execução da primeira operação de inclusão. Como 
fazer isso? Muito simples!

 

Após iniciar a transação e antes de efetuar a primeira operação de INSERT, 
pegue a 'hora inicial' usando o valor retornado pela função GetTickCount( ), da 
API do Windows (unit Windows). Após a execução do INSERT, pegue a 'hora atual' 
usando novamente GetTickCount( ). A diferença entre este valor e o valor 
capturado no início (em milissegundos) permitem estimar quanto tempo uma única 
operação irá levar. O tempo total será, portanto, a quantidade de registros a 
serem incluídos multiplicado por essa diferença encontrada.

Dessa forma, pode-se montar um tela com uma barra de progresso que, além de 
mostrar o andamento atual do processamento, poderá mostrar o tempo estimado e o 
tempo atual de processamento da operação.

 

Esta é a minha sugestão. Não recomendo ir tão à fundo no cálculo dessa 
estimativa baseando-se no tempo de execução de outros processos. Acredito que 
esse básico seja mais do que suficiente. Agora, se a operação estiver levando 
mais tempo que o normal, seria o caso de rever o algoritmo usado neste processo 
para que este seja otimizado, seja este processo o que for.

 

Sds.



To: [EMAIL PROTECTED] os.com.brFrom: evaldoavelar@ yahoo.com. brDate: Tue, 30 
Oct 2007 10:17:27 -0700Subject: Res: RES: [delphi-br] Estimar o tempo que será 
gasto com uma tarefa



Já uso a barra, mas eu queria mesmo era dar uma estimativa antes de começar a 
tarefa.- Mensagem original De: Davi Eduardo Borges Wall <[EMAIL 
PROTECTED] com.br>Para: [EMAIL PROTECTED] os.com.brEnviada s: Terça-feira, 30 
de Outubro de 2007 15:05:03Assunto: RES: [delphi-br] Estimar o tempo que será 
gasto com uma tarefaUma barra de progresso não ajudaria?De: [EMAIL PROTECTED] 
os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] Em nome de EvaldoEnviada 
em: terça-feira, 30 de outubro de 2007 13:54Para: [EMAIL PROTECTED] 
os.com.brAssunto: [delphi-br] Estimar o tempo que será gasto com uma 
tarefaAlguém tem alguma formula onde eu possa calcular o tempo que será gasto 
com o processamento de uma tarefa? Por exemplo: vou inserir 4000 registro no 
banco, então eu faria o calculo de aproximação do tempo que será gasto para a 
inserção dos registros e mostraria uma msg ao usuário com o tempo estimado . 
Penso que teria que levar em
 consideração o hardware da máquina e os processos que já estão rodando no 
momento.É possível fazer esse calculo?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][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] 



 _ _ _ _ _ _

Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas 
com Windows Desktop Search GRÁTIS!

http://desktop. msn.com.br/



[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]



RES: [delphi-br] Estimar o tempo que será gasto c om uma tarefa

2007-10-30 Por tôpico Robson
é terá q fazer usando uma regra de 3 e recalculando a cada n registros, pois a 
variação é grande, uso da cpu, serviços abertos no momento, novas consultas, 
inserções de outros usuarios, cache do banco de dados, cache do hd, e etc...

Kaputz, Robson
Skype: kaputz_gri
"Keep the Dream Alive"



- Mensagem original 
De: Elazar Dornelles Ceza <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 14:20:57
Assunto: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa

Voce consegue saber o tempo apartir do primeiro registro processado, e assim ir 
calculando uma média usando uma regra de 3.

Atenc;
Elazar

- Mensagem original 
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED] com.br>
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 15:05:03
Assunto: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa

Uma barra de progresso não ajudaria?

De: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] Em 
nome de Evaldo
Enviada em: terça-feira, 30 de outubro de 2007 13:54
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Estimar o tempo que será gasto com uma tarefa

Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 

Por exemplo: 
vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do 
tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 

Penso que teria que levar em consideração o hardware da máquina e os processos 
que já estão rodando no momento.

É possível fazer esse calculo?

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]

[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]





  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] CDS - Estamos quase lá !!!

2007-10-30 Por tôpico Luciano Angelini
Red Mosquito 

Acesse o Link  tem um exemplo prático para fazer o Master/Detail 
tem até uma video Aula 

http://clip2net.com/page/m543/40732

é necessario instalar os codec (tscc)

ESpero ter ajudado 

Luciano Angelini
Prefeitura de Lupionópolis-Pr

Red Mosquito escreveu:
>
> Primeiramente muito obrigado a todos que me ajudaram até o momento.
>
> Foi de enorme valia a participação nesta lista.
>
> Mas ainda resta somente uma dúvida:
>
> Montei 2 “trios” cf. os amigos mandaram:
>
> ADOQuery ---> DataSetProvider > CDS
>
> 1 para Notas Fiscais e 1 para Itens das Notas Fiscais
>
> Porém para ler os itens de cada NF precisei utilizar Parâmetros.
>
> Como no próprio select colocado no ADOQuery.ItensNF já tinha o 
> ‘select.
> where itens.codigo_nf = :codigo_nota’
>
> então já foi assumido em ADOQuery.ItensNF o parâmetro CODIGO_NOTA.
>
> Porém na programação qdo dou o Open em CDS.ItensNF o parâmetro vem zerado,
> sendo
>
> que antes deste open eu coloquei
>
> QryItensNF.Parameters.ParamByName('codigo_nota').Value :=
> CDSNotaCODIGO.Value;
>
> Tem algo mais a ser feito ?
>
> No ADOQuery.ItensNF, em Parameters, o CODIGO_NOTA está como
>
> DataType = Integer
>
> Direction = Input
>
> Size = -1
>
> Value = Null
>
> Desde já muitíssimo obrigado pela atenção com este iniciante
>
> Atenciosamente,
>
> Junior
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 


Res: [delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Robson
testei aki com velox discado e funcionou normal e ambas as repostas foram 
rapidas (menos 1 seg), o teste foi no clicando em um botão, naum teste como 
monitoramento. 
 
Kaputz, Robson
Skype: kaputz_gri
"Keep the Dream Alive"



- Mensagem original 
De: Eduardo Silva dos Santos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18
Assunto: Re: [delphi-br] Testar conexão com a internet

faz um teste, faz um sistema que chame a função, verifica o estado da
conexão, sem fechar o sistema, desconecte e teste novamente..

lembrando que eu reparei isso em conexão ADSL onde o modem esta roteado e eu
conectado via redelocal.

repare que na 1º verificação ele ate demora um pouco... mas ja na segunda é
muito rápido..

vou procurar a materia que relatava esse bug na API;

para conexões discadas diretamente da máquina nunca testei.

Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com> escreveu:
>
> Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> Inclusive em casa que tenho essa situação que falou.
>
> Vlw
>
> --
> Adriano Santos
>  - - - - - -
> Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
>
> Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> http://www.delphito delphi.blogspot. com
> http://www.devmedia .com.br
> http://www.devmedia .com.br/clubedel phi/pagina. asp
>
> Eduardo Silva dos Santos respondeu:
> >
> > O problema dessa rotina é que se vc estiver conectado via rede-local
> > atravez
> > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > modem.
> >
> > eu uso essa rotina:
> >
> > //Verifica a existe conexão à internet. //Uses Wininet
> > Function IsConnectedOnIntern et:Boolean;
> > begin
> > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com
> > ', 1, 0);
> >
> > end;
> >
> > o problema é que existe um bug na api do windows responsavel por checar
> a
> > conexão, a informação correta só é passada
> > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > continuar acusando o estado da primeira verificação.
> >
> > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> >
> > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] com
> > > escreveu:
>
> > >
> > > uses
> > > WinInet
> > > ...
> > > function DetectarInternet: Boolean;
> > > var
> > > Flags : dword;
> > > begin
> > > Result := InternetGetConnecte dState(@Flags, 0);
> > > end;
> > >
> > > --
> > > Adriano Santos
> > >  - - - - - -
> > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> > >
> > > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > > http://www.delphito delphi.blogspot. com
> > 
> > > http://www.devmedia .com.br 
> > > http://www.devmedia .com.br/clubedel phi/pagina. asp
> > 
> > >
> > > Eduardo Silva respondeu:
> > > >
> > > > Galera, como eu faço para testar uma conexão com a internet e, caso
> > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> informando
> > > > que a conexão com a internet não esta funcionando.
> > > >
> > > > Obrigado
> > > >
> > > > 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]
> > > >
> > > >
> > > >  - - - - - -
> > > >
> > > > No virus found in this incoming message.
> > > > Checked by AVG Free Edition.
> > > > Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date:
> > > 29/10/2007 09:28
> > > >
> > >
> > >
> > >
> >
> > --
> >  . . . . ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: eduardo.drd@ gmail.com   eduardo.drd% 40gmail.com>
> > Site: http://www.drdsiste mas.com/ 
> >  . . . . ...
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >  - - - - - -
> >
> > No virus found in this incoming message.
> > Checked by AVG Free Edition.
> > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007 10:06
> >
>
> 
>

-- 
 . . . . ...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com/
 . . . . ...

[As partes desta mensagem que não continham texto foram re

Re: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Adriano de Oliveira
Você pode ir calculando o tempo a cada registro...
Porque no primeiro pode demorar um tempo, no segundo demora um pouco mais ou um 
pouco menos.
Então a cada registro vc pode calcular o tempo total, dividir pela qtde de 
registros q ja foi e multiplicar
pela quantidade de registros que ainda faltam.
Com isso na tela vc vai perceber q o tempo estimado pode ir variando de 
registro a registro, dependendo
do processador, memória, processos rodando na maquina ou servidor, etc
Então a cada registro vc mostra o tempo que passou e o tempo estimado q vc 
calculou.

[]'s Adriano

  - Original Message - 
  From: Evaldo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 30, 2007 1:54 PM
  Subject: [delphi-br] Estimar o tempo que será gasto com uma tarefa


  Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 

  Por exemplo: 
  vou inserir 4000 registro no banco, então eu faria o calculo de aproximação 
do tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 

  Penso que teria que levar em consideração o hardware da máquina e os 
processos que já estão rodando no momento.

  É possível fazer esse calculo?

  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]



   

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Destruindo componentes

2007-10-30 Por tôpico Red Mosquito
Após utilizar um componente criado em tempo de execução (Query, CDS,
DataSet)

com o CREATE, qual a melhor forma de destruí-los ?

 

FreeAndNil ?  Destroy ?

 

 

 

Desde já muitíssimo obrigado pela atenção com este iniciante

 

Atenciosamente,

 

Junior

 



[As partes desta mensagem que não continham texto foram removidas]



RE: Res: RES: [delphi-br] Estimar o tempo que será gast o com uma tarefa

2007-10-30 Por tôpico Rubem Nascimento da Rocha

Imagino que vc, ao fazer essa inclusão de registros, esteja envolvendo toda a 
operação dentro de um contexto transacional. Após iniciar a transação, 
cronometre o tempo gasto na execução da primeira operação de inclusão. Como 
fazer isso? Muito simples!
 
Após iniciar a transação e antes de efetuar a primeira operação de INSERT, 
pegue a 'hora inicial' usando o valor retornado pela função GetTickCount(), da 
API do Windows (unit Windows). Após a execução do INSERT, pegue a 'hora atual' 
usando novamente GetTickCount(). A diferença entre este valor e o valor 
capturado no início (em milissegundos) permitem estimar quanto tempo uma única 
operação irá levar. O tempo total será, portanto, a quantidade de registros a 
serem incluídos multiplicado por essa diferença encontrada.
Dessa forma, pode-se montar um tela com uma barra de progresso que, além de 
mostrar o andamento atual do processamento, poderá mostrar o tempo estimado e o 
tempo atual de processamento da operação.
 
Esta é a minha sugestão. Não recomendo ir tão à fundo no cálculo dessa 
estimativa baseando-se no tempo de execução de outros processos. Acredito que 
esse básico seja mais do que suficiente. Agora, se a operação estiver levando 
mais tempo que o normal, seria o caso de rever o algoritmo usado neste processo 
para que este seja otimizado, seja este processo o que for.
 
Sds.


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 30 Oct 2007 10:17:27 
-0700Subject: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma 
tarefa




Já uso a barra, mas eu queria mesmo era dar uma estimativa antes de começar a 
tarefa.- Mensagem original De: Davi Eduardo Borges Wall <[EMAIL 
PROTECTED]>Para: [EMAIL PROTECTED]: Terça-feira, 30 de Outubro de 2007 
15:05:03Assunto: RES: [delphi-br] Estimar o tempo que será gasto com uma 
tarefaUma barra de progresso não ajudaria?De: [EMAIL PROTECTED] os.com.br 
[mailto:[EMAIL PROTECTED] os.com.br] Em nome de EvaldoEnviada em: terça-feira, 
30 de outubro de 2007 13:54Para: [EMAIL PROTECTED] os.com.brAssunto: 
[delphi-br] Estimar o tempo que será gasto com uma tarefaAlguém tem alguma 
formula onde eu possa calcular o tempo que será gasto com o processamento de 
uma tarefa? Por exemplo: vou inserir 4000 registro no banco, então eu faria o 
calculo de aproximação do tempo que será gasto para a inserção dos registros e 
mostraria uma msg ao usuário com o tempo estimado . Penso que teria que levar 
em consideração o hardware da máquina e os processos que já estão rodando no 
momento.É possível fazer esse calculo?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][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] 






_
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas 
com Windows Desktop Search GRÁTIS!
http://desktop.msn.com.br/

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Página do Walter s/ ClientDataSet

2007-10-30 Por tôpico Sergio Eurico
Ja tentou o Google??

Pesquise por: Walter Chagas ClientDataSet

Voce vai achar o link pro site dele... e pro artigo.



Em 30/10/07, Red Mosquito <[EMAIL PROTECTED]> escreveu:
>
>   Alguém tem fácil aí a página do Walter Chagas Jr sobre ClientDataSet ?
>
> Desde já muitíssimo obrigado pela atenção com este iniciante
>
> Atenciosamente,
>
> Junior
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


[As partes desta mensagem que não continham texto foram removidas]



Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Evaldo
Já uso a barra, mas eu queria mesmo era dar uma estimativa antes de começar a 
tarefa.
 


- Mensagem original 
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 15:05:03
Assunto: RES: [delphi-br] Estimar  o tempo que será gasto com uma tarefa









  



Uma barra de progresso não ajudaria?



De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Evaldo

Enviada em: terça-feira, 30 de outubro de 2007 13:54

Para: [EMAIL PROTECTED] os.com.br

Assunto: [delphi-br] Estimar o tempo que será gasto com uma tarefa



Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 



Por exemplo: 

vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do 
tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 



Penso que teria que levar em consideração o hardware da máquina e os processos 
que já estão rodando no momento.



É possível fazer esse calculo?



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]



[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]



Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Elazar Dornelles Ceza
Voce consegue saber o tempo apartir do primeiro registro processado, e assim ir 
calculando uma média usando uma regra de 3.

Atenc;
Elazar


- Mensagem original 
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 30 de Outubro de 2007 15:05:03
Assunto: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa

Uma barra de progresso não ajudaria?

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Evaldo
Enviada em: terça-feira, 30 de outubro de 2007 13:54
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Estimar o tempo que será gasto com uma tarefa

Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 

Por exemplo: 
vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do 
tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 

Penso que teria que levar em consideração o hardware da máquina e os processos 
que já estão rodando no momento.

É possível fazer esse calculo?

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]

[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]



[delphi-br] Report Bullder - como fazer isto?

2007-10-30 Por tôpico Eduardo Galvão
Pessoal,

No Report Builder, tenho um relatório onde alguns registros
possuem uma observação associada.

Eu quero que estas observações saiam no rodapé DA PÁGINA,
alguém teria alguma dica?

Veja, no rodapé de um GRUPO, ou ainda no rodapé final do relatório, 
eu consigo, mas no final da página é que está pegando..

Saudações,

Eduardo Paci Galvão
Engenheiro Eletricista - UFMG 1990
www.egalvao.com.br


[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Estimar o tempo que será gasto c om uma tarefa

2007-10-30 Por tôpico Davi Eduardo Borges Wall
Uma barra de progresso não ajudaria?

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evaldo
Enviada em: terça-feira, 30 de outubro de 2007 13:54
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Estimar o tempo que será gasto com uma tarefa

 

Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 

Por exemplo: 
vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do 
tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 

Penso que teria que levar em consideração o hardware da máquina e os processos 
que já estão rodando no momento.

É possível fazer esse calculo?

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]

 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Estimar o tempo que será gasto com uma tarefa

2007-10-30 Por tôpico Evaldo
Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o 
processamento de uma tarefa? 

 Por exemplo:  
  vou inserir 4000 registro no banco, então eu faria o calculo de aproximação 
do tempo que será gasto para a inserção dos registros e mostraria uma msg ao 
usuário com o tempo estimado . 

Penso que teria que levar em consideração o hardware da máquina e os processos 
que já estão rodando no momento.

É possível fazer esse calculo?



  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] Testar conexão com a inte rnet

2007-10-30 Por tôpico Adriano Santos
Blz velho, vou dar uma testada em casa. Em casa é Speedy com roteador 
wireless.

Abs

Eduardo Silva dos Santos respondeu:
>
> faz um teste, faz um sistema que chame a função, verifica o estado da
> conexão, sem fechar o sistema, desconecte e teste novamente..
>
> lembrando que eu reparei isso em conexão ADSL onde o modem esta 
> roteado e eu
> conectado via redelocal.
>
> repare que na 1º verificação ele ate demora um pouco... mas ja na 
> segunda é
> muito rápido..
>
> vou procurar a materia que relatava esse bug na API;
>
> para conexões discadas diretamente da máquina nunca testei.
>
> Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] 
> > escreveu:
> >
> > Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> > Inclusive em casa que tenho essa situação que falou.
> >
> > Vlw
> >
> > --
> > Adriano Santos
> > --
> > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> >
> > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > http://www.delphitodelphi.blogspot.com 
> 
> > http://www.devmedia.com.br 
> > http://www.devmedia.com.br/clubedelphi/pagina.asp 
> 
> >
> > Eduardo Silva dos Santos respondeu:
> > >
> > > O problema dessa rotina é que se vc estiver conectado via rede-local
> > > atravez
> > > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > > modem.
> > >
> > > eu uso essa rotina:
> > >
> > > //Verifica a existe conexão à internet. //Uses Wininet
> > > Function IsConnectedOnInternet:Boolean;
> > > begin
> > > Result := InternetCheckConnection( 'http://www.drdsistemas.com 
> 
> > > >', 1, 0);
> > >
> > > end;
> > >
> > > o problema é que existe um bug na api do windows responsavel por 
> checar
> > a
> > > conexão, a informação correta só é passada
> > > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > > continuar acusando o estado da primeira verificação.
> > >
> > > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> > >
> > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] 
> 
> > > > escreveu:
> >
> > > >
> > > > uses
> > > > WinInet
> > > > ...
> > > > function DetectarInternet: Boolean;
> > > > var
> > > > Flags : dword;
> > > > begin
> > > > Result := InternetGetConnectedState(@Flags, 0);
> > > > end;
> > > >
> > > > --
> > > > Adriano Santos
> > > > --
> > > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > > Bacharel em Comunicação Social pela Universidade Cruzeiro do 
> Sul, SP.
> > > >
> > > > Editor Técnico, Colunista e Comissão Editorial da revista 
> ClubeDelphi.
> > > > http://www.delphitodelphi.blogspot.com 
> 
> > >  >
> > > > http://www.devmedia.com.br  
> >
> > > > http://www.devmedia.com.br/clubedelphi/pagina.asp 
> 
> > >  >
> > > >
> > > > Eduardo Silva respondeu:
> > > > >
> > > > > Galera, como eu faço para testar uma conexão com a internet e, 
> caso
> > > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> > informando
> > > > > que a conexão com a internet não esta funcionando.
> > > > >
> > > > > Obrigado
> > > > >
> > > > > 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]
> > > > >
> > > > >
> > > > > --
> > > > >
> > > > > No virus found in this incoming message.
> > > > > Checked by AVG Free Edition.
> > > > > Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date:
> > > > 29/10/2007 09:28
> > > > >
> > > >
> > > >
> > > >
> > >
> > > --
> > > ...
> > > Eduardo Silva dos Santos
> > > DRD Sistemas.
> > > (27) 3218-4201
> > > MSN: [EMAIL PROTECTED]  
>   > eduardo.drd%40gmail.com>
> > > Site: http://www.drdsistemas.com/  
> >
> > > ...
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > > --
> > >
> >

Re: [delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Eduardo Silva dos Santos
faz um teste, faz um sistema que chame a função, verifica o estado da
conexão, sem fechar o sistema, desconecte e teste novamente..

lembrando que eu reparei isso em conexão ADSL onde o modem esta roteado e eu
conectado via redelocal.

repare que na 1º verificação ele ate demora um pouco... mas ja na segunda é
muito rápido..

vou procurar  a materia que relatava esse bug na API;

para conexões discadas diretamente da máquina nunca testei.

Em 30/10/07, Adriano Santos <[EMAIL PROTECTED]> escreveu:
>
>   Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
> Inclusive em casa que tenho essa situação que falou.
>
> Vlw
>
> --
> Adriano Santos
> --
> Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
>
> Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> http://www.delphitodelphi.blogspot.com
> http://www.devmedia.com.br
> http://www.devmedia.com.br/clubedelphi/pagina.asp
>
> Eduardo Silva dos Santos respondeu:
> >
> > O problema dessa rotina é que se vc estiver conectado via rede-local
> > atravez
> > de router, ela sempre retorna que esta conectado, mesmo desligando o
> > modem.
> >
> > eu uso essa rotina:
> >
> > //Verifica a existe conexão à internet. //Uses Wininet
> > Function IsConnectedOnInternet:Boolean;
> > begin
> > Result := InternetCheckConnection( 'http://www.drdsistemas.com
> > ', 1, 0);
> >
> > end;
> >
> > o problema é que existe um bug na api do windows responsavel por checar
> a
> > conexão, a informação correta só é passada
> > uma vez, vc checa, se depois disso desconectar e checar novamente vai
> > continuar acusando o estado da primeira verificação.
> >
> > mas como faço a verificação ao iniciar o sistema pra min resolveu.
> >
> > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED]
> > > escreveu:
>
> > >
> > > uses
> > > WinInet
> > > ...
> > > function DetectarInternet: Boolean;
> > > var
> > > Flags : dword;
> > > begin
> > > Result := InternetGetConnectedState(@Flags, 0);
> > > end;
> > >
> > > --
> > > Adriano Santos
> > > --
> > > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> > >
> > > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > > http://www.delphitodelphi.blogspot.com
> > 
> > > http://www.devmedia.com.br 
> > > http://www.devmedia.com.br/clubedelphi/pagina.asp
> > 
> > >
> > > Eduardo Silva respondeu:
> > > >
> > > > Galera, como eu faço para testar uma conexão com a internet e, caso
> > > > ela não esteja funcionando, enviar uma mensagem ao usuário
> informando
> > > > que a conexão com a internet não esta funcionando.
> > > >
> > > > Obrigado
> > > >
> > > > 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]
> > > >
> > > >
> > > > --
> > > >
> > > > No virus found in this incoming message.
> > > > Checked by AVG Free Edition.
> > > > Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date:
> > > 29/10/2007 09:28
> > > >
> > >
> > >
> > >
> >
> > --
> > ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]   eduardo.drd%40gmail.com>
> > Site: http://www.drdsistemas.com/ 
> > ...
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> > --
> >
> > No virus found in this incoming message.
> > Checked by AVG Free Edition.
> > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date:
> 30/10/2007 10:06
> >
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Testar conexão com a inte rnet

2007-10-30 Por tôpico Adriano Santos
Estranho viu Eduardo, uso pra tudo e nunca tive problemas.
Inclusive em casa que tenho essa situação que falou.

Vlw

-- 
Adriano Santos
-
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
http://www.delphitodelphi.blogspot.com
http://www.devmedia.com.br
http://www.devmedia.com.br/clubedelphi/pagina.asp




Eduardo Silva dos Santos respondeu:
>
> O problema dessa rotina é que se vc estiver conectado via rede-local 
> atravez
> de router, ela sempre retorna que esta conectado, mesmo desligando o 
> modem.
>
> eu uso essa rotina:
>
> //Verifica a existe conexão à internet. //Uses Wininet
> Function IsConnectedOnInternet:Boolean;
> begin
> Result := InternetCheckConnection( 'http://www.drdsistemas.com 
> ', 1, 0);
>
> end;
>
> o problema é que existe um bug na api do windows responsavel por checar a
> conexão, a informação correta só é passada
> uma vez, vc checa, se depois disso desconectar e checar novamente vai
> continuar acusando o estado da primeira verificação.
>
> mas como faço a verificação ao iniciar o sistema pra min resolveu.
>
> Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] 
> > escreveu:
> >
> > uses
> > WinInet
> > ...
> > function DetectarInternet: Boolean;
> > var
> > Flags : dword;
> > begin
> > Result := InternetGetConnectedState(@Flags, 0);
> > end;
> >
> > --
> > Adriano Santos
> > --
> > Desenvolvedor Delphi desde 1998. Professor e programador PHP.
> > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
> >
> > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
> > http://www.delphitodelphi.blogspot.com 
> 
> > http://www.devmedia.com.br 
> > http://www.devmedia.com.br/clubedelphi/pagina.asp 
> 
> >
> > Eduardo Silva respondeu:
> > >
> > > Galera, como eu faço para testar uma conexão com a internet e, caso
> > > ela não esteja funcionando, enviar uma mensagem ao usuário informando
> > > que a conexão com a internet não esta funcionando.
> > >
> > > Obrigado
> > >
> > > 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]
> > >
> > >
> > > --
> > >
> > > No virus found in this incoming message.
> > > Checked by AVG Free Edition.
> > > Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date:
> > 29/10/2007 09:28
> > >
> >
> >
> >
>
> -- 
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/ 
> ...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
> 
>
> No virus found in this incoming message.
> Checked by AVG Free Edition. 
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007 
> 10:06
>   



[delphi-br] CDS - Estamos quase lá !!!

2007-10-30 Por tôpico Red Mosquito
Primeiramente muito obrigado a todos que me ajudaram até o momento.

Foi de enorme valia a participação nesta lista.

 

Mas ainda resta somente uma dúvida:

 

Montei 2 “trios” cf. os amigos mandaram:

ADOQuery ---> DataSetProvider >  CDS

 

1 para Notas Fiscais e 1 para Itens das Notas Fiscais

 

Porém para ler os itens de cada NF precisei utilizar Parâmetros.

Como no próprio select colocado no ADOQuery.ItensNF já tinha o ‘select.
where itens.codigo_nf = :codigo_nota’

então já foi assumido em ADOQuery.ItensNF o parâmetro CODIGO_NOTA.

 

Porém na programação qdo dou o Open em CDS.ItensNF o parâmetro vem zerado,
sendo

que antes deste open eu coloquei

QryItensNF.Parameters.ParamByName('codigo_nota').Value :=
CDSNotaCODIGO.Value;

 

Tem algo mais a ser feito ?

 

No ADOQuery.ItensNF, em Parameters, o CODIGO_NOTA está como

DataType = Integer

Direction = Input

Size =  -1

Value  =  Null

 

 

 

 

Desde já muitíssimo obrigado pela atenção com este iniciante

 

Atenciosamente,

 

Junior

 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] BDE X MyBase

2007-10-30 Por tôpico leojahu
Deixando de lado a criação de programas com SGBDs, qual a diferença em 
se criar sistemas com arquivos XML/CDS ao invés do paradox?
Paradox = MULTI-USUÁRIO e MyBase = MONO-USUÁRIO?
Posso criar um sistema com tabelas XML e colocar em um servidor 
WIN2003 para alguns usuários o acessarem via Terminal Services?



Re: [delphi-br] ClientDataSet

2007-10-30 Por tôpico Luciano Angelini
Boa Tarde Red Mosquito 


Vc tem que liga o DataSource com o ClientDataSet  o ClientDataSet 
com DataSetProvider ... e finalmente o DataSetProvider no ADOQuery . 
e seu Select com coloca no ADOQuery e não no ClientDataSet ...


Espero ter ajudado 


Luciano Angelini
Prefeitura de Lupiponópolis-Pr

Red Mosquito escreveu:
>
> Fácil, só pra quem entende:
>
> -Coloquei um CDS no meu form
>
> -Coloquei Active=True + CommandText ‘select * from clientes’
>
> -na programação apenas dou um Open no CDS e em seguido verifico o
> RecordCount dele
>
> POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?
>
> Detalhes:
>
> -Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.
>
> -No CDS não é preciso ConnectionSring ?
>
> Delphi7 + SQLServer + ADO
>
> Desde já muitíssimo obrigado pela atenção com este iniciante.
>
> Atenciosamente,
>
> Junior
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 


Re: RES: [delphi-br] ClientDataSet

2007-10-30 Por tôpico Adriano Santos
Depende.
Se colocar no CommandText do ClientDataSet terá que marcar como True a 
propriedade AllowCommandText do DataSetProvider, se não coloque apenas 
do ADOQuery. Em ambos os casos você passa o parâmetro para o 
ClientDataSet e o abre.

Abs

-- 
Adriano Santos
-
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
http://www.delphitodelphi.blogspot.com
http://www.devmedia.com.br
http://www.devmedia.com.br/clubedelphi/pagina.asp




Red Mosquito respondeu:
>
> Não, estou apenas com o DataSetProvider.
>
> Dúvida:
>
> Se tem que colocar o ADOQuery junto, onde colocarei meu ‘select * from
> clientes’ ?
>
> Na propriedade propriedade SQL do ADOQuery ou no CommandTexto do CDS ?
>
> Novamente muito obrigado pela ajuda
>
> Junior
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de Valdir Sola
> Enviada em: terça-feira, 30 de outubro de 2007 12:43
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: [delphi-br] ClientDataSet
>
> vc está utilizando ele junto c/ o SQLQuery+DataSetProvider?
> - Original Message -
> From: Red Mosquito
> To: lista-delphi@ 
> yahoogrupos.com.br ; [EMAIL PROTECTED]
>  os.com.br
> Sent: Tuesday, October 30, 2007 12:19 PM
> Subject: [delphi-br] ClientDataSet
>
> Fácil, só pra quem entende:
>
> -Coloquei um CDS no meu form
>
> -Coloquei Active=True + CommandText 'select * from clientes'
>
> -na programação apenas dou um Open no CDS e em seguido verifico o
> RecordCount dele
>
> POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?
>
> Detalhes:
>
> -Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.
>
> -No CDS não é preciso ConnectionSring ?
>
> Delphi7 + SQLServer + ADO
>
> Desde já muitíssimo obrigado pela atenção com este iniciante.
>
> Atenciosamente,
>
> Junior
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
> E-mail classificado pelo Identificador de Spam Inteligente.
> Para alterar a categoria classificada, visite o Terra Mail
>
> --
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 29/10/2007 / Versão:
> 5.1.00/5151
> Proteja o seu e-mail Terra: http://mail.  >
> terra.com.br/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
> 
>
> No virus found in this incoming message.
> Checked by AVG Free Edition. 
> Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007 
> 10:06
>   

-- 


*Adriano Santos*


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 


Re: [delphi-br] ClientDataSet

2007-10-30 Por tôpico Valdir Sola
Na propriedade sql do adoquery. Vc liga o cds no datasetprovider e este ao 
query.
  - Original Message - 
  From: Red Mosquito 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 30, 2007 1:17 PM
  Subject: RES: [delphi-br] ClientDataSet


  Não, estou apenas com o DataSetProvider.

  Dúvida:

  Se tem que colocar o ADOQuery junto, onde colocarei meu 'select * from
  clientes' ?

  Na propriedade propriedade SQL do ADOQuery ou no CommandTexto do CDS ?

  Novamente muito obrigado pela ajuda

  Junior

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de Valdir Sola
  Enviada em: terça-feira, 30 de outubro de 2007 12:43
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] ClientDataSet

  vc está utilizando ele junto c/ o SQLQuery+DataSetProvider?
  - Original Message - 
  From: Red Mosquito 
  To: lista-delphi@ 
  yahoogrupos.com.br ; [EMAIL PROTECTED]
   os.com.br 
  Sent: Tuesday, October 30, 2007 12:19 PM
  Subject: [delphi-br] ClientDataSet

  Fácil, só pra quem entende:

  -Coloquei um CDS no meu form

  -Coloquei Active=True + CommandText 'select * from clientes'

  -na programação apenas dou um Open no CDS e em seguido verifico o
  RecordCount dele

  POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?

  Detalhes:

  -Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.

  -No CDS não é preciso ConnectionSring ?

  Delphi7 + SQLServer + ADO

  Desde já muitíssimo obrigado pela atenção com este iniciante.

  Atenciosamente,

  Junior 

  [As partes desta mensagem que não continham texto foram removidas]

  --
  E-mail classificado pelo Identificador de Spam Inteligente.
  Para alterar a categoria classificada, visite o Terra Mail 

  --
  Esta mensagem foi verificada pelo E-mail Protegido Terra.
  Scan engine: McAfee VirusScan / Atualizado em 29/10/2007 / Versão:
  5.1.00/5151
  Proteja o seu e-mail Terra: http://mail. 
  terra.com.br/ 

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



   


--
  E-mail classificado pelo Identificador de Spam Inteligente.
  Para alterar a categoria classificada, visite o Terra Mail 



--
  Esta mensagem foi verificada pelo E-mail Protegido Terra.
  Scan engine: McAfee VirusScan / Atualizado em 29/10/2007 / Versão: 5.1.00/5151
  Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Página do Walter s/ ClientDataSet

2007-10-30 Por tôpico Red Mosquito
Alguém tem fácil aí a página do Walter Chagas Jr sobre ClientDataSet ?

 

 

 

 

Desde já muitíssimo obrigado pela atenção com este iniciante

 

Atenciosamente,

 

Junior

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] ClientDataSet

2007-10-30 Por tôpico Red Mosquito
Não, estou apenas com o DataSetProvider.

 

Dúvida:

Se tem que colocar o ADOQuery junto, onde colocarei meu ‘select * from
clientes’ ?

Na propriedade propriedade SQL do ADOQuery ou no CommandTexto do CDS ?

 

Novamente muito obrigado pela ajuda

 

Junior

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Valdir Sola
Enviada em: terça-feira, 30 de outubro de 2007 12:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ClientDataSet

 

vc está utilizando ele junto c/ o SQLQuery+DataSetProvider?
- Original Message - 
From: Red Mosquito 
To: lista-delphi@ 
yahoogrupos.com.br ; [EMAIL PROTECTED]
 os.com.br 
Sent: Tuesday, October 30, 2007 12:19 PM
Subject: [delphi-br] ClientDataSet

Fácil, só pra quem entende:

-Coloquei um CDS no meu form

-Coloquei Active=True + CommandText 'select * from clientes'

-na programação apenas dou um Open no CDS e em seguido verifico o
RecordCount dele

POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?

Detalhes:

-Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.

-No CDS não é preciso ConnectionSring ?

Delphi7 + SQLServer + ADO

Desde já muitíssimo obrigado pela atenção com este iniciante.

Atenciosamente,

Junior 

[As partes desta mensagem que não continham texto foram removidas]

--
E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail 

--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 29/10/2007 / Versão:
5.1.00/5151
Proteja o seu e-mail Terra: http://mail. 
terra.com.br/ 

[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] Urgente - Componente para Comunica ção Remota Free com fontes

2007-10-30 Por tôpico escobar
O VNC pode ser configurado para rodar na porta 80 também

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP


  - Original Message - 
  From: O2 Tecnologia (aJato) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 29, 2007 9:03 PM
  Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free 
com fontes



  Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona 
  melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga, 
  fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.

  Jorge Ericsson escreveu:
  >
  > Olá pessoal,
  >
  > Gostaria de implementar em minha aplicação um controle de acesso remoto,
  > para dár suporte a distância aos meus clientes.
  >
  > Alguém poderia dar-me alguma informação a respeito de algum componente ou
  > mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ?
  > Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho alguns
  > clientes com certas restrições de uso desses programas e que não possuem
  > permissão para tal procedimento.
  >
  > Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient 
  > para
  > delphi, mas ao compilar essas aplicações são gerados vários problemas 
  > com a
  > versão nova do Indy(10 e 9) que possuo.
  >
  > Alguém poderia daar-me a direção das pedras ?
  >
  > Value
  >
  > -- 
  > Jorge Ericsson S. Pinheiro
  > Analista/Projetista de Sistemas
  > Ericsson Sistemas e Soluções
  > http://www.jericsson.com.br 
  > 61 9227.4785 / 3965.2992 / 3039.1768
  > Brasília - DF
  >
  > [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: [delphi-br] ERRO! cruel.

2007-10-30 Por tôpico Alcistemas Informática
sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
tire a vírgula
sql.Add(' :vtelfor, :vfaxfor, :vcelfor )');

  - Original Message - 
  From: mclpaltrin 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 29, 2007 4:48 PM
  Subject: [delphi-br] ERRO! cruel.


  procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
  begin
  { bloco try/except}
  try
  with Zquery do
  begin
  Zquery.Close;
  sql.Clear;
  sql.Add(' insert into fornec ( ');
  sql.Add(' cpfcpj, rzofor, ftsfor, logcom, ');
  sql.Add(' numcom, baicom, cepcom, cidcom, ');
  sql.Add(' estfor, codfor, insfor, emlfor, ');
  sql.Add(' telfor, faxfor, celfor )');
  sql.Add(' values ( ');
  sql.Add(' :vcpfcpj, :vrzofor, :vftsfor, :vlogcom, ');
  sql.Add(' :vnumcom, :vbaicom, :vcepcom, :vcidcom, ');
  sql.Add(' :vestfor, :vcodfor, :vinsfor, :vemlfor, ');
  sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
  Parambyname('vcpfcpj').Value := DBCPFCNPJ.Text ;
  Parambyname('vrzofor').Value := DBRAZAO.Text ;
  Parambyname('vftsfor').Value := DBNOME.Text ;
  Parambyname('vlogcom').Value := DBENDERECO.Text ;
  Parambyname('vnumcom').Value := DBNUMERO.Text ;
  Parambyname('vbaicom').Value := DBBAIRRO.Text ;
  Parambyname('vcepcom').Value := DBCEP.Text ;
  Parambyname('vcidcom').Value := DBCIDADE.Text ;
  Parambyname('vestfor').Value := DBUF.Text ;
  Parambyname('vcodfor').Value := DBCODFORNEC.Text ;
  Parambyname('vinsfor').Value := DBESTADUAL.Text ;
  Parambyname('vemlfor').Value := DBEMAIL.Text ;
  Parambyname('vtelfor').Value := DBTELEFONE.Text ;
  Parambyname('vfaxfor').Value := DBFAX.Text ;
  Parambyname('vcelfor').Value := DBCELULAR.Text ;
  zquery.ExecSQL;
  zConnection.Commit;
  zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
  except

  on Exc:Exception do // << Esta dando erro nesta linha alguem pode
  // corrigir para mim?? Fatal: Syntax error, ";"
  // expected but "identifier ON" found

  begin
  ShowMessage('Ocorreu um erro na tentantiva de gravar os registro: ' +
  Exc.Message);
  zConnection.Rollback;
  zQuery.Refresh; //faz um refresh na tabela para atualizar os dados
  end;
  end; //final do bloco do try/except

  end; Question
  _



   

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] ClientDataSet

2007-10-30 Por tôpico Valdir Sola
vc está utilizando ele junto c/ o SQLQuery+DataSetProvider?
  - Original Message - 
  From: Red Mosquito 
  To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 30, 2007 12:19 PM
  Subject: [delphi-br] ClientDataSet


  Fácil, só pra quem entende:

  -Coloquei um CDS no meu form

  -Coloquei Active=True + CommandText 'select * from clientes'

  -na programação apenas dou um Open no CDS e em seguido verifico o
  RecordCount dele

  POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?

  Detalhes:

  -Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.

  -No CDS não é preciso ConnectionSring ?

  Delphi7 + SQLServer + ADO

  Desde já muitíssimo obrigado pela atenção com este iniciante.

  Atenciosamente,

  Junior 

  [As partes desta mensagem que não continham texto foram removidas]



   


--
  E-mail classificado pelo Identificador de Spam Inteligente.
  Para alterar a categoria classificada, visite o Terra Mail 



--
  Esta mensagem foi verificada pelo E-mail Protegido Terra.
  Scan engine: McAfee VirusScan / Atualizado em 29/10/2007 / Versão: 5.1.00/5151
  Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] ClientDataSet

2007-10-30 Por tôpico Red Mosquito
Sim, está com -1.

Já tentei também com outros números e continua a mesma coisa

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de André Moraes - GMail
Enviada em: terça-feira, 30 de outubro de 2007 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ClientDataSet

 

Veja se a propriedade packet records está com -1
- Original Message - 
From: "Red Mosquito" mailto:red.mosquito%40uol.com.br>
uol.com.br>
To: mailto:lista-delphi%40yahoogrupos.com.br>
yahoogrupos.com.br>; <[EMAIL PROTECTED]
 os.com.br>
Sent: Tuesday, October 30, 2007 12:19 PM
Subject: [delphi-br] ClientDataSet

Fácil, só pra quem entende:

-Coloquei um CDS no meu form

-Coloquei Active=True + CommandText 'select * from clientes'

-na programação apenas dou um Open no CDS e em seguido verifico o
RecordCount dele

POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?

Detalhes:

-Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.

-No CDS não é preciso ConnectionSring ?

Delphi7 + SQLServer + ADO

Desde já muitíssimo obrigado pela atenção com este iniciante.

Atenciosamente,

Junior

[As partes desta mensagem que não continham texto foram removidas]

-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] ClientDataSet

2007-10-30 Por tôpico André Moraes - GMail
Veja se a propriedade packet records está com -1
- Original Message - 
From: "Red Mosquito" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; 
Sent: Tuesday, October 30, 2007 12:19 PM
Subject: [delphi-br] ClientDataSet


Fácil, só pra quem entende:



-Coloquei um CDS no meu form

-Coloquei Active=True + CommandText 'select * from clientes'

-na programação apenas dou um Open no CDS e em seguido verifico o
RecordCount dele



POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?



Detalhes:

-Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.

-No CDS não é preciso ConnectionSring ?



Delphi7 + SQLServer + ADO





Desde já muitíssimo obrigado pela atenção com este iniciante.



Atenciosamente,



Junior





[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos




[delphi-br] ClientDataSet

2007-10-30 Por tôpico Red Mosquito
Fácil, só pra quem entende:

 

-Coloquei um CDS no meu form

-Coloquei Active=True + CommandText ‘select * from clientes’

-na programação apenas dou um Open no CDS e em seguido verifico o
RecordCount dele

 

POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ?

 

Detalhes:

-Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela.

-No CDS não é preciso ConnectionSring ?

 

Delphi7 + SQLServer + ADO

 

 

Desde já muitíssimo obrigado pela atenção com este iniciante.

 

Atenciosamente,

 

Junior 

 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] WorkShop Abap SAP em SJC dia 15/12 e em Sorocaba dia 15/12

2007-10-30 Por tôpico abilita_tecnologia
A Abilità Tecnologia consultoria especializada em treinamentos para TI 
com base em Sorocaba, filial em Campinas, está agora com nova base em 
SJC. 
No dia 15/12 estará iniciando WorkShop Abap nas duas unidades sendo:

Em São José dos Campos aos Sábados das 09:00 às 14:00. 

Em Sorocaba aos Sábados das 14:00 às 19:00. 

O WorkShop terá a duração de 40 horas, totalmente apostilado instrutor 
Abap Sênior atuante no mercado. 

Entre em contato e saiba mais. 

Para receber maiores informações favor enviar e-mail para:

[EMAIL PROTECTED]

Obrigada. 



Re: RES: [delphi-br] Treeview trocando icones

2007-10-30 Por tôpico edersonecris
vlw funcionou.

Sérgio T. Uetanabaro escreveu:
>
> Checa a prop SelectedIndex do item da treeview. Ela que define o indice da
> img selecionada
>
>
> []´s
>
>
> Sergio Uetanabaro
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de edersonecris
> Enviada em: sexta-feira, 26 de outubro de 2007 17:59
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] Treeview trocando icones
>
> Pessoal eu coloquei uma treeview padrão no meu sistema e ela doida.
> Coloquei uns icones nela. E quando eu clico em alguma opção ela muda de
> icone sozinha, tem como eu resolver isso?
> grato
>
> -- 
> Éderson Cassiano Bologna
> edersoncassiano@  terra.com.br
> sKYPE: edersoncassiano
> MSN: edersoncassiano@  hotmail.com
> www.microtechshop.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  


-- 
Éderson Cassiano Bologna
[EMAIL PROTECTED]
sKYPE: edersoncassiano
MSN: [EMAIL PROTECTED]
www.microtechshop.com



Re: [delphi-br] Urgente - Componente para Comunica ção Remota Free com fontes

2007-10-30 Por tôpico Valdemir - Yahoo
aqui eu acesso pelo speedy da telefonica e da pagina ñao encontrada tb...
acho que é algum pau da telefonica
se alguem conseguir puxar e me enviar em pvt.. agradeço
  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 29, 2007 11:37 PM
  Subject: RE: [delphi-br] Urgente - Componente para Comunicação Remota Free 
com fontes



  http://www.radix.net/~bziegler/Delphi/Source.html

  Sds.


  To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 30 Oct 2007 00:18:10 
-0200Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free 
com fontes

  Pode ser, mais todos as buscas que fiz em outros sites que apontão para 
estelink não funcionou e tbém entrei no própio site do Ben e nada, apenas 
estelink dá problema. Provavelmente é um link quebrado ou removeram os 
arquivos.Se vc tiver o remotecontrol.zip ou consegui baixar vc me envia em PVT 
?Preciso estudar o código dele.Obrigado.Em 30/10/07, Rubem Nascimento da Rocha 
<[EMAIL PROTECTED]> escreveu:>>> Mestre, vc deve ter alguma restrição de acesso 
a esse link, pq tanto na> faculdade como em casa eu consigo acessar normalmente 
este link.>> Sds.>>> To: [EMAIL PROTECTED] 
:> [EMAIL PROTECTED] 
: Mon, 29 Oct> 2007 22:59:08 -0200Subject: Re: 
[delphi-br] Urgente - Componente para> Comunicação Remota Free com fontes>> 
Este link não existe mais, estão todos quebrados qdo se refere ao> 
BenZieglers.Mas vou continua meu garimpo... heheheEm 29/10/07, Rubem> 
Nascimento da Rocha <[EMAIL PROTECTED]>> 
escreveu:>>> Minha outra sugestão:>>> 
http://www.radix.net/~bziegler/Delphi/>
 > (Procure pelo projeto Remote> 
Control)>> Sds.>> To: [EMAIL 
PROTECTED]:>>
 [EMAIL PROTECTED] 
: Mon, 29> 
Oct 2007 20:03:13 -0300Subject:> Re: [delphi-br] Urgente - Componente para> 
Comunicação Remota Free com> fontes>> Companheiro já tentou usar o LogMeIn 
(www.logmein.com) é free e> funciona> melhor impossivel, um verdadeiro 
pcAnywhere via browser na versão> paga, fora> que fura tudo que bloqueio de 
acesso, pois trafega pela porta> 80.JorgeEricsson escreveu:>> Olá pessoal,>> 
Gostaria de implementar em> minha> aplicação um controle de acesso remoto,> 
para dár suporte a distância> aos> meus clientes.>> Alguém poderia dar-me 
alguma informação a respeito de> algum> componente ou> mesmo como utilizar o 
Indy ou JEDI (VCL) para esta> finalizade> ?> Não posso e não quero usar VNC, 
UltraVNC, RealVNC e etc, pois> tenho> alguns> clientes com certas restrições de 
uso desses programas e que> não> possuem> permissão para tal procedimento.>> 
Andei pesquisa na rede e>> encontrei o DelphiVNC e VNCServer e VNCClient > 
para> delphi, mas ao>> compilar essas aplicações são gerados vários problemas > 
com a> versão nova>> do Indy(10 e 9) que possuo.>> Alguém poderia daar-me a 
direção das pedras>> ?>> Value>> -- > Jorge Ericsson S. Pinheiro> 
Analista/Projetista de>> Sistemas> Ericsson Sistemas e Soluções> 
http://www.jericsson.com.br <>> http://www.jericsson.com.br>> 61 9227.4785 / 
3965.2992 / 3039.1768>>> Brasília - DF>> [As partes desta mensagem que não 
continham texto foram>> removidas]>> [As partes desta mensagem que não 
continham texto foram>> removidas]>> 
__>> Veja mapas e 
encontre as melhores rotas para fugir do trânsito com o Live>> Search Maps!> 
http://www.livemaps.com.br/index.aspx?tr=true>> [As partes> desta mensagem que 
não continham texto foram removidas]>> >-- Jorge Ericsson> S. 
PinheiroAnalista/Projetista de SistemasEricsson Sistemas e Soluçõ> 
eshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília- 
DF[As partes desta mensagem que não continham texto foram removidas]>>> 
__> Veja mapas e 
encontre as melhores rotas para fugir do trânsito com o Live> Search Maps!> 
http://www.livemaps.com.br/index.aspx?tr=true>> [As partes desta mensagem que 
não continham texto foram removidas]>> >-- Jorge Ericsson S. 
PinheiroAnalista/Projetista de SistemasEricsson Sistemas e 
Soluçõeshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília 
- DF[As partes desta mensagem que não continham texto foram removidas] 

  __
  Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live 
Search Maps!
  http://www.livemaps.com.br/index.aspx?tr=true

  [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] Re: Como tirar componente da memória ?

2007-10-30 Por tôpico Joao Morais
Ricardo César Cardoso wrote:
> João, só tenho uma dúvida: o FASTMM4 está disponível no Delphi
> 2005? Fui testar esse "cabra" aqui e deu falta pelo arquivo
> .dcu (FastMM4.dcu)

Não, foi a partir do D2006.
Baixa no SF.

--
Joao Morais


[delphi-br] Erro SqlConnection!!

2007-10-30 Por tôpico Agiw - André de Oliveira
Pessoal, 

Estou tentando criar uma conexão com o banco SQL Server através de um 
SqlConnection, mas quando executo SqlConnection.Open, aparece a seguinte 
mensagem:
"Falha na solicitação da permissão de tipo 
System.Data.SqlClient.SqlClientPermission, System.Data,Verssion=1.0.5000.0, 
Culture neutral"

Como poderia resolver este problema?

Desde já agradeço e aguardo resposta.

André de Oliveira.

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] converter unit em objeto com+

2007-10-30 Por tôpico cursoparlo2001
Pessoal, alguma dica de como converter uma unit comum (OOP) em objeto
COM+ ?



Re: [delphi-br] Re: Como tirar componente da memória ?

2007-10-30 Por tôpico Ricardo César Cardoso


Joao Morais <[EMAIL PROTECTED]> escreveu:   João 
Morais wrote:
 
 Para você descobrir se seu sistema tem vazamento de memória ou não, 
 use a FastMM e declare-a na primeira linha do .dpr:
 
 program SeuSistema;
 
 uses
   FastMM4,
   Forms,
   ...
 
 Se houver vazamento, ele vai te dizer qual classe que tem problema, 
 e quantos objetos vazaram logo que a aplicação for fechada.
 
 --
 Joao Morais
 
João, só tenho uma dúvida: o FASTMM4 está disponível no Delphi 2005? Fui testar 
esse "cabra" aqui e deu falta pelo arquivo .dcu (FastMM4.dcu)
Grato,
Ricardo.






   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] Testar conexão com a inte rnet

2007-10-30 Por tôpico Adriano Santos
uses
  WinInet
...
function DetectarInternet: Boolean;
var
  Flags   : dword;
begin
  Result := InternetGetConnectedState(@Flags, 0);
end;

-- 
Adriano Santos
-
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
http://www.delphitodelphi.blogspot.com
http://www.devmedia.com.br
http://www.devmedia.com.br/clubedelphi/pagina.asp





Eduardo Silva respondeu:
>
> Galera, como eu faço para testar uma conexão com a internet e, caso 
> ela não esteja funcionando, enviar uma mensagem ao usuário informando 
> que a conexão com a internet não esta funcionando.
>
> Obrigado
>
> 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]
>
> 
> 
>
> No virus found in this incoming message.
> Checked by AVG Free Edition. 
> Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: 29/10/2007 
> 09:28
>   



RES: [delphi-br] Ajuda Delphi e Excel

2007-10-30 Por tôpico Wandarlei Michelon
Bom dia Raphae

 

Tem o componente TmxNativeExcel e TmxExports no lind
http://www.maxcomponents.net/index.php?id=2
 &page=1 .

Eu uso estes dois são muito bons você consegue formatar a planilha.

 

Wandarlei Michelon
Equipe MT-SAC

[EMAIL PROTECTED]
Fone: 55-41-3544-8711

Fax: 55-41-3544-8701 

Tree Tools Informática Ltda. 

Qualidade e Competência a Seu Alcance
  http://www.treetools.com.br

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Raphae Fonseca
Enviada em: segunda-feira, 29 de outubro de 2007 15:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda Delphi e Excel

 

Boa tarde amigos da lista

algum amigo já gerou, uma planilha formatada no excel, como o resultado de
uma consulta pelo delphi??


Poderia me ajudar??

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]

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Urgente - Componente para Comunica ção Remota Free com fontes

2007-10-30 Por tôpico Claudiney Cogo
Eles devem usar o UltraVNC Single Click...

http://www.uvnc.com/addons/singleclick.html

Com ele você pode personalizar tudo. Aqui também usamos. E nada impede que você 
o abra pelo seu sistema.

Abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Maringá - Paraná
www.n2solutions.com.br


  - Original Message - 
  From: Nilson Chagas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 30, 2007 7:28 AM
  Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free 
com fontes


  Tem uma empresa de SP, não sei se vc é de SP, que desenvolve o
  WinConnection, bom na verdade a empresa é do Rio.

  Que não sei bem como eles personalizaram o ultravnc, e é interessante, vc
  não instala nada. Eles te mandam um arquivo, e quando precisa de suporte vc
  abre este arquivo e eles entram na sua maquina, depois que terminar vc fecha
  o executavel, nada no registro, nada na memoria.

  E eles tem um programa para cada atendente do suporte.

  Se tivesse como descobrir o q eles fizeram.

  Em 29/10/07, Jorge Ericsson <[EMAIL PROTECTED]> escreveu:
  >
  > Nunca usei, mas eu preciso mesmo é implementar um cliente no meu
  > programa
  > para depois usar o LogMeIn de qq lugar. Meu problema é desenvolver um
  > Client
  > funcional.
  >
  > Mas valeu pela diga e me parecer ser muito bom mesmo.
  >
  > Em 29/10/07, O2 Tecnologia (aJato) <[EMAIL 
PROTECTED]>
  > escreveu:
  >
  > >
  > >
  > > Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona
  > > melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga,
  > > fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.
  > >
  > > Jorge Ericsson escreveu:
  > >
  > > >
  > > > Olá pessoal,
  > > >
  > > > Gostaria de implementar em minha aplicação um controle de acesso
  > remoto,
  > > > para dár suporte a distância aos meus clientes.
  > > >
  > > > Alguém poderia dar-me alguma informação a respeito de algum componente
  > > ou
  > > > mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ?
  > > > Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho
  > > alguns
  > > > clientes com certas restrições de uso desses programas e que não
  > possuem
  > > > permissão para tal procedimento.
  > > >
  > > > Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient
  > > > para
  > > > delphi, mas ao compilar essas aplicações são gerados vários problemas
  > > > com a
  > > > versão nova do Indy(10 e 9) que possuo.
  > > >
  > > > Alguém poderia daar-me a direção das pedras ?
  > > >
  > > > Value
  > > >
  > > > --
  > > > Jorge Ericsson S. Pinheiro
  > > > Analista/Projetista de Sistemas
  > > > Ericsson Sistemas e Soluções
  > > > http://www.jericsson.com.br <http://www.jericsson.com.br>
  > > > 61 9227.4785 / 3965.2992 / 3039.1768
  > > > Brasília - DF
  > > >
  > > > [As partes desta mensagem que não continham texto foram removidas]
  > > >
  > > >
  > >
  > > [As partes desta mensagem que não continham texto foram removidas]
  > >
  > >
  > >
  >
  > --
  > Jorge Ericsson S. Pinheiro
  > Analista/Projetista de Sistemas
  > Ericsson Sistemas e Soluções
  > http://www.jericsson.com.br
  > 61 9227.4785 / 3965.2992 / 3039.1768
  > Brasília - DF
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Visite:
  Fundamental: www.amados.com.br
  Dúvidas:http://nilsoftware.blogspot.com/
  Obrigatório: www.saopaulofc.com.br

  [As partes desta mensagem que não continham texto foram removidas]



   

  __ NOD32 2626 (20071030) Information __

  This message was checked by NOD32 antivirus system.
  http://www.eset.com


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Testar conexão com a internet

2007-10-30 Por tôpico Eduardo Silva
Galera, como eu faço para testar uma conexão com a internet e, caso ela não 
esteja funcionando, enviar uma mensagem ao usuário informando que a conexão com 
a internet não esta funcionando.
   
  Obrigado

   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] Re: Conexão em rede

2007-10-30 Por tôpico dhsb
Estou usando o seguinte procedimento:

procedure Tdtml.Conecta(Banco: TSQLConnection);
begin
  with ConexaoBD do
if not Connected then
begin


  Params.Values['DataBase'] := Alias;
  Params.Values['User_Name'] := UsuarioB;
  Params.Values['Password'] := Senha;

  LoginPrompt := false;

  try Connected := true;
  except
on e: exception do
begin
   
  raise Exception.Create('Não foi possível conectar ao Banco 
de Dados!' + #13 + 'Erro: ' + e.Message);
end;
  end;
end;

end;



--- Em delphi-br@yahoogrupos.com.br, Vinicius Barreira <[EMAIL PROTECTED]> 
escreveu
>
> 
> Mostra a sua string de conexão com o banco de dados.
> 
> Use sempre o endereço ip + diretorio + nome do banco. Nunca acesse 
via 
> compartilhamento de pasta.
> 
> Vinicius Barreira
> Delphi 7 / Firebird 2.0 / DbExpress
> São Bernardo do Campo - SP
> Software Para Hotéis / Pousadas / Moteis
> 
> 
> dhsb escreveu:
> >
> > Pessoal estou com um pequeno problema e gostaria de ver se alguem 
ja
> > passou por algo parecido.
> >
> > Instalei um sistema em duas maquinas na maquina 1 o BD e 
executavel, na
> > maquina2 apenas o executavel instalei o DB2 nas duas maquinas e
> > cataloguei o DB2 na maquina2 (apontando para a maquina1). Beleza o
> > problema e que ao logar no sistema apenas uma pessoa esta 
conseguindo
> > por vez. Exemplo se estou logado na maquina 1 nao estou 
conseguindo
> > logar na 2 e vice versa. Gostaria de saber se alguem ja passou 
por algo.
> >
> > Uso o BD DB2 Delphi 7, com os Componentes SQLConnection.
> >
> > Att
> >
> >
>




Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes

2007-10-30 Por tôpico Fellipe Henrique
Provavelmente eles usaram isso: http://sc.uvnc.com/cgi-bin/upload3.pl

O UltraVNC personalizado, voce cria um EXE, informa quais serão os usuários,
configura nas máquinas dos atendentes, e pronto... envia para o cliente, o
cara clica no nome e o atendente recebe uma mensagem, e entra na maquina do
cara... so precisa de um ip fixo na empresa sua, e nao no cliente, eu por
exemplo uso o no-ip por causa de usar o Velox.

[]s


Em 30/10/07, Nilson Chagas <[EMAIL PROTECTED]> escreveu:
>
>   Tem uma empresa de SP, não sei se vc é de SP, que desenvolve o
> WinConnection, bom na verdade a empresa é do Rio.
>
> Que não sei bem como eles personalizaram o ultravnc, e é interessante, vc
> não instala nada. Eles te mandam um arquivo, e quando precisa de suporte
> vc
> abre este arquivo e eles entram na sua maquina, depois que terminar vc
> fecha
> o executavel, nada no registro, nada na memoria.
>
> E eles tem um programa para cada atendente do suporte.
>
> Se tivesse como descobrir o q eles fizeram.
>
> Em 29/10/07, Jorge Ericsson <[EMAIL PROTECTED]>
> escreveu:
> >
> > Nunca usei, mas eu preciso mesmo é implementar um cliente no meu
> > programa
> > para depois usar o LogMeIn de qq lugar. Meu problema é desenvolver um
> > Client
> > funcional.
> >
> > Mas valeu pela diga e me parecer ser muito bom mesmo.
> >
> > Em 29/10/07, O2 Tecnologia (aJato) <[EMAIL 
> > PROTECTED]
> >
>
> > escreveu:
> >
> > >
> > >
> > > Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e
> funciona
> > > melhor impossivel, um verdadeiro pcAnywhere via browser na versão
> paga,
> > > fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.
> > >
> > > Jorge Ericsson escreveu:
> > >
> > > >
> > > > Olá pessoal,
> > > >
> > > > Gostaria de implementar em minha aplicação um controle de acesso
> > remoto,
> > > > para dár suporte a distância aos meus clientes.
> > > >
> > > > Alguém poderia dar-me alguma informação a respeito de algum
> componente
> > > ou
> > > > mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ?
> > > > Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho
> > > alguns
> > > > clientes com certas restrições de uso desses programas e que não
> > possuem
> > > > permissão para tal procedimento.
> > > >
> > > > Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e
> VNCClient
> > > > para
> > > > delphi, mas ao compilar essas aplicações são gerados vários
> problemas
> > > > com a
> > > > versão nova do Indy(10 e 9) que possuo.
> > > >
> > > > Alguém poderia daar-me a direção das pedras ?
> > > >
> > > > Value
> > > >
> > > > --
> > > > Jorge Ericsson S. Pinheiro
> > > > Analista/Projetista de Sistemas
> > > > Ericsson Sistemas e Soluções
> > > > http://www.jericsson.com.br 
> > > > 61 9227.4785 / 3965.2992 / 3039.1768
> > > > Brasília - DF
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > Jorge Ericsson S. Pinheiro
> > Analista/Projetista de Sistemas
> > Ericsson Sistemas e Soluções
> > http://www.jericsson.com.br
> > 61 9227.4785 / 3965.2992 / 3039.1768
> > Brasília - DF
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Visite:
> Fundamental: www.amados.com.br
> Dúvidas:http://nilsoftware.blogspot.com/
> Obrigatório: www.saopaulofc.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes

2007-10-30 Por tôpico Nilson Chagas
Tem uma empresa de SP, não sei se vc é de SP, que desenvolve o
WinConnection, bom na verdade a empresa é do Rio.

Que não sei bem como eles personalizaram o ultravnc, e é interessante, vc
não instala nada. Eles te mandam um arquivo, e quando precisa de suporte vc
abre este arquivo e eles entram na sua maquina, depois que terminar vc fecha
o executavel, nada no registro, nada na memoria.

E eles tem um programa para cada atendente do suporte.

Se tivesse como descobrir o q eles fizeram.

Em 29/10/07, Jorge Ericsson <[EMAIL PROTECTED]> escreveu:
>
>   Nunca usei, mas eu preciso mesmo é implementar um cliente no meu
> programa
> para depois usar o LogMeIn de qq lugar. Meu problema é desenvolver um
> Client
> funcional.
>
> Mas valeu pela diga e me parecer ser muito bom mesmo.
>
> Em 29/10/07, O2 Tecnologia (aJato) <[EMAIL 
> PROTECTED]>
> escreveu:
>
> >
> >
> > Companheiro já tentou usar o LogMeIn (www.logmein.com) é free e funciona
> > melhor impossivel, um verdadeiro pcAnywhere via browser na versão paga,
> > fora que fura tudo que bloqueio de acesso, pois trafega pela porta 80.
> >
> > Jorge Ericsson escreveu:
> >
> > >
> > > Olá pessoal,
> > >
> > > Gostaria de implementar em minha aplicação um controle de acesso
> remoto,
> > > para dár suporte a distância aos meus clientes.
> > >
> > > Alguém poderia dar-me alguma informação a respeito de algum componente
> > ou
> > > mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ?
> > > Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho
> > alguns
> > > clientes com certas restrições de uso desses programas e que não
> possuem
> > > permissão para tal procedimento.
> > >
> > > Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e VNCClient
> > > para
> > > delphi, mas ao compilar essas aplicações são gerados vários problemas
> > > com a
> > > versão nova do Indy(10 e 9) que possuo.
> > >
> > > Alguém poderia daar-me a direção das pedras ?
> > >
> > > Value
> > >
> > > --
> > > Jorge Ericsson S. Pinheiro
> > > Analista/Projetista de Sistemas
> > > Ericsson Sistemas e Soluções
> > > http://www.jericsson.com.br 
> > > 61 9227.4785 / 3965.2992 / 3039.1768
> > > Brasília - DF
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Jorge Ericsson S. Pinheiro
> Analista/Projetista de Sistemas
> Ericsson Sistemas e Soluções
> http://www.jericsson.com.br
> 61 9227.4785 / 3965.2992 / 3039.1768
> Brasília - DF
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br


[As partes desta mensagem que não continham texto foram removidas]



RE: [delphi-br] Urgente - Componente para Comunicação Remota Free com fontes

2007-10-30 Por tôpico Rubem Nascimento da Rocha

http://www.radix.net/~bziegler/Delphi/Source.html
 
Sds.
 


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 30 Oct 2007 00:18:10 
-0200Subject: Re: [delphi-br] Urgente - Componente para Comunicação Remota Free 
com fontes




Pode ser, mais todos as buscas que fiz em outros sites que apontão para 
estelink não funcionou e tbém entrei no própio site do Ben e nada, apenas 
estelink dá problema. Provavelmente é um link quebrado ou removeram os 
arquivos.Se vc tiver o remotecontrol.zip ou consegui baixar vc me envia em PVT 
?Preciso estudar o código dele.Obrigado.Em 30/10/07, Rubem Nascimento da Rocha 
<[EMAIL PROTECTED]> escreveu:>>> Mestre, vc deve ter alguma restrição de acesso 
a esse link, pq tanto na> faculdade como em casa eu consigo acessar normalmente 
este link.>> Sds.>>> To: [EMAIL PROTECTED] 
:> [EMAIL PROTECTED] 
: Mon, 29 Oct> 2007 22:59:08 -0200Subject: Re: 
[delphi-br] Urgente - Componente para> Comunicação Remota Free com fontes>> 
Este link não existe mais, estão todos quebrados qdo se refere ao> 
BenZieglers.Mas vou continua meu garimpo... heheheEm 29/10/07, Rubem> 
Nascimento da Rocha <[EMAIL PROTECTED]>> 
escreveu:>>> Minha outra sugestão:>>> 
http://www.radix.net/~bziegler/Delphi/>
 > (Procure pelo projeto Remote> 
Control)>> Sds.>> To: [EMAIL 
PROTECTED]:>>
 [EMAIL PROTECTED] 
: Mon, 29> 
Oct 2007 20:03:13 -0300Subject:> Re: [delphi-br] Urgente - Componente para> 
Comunicação Remota Free com> fontes>> Companheiro já tentou usar o LogMeIn 
(www.logmein.com) é free e> funciona> melhor impossivel, um verdadeiro 
pcAnywhere via browser na versão> paga, fora> que fura tudo que bloqueio de 
acesso, pois trafega pela porta> 80.JorgeEricsson escreveu:>> Olá pessoal,>> 
Gostaria de implementar em> minha> aplicação um controle de acesso remoto,> 
para dár suporte a distância> aos> meus clientes.>> Alguém poderia dar-me 
alguma informação a respeito de> algum> componente ou> mesmo como utilizar o 
Indy ou JEDI (VCL) para esta> finalizade> ?> Não posso e não quero usar VNC, 
UltraVNC, RealVNC e etc, pois> tenho> alguns> clientes com certas restrições de 
uso desses programas e que> não> possuem> permissão para tal procedimento.>> 
Andei pesquisa na rede e>> encontrei o DelphiVNC e VNCServer e VNCClient > 
para> delphi, mas ao>> compilar essas aplicações são gerados vários problemas > 
com a> versão nova>> do Indy(10 e 9) que possuo.>> Alguém poderia daar-me a 
direção das pedras>> ?>> Value>> -- > Jorge Ericsson S. Pinheiro> 
Analista/Projetista de>> Sistemas> Ericsson Sistemas e Soluções> 
http://www.jericsson.com.br <>> http://www.jericsson.com.br>> 61 9227.4785 / 
3965.2992 / 3039.1768>>> Brasília - DF>> [As partes desta mensagem que não 
continham texto foram>> removidas]>> [As partes desta mensagem que não 
continham texto foram>> removidas]>> 
__>> Veja mapas e 
encontre as melhores rotas para fugir do trânsito com o Live>> Search Maps!> 
http://www.livemaps.com.br/index.aspx?tr=true>> [As partes> desta mensagem que 
não continham texto foram removidas]>> >-- Jorge Ericsson> S. 
PinheiroAnalista/Projetista de SistemasEricsson Sistemas e Soluçõ> 
eshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília- 
DF[As partes desta mensagem que não continham texto foram removidas]>>> 
__> Veja mapas e 
encontre as melhores rotas para fugir do trânsito com o Live> Search Maps!> 
http://www.livemaps.com.br/index.aspx?tr=true>> [As partes desta mensagem que 
não continham texto foram removidas]>> >-- Jorge Ericsson S. 
PinheiroAnalista/Projetista de SistemasEricsson Sistemas e 
Soluçõeshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília 
- DF[As partes desta mensagem que não continham texto foram removidas] 






_
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live 
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Re: Como tirar componente da memória ?

2007-10-30 Por tôpico Joao Morais
--- "Red Mosquito" <[EMAIL PROTECTED]> escreveu
> -Quando executo uma Query ele soma, por exemplo, 50 kb na memória
> consumida.
> 
> -Quando fecho a Query (Close) ele retira 30 kb, e não 50 kb da
> memória
> 
> -No DataSet é pior ainda.  Se somou 90 kb, na hora de tirar da
> memória (FreeAndNil) ele retira só 40 kb.
> 
> Portanto como o programa não retira tudo o que adiciona obviamente
> o consumo de memória vai eternamente crescer, até o ponto da
> maravilhosa frase "Memória Insulficiente"
> 
> Portanto"
> 
> -ONDE ESTOU ERRANDO ?
> 
> -ALGUÉM PODERIA ME RELEMBRAR O COMANDO QUE ABRE E FECHA QUERY, CDS
> E DATASET ?
> 
> -EXISTEM OUTROS COMANDOS PARA TIRAR DE VEZ O QUE FOI PRA MEMÓRIA ?

O fato da memória não ser devolvida para o SO não significa que o 
seu sistema tem algum vazamento. Pegar memória do SO custa caro, 
então o gerenciador de memória da aplicação devolve menos do que ele 
pegou, isso quando devolve.

Para você descobrir se seu sistema tem vazamento de memória ou não, 
use a FastMM e declare-a na primeira linha do .dpr:

program SeuSistema;

uses
  FastMM4,
  Forms,
  ...

Se houver vazamento, ele vai te dizer qual classe que tem problema, 
e quantos objetos vazaram logo que a aplicação for fechada.

--
Joao Morais




[delphi-br] Re: Urgente - Componente para Comunicação Remota Free com fontes

2007-10-30 Por tôpico jadirconsult
Bom dia a todos !

Amigão, eu uso o LogMein.com estou gostando muito !!

é "quase" um VNC !

vc poderia enviar o link onde vc achou o DelphiVnc para Delphi ?


Muito Obrigado !

--- Em delphi-br@yahoogrupos.com.br, "Jorge Ericsson" 
<[EMAIL PROTECTED]> escreveu
>
> Olá pessoal,
> 
> Gostaria de implementar em minha aplicação um controle de acesso 
remoto,
> para dár suporte a distância aos meus clientes.
> 
> Alguém poderia dar-me alguma informação a respeito de algum 
componente ou
> mesmo como utilizar o Indy ou JEDI (VCL) para esta finalizade ?
> Não posso e não quero usar VNC, UltraVNC, RealVNC e etc, pois tenho 
alguns
> clientes com certas restrições de uso desses programas e que não 
possuem
> permissão para tal procedimento.
> 
> Andei pesquisa na rede e encontrei o DelphiVNC e VNCServer e 
VNCClient para
> delphi, mas ao compilar essas aplicações são gerados vários 
problemas com a
> versão nova do Indy(10 e 9) que possuo.
> 
> Alguém poderia daar-me a direção das pedras ?
> 
> Value
> 
> -- 
> Jorge Ericsson S. Pinheiro
> Analista/Projetista de Sistemas
> Ericsson Sistemas e Soluções
> http://www.jericsson.com.br
> 61 9227.4785 / 3965.2992 / 3039.1768
> Brasília - DF
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>