[delphi-br] Manipulação de Tabela Excel

2007-08-08 Por tôpico Vinicius Florido
 Existe um modelo de uma tabela aqui na empresa usada pra fichas de
ponto de funcionários. O que queria fazer é imprimir o nome do
funcionário em arquivos Excel  no campo aonde seria o nome do
funcionário. E depois imprimir... alguém tem um exemplo de como fazer
isso?

  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=jvp.vinicius_l=1,118657
0376.182081.7152.cadarga.hst.terra.com.br,21293,Des15,Des15  

  _  

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


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



[delphi-br] Sockets na Marra

2007-06-08 Por tôpico Vinicius Florido
Gostaria de saber se alguém conhece alguma biblioteca para delphi (unit)
para trabalhar com sockets com um nível de abstração menor que uso de
componentes indy e serversocket do próprio dephi. Gostaria de trabalhar no
delphi com sockets da mesma forma que trabalho com C++ e C pra poder
conseguir fazer o que preciso... de preferência com exemplos... Com certeza
muitos já precisaram disso... 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=jvp.vinicius_l=1,1181325677
.666839.17418.fomboni.hst.terra.com.br,15056,20031127114101,20031127114101



  _  

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



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



[delphi-br] Rotina de Conexão com o Banco

2007-05-29 Por tôpico Vinicius Florido
 Estou tendo um problema com meu sistema usando ZeosLib e MySQL que ao
tentar se conectar ao banco fica muito lenta alguém pode me passar
rotinas de conexão com o banco que vocês usam até para eu tirar idéia de
como fazer corretamente... Estou interessado na lógica...


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=jvp.vinicius_l=1,1180355236
.914294.17434.domoni.hst.terra.com.br,18014,Des15,Des15  


  _  

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



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



RES: [delphi-br] Numero de usuários

2007-04-23 Por tôpico Vinicius Florido
Eu trabalho exatamente com esse tipo de controle e trabalho desenvolvendo
soluções para esse fim. Vou explicar superficialmente como funciona esse
tipo de controle que você precisa em sua aplicação limitada pelo numero de
acessos. 

 

Você deve criar uma rotina que de tempo em tempo cria um registro na tabela
dizendo “estou aqui” com um tempo de vida. Então cada vez que entrar na
aplicação você deve constar se existe mais conexões com mais tempo de vida
que o definido. Cada vez que vc inicia a aplicação você já destrói os
registros com mais tempo de vida do definido e analisado de tempo em tempo e
atualizando os registros com novos delays. O ideal é trabalhar com Stored
Procedure para esse fim para minimizar o uso da rede e atribuir mais serviço
ao servidor. 

 

Qualquer problema pode me procurar no MSN: [EMAIL PROTECTED]

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Sérgio T. Uetanabaro
Enviada em: quinta-feira, 19 de abril de 2007 18:01
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Numero de usuários

 

Mas o problema ainda vai persistir pq se ele der um CAD e matar o processo o
decremento nao será executado. Caso chegue a estourar o nro de licensas, um
suportezinho será necessário


[]´s


Sergio


_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Régis Bender
Enviada em: quinta-feira, 19 de abril de 2007 17:44
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Numero de usuários

Uma idéia que eu te dou é criar uma tabela aonde aparece o número de cópias
registradas e cada vez que entra no sistema faz a validação na tabela.
Por exemplo:
você permite três usuários na tabela.
quando você entra no sistema, testa se a permissão é diferente de zero. Caso
seja, ele altera essa tabela e diminui '1'. E se for = a '0', vc deixa uma
mensagem dizendo que o número de usuarios permitido é '3'.

Não esqueça de incrementar essa tabela ao sair do sistema. 

abraço

sds

Bender Desenvolvimento de Sistemas 
e Serviços Contábeis (Régis)
(51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br

- Original Message - 
From: Sérgio T. Uetanabaro 
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
Sent: Thursday, April 19, 2007 5:32 PM
Subject: RES: [delphi-br] Numero de usuários

Infelizmente só tem solução q dói... hehehe. Tentar ver algum esquema de dar
um broadcast na rede em que seu software responda a esse broadcast e conte o
nro de softwares rodando... tem muito softwares q estao fazendo isso.

[]´s

Sergio

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 19 de abril de 2007 16:06
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Numero de usuários

CAD = CTRL + ALT + DEL. Imagine... abreviação da abreviação...

Alberto alberto.ferreira@ mailto:alberto.ferreira%40tan.com.br
tan.com.br escreveu: Obrigado Sergio, mas...

não tem nada mais simples? É que é um software distribuído, de prateleira
e sem manutenção. Teria que colocar esse autenticador como um serviço no
windows e tudo mais, me preocupar se ele está no ar, além do mais pode ser
que algumas máquinas desses usuários não possam nem ser chamadas de estação,
quem dirá de servidores.
O que é CAD?

[]s

- Original Message - 
From: Sérgio T. Uetanabaro 
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
Sent: Thursday, April 19, 2007 9:31 AM
Subject: RES: [delphi-br] Numero de usuários

Acho q a melhor opção seria vc ter um servidor de autenticacao de copia.
Toda vez que um usuario logar no seu sistema vc acessa esse servidor via
TCP, por exemplo, e autentica a copia, mantendo nele o nro de copia
rodando na rede interna, tratando devidamente o OnDisconnect para que não
haja problemas de matar o processo no CAD. Acho que eh a opcao mais correta
e facil de se fazer isso.

[]´s

Sergio Uetanabaro

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Alberto
Enviada em: quinta-feira, 19 de abril de 2007 08:34
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] Numero de usuários

Olá,

Existe alguma maneira de saber quantos usuários estão logados no sistema em
uma rede interna? Ou refazendo a pergunta: Preciso controlar o número de
copias, qual a melhor opção? 
Pensei no seguinte, o usuário pode instalar o sistema em várias máquinas,
mas se a sua copia dá direito a dois usuários, para o terceiro entrar alguém
precisa sair.
Poderia até gravar uma flag no banco e comparar algo como n_copias X
n_logados, mas 

RES: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?]

2007-04-20 Por tôpico Vinicius Florido
Uma coisa que deve ser levada em questão é o tempo entre compactar e
arquivar depois descompactar para vizualizar. Se for uma imagem jpeg não
vale a pena esse custo de processamento em oposto ao ganho em compressão que
é muito insignificante. E caso for imagens BMP é mais fácil converter para
JPEG antes. Mas só vale mesmo a compressão se você tiver que realmente
salvar BMP no banco. Se precusar de rotinas de compactação só falar...

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Sérgio T. Uetanabaro
Enviada em: quinta-feira, 19 de abril de 2007 17:43
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?]

 

Para utilizar compressao acredito que vc vai ter q fazer isso na mao.
Comprimir antes de gravar e descomprimir para depois mostrar. A nao ser q
tenha componentes pronto para isso, mas nao conheço nenhum.


[]´s

Sergio

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Berdam
Enviada em: quinta-feira, 19 de abril de 2007 11:44
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Tratamento de Imagens no Delphi [Como comprimir?]

existe o tipo de campo blob, ele permite inserção de imagens. Són sei a 
taxa de compressão.

silvano_monteiro escreveu:

 Boa tarde pessoal

 Estou com uma questao.
 Queria a opniao de vcs sobre qual a melhor maneira de se gravar uma
 imagem em um bando de Dados para q ela fique mais leve possivel.
 Se existe alguma maneira da imagem ser comprimida ao Gravar ou existe
 alguma rotina pra gravar ela q ocupe pouco espaco no Banco de Dados.

 Eu estou utilizando D7 + Firebird

 Alguem poderia me ajudar???

 Desde ja Agradeco
 Silvano Monteiro
 Cuiabá-MT

 

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

 


  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=jvp.vinicius_l=1,1177015631
.867734.32405.assuan.hst.terra.com.br,17786,Des15,Des15  


  _  

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



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



[delphi-br] Componente WebCam

2007-04-05 Por tôpico Vinicius Florido
Estou precisando de um componente freeware ou opensource para tirar fotos
com a webcam para utilizar em um modulo de cadastro...

 

Estou procurando e até agora não encontrei nenhum que me agrade... Alguém
pode dar dicas de algum bom ?



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



[delphi-br] Alguem tem uma função Parecida?

2006-06-04 Por tôpico Vinicius Florido



 Estou precisando de uma função que ao ser passado um diretório me
retorne uma lista de arquivos daquele diretório e de seus
subdiretórios... por exemplo, se eu colocasse como parâmetro c:\ ele me
retornaria todos os arquivos do meu hd... +/- isso que to precisando...
Já consegui fazer uma função que retorne tudo de um determinado
diretório, mas não de seus subdiretórios...

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 02/06/2006 / Versão:
4.4.00/4776
Proteja o seu e-mail Terra: http://mail.terra.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]






  




  
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!.












RES: [delphi-br] Esconder Aplicação do Usuário

2006-05-31 Por tôpico Vinicius Florido



Isso só funciona no Windows 9x eu acho...
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Andre Luis
Enviada em: terça-feira, 30 de maio de 2006 17:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Esconder Aplicação do Usuário
 

 {Para ocultar um programa, deve-se registrar este como um
 serviço do Windows. Normalmente um serviço do Windows é
 ativado quando com a inicialização do sistema (Windows) e
 pemanece ativo até a finalização deste. Este processo
 esconde o programa da lista Ctrl+Alt+Del}


 Const


 Servico_Simples = 1;


 Servico_Unregister = 1;


 


 Function RegisterServiceProcess(DwProcessID, dwType: DWord):
 DWord; StdCall; External 'KERNEL32.dll';


 


 


 procedure TForm1.FormCreate(Sender: TObject);


 begin


 RegisterServiceProcess(GetCurrentProcessID,
Servico_Simples);


 end;


 


 procedure TForm1.FormDestroy(Sender: TObject);


 begin


 RegisterServiceProcess(GetCurrentProcessID,
 Servico_Unregister);


 end;


 end.



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







Yahoo! Grupos, um serviço oferecido por:


PUBLICIDADE
 
http://br.ard.yahoo.com/SIG=12fgqjd7g/M=396559.7942981.9535540.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1149026419/A=3739190/R=0/id=noscript/
SIG=154dcqslu/*http:/lt.dell.com/lt/lt.aspx?CID=13040LID=340715DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/de
sktops?c%3dbr%26l%3dpt%26s%3ddhs 
 
 _ 

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
http://br.yahoo.com/info/utos.html Serviço do Yahoo!. 

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 30/05/2006 / Versão:
4.4.00/4773
Proteja o seu e-mail Terra: http://mail.terra.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]






  




  
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!.











[delphi-br] Esconder Aplicação do Usuário

2006-05-30 Por tôpico Vinicius Florido



Estou desenvolvendo um aplicativo que monitora tudo que o funcionário
faz nas estações de trabalho aqui de onde eu trabalho. Ele funciona
tirando screenshot de tempo em tempo... Já consegui fazer o aplicativo
ficar bastante interessante, já adicionei vários tipos de implementações
de modo que ele só tire fotos quando o usuário esteja trabalhando
realmente e não consumir recursos sem necessidade. Mas ainda não sei
como fazer que esse aplicativo não apareça para o usuário. Queria que
ele ficasse invisível... Por enquanto está funcionando no tray, mas já
aconteceu de alguns usuários desligarem o aplicativo.

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 29/05/2006 / Versão:
4.4.00/4772
Proteja o seu e-mail Terra: http://mail.terra.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]






  




  
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!.











RES: [delphi-br] INDY - Configuração

2006-05-24 Por tôpico Vinicius Florido



Em que propriedade habilito essa autentificação ?
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Alosi yarru
Enviada em: terça-feira, 23 de maio de 2006 23:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] INDY - Configuração
 
atualize teu indy que tem como enviar sim, eu utilizo com autenticação e
funciona.

Uso D6 com Indy 10.

t+

- Original Message -
From: Sylvio Rodrigues ® [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 23, 2006 10:36 PM
Subject: [delphi-br] INDY - Configuração


Bom dia 

Fiz um exemplo do site active delphi para envio de e-mails através do
delphi
(INDY), deu certo com os provedores UOL e YAHOO, mas não funciona com o
Gmail e FlexHost que requerem autenticação no servidor.
Estou usando delphi 7.

Alguem já passou por isto e saberia como resolver ?

instruções do provedor para configuração smtp:
(marque a opção meu servidor requer autenticação e clique em
configurações e
marque tbm fazer logon usando.)*

Obrigado !!!
*
--
Sylvio Rodrigues (r)
fone: (17) 8112-9812
e-mail/msn: [EMAIL PROTECTED]


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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









 
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/ 


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







Yahoo! Grupos, um serviço oferecido por:


PUBLICIDADE
 
http://br.ard.yahoo.com/SIG=12f2v9apn/M=396559.7942981.9484408.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1148443515/A=3718281/R=2/id=noscript/
SIG=154dcqslu/*http:/lt.dell.com/lt/lt.aspx?CID=13040LID=340715DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/de
sktops?c%3dbr%26l%3dpt%26s%3ddhs 

 
http://br.i1.yimg.com/br.yimg.com/i/230506_y300x250_maio03_dhs_dim5150.
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
http://br.yahoo.com/info/utos.html Serviço do Yahoo!. 

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 23/05/2006 / Versão:
4.4.00/4768
Proteja o seu e-mail Terra: http://mail.terra.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]






  




  
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!.












RES: [delphi-br] Tá aí uma grande dúvida

2006-05-23 Por tôpico Vinicius Florido



Bom, esse esquema de verificar pelo serial do HD é muito antigo e muitas
vezes fácil de ser burlado através de editores hexadecimal. Qualquer
pessoa que saiba o mínimo de assembler consegue burlar tal proteção,
porém como se vende sistemas para empresas leigas ainda é uma ótima
opção. Mas vamos a sua duvida... Eu conheço muito sistemas de proteção
eficientes para software e vou descrever alguns usados por ai...
 
## Inicialização por loader.##
 
Esse método de proteção consiste em criar um arquivo executável de
espere um parâmetro basiado na data e uma tabela de criptografia que é
ativado pelo loader. O loader é um programa que chama esse programa
principal, ou seja, sua aplicação, com a senha correta. Ai você pode me
perguntar, qualquer pessoa pode copiar um loader de outra pessoa e
“crackear” seu programa. De forma nenhuma... Se você tiver uma conexão
online pode ser verificado através de um banco de dados online ou um
webservice a validade daquele usuário e automaticamente revalidar esse
loader como se fosse um sistema de atualização online do seu software,
porem atualiza esse loader que normalmente é um programinha feito em C
ou Cpp para que seja bem pequeno. Já vi alguns softwares usando esse
sistema que espera que o usuário fique online de período em período (no
caso do sistema que verifiquei era a cada semana) e revalidava o loader.
Funcionava muito bem.
 
Número Serial: O Programa possui um número único serial que o habilita
completamente.
Prós: O usuário somente digita o serial e pronto, o programa está
liberado. Ideal para softwares de prateleira aonde o usuário já adquiriu
o produto. O sistema preferido para a divulgação indireta.
Contras: Centenas de outros usuários somente digitam o mesmo serial e
pronto: centenas de programas registrados. Use esta forma caso não
deseje receber pelo seu programa ou queira uma divulgação indireta do
mesmo e esperar pela consciência do usuário, isso não funciona no
Brasil. Centenas ou milhares de usuário podem usar o mesmo serial. Esta
caindo em desuso rapidamente pois há centenas de sites com index
sofisticados de seriais para qualquer programa o que torna o sistema
quase completamente inútil hoje em dia.
HardLocks: Um pequeno dispositivo é colocado na porta serial, paralela
ou USB com uma identificação única para liberar o funcionamento do
sistema.
Prós: Um dos sistemas mais difíceis de serem quebrados e definitivamente
o mais seguro. Garante a taxa de uma licença por máquina o que é o
ideal. Para sistemas caros (algo acima de $1000,00) considere seriamente
o uso de HardLocks.
Contras: Custo do HardLock por cópia licenciada e alguns problemas
(raros) com periféricos usando aquela mesma porta, mas nada tão sério
assim para prejudicar o usuário. As portas seriais e paralelas estão
caindo em desuso com o USB e já existem HardLocks para elas também. Os
Hardlocks pode apresentar defeitos dependendo do tipo.
Você deve adquirir um kit de gravação e um Hardlock para cada cópia de
distribuição. Não é muito caro mas o seu software deve compensar isto
obviamente.
Disquete de Habilitação: Um disquete é fornecido junto com o programa
para a sua habilitação ou desabilitação.
Prós: É o hardlock dos pobres sem o mesmo nível de proteção.
Contras: Não faça proteção via disquetes de habilitação/desabilitação
como o Dr. Case e outros. É perda de tempo ! Há vários utilitários que
fazem a cópia perfeita do disquete sendo possível habilitá-lo em
qualquer máquina. E ainda pode-se ter o problema de superfície no disco
e um belo dia quando o usuário precisar instalar o software em outra
máquina ele terá a surpresa do disco já mofado ou perdido. Tenha certeza
que isto sempre acontece no final de semana quando ele liga para o seu
escritório na segunda descarregando o seu vocabulário.
Identidade Única: Uma das melhores e mais eficientes tipos de proteções
é de identidade do equipamentos recentemente implementado pela própria
Microsoft. Isto consiste em recolher dados únicos sobre o seu computador
como serial do HD, informação da BIOS (não aconselhável), Versão do OS,
Nome do computador etc. Com base nestas informações você poderá gerar
uma fechadura de identificação. Essa fechadura precisará de uma chave
fornecida por você para habilitar o seu software unicamente para aquela
máquina.
Prós: Difícil de ser quebrado quando bem implementado e permite alta
adaptabilidade contra cracks criado contra o sistema como patchs
invisíveis que permitem a modificação do sistema. Permite a taxa de
apenas uma licença por computador.
Contras: Caso o usuário formate a maquina, modifique periféricos chaves
o sistema pode desabilitar a cópia automaticamente. Isto cria problemas
com a solicitação de uma nova licença para instalação. O usuário pode
simplesmente ligar alegando este fato e de boa fé você terá que fornecer
uma nova liberação.
Habilitação Pela Internet: Ao adquirir um produto o usuário recebe uma
senha que permite a geração de um número para habilitação e instalação
em uma máquina.
Prós: Após 

RES: [delphi-br] Componente / Lib / Class Webcam

2006-05-21 Por tôpico Vinicius Florido



O Rafael que ficou de mandar o componente que tira foto com webcam e
falo que ia mandar por email não o fez... então continua a questão...
Alguém tem um tal componente que faz isso ?
 
Se tiver segue meu e-mail... [EMAIL PROTECTED] se eu receber
fico comprometido em disponibilizar parada todos...
 _ 

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
 nome de Vinicius Florido
 Enviada em: sábado, 20 de maio de 2006 13:39
 Para: delphi-br@yahoogrupos.com.br
 Assunto: RES: [delphi-br] Componente / Lib / Class Webcam


 Quero sim me mande um email com o componente se for possível.

 [EMAIL PROTECTED]

 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 Em nome de Rafael
 Enviada em: sexta-feira, 19 de maio de 2006 16:51
 Para: delphi-br@yahoogrupos.com.br
 Assunto: RES: [delphi-br] Componente / Lib / Class Webcam

 Então, eu tenho um componente que tira foto direto da web cam, eu
 utilizo
 ele em algumas aplicações minhas!

 Se quiser me envie um e-mail solicitando.



 _ 

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 Em
 nome de Vinicius Florido
 Enviada em: sexta-feira, 19 de maio de 2006 16:16
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Componente / Lib / Class Webcam



 Estou desenvolvendo um sistema que em certo momento do cadastro do
 cliente deve-se adicionar uma foto através da webcam. Hoje o sistema
 aceita fotos de meios externos através da escolha direta da foto em um
 dialog de fotos. Mas nesse caso o ideal seria tirar a foto usando a
 webcam. Alguém conhece um componente ou classe ou biblioteca ou dll,
 freeware que faça tal coisa? Mesmo que não seja freeware mas vocês já
 tenham usado e aconselhem comprar por favor me indique. Grato desde
 já...

 _ 

 Esta mensagem foi verificada pelo E-mail Protegido Terra
 http://mail.terra.com.br/ .
 Scan engine: McAfee VirusScan / Atualizado em 19/05/2006 / Versão:
 4.4.00/4766
 Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


 [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

 
http://br.ard.yahoo.com/SIG=12f7lg0e1/M=396559.7942981.9477179.2369893/
 D=br
 
clubs/S=2137111264:HM/Y=BR/EXP=1148073410/A=3714796/R=2/id=noscript/SIG=
 1554
 
ctaqg/*http:/lt.dell.com/lt/lt.aspx?CID=13048LID=341557DGC=BADGSeg=DH
 SDU
 
RL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3d
 br%2
 
http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr
 %252 
 6l%3dpt%26s%3ddhs 


 
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/220506_y300x250_maio03_dhs_
 note
 d510.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:


 PUBLICIDADE

 
http://br.ard.yahoo.com/SIG=12fch8vcu/M=396559.7942981.9477179.2369893/
 
D=brclubs/S=2137111264:HM/Y=BR/EXP=1148139664/A=3714796/R=2/id=noscript/
 
SIG=1554ctaqg/*http:/lt.dell.com/lt/lt.aspx?CID=13048LID=341557DGC=BA
 
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/no
 tebooks?c%3dbr%26l%3dpt%26s%3ddhs 


 
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/220506_y300x250_maio03_dhs_
 noted510.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
 http://br.yahoo.com/info/utos.html Serviço do Yahoo!. 

 _ 

 Esta mensagem foi verificada pelo E-mail Protegido Terra
 http://mail.terra.com.br/ .
 Scan engine: McAfee VirusScan / Atualizado em 19/05/2006 / Versão:
 4.4.00/4766
 Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


 [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



 
http://br.ard.yahoo.com/SIG=12fblfdpm/M=396559.7942981.9477179.2369893/
D=br
 
clubs/S=2137111264:HM/Y=BR/EXP=1148150665/A=3714796/R=2/id=noscript/SIG=
1554
 ctaqg/*http://lt.dell.com/lt/lt.aspx?CID=13048
http://lt.dell.com/lt/lt.aspx?CID=13048LID=341557DGC=BADGSeg=DHSD
LID=341557DGC=BADGSeg=DHSD
 
URL="" href="http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3">http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3
dbr%
http://www1.la.de

RES: [delphi-br] Componente / Lib / Class Webcam

2006-05-20 Por tôpico Vinicius Florido



Quero sim me mande um email com o componente se for possível.
 
[EMAIL PROTECTED]
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Rafael
Enviada em: sexta-feira, 19 de maio de 2006 16:51
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Componente / Lib / Class Webcam
 
Então, eu tenho um componente que tira foto direto da web cam, eu
utilizo
ele em algumas aplicações minhas!

Se quiser me envie um e-mail solicitando.



 _ 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
nome de Vinicius Florido
Enviada em: sexta-feira, 19 de maio de 2006 16:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Componente / Lib / Class Webcam



Estou desenvolvendo um sistema que em certo momento do cadastro do
cliente deve-se adicionar uma foto através da webcam. Hoje o sistema
aceita fotos de meios externos através da escolha direta da foto em um
dialog de fotos. Mas nesse caso o ideal seria tirar a foto usando a
webcam. Alguém conhece um componente ou classe ou biblioteca ou dll,
freeware que faça tal coisa? Mesmo que não seja freeware mas vocês já
tenham usado e aconselhem comprar por favor me indique. Grato desde
já...

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 19/05/2006 / Versão:
4.4.00/4766
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


[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

http://br.ard.yahoo.com/SIG=12f7lg0e1/M=396559.7942981.9477179.2369893/
D=br
clubs/S=2137111264:HM/Y=BR/EXP=1148073410/A=3714796/R=2/id=noscript/SIG=
1554
ctaqg/*http:/lt.dell.com/lt/lt.aspx?CID=13048LID=341557DGC=BADGSeg=DH
SDU
RL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3d
br%2
http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr
%252 
6l%3dpt%26s%3ddhs 


http://br.i1.yimg.com/br.yimg.com/i/br/ads7/220506_y300x250_maio03_dhs_
note
d510.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:


PUBLICIDADE
 
http://br.ard.yahoo.com/SIG=12fch8vcu/M=396559.7942981.9477179.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1148139664/A=3714796/R=2/id=noscript/
SIG=1554ctaqg/*http:/lt.dell.com/lt/lt.aspx?CID=13048LID=341557DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/no
tebooks?c%3dbr%26l%3dpt%26s%3ddhs 

 
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/220506_y300x250_maio03_dhs_
noted510.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
http://br.yahoo.com/info/utos.html Serviço do Yahoo!. 

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 19/05/2006 / Versão:
4.4.00/4766
Proteja o seu e-mail Terra: http://mail.terra.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]






  




  
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!.











RES: [delphi-br] Componente / Lib / Class Webcam

2006-05-19 Por tôpico Vinicius Florido



To usando uma webcam genérica daquelas bem simples... Estou reconhecendo
ela pelo Windows... procurei na net não achei nada de como fazer isso
diretamente pelo delphi nem como usar a API do Windows para tal. Achei
um componente dentro do Jedi Project que atende parcialmente, mas não
extamente as espectativas.
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Desenvolvimento (Anderson)
Enviada em: sexta-feira, 19 de maio de 2006 16:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Componente / Lib / Class Webcam
 
veja: vc tem 2 formas: usar o proprio driver da webcam ou usar o twain
do windows (usar o windows pra reconhecer a webcam).
As duas é fácil de fazer... vc encontra na net essas explicações...
qual a webcam q vc ta usando?
Se for logitech, procure por LVPORTAL nos sites de busca, q vc acha...

 - Original Message - 
 From: Vinicius Florido 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Friday, May 19, 2006 4:16 PM
 Subject: [delphi-br] Componente / Lib / Class Webcam


 Estou desenvolvendo um sistema que em certo momento do cadastro do
 cliente deve-se adicionar uma foto através da webcam. Hoje o sistema
 aceita fotos de meios externos através da escolha direta da foto em um
 dialog de fotos. Mas nesse caso o ideal seria tirar a foto usando a
 webcam. Alguém conhece um componente ou classe ou biblioteca ou dll,
 freeware que faça tal coisa? Mesmo que não seja freeware mas vocês já
 tenham usado e aconselhem comprar por favor me indique. Grato desde
 já...

 _ 

 Esta mensagem foi verificada pelo E-mail Protegido Terra
 http://mail.terra.com.br/ .
 Scan engine: McAfee VirusScan / Atualizado em 19/05/2006 / Versão:
 4.4.00/4766
 Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


 [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

 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!. 



 __ Informação do NOD32 IMON 1.1548 (20060519) __

 Esta mensagem foi verificada pelo NOD32 sistema antivírus
 http://www.eset.com.br



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







Yahoo! Grupos, um serviço oferecido por:


PUBLICIDADE
 
http://br.ard.yahoo.com/SIG=12fbp6mm9/M=396559.7942981.9477179.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1148074478/A=3714796/R=2/id=noscript/
SIG=1554ctaqg/*http:/lt.dell.com/lt/lt.aspx?CID=13048LID=341557DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/no
tebooks?c%3dbr%26l%3dpt%26s%3ddhs 

 
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/220506_y300x250_maio03_dhs_
noted510.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
http://br.yahoo.com/info/utos.html Serviço do Yahoo!. 

 _ 

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 19/05/2006 / Versão:
4.4.00/4766
Proteja o seu e-mail Terra: http://mail.terra.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]






  




  
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!.












[delphi-br] Duvida sobre TService

2006-05-12 Por tôpico Vinicius Florido



Estou fazendo um aplicação para verificar o que as estações de trabalho
estão fazendo durante o dia...

Criei em forma de serviço...

Porem com instalar o serviço na maquina parece que o sistema fica
instável e trava a janela do painel de controle... Aqui está o código da
aplicação

Classe Principal do Serviço

unit USRECKIT2;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr,
Dialogs,
 ExtCtrls, MoveDetect, Jpeg, RecKitCapture;

type
 TSRECKIT2 = class(TService)
 procedure ServiceAfterInstall(Sender: TService);
 procedure ServiceStart(Sender: TService; var Started: Boolean);
 procedure ServiceContinue(Sender: TService; var Continued: Boolean);
 procedure ServicePause(Sender: TService; var Paused: Boolean);
 procedure ServiceShutdown(Sender: TService);
 procedure ServiceStop(Sender: TService; var Stopped: Boolean);
 procedure ServiceExecute(Sender: TService);
 private
 RecKitCap: TRecKitCap;
 public
 function GetServiceController: TServiceController; override;
 procedure DefaultFolder;
 end;

var
 SRECKIT2: TSRECKIT2;

implementation

uses DOTExtLib, IniFiles;

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
 SRECKIT2.Controller(CtrlCode);
end;

function TSRECKIT2.GetServiceController: TServiceController;
begin
 Result := ServiceController;
end;

procedure TSRECKIT2.ServiceAfterInstall(Sender: TService);
begin
 //Cria Pastas do RECKIT
 DefaultFolder;
end;

procedure TSRECKIT2.DefaultFolder;
var
 DirScr: string;
 DirTmp: string;
begin
 DirScr := AppPath + 'SCR\';
 DirTmp := AppPath + 'TMP\';
 if not DirectoryExists(DirScr) then
 begin
 ForceDirectories(DirScr);
 end;
 if not DirectoryExists(DirTmp) then
 begin
 ForceDirectories(DirTmp);
 end;
end;

procedure TSRECKIT2.ServiceStart(Sender: TService; var Started:
Boolean);
begin
 RecKitCap := TRecKitCap.Create(False);
 RecKitCap.Resume;
end;

procedure TSRECKIT2.ServiceContinue(Sender: TService;
 var Continued: Boolean);
begin
 RecKitCap := TRecKitCap.Create(False);
end;

procedure TSRECKIT2.ServicePause(Sender: TService; var Paused: Boolean);
begin
 RecKitCap.Terminate;
end;

procedure TSRECKIT2.ServiceShutdown(Sender: TService);
begin
 RecKitCap.Terminate;
end;

procedure TSRECKIT2.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
 RecKitCap.Terminate;
end;

procedure TSRECKIT2.ServiceExecute(Sender: TService);
begin
 while not Terminated do
 begin
 ServiceThread.ProcessRequests(False);
 Sleep(1000);
 end;
end;

end.


Classe da Thread

unit RecKitCapture;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr,
 ExtCtrls, MoveDetect, Jpeg;

type
 TRecKitCap = class(TThread)
 private
 CounterID: Integer;
 MoveDetector: TMoveDetect; // Movimentação de Mouse
 P_SCRPATH: string; // Caminho das ScreenShot
 P_RECDELAY: Integer; // Milisegundos
 P_RECQUALITY: Integer;
 public
 procedure Execute; override;
 function InsertMousePos(Bmp: TBitmap): TBitmap;
 procedure LoadParam;
 function GenFileName: string;
 function IncID: integer;
 end;

implementation

uses DOTExtLib, IniFiles;

function TRecKitCap.InsertMousePos(Bmp: TBitmap): TBitmap;
var
 MousePosi: TPoint;
 MousePic: TBitmap;
begin
 GetCursorPos(MousePosi);
 if FileExists(AppPath + 'MOUSEPOINT.BMP') then
 begin
 MousePic := TBitmap.Create;
 MousePic.LoadFromFile(AppPath +
 'MOUSEPOINT.BMP');
 MousePic.TransparentColor := clWhite;
 MousePic.Transparent := True;
 Bmp.Canvas.Draw(MousePosi.X, MousePosi.Y, MousePic);
 FreeAndNil(MousePic);
 end;
 //
 Result := Bmp;
end;

procedure TRecKitCap.LoadParam;
var
 Ini: TIniFile;
 FilePath: string;
begin
 FilePath := AppPath + 'reckit2.cfg';
 //
 P_RECDELAY := 3000;
 P_SCRPATH := AppPath + 'SCR\';
 P_RECQUALITY := 100;
 //
 if FileExists(FilePath) then
 begin
 Ini := TIniFile.Create(FilePath);
 P_RECDELAY := Ini.ReadInteger('TIMER', 'RECDELAY', P_RECDELAY);
 P_SCRPATH := Ini.ReadString('PATH', 'SCR', P_SCRPATH);
 P_RECQUALITY := Ini.ReadInteger('SYSTEM', 'RECQUALITY',
P_RECQUALITY);
 FreeAndNil(Ini);
 end
 else
 begin
 Ini := TIniFile.Create(FilePath);
 Ini.WriteInteger('TIMER', 'RECDELAY', P_RECDELAY);
 Ini.WriteString('PATH', 'SCR', P_SCRPATH);
 Ini.WriteInteger('SYSTEM', 'RECQUALITY', P_RECQUALITY);
 FreeAndNil(Ini);
 end;
 // Validação
 if (P_RECQUALITY  100) then
 P_RECQUALITY := 100
 else if (P_RECQUALITY  1) then
 P_RECQUALITY := 1;
end;

function TRecKitCap.GenFileName: string;
begin
 Result := SysComputerName + '_' + DateToStr(Date) + '_' +
TimeToStr(Time);
 Result := StrChange(Result, ':', '');
 Result := StrChange(Result, '/', '');
 Result := Result + '_' + IntToStr(IncID);
 Result := Result + '.jpg';
end;

function TRecKitCap.IncID: integer;
var
 Ini: TIniFile;
 FilePath: string;
begin
 FilePath := AppPath + 'idgen.cnt';
 //
 if not FileExists(FilePath) then
 begin
 Ini := TIniFile.Create(FilePath);
 Ini.WriteInteger('ID', 'COUNTER', 1);
 FreeAndNil(Ini);
 CounterID := 1;
 end
 else
 begin
 Ini := TIniFile.Create(FilePath);
 CounterID := Ini.ReadInteger('ID', 

[delphi-br] E-mail Terra

2006-01-25 Por tôpico Vinicius Florido
Pessoal da lista, estou com um problema de enviar email usando minha conta
smtp do terra, contas de Uol consigo normalmente, mas do terra nao estou
conseguindo... Alguem já conseguiu fazer e como ? Há algum pulo do gato ?






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