[delphi-br] Campo numerico ou Alfa
Bom dia a todos Estou com o seguinte problema, criei uma tabela de cadastro de produtos onde o codigo do produto é Numerico, mas preciso colocar 0 a esquerda. Por exemplo, alguns códigos de barras começam com zero, teria alguma forma de fazer isto em um campo numerico ? obrigado Paulo [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] Como posso colocar a data do PC no sistema
Sou nova na programação em Delphi e estou com um problema: Como posso colocar a data do computador no sistema e quando chegar a uma determinada data o programa parar de executar? Não sei como fazer isso. Se alguém se despuser a me ajude eu agradeço grandemente. Muito obrigada desde já. -- 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
RES: [delphi-br] Como posso colocar a data do PC no sistema
Olá, você pode trabalhar com arquivos *.ini ou gravar no registro do sistema operacional, para gravar a data que vc deseja que o pragrama pare de executar, para saber a data atual do computador vc deve utilizar o comando now. Edit1.Text := DateToStr(now); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de jeo_velick Enviada em: quarta-feira, 21 de setembro de 2005 08:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como posso colocar a data do PC no sistema Sou nova na programação em Delphi e estou com um problema: Como posso colocar a data do computador no sistema e quando chegar a uma determinada data o programa parar de executar? Não sei como fazer isso. Se alguém se despuser a me ajude eu agradeço grandemente. Muito obrigada desde já. [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
RES: [delphi-br] Campo numerico ou Alfa
Fala paulo, Cara acho que vc vai ter que mudar este campo para para alfanúmerico, por que codigos de barras do padrão EAN são números grandes que normalmente não cabem em campos do tipo Integer se naum for esse o caso grita ai. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 08:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Campo numerico ou Alfa Bom dia a todos Estou com o seguinte problema, criei uma tabela de cadastro de produtos onde o codigo do produto é Numerico, mas preciso colocar 0 a esquerda. Por exemplo, alguns códigos de barras começam com zero, teria alguma forma de fazer isto em um campo numerico ? obrigado Paulo [As partes desta mensagem que não continham texto foram removidas] [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
RES: [delphi-br] Atenticação de conta de e-mail
O seu provedor exige autenticação para o envio de e-mail. Use as seguintes propriedades: // Define os parâmetros de autenticação se o seu provedor requer. SMTP1. AuthenticationType := atLogin; SMTP1.Host := Host do servidor SMTP; SMTP1.UserName := login; SMTP1.PassWord := senha; Paulo Dias Programador Delphi/ Firebird -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo MDE Enviada em: terça-feira, 20 de setembro de 2005 11:48 Para: delphi-br Assunto: [delphi-br] Atenticação de conta de e-mail Bom dia, gostaria de saber como autenticar os e-mail enviados por um servidor que requer autenticação. Obs.: Já fiz autenticação do pop mas mesmo assim os e-mails não são enviados sem mais agradeço Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas] [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] Campo numerico ou Alfa
Bom dia meu amigo, eu fiz isto, alterei o Campo para Alfa com 13 posicoes, mas o que acontece, qdo abro a tela de cadastro de produtos ao percorrer os registros por ordem crescente de nros não acontece isso, teria alguma forma de utilizar o campo alfa e obter os registros como se tivesse algum indice em ordem numerica. Consegui me explicar? obrigado Paulo From: Paulo Dias de Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 9:33 AM Subject: RES: [delphi-br] Campo numerico ou Alfa Fala paulo, Cara acho que vc vai ter que mudar este campo para para alfanúmerico, por que codigos de barras do padrão EAN são números grandes que normalmente não cabem em campos do tipo Integer se naum for esse o caso grita ai. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 08:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Campo numerico ou Alfa Bom dia a todos Estou com o seguinte problema, criei uma tabela de cadastro de produtos onde o codigo do produto é Numerico, mas preciso colocar 0 a esquerda. Por exemplo, alguns códigos de barras começam com zero, teria alguma forma de fazer isto em um campo numerico ? obrigado Paulo ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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
RES: [delphi-br] Campo numerico ou Alfa
Paulo, tenho uma sugestão. No SQL que você executa faça algo do tipo: SELECT Codigo, Descricao, Cast(Codigo as integer) as CampoOrdem FROM Produtos ORDER BY 3; com o type cast do campo codigo o order by será feito na coluna como valor inteiro. Espero que funcione. Filipe -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 10:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Campo numerico ou Alfa Bom dia meu amigo, eu fiz isto, alterei o Campo para Alfa com 13 posicoes, mas o que acontece, qdo abro a tela de cadastro de produtos ao percorrer os registros por ordem crescente de nros não acontece isso, teria alguma forma de utilizar o campo alfa e obter os registros como se tivesse algum indice em ordem numerica. Consegui me explicar? obrigado Paulo From: Paulo Dias de Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 9:33 AM Subject: RES: [delphi-br] Campo numerico ou Alfa Fala paulo, Cara acho que vc vai ter que mudar este campo para para alfanúmerico, por que codigos de barras do padrão EAN são números grandes que normalmente não cabem em campos do tipo Integer se naum for esse o caso grita ai. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 08:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Campo numerico ou Alfa Bom dia a todos Estou com o seguinte problema, criei uma tabela de cadastro de produtos onde o codigo do produto é Numerico, mas preciso colocar 0 a esquerda. Por exemplo, alguns códigos de barras começam com zero, teria alguma forma de fazer isto em um campo numerico ? obrigado Paulo ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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 * 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] Lista Guiatel
Pessoal, Um cliente pediu para colocarmos a lista da guiatel para consulta dentro do nosso sistema. Só que os arquivos são binarios, com extensao .ATH. Alguem tem alguma funcao/procedimento para ler esses arquivos? Desde já agradeço, Leandro -- 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
RES: [delphi-br] Como posso colocar a data do PC no sistema
Nem deve. Pra proteção contra uso além do prazo limitado (Trial), não é a melhor metodologia a ser empregada. E se o cara atrazar a data do computador??? []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 jeo_velick Enviada em: quarta-feira, 21 de setembro de 2005 08:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como posso colocar a data do PC no sistema Sou nova na programação em Delphi e estou com um problema: Como posso colocar a data do computador no sistema e quando chegar a uma determinada data o programa parar de executar? Não sei como fazer isso. Se alguém se despuser a me ajude eu agradeço grandemente. Muito obrigada desde já. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Campo numerico ou Alfa
Deixa eu entender vc quer que sua tabela seja indexada pelo campo do codigo de barras (Alfanumerico)? Olha não estou podendo realizar testes agora, mas eu acho que naum existe problema em indexar sua tabela por este campo. Vc está ulizando um Query para exibir esses dados em um grid? ou está utilizando um componente Table? Vc deve escrever a instrução SQL correta, ou configurar o Table para indexar a tabela por este campo.. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 10:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Campo numerico ou Alfa Bom dia meu amigo, eu fiz isto, alterei o Campo para Alfa com 13 posicoes, mas o que acontece, qdo abro a tela de cadastro de produtos ao percorrer os registros por ordem crescente de nros não acontece isso, teria alguma forma de utilizar o campo alfa e obter os registros como se tivesse algum indice em ordem numerica. Consegui me explicar? obrigado Paulo From: Paulo Dias de Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 9:33 AM Subject: RES: [delphi-br] Campo numerico ou Alfa Fala paulo, Cara acho que vc vai ter que mudar este campo para para alfanúmerico, por que codigos de barras do padrão EAN são números grandes que normalmente não cabem em campos do tipo Integer se naum for esse o caso grita ai. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 08:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Campo numerico ou Alfa Bom dia a todos Estou com o seguinte problema, criei uma tabela de cadastro de produtos onde o codigo do produto é Numerico, mas preciso colocar 0 a esquerda. Por exemplo, alguns códigos de barras começam com zero, teria alguma forma de fazer isto em um campo numerico ? obrigado Paulo ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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 * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Campo numerico ou Alfa
Você não quer tentar usar a função STRZERO(VALOR,10) ? Como sabe, ele vai fazer o numero 1 se transformar em 01. Assim, com zeros, a indexação vai ficar beleza. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Paulo Dias de Souza Enviada em: quarta-feira, 21 de setembro de 2005 10:33 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Campo numerico ou Alfa Deixa eu entender vc quer que sua tabela seja indexada pelo campo do codigo de barras (Alfanumerico)? Olha não estou podendo realizar testes agora, mas eu acho que naum existe problema em indexar sua tabela por este campo. Vc está ulizando um Query para exibir esses dados em um grid? ou está utilizando um componente Table? Vc deve escrever a instrução SQL correta, ou configurar o Table para indexar a tabela por este campo.. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 10:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Campo numerico ou Alfa Bom dia meu amigo, eu fiz isto, alterei o Campo para Alfa com 13 posicoes, mas o que acontece, qdo abro a tela de cadastro de produtos ao percorrer os registros por ordem crescente de nros não acontece isso, teria alguma forma de utilizar o campo alfa e obter os registros como se tivesse algum indice em ordem numerica. Consegui me explicar? obrigado Paulo From: Paulo Dias de Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 9:33 AM Subject: RES: [delphi-br] Campo numerico ou Alfa Fala paulo, Cara acho que vc vai ter que mudar este campo para para alfanúmerico, por que codigos de barras do padrão EAN são números grandes que normalmente não cabem em campos do tipo Integer se naum for esse o caso grita ai. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de plucaslazaro Enviada em: quarta-feira, 21 de setembro de 2005 08:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Campo numerico ou Alfa Bom dia a todos Estou com o seguinte problema, criei uma tabela de cadastro de produtos onde o codigo do produto é Numerico, mas preciso colocar 0 a esquerda. Por exemplo, alguns códigos de barras começam com zero, teria alguma forma de fazer isto em um campo numerico ? obrigado Paulo ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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 -- 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] DBExpress, Procedure e Oracle 10g: Bug A/C Andreano Lanussi
Moderadores, queiram desculpar mandar a pergunta para duas listas ao mesmo tempo, mas o problema é muito sério. Galera da Lista e Andreano Gostaria de reportar um problema constantemente encontrado com procedures no Oracle 10g com DbExpress no Delphi 7 1) Caso as procedures tenham parametros number, posso passar para o objeto TSQLStoredProc de qualquer jeito: AsString, AsFMBCD, que tem dado erro um estranho: uma serie de numeros, letras e a palavra: is not a BCD valid Para contornar isso estamos criando parametros sempre varchar2, e dentro da procedure convertendo para o tipo de dado esperado(como sugestão da propria ORACLE). 2) Esse outro erro é o pior de todos... No momento da execução, AS VEZES da erro: DBExpress: Invalid Length. Se eu recompilar a procedure e testar novamente, funciona. E antes de recompilar ela NÃO está como INVÁLIDA Gostaria de saber algo sobre estes problemas, pois é colocar o sistema na produção e aguardar o usuário reportar o problema. Atenciosamente, Danilo - 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] Dias Uteeis entre datas
Olá pessoal preciso de ajuda para resolver um probleminha, preciso digitar uma data inicial e uma data final em meu sistema, e o mesmo precisa me retornar quantos dias uteis e quantos domingos/feriados existe entre as duas datas, alguém poderia me ajudar? desde já obrigado ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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] Stream???
Alguem sabe me dizer o que é uma Stream? [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] Atenticação de conta de e- mail
Este é um problema que tb tive ao utilizar o nmsmtp. O que acabei fazendo foi utilizar um compomente que achei na net chamado AFQUICKMAIL, que é muito bom. Ele utiliza a conta do outlook express e os emails enviados pelo sistema ficam na caixa de saida. Acho q vale a pena vc dar uma olhadinha nele. Se tiver dificuldade em achar me fale que te envio []´s --- Ricardo MDE [EMAIL PROTECTED] escreveu: Bom dia, gostaria de saber como autenticar os e-mail enviados por um servidor que requer autenticação. Obs.: Já fiz autenticação do pop mas mesmo assim os e-mails não são enviados sem mais agradeço Ricardo Lino Gonzalez [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 Joel da Silva Lino -- Desenvolvedor [EMAIL PROTECTED] ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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] DBExpress, Procedure e Oracle 10g: Bug A/C Andreano Lanussi
Observação: mensagem anexa encaminhada. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [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] Bd
Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [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] Off - Topic Certificado Digital em/com Delphi
Alguém sabe como funciona, ou já utilizou o chamado Certificado Digital, utilizando Delphi ??? Vou precisar inserir em meus aplicativos delphi, tal implementação. Alguém tb. sabe se tem algum material de referência à respeito... Obrigado. [ ]'s ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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
RES: [delphi-br] Bd
Qual o volume das informações? Quantas tabelas? Quantos registros nas maiores tabelas? Existem muitas opções de BD no mercado, dependendo da sua necessidade você poderá chegar ao mais adequado do aspecto funcional e financeiro. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Dias Uteeis entre datas
Meu Caro,
Você pode fazer assim:
Para testar esse exemplo coloque dois componentes TDateTimePicker no form e
um botão.
Nomeio os DateTimePickers como DtInicial e DtFinal
No Onclick do botão coloque o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
i, dias, diasUteis, Sabados, Domingos : Integer;
data : TDate;
diaSemana :word;
begin
dias := DaysBetween(dtInicial.Date,dtFinal.Date);
diasUteis := 0;
Sabados := 0;
Domingos := 0;
data := dtInicial.Date;
{ Para considerar inclusive a data atual, incremente a data no final do
bloco begin..end,
para não considerar incremente a data no início do bloco.}
for i := 1 to dias do
begin
data := data + 1; {Incrementando a data aqui, não se considera a data
atual na contagem}
diaSemana := DayOfWeek(data);
if diaSemana in [2..6] then
Inc(diasUteis);
if diaSemana = 7 then
Inc(Sabados);
if diaSemana = 1 then
Inc(Domingos);
//data := data + 1; {Incrementado aqui, considera-se a data atual na
contagem}
end;
Showmessage('Entre '+ DateToStr(dtInicial.Date) + ' e ' +
DateToStr(dtFinal.Date) +
' existe(m) ' + IntToStr(diasUteis) + ' dias úteis, '+
IntToStr(Sabados) + ' sábado(s), '+ IntToStr(Domingos)+'
domingo(s).');
end;
Já para saber se o dia é feriado ou não você precisará ter uma tabela de
feriados, onde serão cadastrados os feriados do ano.
Então ao incrementar cada data você verifica nessa tabela se trata-se de um
feriado ou não e armazena essa informação numa variável, da mesma forma que
conta os sábados e domingos.
Grande Abraço,
Alessandro Alves
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de galvao_em
Enviada em: quarta-feira, 21 de setembro de 2005 12:01
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Dias Uteeis entre datas
Olá pessoal preciso de ajuda para resolver um probleminha, preciso
digitar uma data inicial e uma data final em meu sistema, e o mesmo
precisa me retornar quantos dias uteis e quantos domingos/feriados
existe entre as duas datas, alguém poderia me ajudar?
desde já obrigado
___
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
muito mais. Instale agora!
www.yahoo.com.br/messenger/
--
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.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_celsamsung_camdig.gi
f
_
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
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
RES: [delphi-br] Bd
Use Firebird com dbExpress. Limite do Banco da Dados 4gb. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stream???
Retirado do Help do Delphi: TStream is the base class type for stream objects that can read from or write to various kinds of storage media, such as disk files, dynamic memory, and so on. -- Marcos Douglas www.marcosdouglas.com Original Message From: Paulo Dias de Souza To: delphi-br@yahoogrupos.com.br Sent: Wed, September 21, 2005 11:34 am Subject: [delphi-br] Stream??? Alguem sabe me dizer o que é uma Stream? [As partes desta mensagem que não continham texto foram removidas] -- 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!. -- 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] VCL Skin
Alguem tem o VCL Skin para delphi 5? ~\\|//~ -(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: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Bd
e como eu posso conseguir o firebird co dbexpress.?? Anderson Rio Claro-SP - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 2:29 PM Subject: RES: [delphi-br] Bd Use Firebird com dbExpress. Limite do Banco da Dados 4gb. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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 * 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] Bd
Qual o volume das informações? 300 registros por dia Quantas tabelas? 1 tabela Anderson Rio Claro-SP - Original Message - From: Filipe Xavier Ramalho To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 2:17 PM Subject: RES: [delphi-br] Bd Qual o volume das informações? Quantas tabelas? Quantos registros nas maiores tabelas? Existem muitas opções de BD no mercado, dependendo da sua necessidade você poderá chegar ao mais adequado do aspecto funcional e financeiro. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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 * 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] Stream???
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Paulo Dias de Souza escreveu: Alguem sabe me dizer o que é uma Stream? A grosso modo, é um arquivo binário, que pode estar na memória, ou em um disco. - -- Oséias Ferreira. oseiasferreira (at) yahoo.com.br Linux counter #333243 GPG/PGP: 0x60084245 fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245 -BEGIN PGP SIGNATURE- Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDMZ8EHKYDdGAIQkURAhOMAJ0XFPtoIbY449K6aYfUeqoSn+Y1KQCgtINt G1jButHL/RMBDGVGDwhKO1c= =oLgA -END PGP SIGNATURE- ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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] Atenticação de conta de e-mail
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Joel Lino escreveu: Este é um problema que tb tive ao utilizar o nmsmtp. O que acabei fazendo foi utilizar um compomente que achei na net chamado AFQUICKMAIL, que é muito bom. Ele utiliza a conta do outlook express e os emails enviados pelo sistema ficam na caixa de saida. Acho q vale a pena vc dar uma olhadinha nele. Se tiver dificuldade em achar me fale que te envio Para isto não precisa componente. Existem funções na MAPI que fazem isto. O problema é que para funcionar é necessário ter um cliente de email instalado na máquina. As vezes isto não é possível (por exemplo num CGI). Além de que você não tem o controle da mensagem. Coloca na caixa de saida do Outloco, e fica lá até quando Deus quizer. Para enviar email diretamente use o Indy. Nele funciona sem problemas. Esta biblioteca FastNET, está completamente defasada. - -- Oséias Ferreira. oseiasferreira (at) yahoo.com.br Linux counter #333243 GPG/PGP: 0x60084245 fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245 -BEGIN PGP SIGNATURE- Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDMaCaHKYDdGAIQkURAhrUAKDdrt3M+wc5bS9e8GYlHGtBV29g8QCfR0Tw XW3D+5obVFlDCKpODXJIXM0= =KOpC -END PGP SIGNATURE- ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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: RES: [delphi-br] Como posso colocar a data do PC no sistema
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 No caso de atrasar, basta colocar uma verificação na abertura do programa, e verificar a ultima vez que ele abriu o programa. Se a data form menor bloqueia o programa, senão grava a nova data. Coloca isto numa string criptografada, no db, ou num ini. O problema é que estes computadores velhos vivem perdendo a data, e com certeza vai te dar muita dor de cabeça. Mas não vejo outra forma de fazer isto... Walter Alves Chagas Junior escreveu: Nem deve. Pra proteção contra uso além do prazo limitado (Trial), não é a melhor metodologia a ser empregada. E se o cara atrazar a data do computador??? []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 jeo_velick Enviada em: quarta-feira, 21 de setembro de 2005 08:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como posso colocar a data do PC no sistema Sou nova na programação em Delphi e estou com um problema: Como posso colocar a data do computador no sistema e quando chegar a uma determinada data o programa parar de executar? Não sei como fazer isso. Se alguém se despuser a me ajude eu agradeço grandemente. - -- Oséias Ferreira. oseiasferreira (at) yahoo.com.br Linux counter #333243 GPG/PGP: 0x60084245 fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245 -BEGIN PGP SIGNATURE- Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDMaJVHKYDdGAIQkURApgFAJ9O5NH5DWRB3MMJrU0+M8vp67rjLACgn4X1 ilyEjIO0lAKvKw43F7MaYAI= =fw0h -END PGP SIGNATURE- ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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 Certificado Digital em/com Delphi
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Você precisa dar uma olhada em rotinas de criptografia e hashes. Mas que tipo de certificação você refere? Rogério escreveu: Alguém sabe como funciona, ou já utilizou o chamado Certificado Digital, utilizando Delphi ??? Vou precisar inserir em meus aplicativos delphi, tal implementação. Alguém tb. sabe se tem algum material de referência à respeito... - -- Oséias Ferreira. oseiasferreira (at) yahoo.com.br Linux counter #333243 GPG/PGP: 0x60084245 fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245 -BEGIN PGP SIGNATURE- Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDMaLwHKYDdGAIQkURApyTAKCP8O1WPIp1L5EPnyIn9TY2p7IOFwCgi9Up 688EbBPsMqCzY/AqCxTJmaM= =3xeP -END PGP SIGNATURE- ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- 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
RES: RES: [delphi-br] Como posso colocar a data do PC no sistema
Faz uma versão demo com limitações de codigo fonte mesmo. Melhor. O cara usa quanto tempo quiser mas só vai usar como demo mesmo. Se ele interessar, ele entra em contato com voce e voce comercializa a versão full. []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 Oséias Ferreira Enviada em: quarta-feira, 21 de setembro de 2005 15:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Como posso colocar a data do PC no sistema -BEGIN PGP SIGNED MESSAGE- Hash: SHA1 No caso de atrasar, basta colocar uma verificação na abertura do programa, e verificar a ultima vez que ele abriu o programa. Se a data form menor bloqueia o programa, senão grava a nova data. Coloca isto numa string criptografada, no db, ou num ini. O problema é que estes computadores velhos vivem perdendo a data, e com certeza vai te dar muita dor de cabeça. Mas não vejo outra forma de fazer isto... Walter Alves Chagas Junior escreveu: Nem deve. Pra proteção contra uso além do prazo limitado (Trial), não é a melhor metodologia a ser empregada. E se o cara atrazar a data do computador??? []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 jeo_velick Enviada em: quarta-feira, 21 de setembro de 2005 08:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como posso colocar a data do PC no sistema Sou nova na programação em Delphi e estou com um problema: Como posso colocar a data do computador no sistema e quando chegar a uma determinada data o programa parar de executar? Não sei como fazer isso. Se alguém se despuser a me ajude eu agradeço grandemente. - -- Oséias Ferreira. oseiasferreira (at) yahoo.com.br Linux counter #333243 GPG/PGP: 0x60084245 fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245 -BEGIN PGP SIGNATURE- Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDMaJVHKYDdGAIQkURApgFAJ9O5NH5DWRB3MMJrU0+M8vp67rjLACgn4X1 ilyEjIO0lAKvKw43F7MaYAI= =fw0h -END PGP SIGNATURE- ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Stream???
Uma Strem, a grosso modo é uma String binária, seria você converter um arquivo binário (código puro de maquina) em formato ASCII para viabilizar seu transporte mas de forma a não corrompê-lo. As Radios digitais são um bom exemplo de Strems. Todas elas trabalham com este padrão, quem aqui usa o Winamp e nele toca alguma radio digital sabe do que tou falando []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 Oséias Ferreira Enviada em: quarta-feira, 21 de setembro de 2005 14:57 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Stream??? -BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Paulo Dias de Souza escreveu: Alguem sabe me dizer o que é uma Stream? A grosso modo, é um arquivo binário, que pode estar na memória, ou em um disco. - -- Oséias Ferreira. oseiasferreira (at) yahoo.com.br Linux counter #333243 GPG/PGP: 0x60084245 fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245 -BEGIN PGP SIGNATURE- Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDMZ8EHKYDdGAIQkURAhOMAJ0XFPtoIbY449K6aYfUeqoSn+Y1KQCgtINt G1jButHL/RMBDGVGDwhKO1c= =oLgA -END PGP SIGNATURE- ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Bd
www.firebase.com.br _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 15:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bd e como eu posso conseguir o firebird co dbexpress.?? Anderson Rio Claro-SP - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 21, 2005 2:29 PM Subject: RES: [delphi-br] Bd Use Firebird com dbExpress. Limite do Banco da Dados 4gb. Levi -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson Enviada em: quarta-feira, 21 de setembro de 2005 14:15 Para: Grupo Delphi Assunto: [delphi-br] Bd Aes galera, Estou precisando desenvolver um sistema que guardará muitos registros em um banco de dados. Esse sistema rodará pelo menos 10 horas por dia, e por isso preciso fazê-lo para q naum ocorrá problemas no banco de dados... Sabendo que haverá bastantes registros e rodará praticamente o dia todo acho meio inviavel utilizar tabelas paradox (ao qual estou acostumado a usar). Com a ajuda de vcs, que banco de dados devo utilizar??? Vlw Anderson Rio Claro-SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_mp3pioneer_v300.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 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] Pdv para Supermercado..
Olá caros amigo estou desenvolvendo um sistema de Supermercado e estou precisando de umas dicas dos amigos que já conhecem ou que já estão neste ramo de sistema para Mercado,,. Eu já tenho o PDV com as impressoras fiscal, já tenho o teclado Gertec65 o sistema esta ok.. 1).Como posso criar um Cupom virtual para acompanhamento da venda pelo cliente ou se existe algum componente que pode fazer isso. 2). Como posso fazer para que o meu sistema de PDV fique auto-suficiente, sem a necessidade do (SERVIDOR) estar ligado, ou seja, assim que a rede cair ou o (SERVIDOR) der algum tipo de problema eu posso desligar ele (SERVIDOR) e mandar para a manutenção rápida (MANUNTENÇÃO DE 2 HORAS NO MAXIMO) e o PDV continua a efetuar vendas sem ter que desligar os mesmo e assim que o (SERVIDOR) voltar todos os PDVs atualizar o banco de dados no (SERVIDOR) , eu estou usando banco de dados firebird com os componentes DBexpress . 3). Como funciona os PDV's independentes. 4). Como posso criar uma função para recuperação automática de vendas após queda de energia. 5). Como posso criar uma função centralização de dados via internet (Dial Up/Wire Less/LP). 6). ). Como posso criar uma função pedidos de reposição de estoque via internet (Dial Up/Wire Less/LP). 7). Como funciona as balanças que trabalham no açougue e na padaria, que têm seus preços atualizados através de cargas. 8)E também como funcionam as atualização do (SERVIDOR) com os PDV's e os Terminais de consulta através das cargas. Agradeço desde já pela ajuda dos amigos do grupo... Adriano... [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] Como posso colocar a data do PC no sistema
Use isso
LbData.Caption := DateToStr(DATE);
Abaixo outra funçoes para trabalhar com datas
Validar Datas
try
StrToDate(Edit1.Text);
except
on EConvertError do
ShowMessage ('Data Inválida!');
end;
varias funções de datas
unit FaCDate;
interface
uses
Forms, Dialogs, Messages, WinProcs, SysUtils, Classes,
Graphics, ExtCtrls, Controls;
Type {Tipos criados}
TSemestre = record
Mes, Ano : Word;
end;
Semestre = array[0..5] of TSemestre;
function ReturnSixMonth(Actual:TDateTime):Semestre;
function NameMonth(Mes:Word;Abrev:Boolean):string;
function DataExtenso(Data:TDateTime): string;
function DataValida(StrD: string): boolean;
function PrimeiroDiaUtil(Data:TDateTime):TDateTime;
function IsWeekEnd(dData : TDateTime) : boolean;
implementation
function ReturnSixMonth(Actual:TDateTime):Semestre;
{Retorna 6 meses atrás da data enviada, de mes em mes}
var
d,m,y : word;
i : byte;
Data : TDateTime;
begin
for i := 6 downto 1 do begin
Data := Actual - (30 * i);
DecodeDate(Data,y,m,d);
Result[i].Mes := m;
Result[i].Ano := y;
end;
end;
function NameMonth(Mes:Word;Abrev:Boolean):String;
{Retorna o nome de um mês abreviado ou não}
const
NameL : array [1..12] of String[9] = ('JANEIRO','FEVEREIRO','MARÇO','ABRIL',
'MAIO','JUNHO','JULHO','AGOSTO',
'SETEMBRO','OUTUBRO','NOVEMBRO',
'DEZEMBRO');
begin
if (Mes in [1..12]) then
if Abrev then
Result := Copy(NameL[Mes],1,3)
else
Result := NameL[Mes];
end;
function DataExtenso(Data:TDateTime): String;
{Retorna uma data por extenso}
var
NoDia : Integer;
DiaDaSemana : array [1..7] of String;
Meses : array [1..12] of String;
Dia, Mes, Ano : Word;
begin
{ Dias da Semana }
DiaDasemana [1]:= 'Domingo';
DiaDasemana [2]:= 'Segunda-feira';
DiaDasemana [3]:= 'Terçafeira';
DiaDasemana [4]:= 'Quarta-feira';
DiaDasemana [5]:= 'Quinta-feira';
DiaDasemana [6]:= 'Sexta-feira';
DiaDasemana [7]:= 'Sábado';
{ Meses do ano }
Meses [1] := 'Janeiro';
Meses [2] := 'Fevereiro';
Meses [3] := 'Março';
Meses [4] := 'Abril';
Meses [5] := 'Maio';
Meses [6] := 'Junho';
Meses [7] := 'Julho';
Meses [8] := 'Agosto';
Meses [9] := 'Setembro';
Meses [10]:= 'Outubro';
Meses [11]:= 'Novembro';
Meses [12]:= 'Dezembro';
DecodeDate (Data, Ano, Mes, Dia);
NoDia := DayOfWeek (Data);
Result := DiaDaSemana[NoDia] + ', ' +
IntToStr(Dia) + ' de ' + Meses[Mes]+ ' de ' + IntToStr(Ano);
end;
function DataValida(StrD: string): Boolean;
{Testa se uma data é valida}
begin
Result := true;
try
StrToDate(StrD);
except
on EConvertError do Result:=False;
end;
end;
function PrimeiroDiaUtil(Data:TDateTime):TDateTime;
{Retorna data do primeiro dia Util do mes, de uma data informada}
var Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
DiaDaSemana := DayOfWeek(Data);
if DiaDaSemana in [1,7] then
Dia := 2;
Result := EncodeDate(Ano, Mes, Dia);
end;
function IsWeekEnd(dData : TDateTime) : boolean;
{Verifica se uma data informada cai em um final de semana}
begin
if DayOfWeek(dData) in [1,7] then
result := true
else
result := false;
end;
end.
- Original Message -
From: jeo_velick
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 21, 2005 8:51 AM
Subject: [delphi-br] Como posso colocar a data do PC no sistema
Sou nova na programação em Delphi e estou com um problema:
Como posso colocar a data do computador no sistema e quando chegar a
uma determinada data o programa parar de executar? Não sei como fazer
isso.
Se alguém se despuser a me ajude eu agradeço grandemente.
Muito obrigada desde já.
--
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
* 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] Como posso colocar a data do PC no sistema
Caso queira travar o sistema com a data use isto aqui..
// Verifica data para versão demo
//
if (date=strtodate('30/09/2006')) then begin
showmessage('VERSÃO EXPIRADA!!!'+#13#10+
' '+#13#10+
'CONTATE: '+#13#10+
'Seus dados Aqui ?);
application.Terminate;
T+
- Original Message -
From: Adriano ( Micro center )
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 22, 2005 1:09 AM
Subject: Re: [delphi-br] Como posso colocar a data do PC no sistema
Use isso
LbData.Caption := DateToStr(DATE);
Abaixo outra funçoes para trabalhar com datas
Validar Datas
try
StrToDate(Edit1.Text);
except
on EConvertError do
ShowMessage ('Data Inválida!');
end;
varias funções de datas
unit FaCDate;
interface
uses
Forms, Dialogs, Messages, WinProcs, SysUtils, Classes,
Graphics, ExtCtrls, Controls;
Type {Tipos criados}
TSemestre = record
Mes, Ano : Word;
end;
Semestre = array[0..5] of TSemestre;
function ReturnSixMonth(Actual:TDateTime):Semestre;
function NameMonth(Mes:Word;Abrev:Boolean):string;
function DataExtenso(Data:TDateTime): string;
function DataValida(StrD: string): boolean;
function PrimeiroDiaUtil(Data:TDateTime):TDateTime;
function IsWeekEnd(dData : TDateTime) : boolean;
implementation
function ReturnSixMonth(Actual:TDateTime):Semestre;
{Retorna 6 meses atrás da data enviada, de mes em mes}
var
d,m,y : word;
i : byte;
Data : TDateTime;
begin
for i := 6 downto 1 do begin
Data := Actual - (30 * i);
DecodeDate(Data,y,m,d);
Result[i].Mes := m;
Result[i].Ano := y;
end;
end;
function NameMonth(Mes:Word;Abrev:Boolean):String;
{Retorna o nome de um mês abreviado ou não}
const
NameL : array [1..12] of String[9] = ('JANEIRO','FEVEREIRO','MARÇO','ABRIL',
'MAIO','JUNHO','JULHO','AGOSTO',
'SETEMBRO','OUTUBRO','NOVEMBRO',
'DEZEMBRO');
begin
if (Mes in [1..12]) then
if Abrev then
Result := Copy(NameL[Mes],1,3)
else
Result := NameL[Mes];
end;
function DataExtenso(Data:TDateTime): String;
{Retorna uma data por extenso}
var
NoDia : Integer;
DiaDaSemana : array [1..7] of String;
Meses : array [1..12] of String;
Dia, Mes, Ano : Word;
begin
{ Dias da Semana }
DiaDasemana [1]:= 'Domingo';
DiaDasemana [2]:= 'Segunda-feira';
DiaDasemana [3]:= 'Terçafeira';
DiaDasemana [4]:= 'Quarta-feira';
DiaDasemana [5]:= 'Quinta-feira';
DiaDasemana [6]:= 'Sexta-feira';
DiaDasemana [7]:= 'Sábado';
{ Meses do ano }
Meses [1] := 'Janeiro';
Meses [2] := 'Fevereiro';
Meses [3] := 'Março';
Meses [4] := 'Abril';
Meses [5] := 'Maio';
Meses [6] := 'Junho';
Meses [7] := 'Julho';
Meses [8] := 'Agosto';
Meses [9] := 'Setembro';
Meses [10]:= 'Outubro';
Meses [11]:= 'Novembro';
Meses [12]:= 'Dezembro';
DecodeDate (Data, Ano, Mes, Dia);
NoDia := DayOfWeek (Data);
Result := DiaDaSemana[NoDia] + ', ' +
IntToStr(Dia) + ' de ' + Meses[Mes]+ ' de ' + IntToStr(Ano);
end;
function DataValida(StrD: string): Boolean;
{Testa se uma data é valida}
begin
Result := true;
try
StrToDate(StrD);
except
on EConvertError do Result:=False;
end;
end;
function PrimeiroDiaUtil(Data:TDateTime):TDateTime;
{Retorna data do primeiro dia Util do mes, de uma data informada}
var Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
DiaDaSemana := DayOfWeek(Data);
if DiaDaSemana in [1,7] then
Dia := 2;
Result := EncodeDate(Ano, Mes, Dia);
end;
function IsWeekEnd(dData : TDateTime) : boolean;
{Verifica se uma data informada cai em um final de semana}
begin
if DayOfWeek(dData) in [1,7] then
result := true
else
result := false;
end;
end.
- Original Message -
From: jeo_velick
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 21, 2005 8:51 AM
Subject: [delphi-br] Como posso colocar a data do PC no sistema
Sou nova na programação em Delphi e estou com um problema:
Como posso colocar a data do computador no sistema e quando chegar a
uma determinada data o programa parar de executar? Não sei como fazer
isso.
Se alguém se despuser a me ajude eu agradeço grandemente.
Muito obrigada desde já.
--
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
