Re: [delphi-br] OFFTOPIC: INstalação do Firebird C lient: onde estou errando?
Evandro, E como é que o cliente vai localizar o servidor, se não houver uma porta liberada para tal? Não. não é isto. Você perguntou se eu liberei a porta 3050. Eu disse que *não* é necessário liberar a porta 3050 do cliente, deve-se liberar a porta 3050 do servidor. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] -- 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] Resp.: Sistema de atualização farmácia
Bem simples :-D Utilize os componentes indy para fazer a conexão a um site ou ftp, baixe um arquivo de controle com os novos dados (um txt, planilha, vai do seu gosto) abra esse arquivo e compare os dados que devem ser atualizados... Se quiser, tenho um programinha de atualização automática aqui, porém ele só atualiza arquivos, não atualiza dados em tabelas. Abraços Eduardo Olá, pessoal alguém pode me dar uma dica, eu estou desenvolvendo um sistema de farmácia e ela já esta quase no seu final, mas gostaria de saber se alguém poderia me dar uma dica de como faço para cria uma função de atualização automática de preços via modem ou via radio... Se alguém souber algum assunto me ajudem... Ou se alguém tiver um exemplo ou onde eu encontro material que fale sobre o assunto agradeço desde já... Banco de Dados interbase... ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] RE: Herança de Forms
Ola Henrique, tem várias soluções para resolver isso que vc quer. A mais rápida é a seguinte: Coloque um DataSource no form pai! E nos forms filhos, associe qual o dataset que estará ligado a ele. Assim, vc consegue visualmente durante o design, associar o DataSet que quiser. Se vc quiser, especificar + ainda o seu form, coloque também um SQLDataSet no seu form pai. Eu faço isso pois a grande maioria dos meus forms tem apenas 1 dataset. Agora, e se o seu form tiver 2 datasets ??? Como vc vai saber qual dos dois vc vai dar Post ?? Ou vc vai dar sempre Post nos dois ?? Assim, o importante é que vc destrinche o detalhamento teórico que o Demian deu sobre o problema. Sem ele, vc não vai conseguir se abstrair para resolver outros problemas semelhantes sobre herança. Nesse email, eu tei o peixe mas quem procurou te ensinar a pescar foi o Demian. Um abraço, Josir Pessoal, como fazer para que em um form padrao com botoes novo, alterar, cancelar.que sao herdados em form filhos consiga saber qual SQLDataSet e CDSet devera acessar. Por exemplo, nao posso definir o seguinte comando no evento onShow do Form Padrao SQLDataSetClientes.Active :=true; teria que fazer de uma forma configuravel, que ele reconheca qual o SQLDataSet e referente SQLDataSetQualTabela.Active := true; -- 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] Finger Scan (reconhecimento de impressão digital)
Olá meu nome é Nelieder e estou fazendo a minha monografia onde preciso capturar uma impressão digital de um Scanner, já tenho o scanner da DigitalPersona mas não consigo encontrar o SDK para implementar ele no Delphi, já cansei de procurar e não encontrei, será que sanbe onde encontro alguma biblioteca para trabalhar com isso. Obrigado --- Leandro_Yahoo [EMAIL PROTECTED] wrote: Olá Amigos. Agradecimento a todos que postaram opiniões. O projeto da construção do software está comprometido, face ao scaner (no caso optei pelo da Nitgen) servir apenas para logon no Windows (isso sem o SDK) A aquisição do SDK compromete (no mínimo) 4 vezes o custo do scaner. Vejam o que o scaner me retorna em duas leituras do mesmo dedo: (notem que as leituras são diferentes) então o SDK é quem traduz a string lida de modo a poder fazer uma comparação. Leitura 01: AQAAABQAAACUAQAAAQASAAMAZAAAhQEAAIH//l9e4qPJzzjS8qKe/TtA*r5Y3a/USKK Bki6u*cHYcLuw2*CDJCgd38Rv1eh45HQq590pKwe3g1CGmyV3d99R1YhZq5nSq1bhPADK1W GurVSbx5jnFbkFRc*eEYOWRid9/vcZ8aB55V6C5Yl0nhsFrgJ/ZgmaDCcFRPl11/zKyXdweHMeE MC9mw6ftxdwcCfCnbw9Wk8tajLbpzfWdg6XP/RvrFYm/zoI2IwyH8odaME9K//5R2m3eUr0HGVm lBJuZtdHKAavOHrSJe3Lz4FYwCo0YDiSKtE94ZNDYeXV3RtmJyixtAe1XNSmSBZpKd9gZUZ4i Fo1F423egDI6wgnGzUos Leitura 02: AQAAABQAAABEAQAAAQASAAMAZAAAOQEAAKSsdNgYOHKm96aly5BwiFr*sk7kARi UZkV8rmdfeEMXlVaNz4jY38TpgQoYkKQU3/sc0OT21sE3Jbe36R*pLNns599H3Jbx8yD8bku2d8 BWq55*4ylTyXwQ*8XuHPaTjtOrXmaRNZB1*XfAG06eE*HE/XBiPBtfNuDpn35ejaz53C1ipc*QAP U dLxv6miY4XslPq/3HQu7ygj2uPIP0mZjkdRvcd5C6oB9HzJDZijwRWUcFxqKy8xO8wofqXKVzcH1 d USkI4wQxDiCuGnT27mIBEVL4zUvC*7/s6ogv/tiLHmwC8rbsCfcEJNVxTbo14a3Z6lzd1xKV9Lrt 9Ri XKIN2jsBH3Iy1i Onde leitura 01 é a senha digital e leitura 02 é a impressão digital. Conclusão, sem o SDK nada feito. Pergunta: Alguém sabe outra forma de fazer, ou onde eu possa comprar um SDK demo para desenvolver um piloto? Um grande abraço a todos. Leandro Domeni Fortaleza - Ceará [As partes desta mensagem que não continham texto foram removidas] __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Finger Scan (reconhecimento de impressão digital)
Por favor . Estou fazendo a minha monografia onde preciso capturar a impressão digital de um Scanner, já tenho o scanner da DigitalPersona mas não consigo encontrar o SDK para implementar ele no Delphi, já cansei de procurar e não encontrei, será que sanbe onde encontro alguma biblioteca para trabalhar com isso. Obrigado __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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 Curso TDS
Olha eu terminei de fazer um curso de criação de componentes nas tds olha eu acho legal esse curso, nao sei se foi vc q escreveu no orkut perguntando a mesma coisa e recebeu maior balde, bom eu acho q vc tem q ver o custo beneficio, eu achei o curso muito bom, os profesores (o prof REynaldo) com o que tive aulas, o cara manja de cima pra baixo o delphi, eles são instructores certificados como instructores pela borland, e tem certificados de parceria da borland, nao sei o nível de conhecimento q vc tem, mas, se fosse eu, tendo condições, faria esse curso, eu concordo que não há nada melhor que ser auto didacta, mas se tem alguem pra te ensinar é bem melhor e bem mais facil, ae vc utiliza os livros (recomendação do Alexandre e do Claudio) para melhorar aquilo q vc ja sabe, entendeu, ae fica bem mais facil, por exemplo eu nao entendia coisa nenhuma de classes, type cast e por ae vai, agora nao sou o expert, mas ja da pra entender como é que funciona a vcl do delphi, acho que lendo mais alguns livros vou poder aprender bem aquilo que me foi passado no curso. miguel Rodrigo Mota [EMAIL PROTECTED] escreveu: Gostaria de saber Se alguém do grupo recomenda a TDS para curso de Delphi 2005 Eh caro 3.500,00 são 164 horas + ou Rodrigo Mota Consultor de Informática Respec Recursos Humanos www.respec.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Componentes e Packages
Pessoal o que sao os componetes os packages, onde posso encontrar artigos que ensinam a instalar e configurar estes. Quando faco um programa com saberei que precisar da instalacao deles. Comprei um programa pela insternete com codigo fontes para treinar, mas nao esta funcionando esta acontecendo o seguinte erro: [Fatal Error] TABELA.PAS(8): File not found: 'XLookUp.dcu' a pessoa de quem eu comprei informou o seguinte nas vezes que perguntei Nome do programa Automac2005. instalar os pacotes de componentes: XCOMPO7 FREEREP7 - sim, é possivel alterar perfeitamente o software. - delphi 7 e interbase/firebase - instalar os pacotes de componentes que foram enviados. voce tem de instalar o pacote (pakage) de componentes, nao o componente. o banco de dados é criado na primeira execucao da aplicacao. para instalar packages : menu: componentes / install packages (mais detalhes no help do delphi) obrigado Wilson So que para quem nao entende muito bem do Delphi e nao conhece muito de ingles, nao adianta este tipo de dica, alguem porderia dar alguma informacao mais clara... Obrigado Betho. -- 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] Se alguem souber me ajude.
Estou tentando fazer de minha máquina um servidor, para testar aplicações com banco na web entre outras coisas, a questão é, montar um servidor com tudo registrado é muito caro, principalmente o link, a opção q tive foi o No-IP, certo até ai tudo bem, cria uma conta, instalei o IIS na minha máquina, e coloquei o No-IP para rodar em meu pc, só que quando visito a página do No-IP, a página q aparece é a do setup de meu modem(que tranformei em router), pedi para uma pessoa acessar e ela disse q deu página não encontrada, sendo q já verifiquei os serviços do IIS e estão todos ativados, então o que devo fazer, como faço para q quando uma pessoa acesso o meu DNS, essa pessoa vizualize uma página especifica do IIS, e de que forma faço isso no IIS. Eneias Carvalho. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campos da Query
Pessoal
No código abaixo estou utilizando a procedure atualiza para atualizar minhas
tabelas
atualiza(qryFuncoes, qryTabGerais) //aqui passo os parâmetros para a
procedure atualiza
procedure atualiza(Query1: TADODataSet; Query2: TADODataSet);
while not Query2.Eof do begin
Query1.Insert;
Query1.FieldByName('CODIGO').Value := Query2.FieldValues //como fazer
para obter os string field desta query
Luciano Alves de Oliveira
Programador
Altec Soluções em Informática Ltda
(19) 3542-3656
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 267.7.9 - Release Date: 20/06/05
--
Essa mensagem foi verificada contra vírus e conteúdo malicioso pelo Lisa
Antivírus.
--
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] listar USB
Bom dia amigos da lista Tem como em Delphi listar todas as USB que um computador tem ? Existe alguma fora de eu capturar informações de algum aparelho que for ligado a esta USB, como por exemplo um Leitor Digital. Qualquer dica ficarei agradecido Um forte abraço a todos Anderson Furtilho [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] OFFTOPIC: INstalação do Firebird Client: onde estou errando?
Olá estimados, Bem, vamos revisar (como eu não estou vendo o assunto original, presumo que você deva estar com dificuldades de instalar sua aplicação numa estação cliente rodando firebird): 1) - O firebird está instalado num servidor; é Windows XP SP2 ou Windows 2000 Pro/Server? Se for XP SP2 você deve ir no Firewall do seu servidor e liberar a porta 3050/TCP. 'iniciar/configurações/painel de controle/firewall do windows/guia exceções e adicionar uma porta FIREBIRD - 3050 - TCP'. Creio que se for Windows 2003 você deva fazer um procedimento semelhante ao do Windows XP SP2. 2) - O cliente instalado na estação; Você deve rodar a instalação do Firebird novamente lá na estação. Durante a instalação aparece um combobox com uma série de opções e uma delas é 'instalação mínima do cliente - sem servidor, sem ferramentas' e daí ele instalará a dll necessária e fará as alterações na configuração do windows para que o cliente e o servidor se comuniquem através da porta 3050/TCP. Se na estação estiver instalado o XP SP2 o mesmo procedimento para liberação da porta 3050/TCP deve ser feito. Bem, espero com isso poder colaborar com os colegas. Até mais. --- []'s Alexandre -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Paci Galvão Enviada em: quarta-feira, 22 de junho de 2005 07:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFFTOPIC: INstalação do Firebird Client: onde estou errando? Evandro, E como é que o cliente vai localizar o servidor, se não houver uma porta liberada para tal? Não. não é isto. Você perguntou se eu liberei a porta 3050. Eu disse que *não* é necessário liberar a porta 3050 do cliente, deve-se liberar a porta 3050 do servidor. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] _ avast! Antivirus http://www.avast.com : Mensagem Enviada está livre de virus. Banco de dados de vírus (VPS): 0525-1, 21/06/2005 Testado em: 22/6/2005 08:53:53 avast! is copyright (c) 2000-2004 ALWIL Software. -- 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] Apagar tabela
Pessoal quando tento apagar os registro de uma tabela atraves do comando abaixo, aparece a mensagem Operation is not allowed in this context alguém sabe o que é isso? dm.datRH_TGFUNC.DeleteRecords(arAll); Luciano Alves de Oliveira -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 267.7.9 - Release Date: 20/06/05 -- Essa mensagem foi verificada contra vírus e conteúdo malicioso pelo Lisa Antivírus. -- 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] Leitor Digital no Delphi
A marca é FingerPrint Reader (Microsoft) Usa USB. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jéferson Enviada em: terça-feira, 21 de junho de 2005 14:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Leitor Digital no Delphi Sensor é capacitivo ou ótico? Qual é o fabricante? Qual o modelo do leitor? Tipo conexão, serial, usb, paralela? Abraço. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Anderson de Oliveira Furtilho - BR3 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, June 20, 2005 3:06 PM Subject: [delphi-br] Leitor Digital no Delphi Saudações caros colegas Caros colegas alguém já usou o FingerPrint Reader (Reconhecimento digital) no Delphi. Precisa de algum componente extra. Tem um programinha que vem com ele que vc registra suas digitais e depois ele faz o teste e funciona legal, mas eu gostaria de receber as informações desde aparelho e gravar em um banco de dados para depois eu fazer as alterações necessárias. Pesquisei na documentação e no site do fabricante e não tem nada falando que pode ser usado por outros programas. Se alguém já usa este FingerPrint com o delphi e puder me dar uma dica ficarei agradecido Um forte abraço a todos Anderson Furtilho [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 ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Classe em Delphi - Calcular Juros - Help Erro no código!!!! - Todos, Es pecial Sheila Dúvida de Splash e Format
Bom dia Sheila;
Desculpe-me não ter lhe respondido ontem, estava muito atarefado Em relação
ao código, por distração minha, estava colocando no lugar errado! Consegui
concertar o outro erro, o cálculo da taxa não estava saindo certo!!! Era um
detalhe simples e bobo!!! Veja só abaixo:
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex:
10% é 10 / 100 + 1 = 1,1 (esse é o valor ao dia)
somatax := somatax * taxfinal; // aki tava somando!!! agora
vai multiplicar 1,1 * 1,1 * 1,1 * 1,1 até o tempo chevar ao final do tempo
! irgh!!! :-)
cont := cont + 1;
end;
result := somatax;
end;
Vc pode me ajudar em outra situação Ou alguém da lista! O problema é o
seguinte Coloquei uma Splash como abertura e um progressbar no mesmo. O
problema é que o compenente não está progredindo!!! Veja o código abaixo!!!
program Projeto_Calcular_Juros;
uses
Forms,
Main in 'Main.pas' {frmJuros},
clJuros in 'clJuros.pas',
USplash in 'USplash.pas' {frmSplash};
{$R *.res}
begin
Application.Initialize;
with TfrmSplash.Create(nil) do
try
ProgressBar1.Max := 100;
Show;
Update;
Application.Title := 'Projeto_Calcular_Juros';
ProgressBar1.StepBy(25); // AKI NÃO TÁ EXECUTANDO
Application.CreateForm(TfrmJuros, frmJuros);
ProgressBar1.StepBy(25); // NEM AKI !!
Application.CreateForm(TfrmSplash, frmSplash);
finally
Free;
end;
Application.Run;
end.
Pq não tá rolando? Como o programa é pequeno, a Splash inicializava muito
rápida, em tão fiz o seguinte no oncreate do frmJuros (form principal):
Sleep (5000);
frmJuros.Show;
Será que isso tá implicando no progress não funcionar?
Outra questão simples e boba é esta!
Tirei da Net esse código da net!
Lista.Add(' O juros para o período é de: R$ ' + formatfloat('##0.00', (X2)) +
' reais' );
O problema é que os números estão aparecendo da segunte forma!!!
3,4588754545454e1
Alguém pode me dá uma dica!!!???
Um abraço a todos!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: terça-feira, 21 de junho de 2005 11:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Olá, André.
Deveria funcionar... o que vc fez
Pq fiz o teste aqui com o seu código e funcionou...
Qual erro que deu
[]'s
Sheila
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 20, 2005 8:32 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Sheila;
Não funcionou!!?? :-)
Help!!!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: domingo, 19 de junho de 2005 15:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
André,
faltou criar um objeto do tipo TStringList.
coloque :
lista := TstringList.Create;
antes de:
X1 := Capit * somatax;
[]'s
Sheila
- Original Message -
From: André Ferreira
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Sent: Sunday, June 19, 2005 2:08 PM
Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Boa tarde a todos;
Estou fazendo um projeto para o meu professor da faculdade e estou
desesperado pois não sai mais nada do tico e teco aki! Tô pedindo
arrego
aos mais experientes dos grupos pois tô com a corda no pescoço
A questão é a seguinte: preciso construir um objeto juros que possua três
propriedades, capital, tempo e taxa, e um método que calcule o juros
simples
desse capital
Instanciei o objeto Juros da seguinte forma:
unit clJuros;
interface
uses
Classes, Dialogs, SysUtils;
Type
TJuros = Class
Protected
tax : real;
capit: real;
temp : integer;
taxfinal : real;
somatax: real;
function CalculaTaxa: real;
public
constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo :
integer);
function CalculaJuros : TStringList;
end;
implementation
constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real;
tempo : integer);
begin
tax := taxa;
capit := capital;
temp := tempo;
taxfinal := taxafinal;
somatax :=somataxa;
end;
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
RES: [delphi-br] OFF-TOPIC Curso TDS
Ref. ao q vc falow do Orkut não fui eu não... Então não sei se vc conhece a Joseane ela trabalha na TDS da PaulistaCarioca. Ela está quase me convencendo...sou autodidata tenho uns 5 livros de Delphi estou mexendo Com Delphi a uns 4 meses, mas aprendi antes de trancar Ciências da Computação...um pouco de Pascal Programo em PHP, mexo com Mysql, MSSQL, Oracle pouco..., e o conhecimento de lógica Me ajudou bastante no Delphiestou fazendo agora o terceiro sistema em Delphi estou aprendendo Muito na lista karavc não sabe o quantodúvidas de outras pessoas pego pra mim.de tantas listas que já entrei sério mesmoA MELHOR É ESSA (Delphi-Br) sem dúvida pessoas dispostas a ajudar. E tem coisas no livro que eu tenho Delphi 4 a bíblia (antigo...mas serve) tem coisa la Que pra mim eh obscuro. Por isso estou em dúvida no curso Pq eh um curso que tem uma boa carga horária e bons professores ditos por vcs... Mas estou pensando em esperar ainda mais uns 3 meses pra poder fazer assim eu Compro mais um livro e aprendo ainda mais pra entrar no cursos com curiosidades Ainda maior.nao essa coisa de relatório...banco de dadose registromas Coisas mais pronfundas classes dll .Net e tal... Mas a Joseane sabe como eh quem quer vender...ela quer pq quer que eu faça já nessa turma do dia 27 E tal...ai to meio assim será que irei aproveitar bem o curso ... Rodrigo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Miguelito Enviada em: terça-feira, 21 de junho de 2005 21:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFF-TOPIC Curso TDS Olha eu terminei de fazer um curso de criação de componentes nas tds olha eu acho legal esse curso, nao sei se foi vc q escreveu no orkut perguntando a mesma coisa e recebeu maior balde, bom eu acho q vc tem q ver o custo beneficio, eu achei o curso muito bom, os profesores (o prof REynaldo) com o que tive aulas, o cara manja de cima pra baixo o delphi, eles são instructores certificados como instructores pela borland, e tem certificados de parceria da borland, nao sei o nível de conhecimento q vc tem, mas, se fosse eu, tendo condições, faria esse curso, eu concordo que não há nada melhor que ser auto didacta, mas se tem alguem pra te ensinar é bem melhor e bem mais facil, ae vc utiliza os livros (recomendação do Alexandre e do Claudio) para melhorar aquilo q vc ja sabe, entendeu, ae fica bem mais facil, por exemplo eu nao entendia coisa nenhuma de classes, type cast e por ae vai, agora nao sou o expert, mas ja da pra entender como é que funciona a vcl do delphi, acho que lendo mais alguns livros vou poder aprender bem aquilo que me foi passado no curso. miguel Rodrigo Mota [EMAIL PROTECTED] escreveu: Gostaria de saber Se alguém do grupo recomenda a TDS para curso de Delphi 2005 Eh caro 3.500,00 são 164 horas + ou Rodrigo Mota Consultor de Informática Respec Recursos Humanos www.respec.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] 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!. [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:
Re: [delphi-br] OFFTOPIC: INstalação do Firebird C lient: onde estou errando?
Alexandre, Eu que postei a mensagem original. Olá estimados, Bem, vamos revisar (como eu não estou vendo o assunto original, presumo que você deva estar com dificuldades de instalar sua aplicação numa estação cliente rodando firebird): Não, não é isto. Instalar no cliente é tranquilo. O detalhe é que eu não quero instalar o firebird client nas estações usando o instalador do firebird, entendeu? Li em alguns lugares que bastaria copiar uma dll para a pasta do aplicativo, mas não está dando certo. Quando eu instalo o firebird através do instalador, aí tudo bem. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] -- 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] Leitor Digital no Delphi
Não conheço este. Utilizo o da Siemens. - Original Message - From: Anderson de Oliveira Furtilho - BR3 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 9:48 AM Subject: RES: [delphi-br] Leitor Digital no Delphi A marca é FingerPrint Reader (Microsoft) Usa USB. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jéferson Enviada em: terça-feira, 21 de junho de 2005 14:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Leitor Digital no Delphi Sensor é capacitivo ou ótico? Qual é o fabricante? Qual o modelo do leitor? Tipo conexão, serial, usb, paralela? Abraço. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Anderson de Oliveira Furtilho - BR3 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, June 20, 2005 3:06 PM Subject: [delphi-br] Leitor Digital no Delphi Saudações caros colegas Caros colegas alguém já usou o FingerPrint Reader (Reconhecimento digital) no Delphi. Precisa de algum componente extra. Tem um programinha que vem com ele que vc registra suas digitais e depois ele faz o teste e funciona legal, mas eu gostaria de receber as informações desde aparelho e gravar em um banco de dados para depois eu fazer as alterações necessárias. Pesquisei na documentação e no site do fabricante e não tem nada falando que pode ser usado por outros programas. Se alguém já usa este FingerPrint com o delphi e puder me dar uma dica ficarei agradecido Um forte abraço a todos Anderson Furtilho [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 ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Envio de E-mai
por favor..se alguem puder me ajudar com ENVIO de e-mail com Delphi
2005 e Indy10...não funciona...hehe
não sei pq...já vi um monte de livros e manuais e falam sempre a mesma
coisa...mas comigoi nunca funcionou
abaixo está o código de testes q fiz...
IdMessage1.ContentType := 'text/html';
IdMessage1.Subject := 'Título';
IdMessage1.Body.Add('1° Linha');
IdMessage1.Body.Add('2° Linha');
IdMessage1.Body.Add('3° Linha');
IdMessage1.From.Address := '[EMAIL PROTECTED]';
IdMessage1.From.Name := 'Alan';
IdMessage1.From.Text := 'texto do from';
IdMessage1.Recipients.Clear;
IdMessage1.Recipients.Add.Address := '[EMAIL PROTECTED]';
wErro := '';
// Conecto pop por alguns SMTP só conectam depois do POP3
try
IdPOP31.Host := 'pop3.bol.com.br';
IdPOP31.Port := 110;
IdPOP31.Username := 'usuario';
IdPOP31.Password := 'senha';
try
IdPOP31.Connect;
wErro := 'Nenhum Erro com POP3';
except
on E:Exception do
wErro := 'Erro: '+E.Message;
end;
finally
IdPOP31.Disconnect;
end;
try
IdSMTP1.Host := 'smtp.bol.com.br';
IdSMTP1.Port := 25; // gmail a porta é 465
IdSMTP1.Username := 'usuario';
IdSMTP1.Password := 'senha';
// IdSMTP1.AuthType := atDefault;
try
IdSMTP1.Connect;
wErro := wErro + #13+'Nenhum Erro com SMTP';
except
on E:Exception do
wErro := wErro + #13+'Erro: '+E.Message;
end;
if (IdSMTP1.Connected) then
IdSMTP1.SendMsg(IdMessage1)
finally
IdSMTP1.Disconnect;
end;
ShowMessage(wErro);
se alguem puder me ajudar, agradeço
Aan Veceli
--
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] Problemas com propriedade StringList
Pessoal, criei um componente com uma propriedade chamada Instrucoes: TStringList. Quando jogo o componente em um form e clico no Object Inspector pra adicionar valor para este campo, ele abre a janelinha igual ao IBQuery.SQL (por exemplo). Mas quando coloco valores nesta janelinha, e clico em OK, ele dá um monte de mensagens de erro. Será que esqueci de algo? Tiago -- 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] Problemas com propriedade StringList
Como você definiu a propriedade Instrucoes? Isso, em geral, se deve pela forma como você *atribui* o valor à propriedade. Se você utilizou algo como: published property Instrucoes: TStringList read FInstrucoes write FInstrucoes; É esse o seu problema! Basta ver como outros componentes implementam a atribuição (write) de propriedades do tipo objeto para ver qual o seu erro. O fato é que, para objetos, existem duas formas de se atribuir valores- através de referência, como a propriedade DataSet dos TDataSource, onde a propriedade apenas guarda uma referência ao objeto; ou, através de atribuição propriamente dita, quando um valor atribuido à propriedade é utilizado para definir o valor da propriedade- a referência ao objeto é utilizada apenas localmente para a atribuição (exemplo logo abaixo). A depender da situação, pode ser preciso definir um editor de propriedades específico para que a atribuição da propriedade através do Object Inspector corresponda ao modo de operação desejado. No seu caso, o correto seria... published property Instrucoes: TStringList read FInstrucoes write SetInstrucoes; procedure TMinhaClasse.SetInstrucoes(Value: TStringList); begin if Value = nil then FInstrucoes.Clear else FInstrucoes.Assign(Value); end; Essa forma de implementação ilustra como o objeto (Value) é utilizado para atribuir o valor à propriedade. Cordialmente, Demian Lessa Salvador - Brasil tiago_econtabil wrote: Pessoal, criei um componente com uma propriedade chamada Instrucoes: TStringList. Quando jogo o componente em um form e clico no Object Inspector pra adicionar valor para este campo, ele abre a janelinha igual ao IBQuery.SQL (por exemplo). Mas quando coloco valores nesta janelinha, e clico em OK, ele dá um monte de mensagens de erro. Será que esqueci de algo? Tiago -- 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] Re: Problemas com propriedade StringList
Era isso mesmo Demian. eu tava usando o SetInstrucoes assim: procedure TMinhaClasse.SetInstrucoes(Value: TStringList); begin fInstrucoes := Value; end; Alterei como você disse e funcionou direitinho. Gostaria de te agradecer pela ajuda, e dizer que sempre vejo as suas respostas aqui no fórum, sempre explicadas minuciosamente. Agradeço a atençao. Tiago --- Em delphi-br@yahoogrupos.com.br, Demian Lessa [EMAIL PROTECTED] escreveu Como você definiu a propriedade Instrucoes? Isso, em geral, se deve pela forma como você *atribui* o valor à propriedade. Se você utilizou algo como: published property Instrucoes: TStringList read FInstrucoes write FInstrucoes; É esse o seu problema! Basta ver como outros componentes implementam a atribuição (write) de propriedades do tipo objeto para ver qual o seu erro. O fato é que, para objetos, existem duas formas de se atribuir valores- através de referência, como a propriedade DataSet dos TDataSource, onde a propriedade apenas guarda uma referência ao objeto; ou, através de atribuição propriamente dita, quando um valor atribuido à propriedade é utilizado para definir o valor da propriedade- a referência ao objeto é utilizada apenas localmente para a atribuição (exemplo logo abaixo). A depender da situação, pode ser preciso definir um editor de propriedades específico para que a atribuição da propriedade através do Object Inspector corresponda ao modo de operação desejado. No seu caso, o correto seria... published property Instrucoes: TStringList read FInstrucoes write SetInstrucoes; procedure TMinhaClasse.SetInstrucoes(Value: TStringList); begin if Value = nil then FInstrucoes.Clear else FInstrucoes.Assign(Value); end; Essa forma de implementação ilustra como o objeto (Value) é utilizado para atribuir o valor à propriedade. Cordialmente, Demian Lessa Salvador - Brasil tiago_econtabil wrote: Pessoal, criei um componente com uma propriedade chamada Instrucoes: TStringList. Quando jogo o componente em um form e clico no Object Inspector pra adicionar valor para este campo, ele abre a janelinha igual ao IBQuery.SQL (por exemplo). Mas quando coloco valores nesta janelinha, e clico em OK, ele dá um monte de mensagens de erro. Será que esqueci de algo? Tiago -- 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] Tentando fazer um log
Não sei se alguém já respondeu, mas acho que tu deve converter todos os campos para colocar num memo. e usar || e não +. CREATE TRIGGER TR_AGENCIA FOR AGENCIA ACTIVE AFTER INSERT POSITION 0 AS begin INSERT INTO LOG (USUARIO, DATA, TABELA, CONTEUDO) VALUES (USER, CURRENT_DATE, 'AGENCIA', cast(NEW.CODIGO as varchar(10)) || NEW.BANCO || NEW.AGENCIA ||NEW.NOME || NEW.ENDERECO || cast(NEW.NUMERO as varchart(10)) || NEW.BAIRRO || NEW.CIDADE || NEW.CEP || NEW.UF || NEW.TELEFONE); end t+ - Original Message - From: Ronaldo Sousa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 21, 2005 10:31 PM Subject: [delphi-br] Tentando fazer um log Caros amigos Boa noite. estou entando fazer uma trigger para grava dados numa tabela chamado log explico: Quando for inserido, deletado ou alterado um registro em uma tabela seria gravado os resultado em uma tabela log pensei em fazer assim: //trigger de grvação CREATE TRIGGER TR_AGENCIA FOR AGENCIA ACTIVE AFTER INSERT POSITION 0 AS begin INSERT INTO LOG (USUARIO,DATA,TABELA,CONTEUDO) VALUES (USER, CURRENT_DATE,'AGENCIA',NEW.CODIGO+NEW.BANCO+NEW.AGENCIA+NEW.NOME+NEW.ENDERECO+NEW.NUMERO+NEW.BAIRRO+NEW.CIDADE+NEW.CEP+NEW.UF+NEW.TELEFONE); end Mas dar um erro. na hora de gravar a trigger, alguem poderia me auxiliar? Uso Banco de dados Firebird 1.5 ronperso _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- 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] OFFTOPIC: INstalação do Firebird Client: onde estou errando?
Olá Eduardo, Bem, se você não usar o instalador do firebird pra colocar o client na estação, então fica difícil. Só vejo uma alternativa: Você pode usar o INNO SETUP pra instalar a dll cliente do firebird junto com sua aplicação. Daí creio que resolva seu problema. No site www.firebase.com.br creio que deva ter o script pra fazer a instalação das dlls junto com sua aplicação. Sobre copiar, você deve copiar para o system32 e registrar também, já tentou isso: Regsvr32 fbclient.dll Faz uns testes aí e nos retorne. --- []'s Alexandre -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Paci Galvão Enviada em: quarta-feira, 22 de junho de 2005 10:35 Para: Lista Delphi Assunto: Re: [delphi-br] OFFTOPIC: INstalação do Firebird Client: onde estou errando? Alexandre, Eu que postei a mensagem original. Olá estimados, Bem, vamos revisar (como eu não estou vendo o assunto original, presumo que você deva estar com dificuldades de instalar sua aplicação numa estação cliente rodando firebird): Não, não é isto. Instalar no cliente é tranquilo. O detalhe é que eu não quero instalar o firebird client nas estações usando o instalador do firebird, entendeu? Li em alguns lugares que bastaria copiar uma dll para a pasta do aplicativo, mas não está dando certo. Quando eu instalo o firebird através do instalador, aí tudo bem. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] -- 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 avast! Antivirus http://www.avast.com : Mensagem Recebida está livre de virus. Banco de dados de vírus (VPS): 0525-1, 21/06/2005 Testado em: 22/6/2005 10:36:12 avast! is copyright (c) 2000-2004 ALWIL Software. _ avast! Antivirus http://www.avast.com : Mensagem Enviada está livre de virus. Banco de dados de vírus (VPS): 0525-2, 22/06/2005 Testado em: 22/6/2005 13:34:19 avast! is copyright (c) 2000-2004 ALWIL Software. -- 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] Por favor, Urgente: DiskSize/DiskFree no D7
Olá amigos da(s) lista(s)... Estou precisando saber o Espaço livre em um determinado disco (C:,D:...) mas o D7 tá me reportando valores negativos não coerentes com os dados reais do Windows Explorer... to usando DiskFree... mas o resultado não é o esperado... alguém pode me ajudar??? Preciso liberar uns clientes ainda hoje... Obrigado por qq ajuda... []´s Sérgio A Souza. [EMAIL PROTECTED] msn: [EMAIL PROTECTED] __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/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] Re: Se alguem souber me ajude.
Amigo, entendo pouco disso. Mas assim ó: o IP externo q vc tem é o IP do modem. Quando você tenta acessar o endereço através da sua rede interna, ele exibe as configurações do modem pq as configurações do modem são acessadas através de uma página HTML, e o modem utiliza a porta 80 pra servir estas páginas HTML. Mas o acesso é restrito somente dentro de sua rede. Por isso seu amigo viu a mensagem 'Página não encontrada.' Se você usa ADSL, tem q fazer o modem transferir o IP externo dele para uma máquina da rede, daí sim esta máquina ficará acessivel por toda a internet. Enfrentamos uma vez um problema desse, mas infelizmente não fui eu quem resolveu, somente acompanhei. Se não me engano tem a ver com PPPoE, mas também não tenho certeza. Talves eu tenha deixado mais dúvidas do que respostas né?? Abraço e sucesso. Tiago --- Em delphi-br@yahoogrupos.com.br, Eneias Sousa Carvalho [EMAIL PROTECTED] escreveu Estou tentando fazer de minha máquina um servidor, para testar aplicações com banco na web entre outras coisas, a questão é, montar um servidor com tudo registrado é muito caro, principalmente o link, a opção q tive foi o No-IP, certo até ai tudo bem, cria uma conta, instalei o IIS na minha máquina, e coloquei o No-IP para rodar em meu pc, só que quando visito a página do No-IP, a página q aparece é a do setup de meu modem(que tranformei em router), pedi para uma pessoa acessar e ela disse q deu página não encontrada, sendo q já verifiquei os serviços do IIS e estão todos ativados, então o que devo fazer, como faço para q quando uma pessoa acesso o meu DNS, essa pessoa vizualize uma página especifica do IIS, e de que forma faço isso no IIS. Eneias Carvalho. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Compactar e descompactar arquivos
Olá,
Alguém conhece alguma rotina para compactar e
descompactar arquivos sem uso de componente? Tentei
usar essa rotina abaixo, mas o arquivo gerado dá erro
quando tento abrir com o Winzip.
procedure TForm1.CompressãoClick(Sender: TObject);
var FileIni, FileOut: TFileStream;
Zip: TCompressionStream;
begin
FileIni := TFileStream.Create
('C:\pasta\...arquivo a ser comprimido...',
fmOpenRead and fmShareExclusive);
FileOut := TFileStream.Create('C:\pasta\...arquivo
comprimido...', fmCreate or fmShareExclusive);
Zip := TCompressionStream.Create(clMax, FileOut);
Zip.CopyFrom( FileIni, FileIni.Size);
Zip.Free;
FileOut.Free;
FileIni.Free;
end;
___
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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] Alguém já trabalhou com arquivos .KAR?????
Olá gente, Gostaria de saber se alguém já trabalhou com arquivos .kar, aqueles que são misto de Letra da música + MIDI, para Karaokê. Preciso abrir esses arquivos. Se alguém souber de algo, me avise. Obrigado. Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás Brasil O único verdadeiro fracasso é deixar de tentar Max Heindel -- 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] QUERY
Alguem ai sabe qual o erro que essa query tem. ela não está concatenado
os valores.
No Sql Funciona, Mas quando passo para o delphi não.
QrConta.Close;
QrConta.SQL.Clear;
QrConta.SQL.Add('SELECT Codigo, Conta ||' '|| Titular1 As Descricao');
QrConta.SQL.Add('From BCOCOC.dbf Conta');
QrConta.Open;
Grato
Francisco
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Caminho do Executável
Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS-DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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] Correção Ortográfica
Pessoal. Alguém sabe se é possível criar um mecanismo no Delphi como o editor de e-mails do Microsoft Outlook, com auto-correção (e fica sublinhado quando o usuário digita uma palavra errada) ?? Sei que o Outlook utiliza o editor do MS Word, inclusive o mesmo dicionário, então o usuário necessitaria ter o Word instalado. Mas isso não seria problema. Queria saber se alguém sabe se é possível fazer isto, porque estou procurando e não sei por onde começar... -- 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] Incrementando o generator via aplicação (OnBeforeUpd ate do DataSetProvider)
Caros amigos,
Até ontem esta procedure não estava apresentando erros, estava incrementando
normalmente... só que hoje ela simplesmente parou!... e eu não modifiquei
nada no código.. alguém poderia me dar uma dica do que pode ser?
Ela faz o seguinte: Eu chamo, no evento OnBeforeUpdateRecord, uma procedure
que recupera o valor do generator e informa no campo chave... só que essa
informação está chegando nula no banco.
O código está no final do e-mail
Obrigado
Francisco Thiago de Almeida
EnterPlug Sistemas
Divisão: Desenvolvimento / Banco de dados
Franca - SP
procedure TDmCadastro.dspCad_ClienteBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
if UpdateKind in [ukInsert,ukModify] then
begin
if UpdateKind = ukInsert then
UpdateRecordAutoInc(Sender,SourceDS,DeltaDS,Updatekind,Applied,DeltaDS.FieldByName('CCLI_COD').Index);
BooleanValidade(DeltaDS.FieldByName('CCLI_IMOVEIS'));
end;
end;
procedure TDmCadastro.UpdateRecordAutoInc(Sender: TObject;
SourceDS: TDataSet; var DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean; FieldIndex: Integer);
var
li_MaxGenerator: Integer;
li_Id: Integer;
begin
//Captura o valor máximo permitido a um
sqlMax_Generator_Value.Open;
li_MaxGenerator := sqlMax_Generator_ValueRDBMAX_GENERATOR_VALUE.AsInteger;
sqlMax_Generator_Value.Close;
if UpdateKind in [ukInsert,ukModify] then
begin
if UpdateKind = ukInsert then
begin
try
if pfInKey in DeltaDS.Fields[FieldIndex].ProviderFlags then
begin
li_Id := getId('gen_'+ DeltaDS.Fields[FieldIndex].DisplayName);
// Se estourar o range de Generator
if li_MaxGenerator li_Id then
raise Exception.Create('Server Error'+ #$D#$A +'Numero de
registros permitidos ultrapassados')
else
begin
DeltaDS.Fields[FieldIndex].NewValue := li_Id;
end;
end;
except
on E :Exception do
begin
DeltaDS.Edit;
DeltaDS.Fields[FieldIndex].AsInteger := ci_AutoInc;
DeltaDS.Post;
raise;
end;
end;
end;
end;
end;
___
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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] Re: Caminho do Executável
Eu desconheço. Talvez você tenha que fazer uma função para retornar isso. --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS- DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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] QUERY
Alguem ai sabe qual o erro que essa query tem. ela não está concatenado
os valores.
No Sql Funciona, Mas quando passo para o delphi não.
QrConta.Close;
QrConta.SQL.Clear;
QrConta.SQL.Add('SELECT Codigo, Conta ||' '|| Titular1 As Descricao');
QrConta.SQL.Add('From BCOCOC.dbf Conta');
QrConta.Open;
Grato
Francisco
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Caminho do Executável
Ola Thiago!!! Tem uma funcao que jah te retorna isso sim, a ExtractShortPath, ela retorna o caminho do DOS. Um Abraco!!! /*=*/ On 6/22/05, tiago_econtabil [EMAIL PROTECTED] wrote: Eu desconheço. Talvez você tenha que fazer uma função para retornar isso. --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS- DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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 -- /*===* * Rodrigo Izquierdo da Motta * *===*/ [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] Tentando fazer um log
amigo foi d+ sua resposta. muito obrigado mesmo ronperso From: Alosi yarru [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Tentando fazer um log Date: Wed, 22 Jun 2005 12:27:08 -0300 Não sei se alguém já respondeu, mas acho que tu deve converter todos os campos para colocar num memo. e usar || e não +. CREATE TRIGGER TR_AGENCIA FOR AGENCIA ACTIVE AFTER INSERT POSITION 0 AS begin INSERT INTO LOG (USUARIO, DATA, TABELA, CONTEUDO) VALUES (USER, CURRENT_DATE, 'AGENCIA', cast(NEW.CODIGO as varchar(10)) || NEW.BANCO || NEW.AGENCIA ||NEW.NOME || NEW.ENDERECO || cast(NEW.NUMERO as varchart(10)) || NEW.BAIRRO || NEW.CIDADE || NEW.CEP || NEW.UF || NEW.TELEFONE); end t+ - Original Message - From: Ronaldo Sousa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 21, 2005 10:31 PM Subject: [delphi-br] Tentando fazer um log Caros amigos Boa noite. estou entando fazer uma trigger para grava dados numa tabela chamado log explico: Quando for inserido, deletado ou alterado um registro em uma tabela seria gravado os resultado em uma tabela log pensei em fazer assim: //trigger de grvação CREATE TRIGGER TR_AGENCIA FOR AGENCIA ACTIVE AFTER INSERT POSITION 0 AS begin INSERT INTO LOG (USUARIO,DATA,TABELA,CONTEUDO) VALUES (USER, CURRENT_DATE,'AGENCIA',NEW.CODIGO+NEW.BANCO+NEW.AGENCIA+NEW.NOME+NEW.ENDERECO+NEW.NUMERO+NEW.BAIRRO+NEW.CIDADE+NEW.CEP+NEW.UF+NEW.TELEFONE); end Mas dar um erro. na hora de gravar a trigger, alguem poderia me auxiliar? Uso Banco de dados Firebird 1.5 ronperso _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- 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] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Caminho do Executável
Oi, tiago O problema é que eu estou tentando montar um backup de uns arquivos e em windows 2K para frente funciona perfeitamente, mas em 9X não funciona, retorna cada espaço em uma linha diferente. Caso tenha alguma idéia de como resolver esse problema, mesmo que de alguma outra forma, agradeço. Wilson - Original Message - From: tiago_econtabil To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 4:15 PM Subject: [delphi-br] Re: Caminho do Executável Eu desconheço. Talvez você tenha que fazer uma função para retornar isso. --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS- DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.11/26 - Release Date: 22/06/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] QUERY
QrConta.Close;
QrConta.SQL.Clear;
QrConta.SQL.Add('SELECT Codigo, Conta ||' + ' ' + '|| Titular1 As
Descricao');
QrConta.SQL.Add('From BCOCOC.dbf Conta');
QrConta.Open;
Isso Resolve
Eduardo
- Original Message -
From: F D
To: Delphi Grupo ; Grupo Delphi
Sent: Wednesday, June 22, 2005 3:22 PM
Subject: [delphi-br] QUERY
Alguem ai sabe qual o erro que essa query tem. ela não está
concatenado os valores.
No Sql Funciona, Mas quando passo para o delphi não.
QrConta.Close;
QrConta.SQL.Clear;
QrConta.SQL.Add('SELECT Codigo, Conta ||' '|| Titular1 As Descricao');
QrConta.SQL.Add('From BCOCOC.dbf Conta');
QrConta.Open;
Grato
Francisco
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
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] Lendo arquivos separados por tabulações
Sei q este tópico já foi postado na lista...mas se alguém tiver o código que implementa a leitura de arquivos texto separados por tabulaçõesficarei grato. [ ]'s Rodrigo Ribeiro Programador WMix Distribuidora Ltda Fone/Fax: +55(48)381.4740 -- Esta mensagem foi enviada pela Wmix Distribuidora Ltda, para uso exclusivo do destinatário, podendo conter informações confidenciais. Se for recebida por terceiro que não o destinatário, deve ser apagada imediatamente do seu computador e a Wmix Distribuidora Ltda notificada ([EMAIL PROTECTED]). As informações aqui prestadas não podem ser distribuídas ou reproduzidas sem a expressa autorização da Wmix Distribuidora Ltda. [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] implementar no delphi
Boa a Tarde a todos!! Tenho uma função que quero implementar no delphi, mas não sei como, tenho a referencia: ExSetTimerResolution( IN ULONG DesiredTime, IN BOOLEAN SetResolution ); que precisa usar Declared in wdm.h and ntddk.h. Include wdm.h or ntddk.h. Como integrar/declarar o wdm.h e ntddk.h no delphi Qualquer dica será muito útil... Grato, Alex... -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Caminho do Executável
Rodrigo, Essa função retorna com o nome do executável, o que não pode acontecer pois é para executar uma aplicação que está mo mesmo diretório da aplicação. - Original Message - From: Rodrigo Izquierdo da Motta To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 4:30 PM Subject: Re: [delphi-br] Re: Caminho do Executável Ola Thiago!!! Tem uma funcao que jah te retorna isso sim, a ExtractShortPath, ela retorna o caminho do DOS. Um Abraco!!! /*=*/ On 6/22/05, tiago_econtabil [EMAIL PROTECTED] wrote: Eu desconheço. Talvez você tenha que fazer uma função para retornar isso. --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS- DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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 -- /*===* * Rodrigo Izquierdo da Motta * *===*/ [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.11/26 - Release Date: 22/06/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Caminho do Executável
Ola Wilson!!! Sim, concordo, mas agora vc jah pode usar as outras funcoes que pegam apenas o caminho, ou se prefirir fazer uma funcao que retorne isso!!! No caso ExtractFilePath ou ExtractFileDir, oq for mais adequado pra vc!!! Um Abraco!!! /*=*/ On 6/22/05, Wilson Valdevite [EMAIL PROTECTED] wrote: Rodrigo, Essa função retorna com o nome do executável, o que não pode acontecer pois é para executar uma aplicação que está mo mesmo diretório da aplicação. - Original Message - From: Rodrigo Izquierdo da Motta To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 4:30 PM Subject: Re: [delphi-br] Re: Caminho do Executável Ola Thiago!!! Tem uma funcao que jah te retorna isso sim, a ExtractShortPath, ela retorna o caminho do DOS. Um Abraco!!! /*=*/ On 6/22/05, tiago_econtabil [EMAIL PROTECTED] wrote: Eu desconheço. Talvez você tenha que fazer uma função para retornar isso. --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS- DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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 -- /*===* * Rodrigo Izquierdo da Motta * *===*/ [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.11/26 - Release Date: 22/06/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- /*===* * Rodrigo Izquierdo da Motta * *===*/ [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] implementar no delphi
Sinto muito, mas isto não será possível! A função que vc está querendo implementar faz parte do DDK (Driver Development Kit), que permite escrever device drivers baseados no modelo WDM (Windows Driver Model). E o compilador do Delphi não está preparado para usar essa função, por mais que vc faça a tradução dos arquivos *.h para units Delphi. Isto pq o compilador do Delphi não está preparado para compilar um código (no caso, desta função) em um nível de permissão do sistema operacional superior ao nível no qual um device driver obrigatoriamente necessita ser compilado. Ou seja, essa função só funciona para ser usada em código de device drivers, e device drivers são escritos em C/C++. Delphi não compila código para gerar device drivers, logo vc ñ poderá usar essa função! []s From: alxeng2002 [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] implementar no delphi Date: Wed, 22 Jun 2005 19:58:27 - Boa a Tarde a todos!! Tenho uma função que quero implementar no delphi, mas não sei como, tenho a referencia: ExSetTimerResolution( IN ULONG DesiredTime, IN BOOLEAN SetResolution ); que precisa usar Declared in wdm.h and ntddk.h. Include wdm.h or ntddk.h. Como integrar/declarar o wdm.h e ntddk.h no delphi Qualquer dica será muito útil... Grato, Alex... _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Caminho do Executável
Rodrigo, Desculpe minha falha, esqueci de montar a fórmula correta, usei a função que me passou da seguinte forma: ExtractFilePath(ExtractShortPathName(Application.ExeName)) Obrigado. - Original Message - From: Rodrigo Izquierdo da Motta To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 5:07 PM Subject: Re: [delphi-br] Re: Caminho do Executável Ola Wilson!!! Sim, concordo, mas agora vc jah pode usar as outras funcoes que pegam apenas o caminho, ou se prefirir fazer uma funcao que retorne isso!!! No caso ExtractFilePath ou ExtractFileDir, oq for mais adequado pra vc!!! Um Abraco!!! /*=*/ On 6/22/05, Wilson Valdevite [EMAIL PROTECTED] wrote: Rodrigo, Essa função retorna com o nome do executável, o que não pode acontecer pois é para executar uma aplicação que está mo mesmo diretório da aplicação. - Original Message - From: Rodrigo Izquierdo da Motta To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 4:30 PM Subject: Re: [delphi-br] Re: Caminho do Executável Ola Thiago!!! Tem uma funcao que jah te retorna isso sim, a ExtractShortPath, ela retorna o caminho do DOS. Um Abraco!!! /*=*/ On 6/22/05, tiago_econtabil [EMAIL PROTECTED] wrote: Eu desconheço. Talvez você tenha que fazer uma função para retornar isso. --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, estou precisando pegar o caminho do executável, mas se o diretório possuir mais de 8 letras preciso que me retorne o nome do MS- DOS com 8 letras no máximo. Existe algum comando que faça isso? Estou usando o ExtractFilePath, mas em 9X preciso que ele me quebre os nomes para 8 caracteres no máximo. [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 -- /*===* * Rodrigo Izquierdo da Motta * *===*/ [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.11/26 - Release Date: 22/06/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- /*===* * Rodrigo Izquierdo da Motta * *===*/ [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.11/26 - Release Date: 22/06/2005 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Compactar e descompactar arquivos
Amigo.
Eu vi um componente uma vez na revista Clube Deplhi chamado
ZipMaster. Dá uma procurada no Google.
Tiago
--- Em delphi-br@yahoogrupos.com.br, Alisson Costa Resende
[EMAIL PROTECTED] escreveu
Olá,
Alguém conhece alguma rotina para compactar e
descompactar arquivos sem uso de componente? Tentei
usar essa rotina abaixo, mas o arquivo gerado dá erro
quando tento abrir com o Winzip.
procedure TForm1.CompressãoClick(Sender: TObject);
var FileIni, FileOut: TFileStream;
Zip: TCompressionStream;
begin
FileIni := TFileStream.Create
('C:\pasta\...arquivo a ser comprimido...',
fmOpenRead and fmShareExclusive);
FileOut := TFileStream.Create('C:\pasta\...arquivo
comprimido...', fmCreate or fmShareExclusive);
Zip := TCompressionStream.Create(clMax, FileOut);
Zip.CopyFrom( FileIni, FileIni.Size);
Zip.Free;
FileOut.Free;
FileIni.Free;
end;
___
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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] Re: Script com cadastro de bancos
Eu vi isso nesta lista ou na lista do Delphi-boleto Tiago --- Em delphi-br@yahoogrupos.com.br, Vanderlei Cordeiro Frazão [EMAIL PROTECTED] escreveu Pessoal alguém teria um script com cadastro de bancos (itau, bradesco, etc) pronto como encontramos de cidades por exemplo? Se alguem tiver e puder me disponibilizar eu agradeço Vanderlei. [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] Muito difícil - Criar processos para executar em paralelo
olá, procure o pacote de componentes VKDBF, ele acessa qualquer DBF de qualquer tamanho, e até indices NTX. - Original Message - From: delphi6_2005 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 5:01 PM Subject: [delphi-br] Muito difícil - Criar processos para executar em paralelo Amigos estou com uma dificuldade, preciso ler uma base /sistema em clipper tabelas dbf e extrair algumas informações, as tabelas que preciso acessar não tem chaves e são muito grandes tipo acima de 40 MB. Meu aplicativo esta muito, muito lento, uma tartaruga na subida. Algum amigo poderia me dar uma dica de como criar processos paralelos, tipo assim quando iniciar o aplicativo são iniciados vários processos um para leitura e pesquisa de cada tabelas. Já tenho uma Unit para cada tabela. Agradeço as dicas dos amigos. Paulo -- 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] OFFTOPIC: INstalação do Firebird C lient: onde estou errando?
Alexandre, Olá Eduardo, Você pode usar o INNO SETUP pra instalar a dll cliente do firebird junto com sua aplicação. Daí creio que resolva seu problema. Sobre copiar, você deve copiar para system32 e registrar também, já tentou isso: Regsvr32 fbclient.dll Excelente dica. Realmente só copiar não adianta, pelo menos por aqui não. Vou fazer como você falou! De qualquer forma, baixei um instalador simples e compacto do Interbase client, já está me quebrando o galho. O caso é que vou mandar meu aplicativo para vários usuários 'leigos', e quero que a instalação do Interbase/Firebird client seja a mais 'silenciosa' possível. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] -- 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] Classe em Delphi - Calcular Juros - Help Erro no código!!!! - Todos, Especial Sheila Dúvida de Splash e Format
Boa noite, André.
Ao invés de vc usar o FormatFloat() para valores de moeda use FormatCurr().
Quanto ao splash, outro dia apanhei um bocado pq precisava dar um splash antes
de exibir tela de login e a tela principal do programa.
Faz tempo que usei um progress bar em um projeto meu para fazer abertura de um
programa, não me lembro agora mas assim que lembrar te dou um toque, ok?
Só me lembro que tratei em outro arquivo e não no .DPR
Uma sugestão, só pra adiantar, veja se resolve o seu caso... (usei neste último
projeto meu)
..
Application.Initialize;
Application.ShowMainForm := false ; //= aqui é para esconder o formulário
// principal, no seu
caso, frmJuros
Application.CreateForm(TfrmJuros, frmJuros);
frmJuros.Hide;
Application.Run;
..
No evento OnHide do frmJuros:
..
if Application.FindComponent( 'frmSplash' ) = nil then
Application.CreateForm(TfrmSplash, frmSplash);
..
E no evento OnCreate do frmSplash:
..
// delimite o tempo da progressBar e
// depois que esgotar o tempo vc dá um show() no
// frmJuros e dá um close() no frmSplash
..
[]'s
Sheila
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 22, 2005 10:09 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código - Todos, Especial Sheila Dúvida de Splash e Format
Bom dia Sheila;
Desculpe-me não ter lhe respondido ontem, estava muito atarefado Em
relação ao código, por distração minha, estava colocando no lugar errado!
Consegui concertar o outro erro, o cálculo da taxa não estava saindo certo!!!
Era um detalhe simples e bobo!!! Veja só abaixo:
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada
ex: 10% é 10 / 100 + 1 = 1,1 (esse é o valor ao dia)
somatax := somatax * taxfinal; // aki tava somando!!! agora
vai multiplicar 1,1 * 1,1 * 1,1 * 1,1 até o tempo chevar ao final do tempo
! irgh!!! :-)
cont := cont + 1;
end;
result := somatax;
end;
Vc pode me ajudar em outra situação Ou alguém da lista! O problema é
o seguinte Coloquei uma Splash como abertura e um progressbar no mesmo. O
problema é que o compenente não está progredindo!!! Veja o código abaixo!!!
program Projeto_Calcular_Juros;
uses
Forms,
Main in 'Main.pas' {frmJuros},
clJuros in 'clJuros.pas',
USplash in 'USplash.pas' {frmSplash};
{$R *.res}
begin
Application.Initialize;
with TfrmSplash.Create(nil) do
try
ProgressBar1.Max := 100;
Show;
Update;
Application.Title := 'Projeto_Calcular_Juros';
ProgressBar1.StepBy(25); // AKI NÃO TÁ EXECUTANDO
Application.CreateForm(TfrmJuros, frmJuros);
ProgressBar1.StepBy(25); // NEM AKI !!
Application.CreateForm(TfrmSplash, frmSplash);
finally
Free;
end;
Application.Run;
end.
Pq não tá rolando? Como o programa é pequeno, a Splash inicializava muito
rápida, em tão fiz o seguinte no oncreate do frmJuros (form principal):
Sleep (5000);
frmJuros.Show;
Será que isso tá implicando no progress não funcionar?
Outra questão simples e boba é esta!
Tirei da Net esse código da net!
Lista.Add(' O juros para o período é de: R$ ' + formatfloat('##0.00', (X2))
+ ' reais' );
O problema é que os números estão aparecendo da segunte forma!!!
3,4588754545454e1
Alguém pode me dá uma dica!!!???
Um abraço a todos!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: terça-feira, 21 de junho de 2005 11:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Olá, André.
Deveria funcionar... o que vc fez
Pq fiz o teste aqui com o seu código e funcionou...
Qual erro que deu
[]'s
Sheila
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 20, 2005 8:32 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Sheila;
Não funcionou!!?? :-)
Help!!!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: domingo, 19 de junho de 2005 15:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
André,
faltou criar um objeto do tipo TStringList.
coloque :
[delphi-br] Driver Epson Lx 300 Windows XP - Papel Personalizado
Pessoal ola a todos, Há tempos atrás postei uma questão sobre papel personalizado no Windows XP, bem em e-mail extra-grupo com ajuda de um amigo da lista, consegui chegar a um grande paradigma, que é o Seguinte: Preciso usar um papel personalizado na Impressora Epson LX-300 no Windows XP Professional e acreditem que essa impressora não tem como configurar o papel personalizado. Eu vou em propriedades do Servidor, defino o Papel que desejo e quando vou definir nas propriedades do dispositivo não mostra meus papeis personalizado, agora pasmem um amigo da lista mostrou que no Windows 2003 isso funciona e em uma versão do Window XP dele também funciona, agora eu to perdido já testeis em pelo menos 4 maquinas diferentes com Windows XP e não aparece o bendito papel, para quem duvida mando as telas que capturei, realmente isso é Incrível, entrei no site da Epson e ela não tem drive disponível para download. Gostaria de salientar que para a Epson LX 300 + Mais o papel personalizado aparece. Será que só eu sofro desse mal? Tem alguém na lista que já teve esse problema? Por favor se alguém puder me ajude. Grato -- 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] indy: Anexos em e-mail
Pessoal como coloco anexo nos e-mails utilizando componentes Indy?? Carvalho -- 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] Visualizar arquivos do AutoCad(.dwg)
Pessoal, Preciso de algum programa free para visualizar arquivos do AutoCad ou fazer isso no Delphi, ou ainda converter dwg para algum formato que seja possível visualizar no Delphi. Qualquer ajuda será bem-vinda. Alisson ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Resp.: Sistema de atualização fa rmácia
Muito obrigado Eduardo , pelo programinha , vai ser muito ultil para mim agora tenho que achar onde eu posso baixar com ele o catalogo de preços ... - Original Message - From: Eduardo Sierra Fernandes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 8:08 AM Subject: [delphi-br] Resp.: Sistema de atualização farmácia Bem simples :-D Utilize os componentes indy para fazer a conexão a um site ou ftp, baixe um arquivo de controle com os novos dados (um txt, planilha, vai do seu gosto) abra esse arquivo e compare os dados que devem ser atualizados... Se quiser, tenho um programinha de atualização automática aqui, porém ele só atualiza arquivos, não atualiza dados em tabelas. Abraços Eduardo Olá, pessoal alguém pode me dar uma dica, eu estou desenvolvendo um sistema de farmácia e ela já esta quase no seu final, mas gostaria de saber se alguém poderia me dar uma dica de como faço para cria uma função de atualização automática de preços via modem ou via radio... Se alguém souber algum assunto me ajudem... Ou se alguém tiver um exemplo ou onde eu encontro material que fale sobre o assunto agradeço desde já... Banco de Dados interbase... ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- 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
