Re: [delphi-br] Rodar sistema em 2 cidades sem colocar online
Com WTS (Windows Terminal Services) win 2000/2003 ou o XP tem isso disponível. A vantagem é que tu não precisa mudar quase nada no teu soft. Um conselho, não use atualizações posteriores, os problemas com chaves sempre aparecem, a não ser que tu tenha os sistemas separados, tipo matriz e filial. Nesse caso seria só fazer um insert do que for novo e um update do que for alterado. - Original Message - From: Andrei Luís [EMAIL PROTECTED] To: Delphi-br delphi-br@yahoogrupos.com.br Sent: Wednesday, November 22, 2006 11:40 PM Subject: [delphi-br] Rodar sistema em 2 cidades sem colocar online Boa noite a todos, Estou com a seguinte necessidade. Um cliente está dividindo o escritório, levando parte do trabalho para uma cidade vizinha, e quer continuar utilizando o sistema nos dois locais, mantendo a base atualizada em ambos, sem uma ligação online. O que ele me pediu é que seja implementado no sistema alguma forma de backup incremental que ele pudesse fazer em ambos os escritórios e enviar para o outro escritório para manter as duas bases atualizadas, mais ou menos assim: Escritório 1Escritório 2 Inclusões, alterações Inclusões, alterações e exclusões em N tabelas e exclusões em N tabelas No final do dia, faz No final do dia, faz backup backup incremental incremental e manda para e manda para escritório 2 escritório 1 atualizar a base atualizar a base Bem, é trata-se de um sistema com 27 tabelas. E se for pra fazer dessa maneira, creio eu que teria que gerar tabelas auxiliares para fazer log em todas as tabelas, e processar isso depois. Sem falar nas FKs que teriam que ser alteradas no momento da atualização ... báh, só de pensar fico de cabelo em pé. Por enquanto está fora de cogitação colocar a base em algum provedor, aí estou a procura de sugestões dos colegas. Até o momento, só desenvolvi sistemas desktop e cliente/servidor. Pensei em duas possibilidades: 1 - Quais as opções que tenho para fazer acesso via internet banda larga, utilizando um dos computadores de um dos escritórios? Levando em consideração que ambos utilizam IP dinâmico. É viável? 2 - Utilizar algum programa de acesso remoto, mas não do tipo que dá acesso a toda a máquina, mas somente ao sistema. Andei pesquisando sobre Terminal Services, mas sinceramente entendi muito bem como funciona e não sei se é isso que preciso. Existe algum VNC da vida que faz isso? Outras infos: - todas as máquinas em questão utilizam Windows XP Pro - o sistema foi desenvolvido em Delphi 4 + IBO + Firebird 1.5 Qualquer idéia será bem vinda. []s Andrei -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.5.430 / Virus Database: 268.14.5/533 - Release Date: 13/11/2006 20:56
Re: [delphi-br] Off-Topicc - Roteador
O vigor 3300 faz isso e muito mais é firewall, vpn, voip, load balance... - Original Message - From: HNS Informática To: Delphi BR Sent: Monday, November 27, 2006 10:59 PM Subject: [delphi-br] Off-Topicc - Roteador Pessoal, ta for a da discussão DA lista, mas preciso saber se alguém conhece algum roteador que de para ligar dois link's ADSL. Possuo duas redes com um link cada um, e estou querendo fazer só uma rede, usando um roteador para ligar as duas ADSL somando a banda, alguém sabe de algum roteador que faça isso no ADSL DA Brasil Telecom? Abraços Charles A. Chiodi HNS Informatica [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ref. Impressão direta em LPT1 com erro
Olá PessoALL, Uma questão similar as que surgiram na lista... Estou tentando imprimir direto na impressora com Assign( Arquivo, LPT1) e estou obtendo uma mensagem de erro Acesso negado ao arquivo e não imprime nada. A situação é a seguinte: Tenho 2 botões. Um que imprime em modo condensado e outro em modo expandido. Ao rodar o 1o. botão imprime normalmente. Ao tentar rodar o 2o. botão, exibe esta mensagem. PS: Quando concluo a impressão no 1o. botão, eu fecho a porta com CloseFile(); Uso em Windows98SE. Tem algum código a mais para ser verificado ? Configuração de windows ? Alguém sabe se tem mais algum detalhe a verificar ? Abço. Omar M. Haddad Analista de Sistemas ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como ler o conteudo de uma Hyperlinkcolumn de um DataGrid
Pessoal: (ja' perguntei em listas especificas de ASP.NET, mas nao consegui nada; peco licenca para apelar a voces): - Nao tenho muita pratica em programacao .NET. - Tenho um sistema em ASP.NET, feito em Delphi 2006.Net - Preciso percorrer as linhas de um DataGrid e ler o valor da primeira coluna - Fiz um laco tipo for i := 0 to (DataGrid1.items.Count -1) para ler cada linha (o Delphi nao possui o for each) - No entanto, ao ler a propriedade DataGrid.Items[i].Cells[0].Text (Cells[0] é a primeira coluna do DataGrid), o texto esta' vazio. - Se eu leio Cells[1].Text ou Cells[2].Text, etc., que sao colunas comuns (BoundColumn) consigo ler os dados. O problema e' que a coluna HyperlinkColumn (ou seja, Cells[0]) está com a propriedade Text vazia. - Sera' que o erro está no modo como eu criei a HyperlinkColumn ou populei o DataGrid ? Grato pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagem no banco
Pessoal estou com dificuldades para gravar uma uma imagem no banco de dados. estou usando firebird, criei um campo BLOB na tabela mas nao consigo salvar a imagem no campo. alguem teria um exemplo para me enviar? desde já obrigado. -- Igor Alexandre. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Imagem no banco
amigo eu uso este esquema aqui e da certinho , inclusive grava no banco como jpg e nao como bmp. segue abaixo procedure TF_CadastroCliente.ExibeFoto; var jpg : TJPEGImage; stm : TMemoryStream; begin Image1.Picture := Nil; if not(IBQ_Cadastro.IsEmpty) then if not((IBQ_Cadastro.FieldByName('FOTO') as TBlobField).IsNull) then try jpg := TJPEGImage.Create; stm := TMemoryStream.Create; (IBQ_Cadastro.FieldByName('FOTO') as TBlobField).SaveToStream(stm); stm.Position := 0; jpg.LoadFromStream(stm); Image1.Picture.Assign(jpg); finally jpg.Free; stm.Free; end; end; procedure TF_CadastroCliente.GravaFoto(stm: TMemoryStream; Acao: byte); begin if (Acao = 1) then begin (IBQ_Cadastro.FieldByName('FOTO') as TBlobField).BlobType := ftTypedBinary; (IBQ_Cadastro.FieldByName('FOTO') as TBlobField).LoadFromStream(stm); end else if (Acao = 0) then begin (IBQ_Cadastro.FieldByName('FOTO') as TBlobField).Clear; Image1.Picture := Nil; end; end; procedure TF_CadastroCliente.ExcluirImagem1Click(Sender: TObject); begin inherited; if (IBQ_Cadastro.State in [dsEdit,dsInsert]) then if not((IBQ_Cadastro.FieldByName('FOTO') as TBlobField).IsNull) then begin Application.CreateForm(TF_ConfirmacaoPadrao,F_ConfirmacaoPadrao); F_ConfirmacaoPadrao.MensagemConfirmacao.Caption := 'Deseja excluir a foto do cliente?'; F_ConfirmacaoPadrao.btnCancela.Enabled := False; F_ConfirmacaoPadrao.ShowModal; F_ConfirmacaoPadrao.Release; if (F_ConfirmacaoPadrao.Tipo_Clicado = 1) then GravaFoto(Nil,0); end; end; procedure TF_CadastroCliente.ExportarFoto1Click(Sender: TObject); var arq : string; jpg : TJPEGImage; stm : TMemoryStream; begin inherited; SavePictureDialog1.FileName := ''; if not((IBQ_Cadastro.FieldByName('FOTO') as TBlobField).IsNull) then if (SavePictureDialog1.Execute) then try arq := SavePictureDialog1.FileName; jpg := TJPEGImage.Create; stm := TMemoryStream.Create; (IBQ_Cadastro.FieldByName('FOTO') as TBlobField).SaveToStream(stm); stm.Position := 0; jpg.LoadFromStream(stm); jpg.SaveToFile(arq); finally jpg.Free; stm.Free; end; end; Eu uso um OpenPictureDialog e um TImage para tal. Banco de Dados FireBird. Espero ter ajudado - Mensagem original De: Igor Alexandre [EMAIL PROTECTED] Para: Delphi-Br delphi-br@yahoogrupos.com.br; Delphi-Total [EMAIL PROTECTED] Enviadas: Terça-feira, 28 de Novembro de 2006 9:02:14 Assunto: [delphi-br] Imagem no banco Pessoal estou com dificuldades para gravar uma uma imagem no banco de dados. estou usando firebird, criei um campo BLOB na tabela mas nao consigo salvar a imagem no campo. alguem teria um exemplo para me enviar? desde já obrigado. -- Igor Alexandre. [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{
Re: [delphi-br] Imagem no banco
vc encontra exemplos e apostilas sobre o assunto bem como codigo fonte e slides em: http://cc.borland.com/Author.aspx?ID=795118 Abração Bruno Lichot Igor Alexandre escreveu: Pessoal estou com dificuldades para gravar uma uma imagem no banco de dados. estou usando firebird, criei um campo BLOB na tabela mas nao consigo salvar a imagem no campo. alguem teria um exemplo para me enviar?
Re: [delphi-br] Off Topic - Delphi 4 Licenca de Uso - Utilizacao comercial.
Sim pode. A revista é a sua licensa! [EMAIL PROTECTED] escreveu: Colegas Eu comprei uma revista que vem com o delphi 4, a um ano, quero saber se posso programar comercialmente utilizando esta LICENCA Obrigado pela atenção. Sou novo na Lista, estou a disposicao dos colegas para quaisquer esclarecimentos/ajudas. Luciano Delphi 4 / BDE / Postgres [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 - Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off-Topicc - Roteador
Procure no Google, existem vários e de quase todas as marcas... Difícil é achar no Brasil, mas existem... Procure por Twin Wan, Double Wan, etc etc... - Original Message - From: HNS Informática To: Delphi BR Sent: Monday, November 27, 2006 10:59 PM Subject: [delphi-br] Off-Topicc - Roteador Pessoal, ta for a da discussão DA lista, mas preciso saber se alguém conhece algum roteador que de para ligar dois link's ADSL. Possuo duas redes com um link cada um, e estou querendo fazer só uma rede, usando um roteador para ligar as duas ADSL somando a banda, alguém sabe de algum roteador que faça isso no ADSL DA Brasil Telecom? Abraços Charles A. Chiodi HNS Informatica [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Erro ao acessar Fire Bird
Pessoal, acho que o problema é que eu não defini no evento GetTablename do DataSetProvider o nome da tabela, porém não estou conseguindo passar via código os parâmetros para o evento GetTableName do Dsp. Segue abaixo a forma como eu tentei fazer: OnGetTableName (Self,sds,'PESSOA'); O erro mostrado é: Constant object cannot be passed as var parameter. Obrigado. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - Humberto (Brazil) Enviada em: domingo, 26 de novembro de 2006 13:32 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro ao acessar Fire Bird Bem, estou tentando acessar o banco de dados somente criando os objetos via código. porém estou tendo alguma dificuldade, pois apesar de parecer estar tudo correto, da o seguinte erro: Missing data provider or data package Segue abaixo a minha procedure: procedure TCliente.ConectarBD; begin //Conectando ao banco de dados. FsdsCliente := TSQLDataSet.Create(FsdsCliente); FcdsCliente := TClientDataSet.Create(FcdsCliente); FdspCliente := TDataSetProvider.Create(FdspCliente); FdsCliente := TDataSource.Create(FdsCliente); FsdsCliente.Datasource := FdsCliente; FsdsCliente.SQLConnection := dm.scsisgel; FsdsCliente.CommandText := 'SELECT * FROM Cliente ' + 'WHERE fl_ativo = 1'; FdspCliente.DataSet := FsdsCliente; FcdsCliente.ProviderName := 'FdspCliente'; FdsCliente.DataSet := FcdsCliente; FsdsCliente.Active := True; FcdsCliente.Active := True; FcdsCliente.Close; FcdsCliente.Open; FcdsCliente.First; // end; Alguém ai pode me ajudar? Thks. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com formatação de float
Colegas.. estou com o seguinte problema: Em um DBEDIT é digitado um valor do tipo Float, se o usuário digitar normalmente.. o problema não ocorre, agora se por acaso o usuário apagar a vírgula (que o próprio DBEDIT coloca) do número, ocorre o seguinte erro: is not valid float point value for field NFIPESO Alguém sabe como resolver isso? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Main Menu dinamico
Bem. em x de criar em tempo de execução, pq não cria em tempo de projeto deixando o mesmo com Visivle = false e qnd precisar exibir o mesmo deixe Visible = True ? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wildner B. Ferreira Enviada em: segunda-feira, 27 de novembro de 2006 15:47 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Main Menu dinamico Ola pessoal, Estou precisando de uma ajuda de vocês, pois estou tentando acrescenta um novo item a um Mainmenu em tempo de execução mas estou com uma dificuldade, pois estou conseguindo acrescenta normalmente o menu em tempo de execução , so que não estou sabendo como fazer para estar definindo qual a função que será executada quando o usuário clicar no menu. Segue abaixo o cogigo que estamos utilizando para criar o menu. procedure Menuextra; var NewItem: TMenuItem; begin // Ler o itens que fazerao parte do menu dm_dados.Q_ConExterna.close; dm_dados.q_conExterna.Open; frm_principal.ConexesExternas1.Clear; While Not dm_dados.Q_ConExterna.Eof do begin // Cria o item do Menu e depois inclui o mesmo // NewItem := TMenuItem.Create(Frm_Principal); NewItem.Caption := dm_dados.Q_ConExterna['Descricao']; frm_principal.ConexesExternas1.Add(NewItem); dm_dados.Q_ConExterna.Next; end; end; Conto com ajuda dos experts no assunto. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Eu também já fui defensor de desenvolvimento sem componentes DbWare. Mas, como diria Raulzito, Prefiro ser essa metamorfose ambulante Agora que estou começando a desenvolver usando ClientDataset estou mudando de opinião. O que eu acho chato são alguns erros que são um pouco mais difíceis de achar, como por exemplo, erros ocasionado pela chamada de certos eventos. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] form´s transparentes ou SKINS ??
Tente procurar no google sobre forms redondos ou com bordas arredondadas.. =D De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz Escobar Enviada em: segunda-feira, 27 de novembro de 2006 19:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] form´s transparentes ou SKINS ?? Olá ALLgente, Uso delphi 7 estou desenvolvento um aplicativo que gostaria de ter uma cara diferente... então coloquei um Timage de fundo com uma imagem e tornei o form transparent, bom legal... mas nessa transparente as bordas arredondados não ficaram perfeitas, é a primeira vez que estou tentando usar isso, não sei se é a melhor forma, se parto para skins, alguem poderia me dar umas dicas sobre o assunto ? Obrigado! Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Morreu?
Esse grupo, diminuiu suas mensagens drasticamente, o que está acontecendo? Alguém sabe? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como chamar uma funcao para criar o evento AfterPost
Pessoal, Crio alguns componentes TIBquery em tempo de execucao. No momento da criação desses componentes, preciso colocar a ação ApplyUpdates no evento AfterPost de cada componente TIBQuery criado. Nao estou conseguindo chamar a rotina corretamente. Estou fazendo dessa forma: Tenho a variavel publica ao form da seguinte forma: Query : TIBQuery; Na cricao do componente TIBQuery, tenho a seguinte linha: Query.AfterPost := DoOnAfterPost; Tenho a funcao DoOnAfterPost: procedure TdmTabelas.DoOnAfterPost(DataSet : TDataSet); begin Query.ApplyUpdates(0); end; Isto nao funciona. Como faco essa chamada ao evento AfterPost e a outros eventos através de procedures ou funcoes. Obrigado Tavares Tudo que nos acontece nos favorece se a gente não se aborrece e agradece. (Frei Pascoal)
Re: [delphi-br] Problema com formatação de float
Como você está formatando este campo? []s Em 27/11/06, Moked - Humberto (Brazil) [EMAIL PROTECTED] escreveu: Colegas.. estou com o seguinte problema: Em um DBEDIT é digitado um valor do tipo Float, se o usuário digitar normalmente.. o problema não ocorre, agora se por acaso o usuário apagar a vírgula (que o próprio DBEDIT coloca) do número, ocorre o seguinte erro: is not valid float point value for field NFIPESO Alguém sabe como resolver isso? Obrigado. [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Oportunidade de emprego - Maringá-PR
Programador Delphi COM EXPERIÊNCIA em: - Firebird/Interbase - Linux - Windows - Modelagem de Dados Enviar curriculum com referências/pretensão salarial para [EMAIL PROTECTED] PS: Maringá é uma cidade de médio porte (3.a maior do Paraná) e fica no Norte do Paraná a 430 Km de Curitiba.
RES: [delphi-br] Morreu?
Luciano Estava reparando isto tb. Não sei o resto do pessoal...mas quanto mais para os extremos do ano...mais trabalho...e menos tempo pra ver emails..rss Derrepente o pessoal começou a usar mais o google... Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Luciano Alves de Oliveira Enviada em: terça-feira, 28 de novembro de 2006 04:39 Para: Delphi Assunto: [delphi-br] Morreu? Esse grupo, diminuiu suas mensagens drasticamente, o que está acontecendo? Alguém sabe? [As partes desta mensagem que não continham texto foram removidas] ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com
[delphi-br] Problemas no SQL
Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off-Topicc - Roteador
DLink DFL-800 FIREWALL. Comprei a uma semana e ainda to configurando.hehehehe 2-WAN 1-DMZ 4-LAN... - Segue mensagem original! - De: Henrique Netzka \(Vetor Sistemas\) [EMAIL PROTECTED] Data: Tue, 28 Nov 2006 10:33:23 -0200 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off-Topicc - Roteador Procure no Google, existem vários e de quase todas as marcas... Difícil é achar no Brasil, mas existem... Procure por Twin Wan, Double Wan, etc etc... - Original Message - From: HNS Informática To: Delphi BR Sent: Monday, November 27, 2006 10:59 PM Subject: [delphi-br] Off-Topicc - Roteador Pessoal, ta for a da discussão DA lista, mas preciso saber se alguém conhece algum roteador que de para ligar dois link's ADSL. Possuo duas redes com um link cada um, e estou querendo fazer só uma rede, usando um roteador para ligar as duas ADSL somando a banda, alguém sabe de algum roteador que faça isso no ADSL DA Brasil Telecom? Abraços Charles A. Chiodi HNS Informatica [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Algoritmos Geneticos
Olá pessoal estou desenvolvendo um AG (algoritimo genetico), bom meu problema se resume em em quebrar uma string num ponto aleatorio, onde por exemplo tenha duas string com max 10 caracteres e queira cortar elas ao meio. ex: strings inicial corte aleatorio [5]string final str1 := 0101010101 str1 := 01010 | 10101str1 = 01010 + 01010 str2 := 1010101010 str2 := 10101 | 01010str2 = 10101 + 10101 no mais, grato =/ - Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OT] Código em VB para Delphi, alguém consegue?
Olá amigos, estou tentando ainda criar o algorítimo de Floyd para o problema do menor caminho, e consegui um arquivo feito em VB, porém não sei nada de VB, alguém que saiba poderia traduzir para delphi? Desde já agradeço a todos Segue o Module: Attribute VB_Name = Module1 Public dist() As Single 'Array bidimensional para armazenar a matriz de distancia Public adj() As Integer 'Array bidimensional para armazenar a matriz de adjacencia Public adjprod() As Integer 'Array bidimensional para armazenar a matriz de caminhos Public num_vert As Integer'Numero de vertices do grafo Public i, j As Integer 'indices para as matrizes Public allcells As String Public Fnum, num_linhas As Integer Public TxtBoxGotFocus As Boolean 'flag para controlar o foco na apresentação de FormDados Public Shortest() As Single 'Array bidimensional para armazenar as distancias calculadas 'pelo algoritmo de Floyd Public Caminho As String 'String para armazenar o caminho Public para() As Single 'Array para armazenar o caminho temporario de um vertice i ate um 'vertice j Public lim_inferior As Integer Public lim_superior As Integer 'Funcao para determinar a existencia de caminho entre os vertices do grafo 'Não foi necessária neste contexto Function Determina_Caminho(n As Integer) As Integer Dim k As Integer 'Redimensionamento da matriz de adjacencia ReDim adjprod(n, n) 'Inicialização das matrizes For i = 1 To n For j = 1 To n adjprod(i, j) = adj(i, j) Next j Next i 'Multiplicação boolena For k = 1 To n For i = 1 To n For j = 1 To n adjprod(i, j) = adjprod(i, j) Or (adjprod(i, k) And adjprod(k, j)) Next j Next i Next k End Function 'Sub-rotina para inicialização da matriz de distancia Sub init_mtDistancia(n As Integer) 'Redimensionamento da matriz de distancia ReDim dist(n, n) For i = 1 To n For j = 1 To n dist(i, j) = 3.402823E+38 Next j Next i End Sub 'Sub-rotina para inicialização da matriz de adjacencia 'Sub init_mtAdjacencia(n As Integer) 'Redimensionamento da matriz de adjacencia ' ReDim adj(n, n) ' For i = 1 To n 'For j = 1 To n ' adj(i, j) = 0 ' Next j ' Next i 'End Sub 'Sub-rotina para desalocação de memória Sub destrutor() Erase dist Erase adj End Sub 'Sub-rotina para acrescimo de um arco. Sub Add_Arco(d As Single, nodo_1 As Integer, nodo_2 As Integer) 'Ao ser acrescentado um arco, sera atribuido o valor 1 na matriz de adjacencia 'para indicar que existe um caminho entre os dois arcos e o valor deste arco na 'matriz de distancias 'adj(nodo_1, nodo_2) = 1 'nao foi necessaria neste contexto dist(nodo_1, nodo_2) = d End Sub 'Sub-rotina para remocao de um arco Sub Rem_Arco(nodo_1 As Integer, nodo_2 As Integer) 'Ao ser removido... 'adj(nodo_1, nodo_2) = 0 dist(nodo_1, nodo_2) = 3.402823E+38 'flag para distancia infinita End Sub 'Funcao para determinar o menor caminho pelo algoritmo de Floyd Function Floyd(n As Integer) As Single Dim u, v, w As Integer Dim changed As Integer 'array bidimensional auxiliar changed = 1 Max = num_vert ReDim Shortest(n, n) ReDim para(n, n) For v = 1 To n For w = 1 To n Shortest(v, w) = dist(v, w) para(v, w) = w Next w Next v While changed 'Testa o valor de changed changed = 0 For u = 1 To n For v = 1 To n For w = 1 To n If Shortest(v, u) + Shortest(u, w) Shortest(v, w) Then Shortest(v, w) = Shortest(v, u) + Shortest(u, w) para(v, w) = para(v, u) changed = 1 End If Next w Next v Next u Wend End Function 'Funcao para imprimir a rota Function print_shortest(a As Integer, b As Integer) As String Dim rota As String Dim aux As String While a b rota = - + CStr(para(a, b)) aux = aux + rota a = para(a, b) Wend print_shortest = aux End Function -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Problemas no SQL
Boa tarde Régis! Acho que com esta pequena alteração tudo vai funcionar: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); Na verdade eu retirei as aspas simples do texto. Outra dica é a seguinte. Existe uma função no Delphi que coloca automaticamente aspas no texto pra vc então o comando acima poderia ficar até um pouco mais legível se inserido assim: dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) + ' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + ')'); Quanto às datas não testei, mas li em algum lugar que não faz diferença pois o banco consegue se orientar (como eu não sei...). Abraço, Ricardo. - Mensagem original De: Régis Júlio Bender [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17 Assunto: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] com.br [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WaveIn e WaveOut
Boa tarde, Estou procurando por exemplo ou alguma documentação relacionada ao WaveIn e WaveOut. Algúem da lista tem alguma coisa?? Grato, Ilton
RES: [delphi-br] Problemas no SQL
Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); Corrigida dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ') and (contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis Júlio Bender Enviada em: terça-feira, 28 de novembro de 2006 09:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas no SQL
Régis, Você está esquecendo de fechar um dos parenteses. Você não mencionou o banco que está usando, mas pelo comportamento da data que você falou deve ser Firebird. O Firebird trata as datas que forem passadas com o separador /, no formato mm/dd/. Se usar . como separador, aí sim será utilizado o formato dd.mm. Você tem duas alternativas para resolver isso: - formatar utilizando as funções do Delphi, vide funções da unit SysUtils (FormatDateTime, ...) - parametrizar sua consulta: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = :wdataInicial) and (contas_a_pagar.datalancamento = :wdataFinal))'); dmDados.ibqConsultaContasAPagar.ParamByName('wdataInicial').asDate := date -30; dmDados.ibqConsultaContasAPagar.ParamByName('wdataFinal').asDate := date; Assim seu SQL fica mais legível. [] Andrei Em 28/11/06, Régis Júlio Bender[EMAIL PROTECTED] escreveu: Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED]
Re: [delphi-br] WaveIn e WaveOut
Talvez eu possa te ajudar, o que vc quer/precisa saber realmente sobre isso ai, e o que vc quer fazer com isso ai ?? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Ilton Vieira Junior To: delphi-br Sent: Tuesday, November 28, 2006 2:06 PM Subject: [delphi-br] WaveIn e WaveOut Boa tarde, Estou procurando por exemplo ou alguma documentação relacionada ao WaveIn e WaveOut. Algúem da lista tem alguma coisa?? Grato, Ilton [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] (unknown)
PessoALL Este valor de porta (lpt1) deve ser minúsculo. No meu sistema este valor vem de um campo do arquivo que é configurável pelo usuário(qual porta quer imprimir). Porisso me exepressei assim com aspas duplas. Alguém sabe se tem mais algum detalhe a verificar ? Att. Omar ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas no SQL
Vc está comparando as duas datas como = pelo q vc passou. =/ Recomendo utilizar BETWEEN em comparação de intervalos. Seu select ficaria: SELECT A.* FROM CONTAS_A_PAGAR A WHERE A.DATALANCAMENTO BETWEEN 'SUA_DATA_INICIAL' AND 'SUA_DATA_FINAL' ORDER BY A.DATALANCAMENTO []'s Eric D. - Desenvolvimento e Soluções de Tecnologia Talk is cheap, show me the code... - Original Message - From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 28, 2006 11:31 AM Subject: RES: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); Corrigida dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ') and (contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis Júlio Bender Enviada em: terça-feira, 28 de novembro de 2006 09:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] WaveIn e WaveOut
Boa tarde Escobar, O meu objetivo é aprender utilizar o WaveIn em especial, para capturar audio da placa de som, pelo microfone ou Entrada Auxiliar e armazenar o mesmo no HD ou manter em memória e jogar pela saída de som. Ainda, pretendo aprender como detectar se realmente existe um audio entrando pela placa de som. No caso gravo se tiver som, se for silêncio, o conteúdo é descartado. E particularmente falando, não gostaria de fazer com componentes prontos, e sim aprender como a coisa toda funciona. Pretendo após isso, transformar o Wave em MP3. Obrigado, Ilton Talvez eu possa te ajudar, o que vc quer/precisa saber realmente sobre isso ai, e o que vc quer fazer com isso ai ?? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br
Re: [delphi-br] Problemas no SQL
Obrigado Andrei, vou ver o que eu consigo fazer. abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 28, 2006 4:56 PM Subject: Re: [delphi-br] Problemas no SQL Régis, Você está esquecendo de fechar um dos parenteses. Você não mencionou o banco que está usando, mas pelo comportamento da data que você falou deve ser Firebird. O Firebird trata as datas que forem passadas com o separador /, no formato mm/dd/. Se usar . como separador, aí sim será utilizado o formato dd.mm. Você tem duas alternativas para resolver isso: - formatar utilizando as funções do Delphi, vide funções da unit SysUtils (FormatDateTime, ...) - parametrizar sua consulta: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = :wdataInicial) and (contas_a_pagar.datalancamento = :wdataFinal))'); dmDados.ibqConsultaContasAPagar.ParamByName('wdataInicial').asDate := date -30; dmDados.ibqConsultaContasAPagar.ParamByName('wdataFinal').asDate := date; Assim seu SQL fica mais legível. [] Andrei Em 28/11/06, Régis Júlio Bender[EMAIL PROTECTED] escreveu: Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 27/11/2006 / Versão: 4.4.00/4905 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] WaveIn e WaveOut
Amigo... Particularmente eu recomendaria a você a AudioLAB, uma suíte de componentes para processamento de Audio, mas como vc quer aprender no braço, um ponto de partida pode estar neste link: http://www.swissdelphicenter.ch/torry/showcode.php?id=132 Abraço, Ricardo. - Mensagem original De: Ilton Vieira Junior [EMAIL PROTECTED] Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 28 de Novembro de 2006 15:40:35 Assunto: Re: [delphi-br] WaveIn e WaveOut Boa tarde Escobar, O meu objetivo é aprender utilizar o WaveIn em especial, para capturar audio da placa de som, pelo microfone ou Entrada Auxiliar e armazenar o mesmo no HD ou manter em memória e jogar pela saída de som. Ainda, pretendo aprender como detectar se realmente existe um audio entrando pela placa de som. No caso gravo se tiver som, se for silêncio, o conteúdo é descartado. E particularmente falando, não gostaria de fazer com componentes prontos, e sim aprender como a coisa toda funciona. Pretendo após isso, transformar o Wave em MP3. Obrigado, Ilton Talvez eu possa te ajudar, o que vc quer/precisa saber realmente sobre isso ai, e o que vc quer fazer com isso ai ?? Luiz Escobar Analista/Desenvolve dor: WEB - HTML/JavaScript/ PHP/MySQL WINDOWS - Delphi/MyDAC/ ASSEMBLER/ MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/ MySQL; http://www.megasist ema.com.br !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Pedindo Conselhos aos Amigos
soap e BSS irão bem, o BSS é mais rapido q o SOAP e se apliva mto bem a esta situação Abraços Bruno Lichot anderson escreveu: Que tal WebServices, tão conta do recado ... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Guaranta Almeida Enviada em: segunda-feira, 13 de novembro de 2006 14:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pedindo Conselhos aos Amigos Galera boa Tarde.. O que seria mais indicado pra mim nessa situação ... Quero fazer o download de dados gerados em por um e-commerce (podendo estes serem XML, TXT ou ateh direito em um banco) .. que provavelmente ficara em um servidor Web ( e naum aqui na empresa) .. tava pensando em Socket Server ou SOAP se eu fosse usar Banco, mas se naum existir essa opção estou a procura de uma boa solução para isso... Alguem pode me ajudar .. dar alguma dica ... documentação ... indicar um bom pai-de-santo .. []'s Guarantã Almeida. - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1864 (20061113) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- -- []´s Bruno Lichot
Re: [delphi-br] Erro ao acessar Fire Bird
Faça assim: procedure blablabla; var VPar : String; begin VPar := 'PESSOA'; OnGetTableName( SELF, sds, VPar ) end; Vitor Luiz Redes Analista de Sistemas Redsystem Software / Bureau Software Messenger: [EMAIL PROTECTED] Phone: 3379-6939 Cel. Phone: 9677-8445 - Original Message - From: Moked - Humberto (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Monday, November 27, 2006 1:28 PM Subject: RES: [delphi-br] Erro ao acessar Fire Bird Pessoal, acho que o problema é que eu não defini no evento GetTablename do DataSetProvider o nome da tabela, porém não estou conseguindo passar via código os parâmetros para o evento GetTableName do Dsp. Segue abaixo a forma como eu tentei fazer: OnGetTableName (Self,sds,'PESSOA'); O erro mostrado é: Constant object cannot be passed as var parameter. Obrigado. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - Humberto (Brazil) Enviada em: domingo, 26 de novembro de 2006 13:32 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro ao acessar Fire Bird Bem, estou tentando acessar o banco de dados somente criando os objetos via código. porém estou tendo alguma dificuldade, pois apesar de parecer estar tudo correto, da o seguinte erro: Missing data provider or data package Segue abaixo a minha procedure: procedure TCliente.ConectarBD; begin //Conectando ao banco de dados. FsdsCliente := TSQLDataSet.Create(FsdsCliente); FcdsCliente := TClientDataSet.Create(FcdsCliente); FdspCliente := TDataSetProvider.Create(FdspCliente); FdsCliente := TDataSource.Create(FdsCliente); FsdsCliente.Datasource := FdsCliente; FsdsCliente.SQLConnection := dm.scsisgel; FsdsCliente.CommandText := 'SELECT * FROM Cliente ' + 'WHERE fl_ativo = 1'; FdspCliente.DataSet := FsdsCliente; FcdsCliente.ProviderName := 'FdspCliente'; FdsCliente.DataSet := FcdsCliente; FsdsCliente.Active := True; FcdsCliente.Active := True; FcdsCliente.Close; FcdsCliente.Open; FcdsCliente.First; // end; Alguém ai pode me ajudar? Thks. [As partes desta mensagem que não continham texto foram removidas] -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.409 / Virus Database: 268.14.0/524 - Release Date: 8/11/2006 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Usar ou não usar DBWa res? Eis a questão!
Eu não sou a favor do uso de DBWares, pois creio que o programador tem q ter completo controle dos dados que estão sendo enviados ao banco ou trazidos dele. Com DBWares vc fica restrito, não me sinto seguro de deixar esse tipo de transação nas mãos dos DBWares. Mas cada um com a sua. \o/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Yahoo Enviada em: terça-feira, 28 de novembro de 2006 11:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Eu também já fui defensor de desenvolvimento sem componentes DbWare. Mas, como diria Raulzito, Prefiro ser essa metamorfose ambulante Agora que estou começando a desenvolver usando ClientDataset estou mudando de opinião. O que eu acho chato são alguns erros que são um pouco mais difíceis de achar, como por exemplo, erros ocasionado pela chamada de certos eventos. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF-TOPIC Oracle 10g XE - BDE nao Conecta
All, Instalei recentemente o Oracle 10G XE (versão gratuita do Oracle) em minha casa. Instalei o Oracle / Client, criei um novo usuário e tabelas para este usuário. Abri o BDE e criei um ALIAS para este usuário e consegui abrir este alias. Quando reiniciei minha maquina não consegui mais abrir este ALIAS, pois da uma mensagem ORA-03114 Oracle não Conectado. Procurei algum material na NET sobre este problema ORACLE X BDE, mas não encontrei nada. Algum dos colegas passou por este problema e poderia me dar uma luz para que possa solucionar este problema ? Agradeço antecipadamente. Augustus [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SocketConnection só exporta providers no localhost
Pessoal, Fiz uma aplicação com TRemoteDataModule no servidor e TSocketConnection para acesso no cliente. Quando coloco 'localhost' na propriedade Host do SocketConnection funciona normalmente. Se eu tentar fazer acesso remoto conecta, mas não mostra os providers nos ClientDatasets. O que está faltando? Tenho que copiar algum arquivo para a máquina que será o servidor? [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Problemas no SQL
No caso DA data eu resolvi assim +QuotedStr(FormatDateTime('dd.mm.',aDataQueVoceQuer.Date))+ Abraços! --- Atenciosamente, André de Araujo Garcia - [DESENVOLVIMENTO] PontoSOFT - Sistemas Comerciais Ltda Tel. +55 67 3272 4039 - +55 67 8126 3660 msn: [EMAIL PROTECTED] / skype andrenainternet ---Mensagem original--- De: Ricardo Cesar Cardoso Data: 28/11/2006 14:14:41 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Problemas no SQL Boa tarde Régis! Acho que com esta pequena alteração tudo vai funcionar: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal text + chr(39) + ')'); Na verdade eu retirei as aspas simples do texto. Outra dica é a seguinte. Existe uma função no Delphi que coloca automaticamente aspas no texto pra vc então o comando acima poderia ficar até um pouco mais legível se inserido assim: dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) + ' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + )'); Quanto às datas não testei, mas li em algum lugar que não faz diferença pois o banco consegue se orientar (como eu não sei...). Abraço, Ricardo. - Mensagem original De: Régis Júlio Bender [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17 Assunto: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] com.br [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;}
Re: [delphi-br] WaveIn e WaveOut
Bom já que vc quer na mão... um dos melhores lugares é o help do próprio DELPHI... que tem tudo sobre todos os componentes, MAS não encina como procure no google sobre delphi msacm delphi acm delphi wavein delphi waveout delphi wav to mp3 no site da microsoft... http://msdn.microsoft.com/library/default.asp?url=/library/en-us/Audio_d/hh/Audio_d/aud-design_21ab0cf3-f7a7-4f6f-93db-a4b7e9eef24f.xml.asp Agora se prepara porque é coisa pra XUXU... vai levar um bom tempo programando até ter algo com windows XP diminui muito a parte de REBOOT por travamento... hehehhe Alem do que te falei pra procurar no google em DELPHI o que vc achar em C# ou C++, vc também pode pegar pra dar umas estudadas vai te ajudar muito... HOJE tem MUITA documentação sobre o assunto... Agora se vc especificar um pouco mais pra que vc quer fazer isso ? tipo VoIP, gravar musica, gravar radio, gravar sei-la-o-que, vai facilitar... Qualquer coisa pergunta ai... DICAS : CUIDADO com memory-leak procure sobre droopyeyes http://www.droopyeyes.com/ componente completo e FREE... https://secure.codeproject.com/cs/media/ - exemplos bem basicos... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Ilton Vieira Junior To: delphi-br Sent: Tuesday, November 28, 2006 3:40 PM Subject: Re: [delphi-br] WaveIn e WaveOut Boa tarde Escobar, O meu objetivo é aprender utilizar o WaveIn em especial, para capturar audio da placa de som, pelo microfone ou Entrada Auxiliar e armazenar o mesmo no HD ou manter em memória e jogar pela saída de som. Ainda, pretendo aprender como detectar se realmente existe um audio entrando pela placa de som. No caso gravo se tiver som, se for silêncio, o conteúdo é descartado. E particularmente falando, não gostaria de fazer com componentes prontos, e sim aprender como a coisa toda funciona. Pretendo após isso, transformar o Wave em MP3. Obrigado, Ilton Talvez eu possa te ajudar, o que vc quer/precisa saber realmente sobre isso ai, e o que vc quer fazer com isso ai ?? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SocketConnection só exporta providers no localhost
vc pode estar sendo bloqueado por algum firewal, na estação servidora, o seu BSS tem q estar rodando com a porta configurada e um ip fixo, na pasta system32 geralmente tem q ter o client do banco de dados, o driver da midlleware q vc usa(dbexpint.dll se for dbexpress co interbase por exemplo) e se vc não compilou no seu servidor, tem q ter o midas.dll pode ser q o nome do seu servidor esteja errado, ou conectando ao servidor errado ou a classe errada. Na minha página de downloads esta cheia de exemplos, codigo fontes e slides: http://cc.borland.com/Author.aspx?ID=795118 lembrando que tb temos uma lista especifica somente deste assunto, que so tem fera e mta coisa boa no historico para se pesquisar. no mais estou as ordens Abração Bruno Lichot Alisson Yahoo escreveu: Pessoal, Fiz uma aplicação com TRemoteDataModule no servidor e TSocketConnection para acesso no cliente. Quando coloco 'localhost' na propriedade Host do SocketConnection funciona normalmente. Se eu tentar fazer acesso remoto conecta, mas não mostra os providers nos ClientDatasets. O que está faltando? Tenho que copiar algum arquivo para a máquina que será o servidor? [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1888 (20061128) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- -- []´s Bruno Lichot
Re: [delphi-br] Problemas no SQL
Boa tarde Ricardo, obrigado pela ajuda, mas eu tentei digitar a data 30/11/2006 e dá um erro no sql e se eu digitar 11/30/2006 ele funciona perfeitamente. Mas eu vou tentar essa dica que voc~e falou, qualquer coisa eu retorno. hehehe abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] - Original Message - From: Ricardo Cesar Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 28, 2006 3:38 PM Subject: Res: [delphi-br] Problemas no SQL Boa tarde Régis! Acho que com esta pequena alteração tudo vai funcionar: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); Na verdade eu retirei as aspas simples do texto. Outra dica é a seguinte. Existe uma função no Delphi que coloca automaticamente aspas no texto pra vc então o comando acima poderia ficar até um pouco mais legível se inserido assim: dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) + ' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + ')'); Quanto às datas não testei, mas li em algum lugar que não faz diferença pois o banco consegue se orientar (como eu não sei...). Abraço, Ricardo. - Mensagem original De: Régis Júlio Bender [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17 Assunto: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] com.br [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee;
RES: [delphi-br] Problemas no SQL
vc pode usar tb o between... Select * from tabela where data between 'mm/dd/' and 'mm/dd/' Lembre que na pesquisa SQL é sempre no formato acima para evitar qualquer incompatibilidade ou erro. []'s _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis Júlio Bender Enviada em: terça-feira, 28 de novembro de 2006 11:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas no SQL Boa tarde Ricardo, obrigado pela ajuda, mas eu tentei digitar a data 30/11/2006 e dá um erro no sql e se eu digitar 11/30/2006 ele funciona perfeitamente. Mas eu vou tentar essa dica que voc~e falou, qualquer coisa eu retorno. hehehe abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br - Original Message - From: Ricardo Cesar Cardoso To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, November 28, 2006 3:38 PM Subject: Res: [delphi-br] Problemas no SQL Boa tarde Régis! Acho que com esta pequena alteração tudo vai funcionar: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); Na verdade eu retirei as aspas simples do texto. Outra dica é a seguinte. Existe uma função no Delphi que coloca automaticamente aspas no texto pra vc então o comando acima poderia ficar até um pouco mais legível se inserido assim: dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) + ' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + ')'); Quanto às datas não testei, mas li em algum lugar que não faz diferença pois o banco consegue se orientar (como eu não sei...). Abraço, Ricardo. - Mensagem original De: Régis Júlio Bender [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17 Assunto: [delphi-br] Problemas no SQL Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse: se eu fizer essa pesquisa: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + chr(39) + ')'); no delphi ele esta dando esse erro: [Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand type Se eu colocar esse: dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + ')' ); fica certo não estou conseguindo implementar o AND para fazer a pesquisa entre duas datas. outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa como mm/dd/ Como eu faço para converter? Alguém pode me ajudar? desde já, agradeço. Abraço sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] com.br [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee;
[delphi-br] Mudar DisplayLabel do SimpleDataSet em tempo de execuç ão
Bom dia Pessoal Estou fazendo uma busca em tempo de execução e uso o componete SimpleDataSet. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mudar DisplayLabel do SimpleDataSet em tempo de execuç ão
Bom dia Pessoal Estou fazendo uma busca em tempo de execução e uso o componete SimpleDataSet. Alguem sabe com posso mudar a propriedade DisplayLabel em tempo de execução , para que na hora em que o cliente realize a pesquisa os fields apareçam no Grid com o nome certo. Desde de ja agradeço a atenção ... Danilo Molina [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Mudar DisplayLabel do Simp leDataSet em tempo de execução
Ora, simples! SeuSimpleDataSet.FieldByName('nome_do_campo').DisplayLabel := 'Rótulo do seu campo'; Sds. From: Danilo Molina - Grupo B Aplicativos [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Mudar DisplayLabel do SimpleDataSet em tempo de execução Date: Tue, 28 Nov 2006 23:29:03 -0300 Bom dia Pessoal Estou fazendo uma busca em tempo de execução e uso o componete SimpleDataSet. Alguem sabe com posso mudar a propriedade DisplayLabel em tempo de execução , para que na hora em que o cliente realize a pesquisa os fields apareçam no Grid com o nome certo. Desde de ja agradeço a atenção ... Danilo Molina [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
[delphi-br] dbedit + mascara
olá pessoal , to com um problema, tenho uma tela de cadastro de funcionario, na qual o cpfé a chave primaria, eu tive q mudar o tipo dela pra float, agora gostaria de saber como q faço pra colocar mascara, no cpf, ja q la no cliente data set esta opção nao funciona, acho q é por causa do tipo float ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/
Re: [delphi-br] Arredondar 1,2999 para 1,29
Caramba 84 msgs para uma coisa tão banal... é só pegar o trunc do valor * 100 e dividir novamente por 100. - Original Message - From: Marcelo Hoepfner (SI) [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 21, 2006 10:38 AM Subject: RES: [delphi-br] Arredondar 1,2999 para 1,29 Acho que a lista não é um lugar de brincadeira e sim um local onde procuramos rosolução para nossos problemas, embora as vezes muitas das respostas não sejam das melhores para resolução imediata elas podem ajudar ate que se consiga uma forma melhor. Não sei se vc recebeu um termo do grupo dizendo que o grupo é para troca de conhecimento, simplesmente passei uma função se você não gostou dela simplesmente deleta o email, agora responder o email com uma baboseira dessa. Me desculpe mais tenho mais o que fazer _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Henrique Netzka (Vetor Sistemas) Enviada em: terça-feira, 21 de novembro de 2006 08:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Arredondar 1,2999 para 1,29 Você tá brincando, né?! - Original Message - From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, November 20, 2006 9:47 PM Subject: ENC: [delphi-br] Arredondar 1,2999 para 1,29 function TruncaSemArredondar(Valor:string;Quant:integer):String; // Marcelo Hoepfner var I,ponto:integer; aux: string; begin aux := Valor; ponto := pos(',',valor); if ponto = 0 then ponto := pos('.',valor); ponto:= ponto+1; aux:= Copy(aux,0,Length(valor)-ponto); aux:= aux+ Copy(valor,ponto,Quant); result := aux; end; AI ESSA FUNÇÃO RESOLVE TEU PROBLEMA Marcelo Hoepfner [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.5.430 / Virus Database: 268.14.5/533 - Release Date: 13/11/2006 20:56
RE: [delphi-br] dbedit + mascara
Tem que ser string, meu caro. Tem que mudar o tipo do campo na tabela para VARCHAR(11) ou CHAR(11). Num tem jeito. Sds. From: Fernando César [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] dbedit + mascara Date: Tue, 28 Nov 2006 23:59:05 -0200 olá pessoal , to com um problema, tenho uma tela de cadastro de funcionario, na qual o cpfé a chave primaria, eu tive q mudar o tipo dela pra float, agora gostaria de saber como q faço pra colocar mascara, no cpf, ja q la no cliente data set esta opção nao funciona, acho q é por causa do tipo float ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Então vc não usa TTable, TQuery, DBExpress, IBTable, IBQuery, etc... etc... faz tudo na mão ??? Também sou da seita que o programador tem que ter completo controle dos dados, mas dai programar em ASSEMBLY PURO hehehehe to fora... Só não uso DBWares em casos EXTREMOS, e fico puto porque não encontrei um meio de fazer usando DBWARES. Eu já acho que o DBWare da muito mais produtividade, não te deixa restrito na maioria dos casos.. Acho um loucura construir um DBGRID sendo que ele esta pronto. Luiz Escobar - Segue mensagem original! - De: Moked - Humberto \(Brazil\) [EMAIL PROTECTED] Data: Tue, 28 Nov 2006 11:04:43 -0200 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Eu não sou a favor do uso de DBWares, pois creio que o programador tem q ter completo controle dos dados que estão sendo enviados ao banco ou trazidos dele. Com DBWares vc fica restrito, não me sinto seguro de deixar esse tipo de transação nas mãos dos DBWares. Mas cada um com a sua. \o/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Yahoo Enviada em: terça-feira, 28 de novembro de 2006 11:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Eu também já fui defensor de desenvolvimento sem componentes DbWare. Mas, como diria Raulzito, Prefiro ser essa metamorfose ambulante Agora que estou começando a desenvolver usando ClientDataset estou mudando de opinião. O que eu acho chato são alguns erros que são um pouco mais difíceis de achar, como por exemplo, erros ocasionado pela chamada de certos eventos. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]