[delphi-br] Fox pro

[thiago castro]

Alguem sabe Visual Fox Pro? pois eu preciso transformar um código de VFP para 
Delphi, mas não estou conseguindo.
   
  Se alguem puder me ajudar o código segue abaixo...
   
  Obrigado
   
  A chave é formada assim
   
  X--X--X--X -> 20 digitos
  WW5 YDC 6FL GCO -> 15 digitos
  FUNCTION Click
IF EMPTY(THISFORM.CONTRA_CHAVE.VALUE) .AND. EXE_EE>=05
= MSG_1('É necessário informar a CONTRA-CHAVE.')
THISFORM.CONTRA_CHAVE.SETFOCUS
RETURN .T.
ENDIF
IF  .NOT. EMPTY(THISFORM.CONTRA_CHAVE.VALUE)
SERIAL_ = ALLTRIM(SUBSTR(THIS.PARENT.CHAVE_.VALUE, 01, 
03)+SUBSTR(THIS.PARENT.CHAVE_.VALUE, 05, 03)+SUBSTR(THIS.PARENT.CHAVE_.VALUE, 
09, 03)+SUBSTR(THIS.PARENT.CHAVE_.VALUE, 13, 
03)+SUBSTR(THIS.PARENT.CHAVE_.VALUE, 17, 03)+SUBSTR(THIS.PARENT.CHAVE_.VALUE, 
21, 03)+SUBSTR(THIS.PARENT.CHAVE_.VALUE, 25, 02))
TOT_ = 00
FOR II = 01 TO LEN(SERIAL_)
TOT_ = TOT_+ASC(SUBSTR(SERIAL_, II, 01))
ENDFOR
= RAND(TOT_)
CONTRA_CHAVE = ''
FOR II = 01 TO 15
CONTRA_CHAVE = CONTRA_CHAVE+CHR(RANDOMIC(65, 90))
ENDFOR
CONTRA_CHAVE = STUFF(CONTRA_CHAVE, 03, 00, CHR(RANDOMIC(48, 57)))
CONTRA_CHAVE = STUFF(CONTRA_CHAVE, 07, 00, CHR(RANDOMIC(48, 57)))
CONTRA_CHAVE = STUFF(CONTRA_CHAVE, 09, 00, CHR(RANDOMIC(48, 57)))
CONTRA_CHAVE = STUFF(CONTRA_CHAVE, 12, 00, CHR(RANDOMIC(48, 57)))
CONTRA_CHAVE = STUFF(CONTRA_CHAVE, 13, 00, CHR(RANDOMIC(48, 57)))
IF  .NOT. (ALLTRIM(CONTRA_CHAVE)==ALLTRIM(THIS.PARENT.CONTRA_CHAVE.VALUE))
= MSG_1('A CONTRA-CHAVE está incorreta.')
THISFORM.CONTRA_CHAVE.SETFOCUS
RETURN .T.
ELSE
EXE_EE = -01
Z1 = STR(ENT_EE, 01)+PADR(SER_EE, 15, ' ')+STR(EXE_EE, 
02)+ALLTRIM(ALLTRIM(SERIALNUMBER(SYS(05
EMPRESA = FAZ_CRIPT(Z1)
SAVE TO ('.\MEM\EMPRESA'+EXT_) ALL LIKE empresa
ENDIF
ENDIF
RELEASE THISFORM
ENDFUNC
**
FUNCTION Destroy
RETURN .T.
ENDFUNC
**



-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

[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: [delphi-br] Componete para Captura de Fotos

[thiago castro]

Tbem tenho interesse eu queria um para Delphi 4, você conhece algum?

Emerson Moreno <[EMAIL PROTECTED]> escreveu:  Para qual versão do delphi vc 
está procurando o componente?



Thiago de Castro X. da Silveira
  
REFERENCIAL - VESTIBULARES
Unidade Centro
  Setor TI
telefone: +55 (31) 3274-1088 
  e-mails:
  [EMAIL PROTECTED]




-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

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

[thiago castro]

http://www.lloydsoft.hpg.ig.com.br/

Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:  Esse daí é o DTDelphi 
versão 2.7.

Se não me engano no site do Loyd tem o 2.8, so que eu não sei link dele
porque ele muda o link do site todo dia.

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de ArbSis
Enviada em: sexta-feira, 18 de novembro de 2005 09:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criptografia


Baixe esse link, é um help apenas de delphi, bem elaborado e ira te 
ajudar muito, a sua duvida esta no numero 308 desse manual, o link é  
http://baixaki.ig.com.br/site/detail5737.htm

Jonathas escreveu:

> Bom dia. Colegas do mundo da programação. Eu estou com um desafio para 
> mim, mas sempre tem alguem que sabe mais do assunto. Eu preciso 
> desenvolver um programa de Criptografia. Onde o usuário escolha um 
> texto qualquer, digite uma senha (qualquer uma também), e através 
> dessa senha o programa cripta o texto escolhido, e guarda em um novo 
> arquivo. Para a reversão completa do processo deverá ser digitada a 
> mesma senha que o usuário digitou antes. Exemplo: 12345, foi digitado, 
> e o texto foi criptografado, ao reverter o processo deve ser digitada 
> a mesma senha.
> Espero uma resposta.
> Att
> Jonathas CM
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:*
> PUBLICIDADE
>
>
> 
> *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 Termos do
>   Serviço do Yahoo! .
>
>

  

  

___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



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



Links do Yahoo! Grupos








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



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





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new Array();  
lrec_URL[1]="http://br.rd.yahoo.com/SIG=12f72sn3t/M=380335.7481167.8369105.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132332982/A=3126093/R=0/id=flashurl/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com";;
  var 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1116_lrec_hotels_natal.swf?clickTAG=javascript:LRECopenWindow(1)";
  var 
lrec_altURL="http://br.rd.yahoo.com/SIG=12f72sn3t/M=380335.7481167.8369105.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132332982/A=3126093/R=1/id=altimg/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com";;
  var 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1116_lrec_hotels_natal.gif";;
  var lrec_width=300;var lrec_height=250;  
  
-
  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 Termos do Serviço do 
Yahoo!. 





Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

[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: [delphi-br] Alteração do relógio

[thiago castro]

Se o sistema estiver em rede, você pode pegar a hora de uma maquina, ex o 
servidor. Se não procure na NET algum servidor de horas ou algum programa que 
consulte a hora na NET, mas para isso o computador tem que estar ligado na NET 
no periodo das checagens.
Você tambem pode colocar um timer gravando a hora em um txt, toda vez que for 
gravar outra hora ele checa o anterior, se a hora for menor que o ultimo 
gravado o sistema da um alerta...
è só uma ideia... t+
Edmilson Pontes <[EMAIL PROTECTED]> escreveu:
Colegas,
Obrigado pelas várias sugestões.
Mas vou clarear mais o meu objetivo:
O sistema coletor de ponto ficará numa máquina com
windows, onde várias pessoas podem ter acesso. O banco
de dados que usarei será access ou arquivo txt mesmo
que ficará na máquina local.
Minha preocupação é o usuário mudar a hora do relógio
do Windows para bater o ponto. O que gostaria e de
saber se posso saber se e quando a hora relógio da
máquina local foi alterada. Se possui algum arquivo de
log que quanda estas informações. Ou outra ideia que
posso implementar para resolver isso.
Acho que agora fica mais claro.

Diante deste cenário a solução do nosso colega Felippe
Nagato é a mellhor?

abraços,

Edmilson Pontes

--- Felippe Nagato <[EMAIL PROTECTED]> escreveu:

Oi,

Eu faria assim:
Imagine que seu programa possa rodar junto na
inicialização do Windows.
Neste instante, seu programa poderia gravar em algum
lugar do PC, a
data-hora atual e o valor de quanto tempo o Windows
está ligado (função
GetTickCount). A partir daí, você tem como saber,
independente da hora do
sistema real, o horário verdadeiro. Seria apenas somar
a data-hora que você
capturou no início com a diferença entre o tempo que
Windows já está ligado
neste instante com o tempo ligado capturado
inicialmente. Daí, você poderia
inclusive usar alguma função para acertar a data-hora
atual no sistema pra
ficar certinho.
Agora, precisa analisar bem sobre salvar aquelas
informações na
inicialização do programa. Deveria também inserir
informações se naquele dia
o programa já foi aberto, etc etc etc. Pois, por algum
motivo, alguém
poderia fechá-lo, ou coisa do tipo, sendo necessário
abrí-lo novamente.
Até mesmo dado um Reset no PC.
Isso pode ser implementado de acordo com as
necessidades e criar a melhor
configuração para evitar ao máximo fraudes neste
método de alterar o
horário do sistema.
Imagino que não existe algo infalível quanto a isso...
apenas você pode
dificultar as coisas pro usuário que não esperaria que
o programador tivesse
dado muita atenção a alguns detalhes.
Não sei se fui claro ou que essa fosse uma solução
razoável pra se
implementar.
Qualquer coisa, é só falar.

Atenciosamente,
Felippe.


  



  

___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



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





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new 
Array();lrec_URL[1]="http://br.rd.yahoo.com/SIG=12ffog4jq/M=380335.7481167.8369105.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1131711625/A=3107499/R=0/id=flashurl/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com";var
 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1107_lrec_hotelscom.swf?clickTAG=javascript:LRECopenWindow(1)";var
 
lrec_altURL="http://br.rd.yahoo.com/SIG=12ffog4jq/M=380335.7481167.8369105.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1131711625/A=3107499/R=1/id=altimg/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com";var
 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1107_lrec_hotelscom.gif";var
 lrec_width=300;var lrec_height=250;

-
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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

[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

Re: Res: [delphi-br] Registros apagados (me ajudem)

[thiago castro]

Oi Jorge, o problema é que os dados deletados estão em uma tabela paradox. 
Foram apagados (não fisicamente). Andei lendo a respeito e tem um campo, me 
parece boleano que diz se esta ou não apagado. No Visual Fox eu já vi como 
voltar os arquivos deletados mas em paradox eu nunca vi.

jleo <[EMAIL PROTECTED]> escreveu:Ola Thiago !
tem programa que recupera dados perdidos ou deletados
e tambem se voce estiver usando o sistema windows ate 98
tambem ha como recuperar . acima deste com sorte pode conseguir 
tambem , me envia  qual o sistema que vc esta usando
te passarei como fazer e nao garanto , mais pode dar certo
um abraco .
jorge

Surrute - Yahoo! <[EMAIL PROTECTED]> escreveu:
procure por DBIUndelete, acho que pentence ao BDE. Li numa tabela de
comparação entre DBase e Delphi. 

---Mensagem original--- 

De: thiago castro 
Data: 10/25/05 11:40:43 
Para: delphi-br@yahoogrupos.com.br 
Assunto: [delphi-br] Registros apagados (me ajudem) 

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que
foi mandado embora apagou uma tabela (paradox) contendo os dados dos alunos
aqui da escola. Como ele que "gerenciava" os computadores ele não fez Backup
Olhei o DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se
existe alguma maneira de recuperar esses dados? 

Agradeço desde já 



Thiago de Castro X. da Silveira 

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere. 
Setor TI 
telefone: +55 (31) 3274-1088 
e-mails: 
[EMAIL PROTECTED] 
[EMAIL PROTECTED] 



- 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! 

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



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





Yahoo! Grupos, um serviço oferecido por: 




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 Termos do Serviço do
Yahoo!. 




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



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





Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

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



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





Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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: Res: [delphi-br] Registros apagados (me ajudem)

[thiago castro]

Queria recuperar os dados de uma tabela em paradox... O individuo apagou do 
segundo registro ao ultimo... mas olhando em um editor de texto dá para 
visualizar os dados cadastrados. Queria então voltar a visualizar esses dados 
como se fossem dados normais ainda ativos.

Marcio Amorim de Araujo <[EMAIL PROTECTED]> escreveu:Vc quer recuperar um 
arquivo de dados deletado ou os dados da tabela?



Márcio.





-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cícero
Enviada em: terça-feira, 25 de outubro de 2005 14:46
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: Res: [delphi-br] Registros apagados (me ajudem)



Se coisa ficar muito critica busque alguem que tenha os disquetes do DOS 6
, aí você vai poder executar o comando undelete.exe arquivo.extensão.
Cuidado porque ele vai tentar restaurar todos os arquivos e vai te
perguntando Y/N. Não sei qual eh o correspondente no windows. Veja no help
do windows que deve ter alguma coisa parecida.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de thiago castro
Enviada em: terça-feira, 25 de outubro de 2005 12:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Registros apagados (me ajudem)


No google ele fala que não existe nada relacionado a DBIUndelete? Onde posso
encontrar algo sobre isso?

Surrute - Yahoo! <[EMAIL PROTECTED]> escreveu:procure por DBIUndelete,
acho que pentence ao BDE. Li numa tabela de
comparação entre DBase e Delphi.

---Mensagem original---

De: thiago castro
Data: 10/25/05 11:40:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Registros apagados (me ajudem)

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que
foi mandado embora apagou uma tabela (paradox) contendo os dados dos alunos
aqui da escola. Como ele que "gerenciava" os computadores ele não fez Backup
Olhei o DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se
existe alguma maneira de recuperar esses dados?

Agradeço desde já



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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





Yahoo! Grupos, um serviço oferecido por:




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 Termos do Serviço do
Yahoo!.




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



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





Yahoo! Grupos, um serviço oferecido por:

-
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 Termos do Serviço do
Yahoo!.




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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



Links do Yahoo! Grupos









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







Yahoo! Grupos, um serviço oferecido por:

<http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif> 





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] <mailto:[EMAIL PROTECTED]> 
  

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



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



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





Yahoo! Grupos, um serviço oferecido por: 

-
Links do Yahoo! Grupos

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

Re: RES: Res: [delphi-br] Registros apagados (me ajudem)

[thiago castro]

Estou precisando recuperar (registros) em um banco de dados... Apagaram os 
dados em um DB e li a respeito e soube que os registros não são apagados em 
quanto não se der um PACK na tabela... então eles ainda estão no banco de 
dados, mas não são mais visualizados... gostaria de poder visualizar novamente 
esses registros não arquivos... 

Cícero <[EMAIL PROTECTED]> escreveu:Se coisa ficar muito critica busque alguem 
que tenha os disquetes do DOS 6
, aí você vai poder executar o comando undelete.exe arquivo.extensão.
Cuidado porque ele vai tentar restaurar todos os arquivos e vai te
perguntando Y/N. Não sei qual eh o correspondente no windows. Veja no help
do windows que deve ter alguma coisa parecida.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de thiago castro
Enviada em: terça-feira, 25 de outubro de 2005 12:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Registros apagados (me ajudem)


No google ele fala que não existe nada relacionado a DBIUndelete? Onde posso
encontrar algo sobre isso?

Surrute - Yahoo! <[EMAIL PROTECTED]> escreveu:procure por DBIUndelete,
acho que pentence ao BDE. Li numa tabela de
comparação entre DBase e Delphi.

---Mensagem original---

De: thiago castro
Data: 10/25/05 11:40:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Registros apagados (me ajudem)

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que
foi mandado embora apagou uma tabela (paradox) contendo os dados dos alunos
aqui da escola. Como ele que "gerenciava" os computadores ele não fez Backup
Olhei o DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se
existe alguma maneira de recuperar esses dados?

Agradeço desde já



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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





Yahoo! Grupos, um serviço oferecido por:




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 Termos do Serviço do
Yahoo!.




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



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





Yahoo! Grupos, um serviço oferecido por:

-
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 Termos do Serviço do
Yahoo!.




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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



Links do Yahoo! Grupos









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





Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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: Res: [delphi-br] Registros apagados (me ajudem)

[thiago castro]

Estou precisando recuperar (registros) em um banco de dados... Apagaram os 
dados em um DB e li a respeito e soube que os registros não são apagados em 
quanto não se der um PACK na tabela... então eles ainda estão no banco de 
dados, mas não são mais visualizados... gostaria de poder visualizar novamente 
esses registros não arquivos... 

Cícero <[EMAIL PROTECTED]> escreveu:Se coisa ficar muito critica busque alguem 
que tenha os disquetes do DOS 6
, aí você vai poder executar o comando undelete.exe arquivo.extensão.
Cuidado porque ele vai tentar restaurar todos os arquivos e vai te
perguntando Y/N. Não sei qual eh o correspondente no windows. Veja no help
do windows que deve ter alguma coisa parecida.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de thiago castro
Enviada em: terça-feira, 25 de outubro de 2005 12:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Registros apagados (me ajudem)


No google ele fala que não existe nada relacionado a DBIUndelete? Onde posso
encontrar algo sobre isso?

Surrute - Yahoo! <[EMAIL PROTECTED]> escreveu:procure por DBIUndelete,
acho que pentence ao BDE. Li numa tabela de
comparação entre DBase e Delphi.

---Mensagem original---

De: thiago castro
Data: 10/25/05 11:40:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Registros apagados (me ajudem)

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que
foi mandado embora apagou uma tabela (paradox) contendo os dados dos alunos
aqui da escola. Como ele que "gerenciava" os computadores ele não fez Backup
Olhei o DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se
existe alguma maneira de recuperar esses dados?

Agradeço desde já



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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





Yahoo! Grupos, um serviço oferecido por:




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 Termos do Serviço do
Yahoo!.




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



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





Yahoo! Grupos, um serviço oferecido por:

-
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 Termos do Serviço do
Yahoo!.




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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



Links do Yahoo! Grupos









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





Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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] Registros apagados (me ajudem)

[thiago castro]

No google ele fala que não existe nada relacionado a DBIUndelete? Onde posso 
encontrar algo sobre isso?

Surrute - Yahoo! <[EMAIL PROTECTED]> escreveu:procure por DBIUndelete, acho que 
pentence ao BDE. Li numa tabela de
comparação entre DBase e Delphi. 

---Mensagem original--- 

De: thiago castro 
Data: 10/25/05 11:40:43 
Para: delphi-br@yahoogrupos.com.br 
Assunto: [delphi-br] Registros apagados (me ajudem) 

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que
foi mandado embora apagou uma tabela (paradox) contendo os dados dos alunos
aqui da escola. Como ele que "gerenciava" os computadores ele não fez Backup
Olhei o DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se
existe alguma maneira de recuperar esses dados? 

Agradeço desde já 



Thiago de Castro X. da Silveira 

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere. 
Setor TI 
telefone: +55 (31) 3274-1088 
e-mails: 
[EMAIL PROTECTED] 
[EMAIL PROTECTED] 



- 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! 

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



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





Yahoo! Grupos, um serviço oferecido por: 




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 Termos do Serviço do
Yahoo!. 




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



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





Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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

 

[delphi-br] Registros apagados (me ajudem)

[thiago castro]

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que foi 
mandado embora apagou uma tabela (paradox) contendo os dados dos alunos aqui da 
escola. Como ele que "gerenciava" os computadores ele não fez Backup. Olhei o 
DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se existe 
alguma maneira de recuperar esses dados?
 
Agradeço desde já



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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

 

[delphi-br] Registros apagados

[thiago castro]

Pessoal, estou com o seguinte problema, um funcionario de uma unidade que foi 
mandado embora apagou uma tabela (paradox) contendo os dados dos alunos aqui da 
escola. Como ele que "gerenciava" os computadores ele não fez Backup. Olhei o 
DB pelo Notepad e os nomes ainda continuam lá. Gostaria de saber se existe 
alguma maneira de recuperar esses dados?
 
Agradeço desde já


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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: [delphi-br] off - apagar tabela access

[thiago castro]

Tenta isso aqui!!! usando o EmptyTable...
 
function Esvazia(SuaTabela : TTable): Boolean;
var
lExclusivo : boolean;
begin
SuaTabela.Active := False;
repeat
try
SuaTabela.Exclusive := True;
SuaTabela.Active := True;
SuaTabela.EmptyTable;
lExclusivo := True;
Break;
except
on EDatabaseError do
if MessageDlg('A tabela está sendo usada por outro usuário. Tentar novamente 
?', mtError,[mbOK, mbCancel], 0) <> mrOK then
begin
lExclusivo := False;
raise;
end;
end;
until False;
Result := lExclusivo;
end;

Wilson Valdevite <[EMAIL PROTECTED]> escreveu:vc já pensou em usar um while???

tabela.open;
tabela.first;
while not tabela.eof do begin
  tabela.delete;
end;

pode demorar um pouquinho dependendo da tabela mas resolve.


  - Original Message - 
  From: tatu 
  To: Delphi-Br@Yahoogrupos.Com.Br 
  Sent: Thursday, October 20, 2005 4:18 PM
  Subject: [delphi-br] off - apagar tabela access


  necessito melhorar um programinha (bem  bagabundo) insirindo dados numa
  tabela access.
  O unico detalhe que antes de inserir tenho que apagar tudo o conteudo...
  Como faço isso de uma vez só numa tabela access ?. No momento estou 
  fazendo um scan da tabela. (gambiarra digamos...)



  Santiago Cuello
  NSR Informática
  11 6601 6161
  11 9914 0823 



  -- 
  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date:
  19/10/2005



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



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

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date: 19/10/2005

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date: 19/10/2005


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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

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



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

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

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

<*> 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

 

[delphi-br] Testar Porta de Saida (NOVO)

[thiago castro]

Achei esse outro aqui tbem...
 
 Verificando se a impressora está ativa
Na sua unit, faça a chamada abaixo:
While not PrinterOnline() dobegin  MsgBox('Verifique a 
Impressora!','ATENÇÃO');end; Function PrinterOnLine : Boolean;Const  PrnStInt : 
Byte = $17;  StRq : Byte = $02;  PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, 
etc. }Var  nResult : byte;Begin (* PrinterOnLine*)  Asm  mov ah,StRq;  mov 
dx,PrnNum;  Int $17;  mov nResult,ah;end;  PrinterOnLine := (nResult and $80) = 
$80;End;  
 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

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



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

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

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

<*> 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] Testar Porta de Saida...

[thiago castro]

Eu achei esse texto aqui, ve se ajuda...
 
 
Verificar se Impressora esta Conectada
A dica abaixo apresenta o código para implementação de uma função para 
verificar se a impressora esta conectada. 

Para implementar esta função é necessário que o código gerado manipule algumas 
interrupções da Bios (Sistema Básico de Entrada e Saída) responsáveis pelo 
controle da porta paralela (Interrupção $17).

A interrupção $17 utiliza dois registros ah e dx, o registrador ah indica neste 
caso o acesso a porta paralela e o registrador dx indica qual das portas será 
testada, 0 para LPT1 e 1 para LPT2.

Para saber se a porta esta ligada (impressora conectada) o resultado da 
operação de tratamento de interrupção deve ser $80. 

Código Completo:
Function OnLine(Porta:Word):Boolean;Const Portas :Byte = $02;Var Res 
:Byte;Begin { Código em Assembler } Asm mov ah,Portas; {Requisita o acesso as 
portas}mov dx,Porta;{Define a porta de teste}Int $17; {Chama a interrupção de 
Impressora} mov Res,ah; {Guarda em Res o resultado da operação } end; Result := 
(Res and $80) = $80; {Testa o valor de saída}End; 

sa_souza <[EMAIL PROTECTED]> escreveu:
Olá pessoal...
tô com um probleminha aqui...

Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean;
Const Portas :Byte = $02;
Var   Res :Byte;
Begin
Asm
  mov ah,Portas;
  mov dx,Porta;
  Int $17;  //-> aqui dá um Access Violation...
  mov Res,ah;
end;
Result := (Res and $80) = $80;
end;

em qq porta q eu escolher... alguém ai manja de Asm pra me dar uma 
dicazinha de como resolver este erro?
os valores para porta são:
LPT1 = 0;
LPT2 = 1;
LPT3 = 2;
LPT4 = 3;
COM1 = 8;
COM2 = 9;
COM3 = 10;
COM4 = 11;
caso não seja nenhuma destas então deve ser um PATH válido com um 
arquivo TXT. Ex: 'C:\Windows\impressao.txt'

Obrigado por qq ajuda...

Sérgio A Souza
Analista de Sistemas
THOMASINI & Associados
Automação Comercial e Industrial

e-mail: [EMAIL PROTECTED]
MSN/Skype: [EMAIL PROTECTED]
msn PVT: [EMAIL PROTECTED]



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

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



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

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

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

<*> 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] OFF TOPIC (desarmamento)

[thiago castro]

Acho que se você fizer uma rotina usando numeros inteiros randomicos e 
colocando o Par para SIM e o impar para NÃO você vai achar a resposta...
Ou parem de colocar esse tipo de coisa aqui POXA, isso aqui é uma lista de 
DELPHI e não lista de escolhas pessoais... 

Elazar <[EMAIL PROTECTED]> escreveu:
Ola bom dia galera...

sei que o assunto nao tem nada a ver com o delphi...e me desculpe por
isso..

mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...?
pq?


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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

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



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

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

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

<*> 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] Gravar no paradox em rede..

[thiago castro]

no Users adicione 
DBIProcs
 
e no evento OnPost da tabela adicione a seguinte linha...
 
dbiSaveChanges(Table1.Handle);  //Table1 é o  nome da sua tabela
 
Qualquer coisa me da um toque... t+

Fernanda Forbici <[EMAIL PROTECTED]> escreveu:
Olá..

Como faço para dar um Post em um registro no paradox e em outra 
estação aparecer o registro depois do post.. 

Não estou conseguindo.. só aparece o registro na outra estação depois 
que fecha a aplicação na estação que gravou..

Fernanda Forbici






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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PlayStation 2 a partir de R$ 659! 
Parcele!Celular Motorola com câmera a partir de R$ 449!Siemens SL65 com câmera 
a partir de R$ 730! Câmeras Digitais a partir de apenas R$ 399! Parcele!CD 
Players Pioneer a partir de R$ 369!MP3 Player iPod a partir de R$ 799! Parcele!

-
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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora!

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



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

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

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

<*> 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] Duvida Urgente...

[thiago castro]

Obrigado, mas tive que trocar campo por campo colocando uma letra na frente. O 
programador que tinha feito o sistema não devia ter pensado nessa 
possibilidade... mas agora que eu entendi o código dele eu resolvi alterar ao 
invés de fazer novamente... Mas muito obrigado pelas dicas

Gabriel Filho <[EMAIL PROTECTED]> escreveu:Tente usar essa instrução SQL :


'SELECT * FROM tabela WHERE [1] = 1'


não sei se da certo no paradox, mas no SQLSERVER2000 funciona, pois os
valores postos entre colchetes, ele entende como sendo um nome de campo.




Em 28/09/05, thiago castro <[EMAIL PROTECTED]> escreveu:
>
> Já tentei, o problema é o seguinte a Tabela tem 180 titulo campos
> numericos e não indexados. Pois indexar 180 campos é loucura...
>
> ex.
> eu quero filtrar o campo nome
> table1.filter := 'nome = jose';
> só que no meu exemplo é assim
> table1.filter := '1 = 1'; ou table1.filter := '100 = 1'; ou table1.filter:= 
> '180 = 1';
>
> Pode ser até uma dica de SQL tbem ajuda... quando filtra ou faz um SQL ele
> esta me retornando um erro.. Acho que ele não esta reconhecendo o titulo do
> campo numerico...
>
> Vitor Luiz Redes <[EMAIL PROTECTED]> escreveu:
> Tente colcoar com aspas ... '1'..
> Se for em tempo de execução
> Filter := QuotedStr( '1' );
>
>
> constructor TVitor.Create( AOwner : TProgrammer );
> begin
> Name := 'Vitor Redes';
> Login := 'vredes';
> Password := '**';
> City := 'Curitiba';
> Employee := 'Redsystem';
> inherited Create( AOwner )
> end;
>
> end.
> - Original Message -
> From: thiago castro
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, September 27, 2005 3:28 PM
> Subject: [delphi-br] Duvida Urgente...
>
>
> Pessoal estou precisando de uma ajudinha urgente...
> É o seguinte eu tenho uma tabela (Paradox) com os seguintes campos...
>
> Matricula
> Nome
> 1
> 2
> 3
> 4
> 5
> 6
> 7
> (Isso mesmo campos com numeros... 180 na verdade)
> estou com o seguinte problema, como faço para fazer um filtro usando os
> campos com nomes em numeros?
>
> ex table1.filter := 1 = 0;ex table1.filter := 1 = 1;
>
>
>
> pois os campos são numericos tbem 0 ou 1.
>
> ele esta me retornando um erro! pois não aceita nome dos campos como
> numeros... existe alguma outra possibilidade de fitrar só os registros com 1
> e só os com 0 dessa tabela?
>
>
> Thiago de Castro X. da Silveira
>
> Pré-Vestibular Pitágoras
> Unidades Centro, Savassi e Belvedere.
> Setor TI
> telefone: +55 (31) 3274-1088
> e-mails:
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
>
>
> -
> Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
> muito mais. Instale agora!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
> --
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
> do Yahoo!.
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
> -
> 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 Termos do Serviço do
> Yahoo!.
>
>
>
> Thiago de Castro X. da Silveira
>
> Pré-Vestibular Pitágoras
> Unidades Centro, Savassi e Belvedere.
> Setor TI
> telefone: +55 (31) 3274-1088
> e-mails:
> [EMAIL PROTECTED]
> [EMAIL PROTECTED

Re: [delphi-br] Duvida Urgente...

[thiago castro]

Já tentei, o problema é o seguinte a Tabela tem 180 titulo campos numericos e 
não indexados. Pois indexar 180 campos é loucura...
 
ex.
eu quero filtrar o campo nome
table1.filter := 'nome = jose';
só que no meu exemplo é assim
table1.filter := '1 = 1'; ou table1.filter := '100 = 1'; ou table1.filter := 
'180 = 1';
 
Pode ser até uma dica de SQL tbem ajuda... quando filtra ou faz um SQL ele esta 
me retornando um erro.. Acho que ele não esta reconhecendo o titulo do campo 
numerico...

Vitor Luiz Redes <[EMAIL PROTECTED]> escreveu:
Tente colcoar com aspas ... '1'..
Se for em tempo de execução 
Filter := QuotedStr( '1' );


constructor TVitor.Create( AOwner : TProgrammer );
begin
Name := 'Vitor Redes';
Login := 'vredes';
Password := '**';
City := 'Curitiba';
Employee := 'Redsystem';
inherited Create( AOwner )
end;

end.
  - Original Message - 
  From: thiago castro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 27, 2005 3:28 PM
  Subject: [delphi-br] Duvida Urgente...


  Pessoal estou precisando de uma ajudinha urgente...
  É o seguinte eu tenho uma tabela (Paradox) com os seguintes campos...

  Matricula
  Nome
  1
  2
  3
  4
  5
  6
  7
  (Isso mesmo campos com numeros... 180 na verdade)
  estou com o seguinte problema, como faço para fazer um filtro usando os 
campos com nomes em numeros?

  ex table1.filter := 1 = 0;ex table1.filter := 1 = 1;



  pois os campos são numericos tbem 0 ou 1.

  ele esta me retornando um erro! pois não aceita nome dos campos como 
numeros... existe alguma outra possibilidade de fitrar só os registros com 1 e 
só os com 0 dessa tabela?


  Thiago de Castro X. da Silveira

  Pré-Vestibular Pitágoras 
  Unidades Centro, Savassi e Belvedere.
  Setor TI
  telefone: +55 (31) 3274-1088 
  e-mails:
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]


  
  -
  Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora!

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



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

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 

-
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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora!

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



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

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

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

<*> 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

 

[delphi-br] Duvida Urgente...

[thiago castro]

Pessoal estou precisando de uma ajudinha urgente...
É o seguinte eu tenho uma tabela (Paradox) com os seguintes campos...
 
Matricula
Nome
1
2
3
4
5
6
7
(Isso mesmo campos com numeros... 180 na verdade)
estou com o seguinte problema, como faço para fazer um filtro usando os campos 
com nomes em numeros?
 
ex table1.filter := 1 = 0;ex table1.filter := 1 = 1;
 


pois os campos são numericos tbem 0 ou 1.
 
ele esta me retornando um erro! pois não aceita nome dos campos como numeros... 
existe alguma outra possibilidade de fitrar só os registros com 1 e só os com 0 
dessa tabela?


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora!

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



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

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

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

<*> 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] Arquivo PDOXUSRS.LCK

[thiago castro]

Pessoal achei isso aqui vejam se resolve
 
http://forumboadica.com.br/viewtopic.php?t=23553&view=next&sid=6407549e1940eecdb2c5ce5eede8d713

Sergio Toshio Kawahara <[EMAIL PROTECTED]> escreveu:Oi Eduardo, obrigado por 
responder, o problema é que o arquivo PDOUSRS.LCK, cresce muito rapido eu tenho 
que deletar ele de 4 a 5 vezes por dia, se tornou enviavel fazer isso devo 
descobrir o por quê dele crescer desta forma talvez uma forma errada de 
programar sei la.

De qualquer forma obrigado

Sérgio Toshio Kawahara
  - Original Message - 
  From: Eduardo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, September 12, 2005 3:17 PM
  Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK


  Faca um bkp e deleta o arquivo.

  Se eu não tiver enganado isso resolve.

  Assim q a aplicação rodar o cara e recriado.

  Eduardo
- Original Message - 
From: Sergio Toshio Kawahara 
To: delphi-br@yahoogrupos.com.br 
Sent: Sunday, September 11, 2005 2:27 PM
Subject: [delphi-br] Arquivo PDOXUSRS.LCK


Amigos, tenho um sistema que esta rodando no windows 2003, com terminal 
remoto, esta tudo configurado certo no servidor, mas o arquivo PDOXUSRS.LCK 
cresce ate chegar em 56MB e nesse momento da uma msg de erro em todos os 
terminais "LOCK FILE HAS GROWN TOO LARGE", bom já procurei em todos os lugares 
mas nao encontrei a solucao, se alguem souber de algo fico muito grato, abaixo 
segue uma de minha rotina em SQL para atualizacao da base;

Delphi 7, Piradox, W2003

tQry := tQuery.Create(Application);

with tQry do

begin

DatabaseName := '';

SQL.Clear;

SQL.Add('Update Clientes ');

SQL.Add('Set NOME = "TESTE TESETS TSTES TESET" ');

SQL.Add('Where Estabcto is Null');

ExecSQL;

Free;

end;


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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por: 
PUBLICIDADE
  
 


  --
Links do Yahoo! Grupos

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

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 
Serviço do Yahoo!. 



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



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

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new 
Array();lrec_URL[1]="http://br.rd.yahoo.com/SIG=12f579qn7/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126559083/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1)";var
 
lrec_altURL="http://br.rd.yahoo.com/SIG=12f579qn7/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126559083/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif";var
 lrec_width=300;var lrec_height=250;

-
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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savass

[delphi-br] Ordenar numeros.

[thiago castro]

Pessoal, tenho 6 numeros e preciso ordenar do maior para o menor, como poderia 
fazer? Estou tentando usar a função MaxIntValue só que ele me retorna só o 
maior, eu tenho que excluir e fazer tudo novamente com os 5 restantes, existe 
algo mais facil? tentei o ListBox só que Numeros ele ordena na forma de 
Strings...
 
Alguem tem alguma solução para o caso?


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
 Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 
Participe!

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



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

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

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

<*> 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] Codigo de Barras

[thiago castro]

Imprimir dá sim, você tem que especificar qual código quer utilizar.
Existem vários tipos de código de barras, cada um com seu algoritimo e tamanho. 
Os mais comuns - usados no comercio - são o EAN8 e o EAN13, que como o próprio 
nome já insinua têm 8 e 13 bytes cada um, eu utilizo o 2 de 5 intercalado, 
Existem vários componentes para a impressão, eu por exemplo imprimo em uma hp 
3550 e em uma lexmark z25, plastifico e o código passa blzinha... qualquer 
dúvida me manda em pvt... t+

stainle2003 <[EMAIL PROTECTED]> escreveu:
Estou precisando imprimir códigos de Barras numa impressora Epson usando
o Delphi 5, será que é possível; como ?


Stainle





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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new 
Array();lrec_URL[1]="http://br.rd.yahoo.com/SIG=12f9j95sn/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126020083/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1)";var
 
lrec_altURL="http://br.rd.yahoo.com/SIG=12f9j95sn/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126020083/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif";var
 lrec_width=300;var lrec_height=250;

-
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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Impedir o Fechamento

[thiago castro]

Eu estudo virus tbem, e vi um exemplo um dia que fiquei besta. Na verdade são 2 
executaveis, um fica rodando e monitorando se o outro tbem esta e vice versa, 
caso um se fecha ele o abre novamente. Mas para isso você tem que saber qual é 
o processo que esta em execução (isso muda sempre). Não é uma grande ajuda mas 
com base nisso acho que da para fazer o que você quer...

Espero ter ajudado...

Paulo Cezar dos Santos Junior <[EMAIL PROTECTED]> escreveu:
Anderson,

 Talvez seja mais fácil você colocar uma validação no evento OnQueryClose 
do formulário, que é chamado antes do do formulário ser liberado. Claro que 
isso só poderá ser usado para os seus projetos.

Anderson de Oliveira Furtilho - BR3 <[EMAIL PROTECTED]> escreveu:
Olá amigos!!!



Teria como criar um programa que fique rodando em memória e se o usuário
tentasse fechar um outro programa ele impediria.



Por exemplo



Ao fechar o Word o programa residente na memória não deixaria ele fechar,
mesmo o usuário clicando no x na barra do word para fecha-lo, ou por exemplo

O usuário abre a calculadora e depois o programa que esta residente em
memória não deixaria ele fechar mais.



A idéia é permitir que o usuário abra o programa mas não feche se
autorização.





Qualquer ajuda ficarei agradecido



Anderson



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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:var target="_blank";var URL = new 
Array();URL[1] = 
"http://br.rd.yahoo.com/SIG=12f6o0mm9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124561749/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 link="javascript:openWindow(1)";var flashfile = 
'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var
 altURL = 
"http://br.rd.yahoo.com/SIG=12f6o0mm9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124561749/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 altimg = 
"http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif";var width = 
468;var height=60;

-
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 Termos do Serviço do 
Yahoo!. 


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:var target="_blank";var URL = new 
Array();URL[1] = 
"http://br.rd.yahoo.com/SIG=12fh6v6e5/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124808406/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 link="javascript:openWindow(1)";var flashfile = 
'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var
 altURL = 
"http://br.rd.yahoo.com/SIG=12fh6v6e5/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124808406/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 altimg = 
"http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif";var width = 
468;var height=60;

-
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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!

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



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

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

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

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

<*> Para sair deste grupo, envie

Re: [delphi-br] Tabela Paradox

[thiago castro]

Eu acho que o que ele quer fazer com a senha é problema dele. Nós sabemos e 
TODOS tem o direito de saber, vocês acham que se um programador não consegue 
descobrir uma senha (com tantos meios de busca) hoje em dia ele consegue muita 
coisa?
Segue abaixo as senhas UNIVERSAIS.
 
Vai ai as suas senhas (bom proveito)

Para PARADOX 7.0 -> "jIGGAe" ou "cupcdvum"

Para PARADOX 5.0 -> "jIGGAe" ou "cupcdvum"

Para PARADOX 4.0 (DOS) -> "nx66ppx"

Alex Leão <[EMAIL PROTECTED]> escreveu:

É a presunção do culpado até que prove o contrário?
  - Original Message - 
  From: Valfrid-Ly Silva Couto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 22, 2005 9:16 AM
  Subject: Re: [delphi-br] Tabela Paradox


  O problema é saber se a situação é realmente legítima
  (como a que você citou) ou se o cara tem um programa
  pirateado, com base pirateada, e quer abrir para pegar
  os dados já que o programa não funciona mais.

  O motivo que você citou é perfeitamente cabível a
  revelação da senha, mas, infelizmente, não temos como
  saber se é real.


  --- TObject <[EMAIL PROTECTED]> escreveu:

  > Não concordo com o estimado colaborador! 
  > 
  > Imagine a seguinte situação: você possui uma empresa
  > e contratou um profissional Delphi para fazer um
  > sistema que usa tabela paradox, este profissional
  > desaparece (prática infelizmente normal) e você
  > contrata outro para continuar a manutenção de seus
  > sistemas.
  > O novo profissional, percebe logo de cara que as
  > tabelas estão protegidas por senha, ele recorre a um
  > fórum para pedir uma ajuda, essa ajuda será negada?
  > 
  > Também sou contra a pirataria, mas...ao mesmo tempo
  > precisamos analisar o contexto das coisas, antes de
  > falar alguma coisa.
  > 
  > Ao amigo que está com o problema e eu digo, existe
  > sim uma maneira de fazer isso com a tabela meu
  > querido, faça uma busca no google com as seguintes
  > palavras: tabela paradox senha, você achará fácil o
  > que procura.
  > 
  > Boa sorte!
  > 
  > - Original Message - 
  >   From: Ronaldo Sousa 
  >   To: delphi-br@yahoogrupos.com.br 
  >   Sent: Saturday, August 20, 2005 12:28 AM
  >   Subject: RE: [delphi-br] Tabela Paradox
  > 
  > 
  >   sim, mas isso é pirataria e por isso não é aceito
  > aqui na lista...
  > 
  > 
  > 
  >   Ronperso
  >   [EMAIL PROTECTED]
  > 
  > 
  >   >From: "wagneraranha" <[EMAIL PROTECTED]>
  >   >Reply-To: delphi-br@yahoogrupos.com.br
  >   >To: delphi-br@yahoogrupos.com.br
  >   >Subject: [delphi-br] Tabela Paradox
  >   >Date: Sat, 20 Aug 2005 02:49:07 -
  >   >
  >   >Gostaria de saber se existe alguma forma de abrir
  > uma tabela Paradox
  >   >protegida por senha quando esta senha é
  > desconhecida?
  >   >
  >   >
  >   >
  > 
  >  
  >
  _
  >   MSN Messenger: converse com os seus amigos online.
  > 
  >   http://messenger.msn.com.br
  > 
  > 
  > 
  >   -- 
  >   < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
  > MENSAGEM >
  > 
  >   Para ver as mensagens antigas, acesse:
  >  
  > http://br.groups.yahoo.com/group/delphi-br/messages
  > 
  >   Para falar com o moderador, envie um e-mail para:
  >   [EMAIL PROTECTED] ou
  > [EMAIL PROTECTED]
  > 
  > 
  > 
  > Yahoo! Grupos, um serviço oferecido por: 
  >   
  > 
  > 
  >
  --
  >   Links do Yahoo! Grupos
  > 
  > a.. Para visitar o site do seu grupo na web,
  > acesse:
  > http://br.groups.yahoo.com/group/delphi-br/
  >   
  > b.. Para sair deste grupo, envie um e-mail para:
  > [EMAIL PROTECTED]
  >   
  > c.. O uso que você faz do Yahoo! Grupos está
  > sujeito aos Termos do Serviço do Yahoo!. 
  > 
  > 
  > 
  > [As partes desta mensagem que não continham texto
  > foram removidas]
  > 
  > 
  > 
  > 
  > 
  > 
  > -- 
  > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
  > MENSAGEM >
  > 
  > Para ver as mensagens antigas, acesse:
  >  http://br.groups.yahoo.com/group/delphi-br/messages
  > 
  > Para falar com o moderador, envie um e-mail para:
  >  [EMAIL PROTECTED] ou
  > [EMAIL PROTECTED]
  >  
  > Links do Yahoo! Grupos
  > 
  > 
  > 
  > http://br.yahoo.com/info/utos.html
  > 
  >  
  > 
  > 
  > 


  Valfrid-Ly Silva Couto
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  ICQ 15114646




  
  ___ 
  Yahoo! Acesso Grátis - Internet rápida e grátis. 
  Instale o discador agora! http://br.acesso.yahoo.com/


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

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


-

[delphi-br] Criptografando um TXT

[thiago castro]

Olá pessoal,
 
criei um sistema que gera um relatório em TXT, como poderia Criptografalo para 
que somente o responsável conseguisse ler?
 
Agradeço antecipadamente ...


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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

 

[delphi-br] Proteção contra cópias 2

[thiago castro]

Pessoal, vocês já usaram o HandProt? Pelo que li a respeito ele preenche um 
setor do HD com algum dado... quando o software é rodado ele checa se o setor 
esta preenchido ou não? alguem já fez algo parecido?


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Problema com a propriedade editmask

[thiago castro]

Você esta com algum codigo no evento OnKeyPress? Se estiver coloque uma rotina 
que não fique lendo toda hora! Como só quando pressionar o Enter por exemplo...
 
Espero ter ajudado... 

paulo4784 <[EMAIL PROTECTED]> escreveu:
Quando utilizo a propriedade editmask de um componente, e tento limpar 
os valores inseridos pelo usuario utilizando o backspace obtenho a 
seguinte msg: 'Invalid input value.  Use escape key to abandon changes'
Alguem sabe como faço para que essa verificação não seja efetuada?




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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Alguem viu este erro

[thiago castro]

Coloque no net dir do servidor o mesmo caminho 
ex: Z:\DPF_AUTOPECAS\SYSTEM_DPF\LCK\
para todas as estações de trabalho...

thiago castro <[EMAIL PROTECTED]> escreveu:
Primeiro verifique se o BDE esta configurado corretamente, depois apague todos 
os arquivos .LCK e .NET da sua maquina e servidor

Miguelito <[EMAIL PROTECTED]> escreveu:Pessoal, estou com um erro esquicito que 
acontece ao abrir a aplicação 

APLICATION ERROR 
Exception EOleException im module DPF_AUTOPECAS>EXE at 001AD9BF 
Directory is Controled by Other .Net file 
Directory : C:\ 
File Z:\DPF_AUTOPECAS\ SYSTEM_DPF\PDOXUSRS.LCK 

Ai não deixa abrir, percebi que: 
- o problema acontece desde que comencei a usar clientdataset e
datasetprovider 
- só um usuario pode ficar com o Aplicativo  aberto, quando algum outro
usuario tenta abrir da esse erro 
- apareceram ums arquivos que antes não apareciam: 
 DEL8.MB 
 PARADOX.LCK 
 PDOXUSRS.LÇK 

O que será que esta acontecendo e como posso consertar? 

Miguel Villacorta 
  4446-4100 ramal 4126 
7312-5509 
[EMAIL PROTECTED] 
  www.dpfautopecas.com.br 
MSN [EMAIL PROTECTED] 

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/7/2005


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





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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   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 Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Alguem viu este erro

[thiago castro]

Primeiro verifique se o BDE esta configurado corretamente, depois apague todos 
os arquivos .LCK e .NET da sua maquina e servidor

Miguelito <[EMAIL PROTECTED]> escreveu:Pessoal, estou com um erro esquicito que 
acontece ao abrir a aplicação 

APLICATION ERROR 
Exception EOleException im module DPF_AUTOPECAS>EXE at 001AD9BF 
Directory is Controled by Other .Net file 
Directory : C:\ 
File Z:\DPF_AUTOPECAS\ SYSTEM_DPF\PDOXUSRS.LCK 

Ai não deixa abrir, percebi que: 
- o problema acontece desde que comencei a usar clientdataset e
datasetprovider 
- só um usuario pode ficar com o Aplicativo  aberto, quando algum outro
usuario tenta abrir da esse erro 
- apareceram ums arquivos que antes não apareciam: 
 DEL8.MB 
 PARADOX.LCK 
 PDOXUSRS.LÇK 

O que será que esta acontecendo e como posso consertar? 

Miguel Villacorta 
  4446-4100 ramal 4126 
7312-5509 
[EMAIL PROTECTED] 
  www.dpfautopecas.com.br 
MSN [EMAIL PROTECTED] 

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/7/2005


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





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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   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 Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Foto

[thiago castro]

No componente tem a opção Stretch é só marcar como True.

Eduardo Silva ® <[EMAIL PROTECTED]> escreveu:Galera, tenho na minha aplicação 
um campo dbimage para colocar fotos.

Gostaria que quando eu colocasse uma foto el ficasse ajustada de maneira que
não distorcesse a imagem, igual a tela do msn.independente da foto que a
gente coloca, a imagem fica legal, sem distorções.

Alguém tem uma idéia de como fazer isso?

Obrigado.

~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Câmara Municipal de Lençóis Paulista |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Off - Numero de Ip da rede

[thiago castro]

vai no prompt e digita PING (o nome da maquina) ele te retornará o ip...

Eduardo Silva ® <[EMAIL PROTECTED]> escreveu:Com eu faço para descobrir o 
número de IP de uma máquina na minha rede.

Não é pelo delphi, pelo windows ou DOS mesmo

~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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

 

[delphi-br] Retirada do Form da memória - Dúvidas de muita gente

[thiago castro]

Pessoal eu faço da seguinte maneira

No componente que vai "chamadar" o Form eu coloco

FrmExemplo := TFrmExemplo.create(self);
FrmExemplo.showmodal; //ou FrmExemplo.show; 

no evento OnClose do form FrmExemplo, eu coloco

FrmExemplo := nil;
FrmExemplo.free;

Nunca deu problema comigo... tenta isso as vezes resolve...


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Deletar item de ListBox...

[thiago castro]

MeuListBox.Clear;

Jéferson <[EMAIL PROTECTED]> escreveu:
Vai uma dica não sei se vai funcionar.

Controla o laço com um while, e soh incrementa o "i" se não ocorrer a
exclusão

exemplo:

i:=0;
while i <= ListBox1.Items.Count -1 do
begin
  if (teste) then
ListBox1.Items.Delete(i);
  else
inc(i);
end;


--
Jéferson Mehlecke
Porto Alegre - RS

- Original Message - 
From: "Cassiano Roloff" <[EMAIL PROTECTED]>
To: 
Sent: Thursday, June 09, 2005 9:24 AM
Subject: [delphi-br] Deletar item de ListBox...


Olá...

Quero deletar varios itens de um ListBox:

for i := 0 to ListBox1.Items.Count -1 do
  if (teste) then
ListBox1.Items.Delete(i);

Só que se eu deleto, o Count dos itens é reduzido, e por fim, acaba
dando RangeCheckError...

Alguem tem uma ajuda aí...
Resolvi uma vez com algo parecido com...

for i := 0 to High(ListBox1.Items)... mas não to lembrado como foi...


Valeu!
Cassiano Roloff.




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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos









  
  


Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! 
http://mail.yahoo.com.br 


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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



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

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

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

<*> 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

 

[delphi-br] Banco de Dados

[thiago castro]

Pessoal, estou com um jogo! Feito em Delphi, só que o cara que fez (sumiu) e eu 
não consigo alterar as questões... Gostaria de saber se alguem poderia me 
ajudar nisso? eu mando o arquivo de dados!! é um arquivo .DAT.
 
Se alguem poder me ajudar nessa eu ficarei grato...



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



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

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

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

<*> 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

 

[delphi-br] Banco de dados

[thiago castro]

Pessoal, estou com um jogo! Feito em Delphi, só que o cara que fez (sumiu) e eu 
não consigo alterar as questões... Gostaria de saber se alguem poderia me 
ajudar nisso? eu mando o arquivo de dados!! é um arquivo .DAT.
 
Se alguem poder me ajudar nessa eu ficarei grato...


Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



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

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

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

<*> 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] travar a hora do computador

[thiago castro]

Aqui na empresa eu tenho um server 2003 e um server linux testei em um windows 
XP e em um Win98 e não tive problemas não...

Rodrigo Othavio Farias <[EMAIL PROTECTED]> escreveu:Se for em rede, dependendo 
de como ta configurado a maquina acerta a hora 
pela hora do servidor, dai nao adianta


[]´s
Rodrigo O. Farias
- Original Message - 
From: thiago castro
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 06, 2005 2:26 PM
Subject: Re: [delphi-br] travar a hora do computador


Coloca uma linha no autoexec.bat, ou no reg do windows na parte Run da 
maquina o comando

time 00:00

ou coloca na sua aplicação a linha Winexec(...)


ramilton costa gomes junior <[EMAIL PROTECTED]> escreveu:

Ola pessoal...

Estou prescisando desenvolver um programa pra travar a hora do computador...
sempre que ligar o computador a hora dele tem que ser 00:00:00.. nunca pode
passar disso... alguem ja fez coisa pareceida??

atenciosamente,

Ramilton Costa Gomes Junior
 Analista de Sistemas
   CPD/CESESB - FACISA
TEL(73)2943690 Ramal 225
www.cesesb.edu.br




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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

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

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

   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!.



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]





Links do Yahoo! Grupos

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 Termos do Serviço do 
Yahoo!. 


  
  


Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! 
http://mail.yahoo.com.br





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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



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

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

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

<*> 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] travar a hora do computador

[thiago castro]

Coloca uma linha no autoexec.bat, ou no reg do windows na parte Run da maquina 
o comando
 
time 00:00
 
ou coloca na sua aplicação a linha Winexec(...)


ramilton costa gomes junior <[EMAIL PROTECTED]> escreveu:

Ola pessoal...

Estou prescisando desenvolver um programa pra travar a hora do computador... 
sempre que ligar o computador a hora dele tem que ser 00:00:00.. nunca pode 
passar disso... alguem ja fez coisa pareceida??

atenciosamente,

Ramilton Costa Gomes Junior
 Analista de Sistemas
   CPD/CESESB - FACISA
TEL(73)2943690 Ramal 225
www.cesesb.edu.br




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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]



-
Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta!

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



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

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

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

<*> 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] RE: Esquisito: Para os Novatos e tbm Veteranos que não conheçam

[thiago castro]

Ai a solução seria reinstalar o sistema operacional, também poderia trocar o 
computador ou até mesmo o usuário... é apenas um Arquivo compilado da Ajuda em 
HTML não é nenhum EXECUTÁVEL Então virus seria muito dificil

MM <[EMAIL PROTECTED]> escreveu:É legal mas...

Depois que baixei e li meu micro funcionou esquisito.

T+ 



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 




Thiago de Castro X. da Silveira

Pré-Vestibular Pitágoras 
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088 
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Numeros Aleatorios!

[thiago castro]

consegui isso aqui para loterias ...
 
Como gerar numeros randomicos para loteriasCrie um form com os seguintes 
objetos: -  Listbox1 com a fonte "Courier New" -  Edit1 com Edit1.Text := 6  
Numero de Dezenas -  Edit2 with Edit2.Text := 49 Valor Maximo -  Edit3 with 
Edit3.Text := 10 Numero de Jogos -  Button1 com onClick com o evento 
Button1Click abaixo   Isto criará 10 serie de jogos  com os numeros entre 1 e 
49   Numeros não serão repetidos  vc poderá mudar os tres valores   procedure 
TForm1.Button1Click(Sender: TObject); 
var 
  MyList: TStringList; 
  Times, I, Number: Integer; 
  cInt, cLen: string; 
begin 
  // make the button disabled to prevent multiple clicks 
  Self.enabled := False; 
  // convert the highest number 
  Number := StrToInt(Edit2.Text); 
  // this creates the correct format-argument for every 
  // max-numbers (e.g. 49 , 120,  ) 
  cLen := IntToStr(length(trim(Edit2.text)) + 1); 
  MyList := TStringList.Create; 
  try 
// first clear the Listbox 
Listbox1.clear; 
// here we start a new serie 
for Times := 1 to StrToInt(Edit3.Text) do begin 
  // we go thru this while-loop until the max-numbers 
  // are created. Not every loop creates an entry 
  // to the list because double numbers are ignored. 
  while MyList.Count < StrToInt(Edit1.Text) do   begin 
// get a new random number 
I := Random(Number); 
if (I 0) then begin 
  // cLen has the number of chars from max-number plus one 
  // e.g. 
  // if max-number is 49 cLen is 3 
  // if max-number is 111 cLen is 4 
  // if max-number is  cLen is 5 
  // this formatting is needed for the correct 
  // sorting of all List-Entries 
  cInt := Format('%' + cLen + '.1d', [I]); 
  // here we look at double entries and ignore it 
  if (MyList.IndexOf(cInt) < -1) then 
continue; 
  // now we add a new randomnumber 
  MyList.Add(cInt); 
end; 
  end; 
  cInt := ''; 
  // max-numbers are created now we sort it 
  MyList.Sort; 
  // and put it all into Listbox 
  for I := 0 to MyList.Count - 1 do 
cInt := cInt + MyList.Strings[I]; 
  ListBox1.Items.Add(cInt); 
  // clear MyList for the next serie 
  MyList.clear; 
end; 
  finally 
MyList.Free; 
  end; 
  // make the button enable for the next click 
  Self.enabled := True; 
end; 
 

-

 

Outra opção sem utilizar componentes visuais é:

 
type 
  {array of series of picks, used in Pick function} 
  TPick = array of array of integer; 

function Pick (APicks, AMax, ASeries: integer): TPick; 
var 
  I, J, Index: integer; 
  PickArray: array of integer; 
begin 
  if (APicks = AMax) then   begin 
raise Exception.Create ('Pick: Max available number should be larger than 
number of picks'); 
  end; {if} 
  if (APicks < 1) then   begin 
raise Exception.Create ('Pick: You should request at least one pick'); 
  end; {if} 
  if (ASeries < 1) then   begin 
raise Exception.Create ('Pick: You should request at least one series'); 
  end; {if} 
SetLength (Result, ASeries); 
  for I := Low (Result) to High (Result) do   begin 
{populate AArray } 
SetLength (PickArray, AMax); 
for J := Low (PickArray) to High (PickArray) do begin 
  PickArray [J] := J + 1; 
end; {for} 

SetLength (Result [I], APicks); 
for J := Low (Result [I]) to High (Result [I]) do begin 
  Result [I, J] := 0; 
  while (Result [I, J] = 0) do   begin 
Index := Random (AMax); 
Result [I, J] := PickArray [Index]; 
PickArray [Index] := 0; 
  end; {while} 
end; {for J} 
  end; {for I} 
end; {--Pick--} 

Exemplo de Uso 

var 
  APick: TPick; 
begin 
  APick := Pick (6, 49, 10); {we need 10 series of 6/49 numbers} 
  ...


Demian Lessa <[EMAIL PROTECTED]> escreveu:
Só pra que fique claro, não existe tal coisa como números aleatórios 
gerados por computador. A lógica é simples: se existe um algoritmo que 
gera os números aleatórios, então há uma ordem embutida na seqüência dos 
números. Os números gerados pelo computador são pseudo-aleatórios.

Bom, você tem que ser mais específico a respeito do seu problema já que 
o Delphi trás consigo um gerador de números "aleatórios" na biblioteca 
padrão. Em System.pas (diretório dos fontes do Delphi, subdiretório RTL) 
você encontrará todas as rotinas relacionadas com a geração de números 
"aleatórios". Se não são suficientes ou adequados, diga-nos o que precisa!

Algoritmos de geração de números aleatórios são encontrados aos montes 
na web. Aviso, porém, que a matemática envolvida pode ser bastante complexa.

Cordialmente,

Demian Lessa
Salvador - Brasil

dionatanhenrique wrote:
> Pessoal, gostaria de saber se alguem sabe, ou teria algum código 
> fonte que gera numeros aleatorios mas não repetidos, catei na 
> internet mas não conse

Re: RES: [delphi-br] Debugar

[thiago castro]

Faz um Filter
 
Table.filered := False;
Table.filter := 'campo tal > 2920'
table.filtered := True;
 
ai manda rodar o seu código só aparecerá os valores maiores que 2920... Ai voce 
coloca o Break Point no While...
 
espero ter ajudado

Eduardo Silva ® <[EMAIL PROTECTED]> wrote:
Claudio, essa opção existe no D5 sim.

Eu fui tentar fazer e deu um pau danado aqui que eu tive que fechar o delphi
com Ctrl + Alt + Del

Vc poderia me dar mais detalhes de como fazer isso ?

O valor que eu quero testar é o codigo_matricula, na tabela ele é integer, e
eu quero testa-lo a partir do valor 2920.

Veja um pedaço do código

   while not Tb_associados.eof do
   begin
  tb_associados2.Insert;
  Tb_associados2.FieldByName('codigo_matricula').AsFloat :=
Tb_associados.FieldByName('codigo_matricula').AsFloat;
   .
   


Obrigado.
  -Mensagem original-
  De: Claudio Oliveira [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 8 de abril de 2005 09:36
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Debugar


  Eduardo , verifique se no delphi 5 quando vc marca o breakpoint clique com
o o botao direito na bolinha vermelha e escolha breakpoint proprerties faca
uma conditcao q o o registro seja igual a 2900, pronto. no delphi 7 isso
funciona.
- Original Message -
From: Eduardo Silva ®
To: Grupo Delhpi-br
Sent: Friday, April 08, 2005 9:14 AM
Subject: [delphi-br] Debugar


Galera, como eu faço para que o meu break point comece a debuguar a
partir
de um determinado registro pra frente ?

Tenho uma tabela com 3200 registros e eu necessito debugar do 2900 pra
frente, pois ta dando erro nesse valor em diante... (key violation)

uso delphi 5 e paradox.

~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE




  --

Links do Yahoo! Grupos

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

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




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



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

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert("Por favor, digite 
algo.");  return false; }else {  document.form_combo.action 
="http://br.rd.yahoo.com/SIG=12a0itpnv/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1112972304/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
 } return true;} [input]   [input]   [input]  

-
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 Termos do Serviço do 
Yahoo!. 


 

Re: [delphi-br] código de barras para bloqueto bancário - delphi 7 << URGENTE>>

[thiago castro]

Oi José, eu uso esse código aqui!!! Gera em um QrImage um código de barras 
2de5intercalado Normalmente usado para bancos... Qualquer dúvida entre em 
contato em PVT...
 
Procedure TImprimeCarteirinha.CriaCodigo(Cod : String; Imagem : TCanvas);
Const
  digitos : array['0'..'9'] of string[5]= ('00110',
  '10001',
  '01001',
  '11000',
  '00101',
  '10100',
  '01100',
  '00011',
  '10010',
  '01010');
Var
  Numero : String;
  Cod1 : Array[1..1000] Of Char;
  Cod2 : Array[1..1000] Of Char;
  Codigo : Array[1..1000] Of Char;
  Digito : String;
  c1,c2 : Integer;
  x,y,z,h : LongInt;
  a,b,c,d : TPoint;
  I : Boolean;
Begin
  Numero := Cod;
  For x := 1 to 1000 Do
  Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
  End;
  c1 := 1;
  c2 := 1;
  x := 1;
  For y := 1 to Length(Numero) div 2 do
  Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
  Cod1[c1] := Digito[z];
  Inc(c1);
End;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
  Cod2[c2] := Digito[z];
  Inc(c2);
End;
Inc(x,2);
  End;
  y := 5;
  Codigo[1] := '0'; 
  Codigo[2] := '0';
  Codigo[3] := '0';
  Codigo[4] := '0'; { Inicio do Codigo }
  For x := 1 to c1-1 do
  begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
  end;
  Codigo[y] := '1'; Inc(y); { Final do Codigo }
  Codigo[y] := '0'; Inc(y);
  Codigo[y] := '0';
  Imagem.Pen .Width := 1;
  Imagem.Brush.Color := ClWhite;
  Imagem.Pen .Color := ClWhite;
  a.x := 1; a.y := 0;
  b.x := 1; b.y := 79;
  c.x := 2000; c.y := 79;
  d.x := 2000; d.y := 0;
  Imagem.Polygon([a,b,c,d]);
  Imagem.Brush.Color := ClBlack;
  Imagem.Pen .Color := ClBlack;
  x := 0;
  i := True;
  for y:=1 to 1000 do
  begin
If Codigo[y] <> #0 Then
Begin
  If Codigo[y] = '0' then
h := 2
  Else
h := 4;
  a.x := x; a.y := 0;
  b.x := x; b.y := 79;
  c.x := x+h-1; c.y := 79;
  d.x := x+h-1; d.y := 0;
  If i Then
Imagem.Polygon([a,b,c,d]);
  i := Not(i);
  x := x + h;
End;
  end;
end;

José Maria <[EMAIL PROTECTED]> wrote:

Alguem conhece algum freeware? Uso o DuckBarcode mas ele só existe 
até o Delphi 5. Se possível, me envie um exemplo em PVT.

Obrigado
Jose Maria





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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
 

-
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 Termos do Serviço do 
Yahoo!. 


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



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

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

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

<*> 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] Quickrep

[thiago castro]

Pessoal, brigadao pelas dicas, mas consegui (em partes resolver o problema)...
 
Não posso colocar nada alinhado em TOP no formulário, ai funciona que é uma 
blz... mas se alguem souber outra maneira me avisem... Brigadão para todos...

Eliza <[EMAIL PROTECTED]> wrote:
oi Thiago,


Já vi isso acontecer.  
Não copie o componente (com ctrl C , ctrl V) , traga-o da paleta e veja 
se funciona...

Eliza - Dismar
Departamento de Informática




thiago castro escreveu:

> Pessoal, estou usando P IV 2.0, 256ram, Win XP sp2 e Delphi 4 + 
> quickreport
>
> em relatório que eu estou criando, quando eu coloco um qrlabel ou 
> outro componente qualquer ele vai para o Left 2100 as vezes 3043 ele 
> simplesmente some da tela... Mesmo que consiga coloca-lo no lugar 
> certo quando da um preview ele some novamente... Esse problema deu na 
> minha maquina com win98, parou de dar por algum tempo e agora 
> voltou... Não sei mais o que fazer estou simplesmente desesperado...
>
>
> -
> Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:*
>
> * 
> <http://br.rd.yahoo.com/SIG=12a76ut8i/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1112118524/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>*
>   
>
>
> 
> *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]
>   <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>   Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>

-- 

Eliza - Dismar
Departamento de Informática
(44) 218-1372



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



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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba 
Porto Alegre Belo Horizonte Brasília 

-
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 Termos do Serviço do 
Yahoo!. 



-
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!

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



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

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

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

<*> 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

 

[delphi-br] Quickrep

[thiago castro]

Pessoal, estou usando P IV 2.0, 256ram, Win XP sp2 e Delphi 4 + quickreport
 
em relatório que eu estou criando, quando eu coloco um qrlabel ou outro 
componente qualquer ele vai para o Left 2100 as vezes 3043 ele simplesmente 
some da tela... Mesmo que consiga coloca-lo no lugar certo quando da um preview 
ele some novamente... Esse problema deu na minha maquina com win98, parou de 
dar por algum tempo e agora voltou... Não sei mais o que fazer estou 
simplesmente desesperado...


-
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!

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



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

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

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

<*> 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

 

[delphi-br] Filtrar dados.

[thiago castro]

Pessoal estou com o seguinte problema...
 
faço uma consulta em sql, esta vindo o resultado, mas com matriculas repetidas 
como faço para que ele me apresente um só registro de cada matricula...
 
 
ex...
 
select * from vendas
where matricula like '%CURSO%'
 
RESULTADO
 
50020 CURSO INTENSIVO 20,00
50020 CURSO INTENSIVO 20,00
50020 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50022 CURSO INTENSIVO 20,00
50023 CURSO INTENSIVO 20,00
 






Cada um é uma parcela que ele irá pagar...
eu preciso que saia só um de cada matricula paraa fazer um relatório de quem 
comprou o curso.
 
ex...
 
50020 CURSO INTENSIVO 20,00
50021 CURSO INTENSIVO 20,00
50022 CURSO INTENSIVO 20,00
50023 CURSO INTENSIVO 20,00
 
valeu pessoal...









-
Yahoo! Acesso Grátis: Instale o novo discador!

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



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

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

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

<*> 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

 

[delphi-br] QuickReport

[thiago castro]

Pessoal, estou usando o Delphi 4 e quando estou montando um relatório e colo um 
Qrlabel ele some da tela (Left vai para 2000) alguem já viu isso? não estou 
conseguindo montar nada de relatórios...


-
Yahoo! Mail - Com 250MB de espaço.  Abra sua conta!

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



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

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

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

<*> 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] Validação usuário

[thiago castro]

Coloca no form principal o nome do usuário que esta na
tabela e pode até ter uma variável já com o nivel do
individuo. Ex...

usuário logado: Teste
Varnivel: 3

quando os forms forem se abrindo você faz a consulta
na tabela e o sistema verifica se ele tem acesso ou
não...

--- patricinha_cl <[EMAIL PROTECTED]> wrote:
-


Pessoal, estou desenvolvendo um sistema que possuirá
validação de 
usuário e senha. Porém nunca trabalhei com sistemas
assim. 
Gostaria de um auxilio, não encontro material algum na
internet que 
me auxilie para tal se puderem me dar uma idéia
agradeço muito.
Possuo três tabelas, uma conterá os dados dos
usuários, nome, login, 
senha. Em outra tabela armazenarei o nome dos
formularios que serão 
criados no sistema, e na terceira tabela existirá as
permissões dos 
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi
7 e banco 
firebird. No meu form de login eu terei que validar
usuário e senha. 
Estou usando o seguinte código para tal:

procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT
USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN =
:Nome and 
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+
'Certifique-se que a Tecla 
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;

Ele esta funcionando beleza, mas no form que eu
cadastro o usuário eu 
tenho que definir em que form aquele usuário vai ter
acesso, e o 
nivel de permissão dele no mesmo (se é total, de
inclusão, alteração, 
exclusão)... Esta parte eu não sei nem como começar.
Se alguém tiver 
algum material para me passar, ou quem sabe algum
exemplo eu agradeço 
muito.
Abraços
Patricia








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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE


-
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 Termos do Serviço do Yahoo!.





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


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

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

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

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

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

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

 

Re: [delphi-br] Função - muuuuuuuuito estranho...

[thiago castro]

tenta isso aqui

function RemoveChar(Const Texto:String):String; 
var 
I: integer; 
S: string; 
begin 
S := ''; 
for I := 1 To Length(Texto) Do 
begin 
if (Texto[I] in ['0'..'9']) then 
begin 
S := S + Copy(Texto, I, 1); 
end; 
end; 
result := S; 
end;

 --- Filipe <[EMAIL PROTECTED]> escreveu: 

-
Olá, tehno esta função abaixo, que, na linha 

"i := StrToInt(FakeResult);"

Ocorre uma excessão, dizendo algo como:

''234234234'' não é um valor inteiro valido


Observem q a primeira e a ultima aspas são da mensagem
de erro msm, mas as de dentro... 
parece q minha string, ao invés de ser 'string', está
como ''string''... o que pode estar acontecendo???

Obrigado.

 function
TfrAcompanhaProcesso.DeixaApenasNumeros(S: String):
Integer;
  var
i: Integer;
FakeResult: String;
  begin
Result := 0;
FakeResult := EmptyStr;

for i := 1 to Length(S) do
  if S[i] in ['0'..'9'] then
FakeResult := FakeResult + S[i];

i := StrToInt(FakeResult);
Result := i;
  end;



  
  Filipe Geyer
  Programador
  [EMAIL PROTECTED]
  www.bludata.com.br
 
 


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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:  

   function SearchComboBox() {
if (document.form_combo.keyword.value.length==0){ 
alert("Por favor, digite algo.");  return false; }else
{  document.form_combo.action
="http://br.rd.yahoo.com/SIG=12avp06mu/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109944618/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;}   
  [input] 
  [input][input]  


-
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 Termos do Serviço do Yahoo!.
 





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis





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

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

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

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

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

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