RES: [delphi-br] Trabalhando com um intervalo de datas
Bom dia Walter
Uso este comando no SQL Server para verificar se um determinado horário esta
entre dois horários no caso Data + Hora
SELECT * FROM Calendário WHERE DATA_INICIO = :DATA_INICIO AND DATA_FIM =
:DATA_FIM
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 23 de março de 2005 18:56
Assunto: [delphi-br] Trabalhando com um intervalo de datas
Pessoal, pode parecer uma dúvida primária, mas eu preciso saber como ver se
uma determinada data está contida em um intervalo entre duas datas (o
intervalo consistiria da Data inicial e fosse até a data final). Vejam
abaixo como estou fazendo:
Result := (qryAfastado.Eof) or (dDataInicio in
[qryAfastado.FieldByName('DATAFINAL').AsDateTime,
qryAfastado.FieldByName('DATAINICIO').AsDateTime]) then
Mas não está funcionando. O compilador diz que tem que ser um array de tipo
ordinal.
O que eu quero é, por exemplo, que lançada uma data no sistema: 23/03/2005,
o sistema verifique se ela estaria contida em um intervalo que iria do dia
15/03/2005 até o dia 15/04/2005
Alguém teria uma dica para isto (Pode ser em SQL também)?
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.rd.yahoo.com/SIG=12ah7h1s7/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=701304/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/
http://br.rd.yahoo.com/SIG=12ah7h1s7/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=701304/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] 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:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Por favor, apenas um teste.
recebi sem problemas - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 4:34 AM Subject: [delphi-br] Por favor, apenas um teste. Pessoal, gostaria que alguns respondese essa msg, somente para eu saber se estão recebendo minhas mensagens. Valeu []´s Ricardo Cabral Abraços, Ricardo Cabral - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OFF-TOPIC Segurança no firebird
Galera, desculpem pelo off, mas ja perguntei na lista do firebird e pesquisei na net e não obtive respostas. Tava um dia futucando o firebird e resolvi, tentar abrir com o bloco de notas a base. Para minha surpresa, vi todos os dados que ela continha. Claro que vi cheio de caracteres especiais que o bloco de notas não reconheceu, mas mesmo assim, eu vi os dados. Talvez eu esteja falando uma besteira sem tamanho, mas da mesma forma que eu vi os dados, suponho que poderia recuperar os dados com um programa feito por mim mesmo acessando diretamente o arquivo e alterando algo nele e salvando em seguida. Este tipo de leitura poderia ser evitada? Daniel A. Bastos -- 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] Por favor, apenas um teste.
No problem On Thu, 24 Mar 2005 08:55:14 -0300, Raphael Fonseca [EMAIL PROTECTED] wrote: recebi sem problemas - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 4:34 AM Subject: [delphi-br] Por favor, apenas um teste. Pessoal, gostaria que alguns respondese essa msg, somente para eu saber se estão recebendo minhas mensagens. Valeu []´s Ricardo Cabral Abraços, Ricardo Cabral - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBGrid com Access 97
Olá pessoal, Tenho um DBGrid que está associado a uma tabela do Access 97, através do ADO. O campo hora da tabela está formatado assim: Tipo: Data/Hora Formato: Hora Abreviada Máscara de entreda: 00:00;0_ No DBGrid o campo hora da query que está ligada ao ele está formatado assim: Display Format: hh:nn EditMask: !90:00;1 Quando vou editar o campo hora do DBGrid está aparecendo os segundos, por exemplo: Hora = 15:20:45 - aparece no DBGrid 15:20, mas quando vou editar aparece 15:45 Alguem sabe por favor como corrigo este problema, sem alterar a máscara para hh:nn:ss -- Atenciosamente - Cristina Orthmann da Silva HACON Automação e Tecnologia Ltda Rua Lauro Linhares 589 - Bairro Trindade Florianópolis - SC - Brasil CEP 88036-001 Fone/Fax: 55 48 333-0699 Site: http://www.hacon.com.br/ Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - [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] Conversao de sistemas
Bom dia a todos Tenho um sistema em D7 utilizando Paradox, eu converti o banco para Firebird 1.52, utilizando IBO mas continuo usando Tables, Datasource, etc. Comecei a trocar Table por IBOTable, mas na primeira table tenho campos calculados e o IBOTable nao aceitou, estou no caminho certo, como devo fazer com as Tables com campos calculados ? Como mudar o sistema do antigo paradox utilizando IBO? Alguem teria algum livro, apostila, ou mesmo se nao for pedir muito me explicasse como fazer estas mudanças. Obrigado 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] Alinhamento StringGrid
Kara, no exatamente o que vc quer, mas, fica a ideia. Quando tenho que fazer algo do tipo, utilizo o TClientDataSet para criar uma tabela temporaria na memria e uso o TDBGrid normalmente. Daniel A. Bastos On Wed, 23 Mar 2005 17:05:42 -0300, Ricardo Mauro [EMAIL PROTECTED] wrote: Boa tarde! Como poderia alterar o alinhamento de uma coluna especifica de um StringGrid? Ricardo -- O Banco de Dados de Vrus interno expirou. Verificado por AVG Anti-Vrus. Verso: 7.0.302 / Banco de dados de Vrus: 265.6.9 Data de Lanamento: 6/1/2005 [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Quickreport
Pessoal, como faço para desabilitar os botões minimizar, restaurar e maximar de um relatório. Em forms normais sem relatório o Border Icons funciona PAULO FERNANDES PORTO ALEGRE RS [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OFF-TOPIC Segurança no firebird
Daniel Bastos wrote: Galera, desculpem pelo off, mas ja perguntei na lista do firebird e pesquisei na net e não obtive respostas. Tava um dia futucando o firebird e resolvi, tentar abrir com o bloco de notas a base. Para minha surpresa, vi todos os dados que ela continha. Claro que vi cheio de caracteres especiais que o bloco de notas não reconheceu, mas mesmo assim, eu vi os dados. Talvez eu esteja falando uma besteira sem tamanho, mas da mesma forma que eu vi os dados, suponho que poderia recuperar os dados com um programa feito por mim mesmo acessando diretamente o arquivo e alterando algo nele e salvando em seguida. Este tipo de leitura poderia ser evitada? Não. A segurança de um banco não está na base mas no seu sistema de arquivos. Você precisa impedir é que o usuário tenha acesso ao arquivo do banco atribuindo permissões em partições NTFS ou alguma partição Unix/Linux. -- João Morais -- 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] Conversao de sistemas
plucaslazaro wrote: Bom dia a todos Tenho um sistema em D7 utilizando Paradox, eu converti o banco para Firebird 1.52, utilizando IBO mas continuo usando Tables, Datasource, etc. Comecei a trocar Table por IBOTable, mas na primeira table tenho campos calculados e o IBOTable nao aceitou, estou no caminho certo, como devo fazer com as Tables com campos calculados ? Como mudar o sistema do antigo paradox utilizando IBO? Alguem teria algum livro, apostila, ou mesmo se nao for pedir muito me explicasse como fazer estas mudanças. Palpite - não use Tables, procure trocar tudo para Queries. Dá um trabalhão desmedido mas vai fazer muito bem para o futuro do seu sistema. Estude SQL e, se o IBO tiver CachedUpdates, estude-o também. Vale a pena. -- João Morais -- 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]
Bom dia gente. aqui estou eu enchendo vcs de novo. :):):) Gostaria de saber se alguem tem algum exemplo (pode ser bem simples) de como importar arquivos texto para dentro de um banco de dados. Eu sou programadora de um cartorio e as informaçoes bancarias agora serao enviadas por meiod eum disquete. Uso ibdataset e firebird com delphi 5. O programa ja roda legal so que preciso fazer com que ele importe esse arquivo,gere o arquivo de retorno. Baixei um componente chamado boleto bancario mas nao entendi patavina. anexei o arquivo que vem do banco. desde ja agradecida... Debora da Silva Costa [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] Comunicação Serial
Pablo Use o componente CPORTLIB e no evento OnRxChar faça (neste caso para ler um valor numérico) var STR : String; I: byte; begin ComPort.ReadStr(STR, Count); for I:= 1 to Length(STR) do if ((Str[I] = '0') and (Str[I] = '9')) then NUM:= NUM + STR[I]; Depois é só tratar a informação. Espero ter ajudado. --- pablomadias [EMAIL PROTECTED] wrote: Boa tarde, pessoal! Estou precisando fazer um programa em Delphi que responda a um estímulo via porta serial (é um único botão, ligado á porta) alguem sabe me explicar e teria algum equema do ckt que preciso fazer para ligar este botão na porta serial? Qual função que utilizo no delphi para ler a porta? Como é um unico botao, seria possivel fazer essa comunicação apenas fechando um curto entre dois pinos da porta serial? Obrigado a todos. -- 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]
Voce precisa saber qual é o layout do arquivo e assim colocar cada parte no devido campo da tabela. Voce pode usar a instrução : try Try assingFile(arq, caminho do arquivo); reset(Arq); While not Eof(Arq) do begin Readln(arq, linha); dentro da variável linha (tipo string), voce terá que retirar as informações (segundo o layout) e colocá-las nos devidos campos da sua tabela. end; Se a operação for efetivada com sucesso então inicio ShowMessage(Mensagem de sucesso); Transaction.commit; fim Except showMessage(Mensagem de erro); Transaction.Rollback; end; Finally closeFile(arq); End; -Mensagem original- De: Debora [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 24 de março de 2005 09:30 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Bom dia gente. aqui estou eu enchendo vcs de novo. :):):) Gostaria de saber se alguem tem algum exemplo (pode ser bem simples) de como importar arquivos texto para dentro de um banco de dados. Eu sou programadora de um cartorio e as informaçoes bancarias agora serao enviadas por meiod eum disquete. Uso ibdataset e firebird com delphi 5. O programa ja roda legal so que preciso fazer com que ele importe esse arquivo,gere o arquivo de retorno. Baixei um componente chamado boleto bancario mas nao entendi patavina. anexei o arquivo que vem do banco. desde ja agradecida... Debora da Silva Costa [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br]
Debora, estou comecando a utilizar o delphi boleto para o banco bradesco, é muito bom e tem grupo delphi-boleto que pode ajuda-la. o retorno pelo delphi-boleto fiz e ficou muito bom e pratico estou agora iniciando a remessa que segundo colegas da lista funciona bem. http://www.yahoogrupos.com.br/groups/delphi-boleto espero ter ajudado Otavio [EMAIL PROTECTED] Cidreira/RS -Mensagem original- De: Debora [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 24 de março de 2005 09:30 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Bom dia gente. aqui estou eu enchendo vcs de novo. :):):) Gostaria de saber se alguem tem algum exemplo (pode ser bem simples) de como importar arquivos texto para dentro de um banco de dados. Eu sou programadora de um cartorio e as informaçoes bancarias agora serao enviadas por meiod eum disquete. Uso ibdataset e firebird com delphi 5. O programa ja roda legal so que preciso fazer com que ele importe esse arquivo,gere o arquivo de retorno. Baixei um componente chamado boleto bancario mas nao entendi patavina. anexei o arquivo que vem do banco. desde ja agradecida... Debora da Silva Costa [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Quickreport
iai blz cara vc Edita o arquivo qrprev.dfm q se encontra no lib do delphi object QRStandardPreview: TQRStandardPreview Left = 229 Top = 191 BorderIcons = [biSystemMenu, biMaximize] //aqui vc tira o q vc nao quer ver Width = 652 Height = 579 o proveiw do quickreport e um form normal tudo o q vc pode fazer com um form vc pode fazer com ele tb ... at+ vc pode traduzir ... Info Desenvolvimento escreveu: Pessoal, como faço para desabilitar os botões minimizar, restaurar e maximar de um relatório. Em forms normais sem relatório o Border Icons funciona PAULO FERNANDES PORTO ALEGRE RS [As partes desta mensagem que não continham texto foram removidas] -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.269 / Virus Database: 266.5.1 - Release Date: 27/02/2005 -- 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] Função que retorna os últimos dias do mês
Galera, preciso desenvolver uma função onde eu coloco em um edit o ano e em outro edit o dia da semana e ela me retorne todos os dias escolhidos do ano. Por exemplo: Eu queria saber quando vai cair todos as últimas segundas-feiras dos meses deste ano. Alguém tem idéia de como eu faço isso ? E uma outra função que me retornasse todos os dias de um mes ou dos meses do ano. Por exemplo: eu digito em um edit o ano de 2005 e em outro o dia (2 por ex) e me retorna todos os dias dos meses que cai as segundas-feiras. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Kobra Sistemas | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Quickreport
Valeu Caverinha, só mais uma pergunta. É neste mesmo arquivo que se traduz os botões do Quickreport? [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] Quickreport
é sim ... vc tem q traduzir os Hint ... blz at+ Info Desenvolvimento escreveu: Valeu Caverinha, só mais uma pergunta. É neste mesmo arquivo que se traduz os botões do Quickreport? [As partes desta mensagem que não continham texto foram removidas] -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.269 / Virus Database: 266.5.1 - Release Date: 27/02/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Função que retorna os últimos dias do mês
iai blz mano pra vc sabe q dia é da semana é essa funcao do delphi dia : Integer; dia := DayOfWeek(strtodate(data)) case dia of 1 : segunda; 2 : terça; 3 : quarta; 4 : quinta; 5 : sexta; 6 : sabado; 7 : domingo; da pra vc fazer um funcao q va da primeira data ate a ultima dai vc vai mostrando quando for igual a tal dia da semana ... e + ou - isso de uma olhada no help do delphi ... caverinha Eduardo Silva ® escreveu: Galera, preciso desenvolver uma função onde eu coloco em um edit o ano e em outro edit o dia da semana e ela me retorne todos os dias escolhidos do ano. Por exemplo: Eu queria saber quando vai cair todos as últimas segundas-feiras dos meses deste ano. Alguém tem idéia de como eu faço isso ? E uma outra função que me retornasse todos os dias de um mes ou dos meses do ano. Por exemplo: eu digito em um edit o ano de 2005 e em outro o dia (2 por ex) e me retorna todos os dias dos meses que cai as segundas-feiras. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Kobra Sistemas | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.269 / Virus Database: 266.5.1 - Release Date: 27/02/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Função que retorna os últimos dias do mês
essa funcao da pra vc ver qual e o ultimo dia do mes
function DiasDesteMes(iAno, iMes: Integer): Integer;
{Retorna o número de dias do mes}
const
DiasNoMes: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31,
30, 31, 30, 31);
begin
Result := DiasNoMes[iMes];
if (iMes = 2) and AnoBissexto(iAno) then Inc(Result); { soma um dia em
fevereiro}
end;
at+ caverinha
caverinha escreveu:
iai blz mano
pra vc sabe q dia é da semana é essa funcao do delphi
dia : Integer;
dia := DayOfWeek(strtodate(data))
case dia of
1 : segunda;
2 : terça;
3 : quarta;
4 : quinta;
5 : sexta;
6 : sabado;
7 : domingo;
da pra vc fazer um funcao q va da primeira data ate a ultima
dai vc vai mostrando quando for igual a tal dia da semana ...
e + ou - isso de uma olhada no help do delphi ...
caverinha
Eduardo Silva ® escreveu:
Galera, preciso desenvolver uma função onde eu coloco em um edit o ano e em
outro edit o dia da semana e ela me retorne todos os dias escolhidos do ano.
Por exemplo:
Eu queria saber quando vai cair todos as últimas segundas-feiras dos meses
deste ano.
Alguém tem idéia de como eu faço isso ?
E uma outra função que me retornasse todos os dias de um mes ou dos meses do
ano. Por exemplo: eu digito em um edit o ano de
2005 e em outro o dia (2 por ex) e me retorna todos os dias dos meses que
cai as segundas-feiras.
~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
| Eduardo de Almeida Silva |
| Kobra Sistemas |
| [EMAIL PROTECTED] - (14)3263-0326 |
||
|.oooO Oooo. |
o( )---( )---o
\ ( ) /
\_) (_/
--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.269 / Virus Database: 266.5.1 - Release Date: 27/02/2005
--
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] TIWMenu....Espaço
amigos o problema é o seguinte, tenho um IWRegion1 no formulario com a propriedade Align passada para alTop e outro IWMenu tbm passa a propriedade Aling para alTop, ai tudo blzsó que quando compilo meu projeto o componente IWMenu dar um epaço do IWRegion1 que não consigo saber o q é, alguem ai passou por isso e conseguiu resolver esse problema? exemplo: IWRegion1 espaco em branco IWMenu -- mas na verdade era pra ele esta juntinho com o IWRegion1 IWMenu -- 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]
Você vai ter que fazer a rotina na mão mesmo. Faz a leitura de um arquivo
linha a linha, e cada linha você retira os valores devidos e manda gravar
no banco.
Veja abaixo a rotina que uso para pegar um txt, cujos dados estão separados
por ponto e virgula, e jogar seu conteúdo dentro de uma base no SQK Server
procedure TfDlgImportaDados.ImportaCadFuncionario;
var
qryImportFunc: TADOQuery;
sFile: Textfile;
sFileImportFunc, sStrData,
sMes, sAno, sDataInicio, sRetornoTrab, sMotivoAfast,
sDataInicioAfast, sRetornoTrabAfast : String;
sBakFileImportFunc: string;
vDatabaseFunc : array[0..7] of String;
iChapaFunc : integer;
iFoundRegister: integer;
begin
iCancel := False;
OpenDialog.Execute;
sFileImportFunc := OpenDialog.FileName;
Button2.Visible := False;
Button3.Visible := True;
pBar.Position := 0;
pBar.Max := NumLinhasArq(sFileImportFunc);
AssignFile(sFile, sFileImportFunc);
Reset(sFile);
qryImportFunc := TADOQuery.Create(nil);
qryImportFunc.Connection := DMFrot.cnFrota;
qryImportFunc.SQL.Add('select * from ZVTLMTECNICO');
qryImportFunc.Open;
while (not Eof(sFile)) and (not iCancel) do
begin
ReadLn(sFile, sStrData);
//
iChapaFunc := StrToInt(ParteTexto(sStrData, ';'));
//
if qryImportFunc.Locate('CHAPA', iChapaFunc, [loCaseInsensitive,
loPartialKey]) then
begin
iFoundRegister := 1;
qryImportFunc.Edit;
end
else
begin
iFoundRegister := 0;
qryImportFunc.Insert;
end;
//
qryImportFunc.FieldByName('CHAPA').AsInteger := iChapaFunc;
qryImportFunc.FieldByName('CODPESSOA').AsString := ParteTexto(sStrData,
';');
qryImportFunc.FieldByName('NOME').AsString := ParteTexto(sStrData, ';');
qryImportFunc.FieldByName('CARGO').AsString := ParteTexto(sStrData, ';');
qryImportFunc.FieldByName('FUNCAO').AsString := ParteTexto(sStrData, ';');
qryImportFunc.FieldByName('SECAO').AsString := ParteTexto(sStrData, ';');
qryImportFunc.FieldByName('HORARIOTRABALHO').AsString :=
ParteTexto(sStrData, ';');
qryImportFunc.FieldByName('DATAADMISSAO').AsString := ParteTexto(sStrData,
';');
qryImportFunc.FieldByName('DTDESLIGAMENTO').AsString :=
ParteTexto(sStrData, ';');
sDataInicio := ParteTexto(sStrData, ';');
sRetornoTrab := ParteTexto(sStrData, ';');
sDataInicioAfast := ParteTexto(sStrData, ';');
sRetornoTrabAfast := ParteTexto(sStrData, ';');
sMotivoAfast := ParteTexto(sStrData, ';');
//
qryImportFunc.FieldByName('INICPROGFERIAS').AsString := sDataInicio;
qryImportFunc.FieldByName('FIMPROGFERIAS').AsString := sRetornoTrab;
qryImportFunc.FieldByName('INIAFASTAMENTO').AsString := sDataInicioAfast;
qryImportFunc.FieldByName('FIMAFASTAMENTO').AsString := sRetornoTrabAfast;
qryImportFunc.FieldByName('CODSITUACAO').AsString := sMotivoAfast;
qryImportFunc.Post;
if (sDataInicio '') and (sRetornoTrab '') then
GravaAfastamento(iChapaFunc, iFoundRegister, 5, sDataInicio,
sRetornoTrab,'Desconto relativo ao período de férias do funcionário');
if (sDataInicioAfast '') then
GravaAfastamento(iChapaFunc, iFoundRegister, 3, sDataInicioAfast,
sRetornoTrabAfast,'Desconto relativo ao período de Licença do funcionário');
pBar.Position := (pBar.Position + 1);
Application.ProcessMessages;
end;
CloseFile(sFile);
if FileExists(sFileImportFunc) then
begin
sBakFileImportFunc :=
ChangeFileExt(ExtractFileName(sFileImportFunc),'.old');
if FileExists(sBakFileImportFunc) then DeleteFile(sBakFileImportFunc);
if not RenameFile(sFileImportFunc,sBakFileImportFunc) then
MessageDlg (format('Erro criando arquivo
%s!',[sBakFileImportFunc]),mtError,[mbOk],0);
end;
//
qryImportFunc.Close;
FreeAndNil(qryImportFunc);
Button3.Visible := False;
Button2.Visible := True;
DMFrot.dsHistoricoVeiculo.DataSet.Close;
DMFrot.dsHistoricoVeiculo.DataSet.Open;
end;
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: Debora [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 24 de março de 2005 09:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br]
Bom dia gente. aqui estou eu enchendo vcs de novo. :):):)
Gostaria de saber se alguem tem algum exemplo (pode ser bem
simples) de como importar arquivos texto para dentro de um
banco de dados. Eu sou programadora de um cartorio e as
informaçoes bancarias agora serao enviadas por meiod eum
disquete. Uso ibdataset e firebird com delphi 5. O programa
ja roda legal so que preciso fazer com que ele importe esse
arquivo,gere o arquivo de retorno. Baixei um componente
chamado boleto bancario mas nao entendi patavina. anexei o
arquivo que vem do banco. desde ja agradecida...
Debora da Silva Costa
[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
Res: [delphi-br]
Debora, e o seguinte, os arquivos textos vindo de bancos seguem um padrao, existe um layout pre-definido, entre em contato com o banco e veja quais sao essas informações, vale tb para remeter dados para eles... bom, de posse dessas informações, vc pode utilizar o readln para leitura (no help do delphi tem como usar) usando a função copy para extrair o que precisa... se precisar escrever, e so formatar os dados tb conforme o layout e usar o writeln pra escrever... qualquer coisa se tiver msn pode entrar em contato comigo para maiores detalhes... mas nao creio que tera dificuldades se verificar bem o que te passei... msn: [EMAIL PROTECTED] [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: delphi-br@yahoogrupos.com.br Data: 03/24/05 09:32:24 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Bom dia gente. aqui estou eu enchendo vcs de novo. :):):) Gostaria de saber se alguem tem algum exemplo (pode ser bem simples) de como importar arquivos texto para dentro de um banco de dados. Eu sou programadora de um cartorio e as informaçoes bancarias agora serao enviadas por meiod eum disquete. Uso ibdataset e firebird com delphi 5. O programa ja roda legal so que preciso fazer com que ele importe esse arquivo,gere o arquivo de retorno. Baixei um componente chamado boleto bancario mas nao entendi patavina. anexei o arquivo que vem do banco. desde ja agradecida... Debora da Silva Costa [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/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] Função que retorna os últimos dias do mês
Pode tentar fazer assim: function DataUltimaSegunta(iMes, iAno: Integer): TDate begin // Obtendo último dia do mês ano informados Result := IncMonth(EncodeDate(iAno, iMes, 1)) - 1; // Verificado última segunda feira while DayOfWeek(Result) 2 do Result := Result - 1; end; procedure Button1Click(Sender: TObject); var i : Integer; begin // Adicionado data da última segunda feira de cada mês do ano atual for i := 1 to 12 do ListBox1.Add(DateToStr(i, YearOf(Date))); end; - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: Grupo Delhpi-br delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 10:28 AM Subject: [delphi-br] Função que retorna os últimos dias do mês Galera, preciso desenvolver uma função onde eu coloco em um edit o ano e em outro edit o dia da semana e ela me retorne todos os dias escolhidos do ano. Por exemplo: Eu queria saber quando vai cair todos as últimas segundas-feiras dos meses deste ano. Alguém tem idéia de como eu faço isso ? E uma outra função que me retornasse todos os dias de um mes ou dos meses do ano. Por exemplo: eu digito em um edit o ano de 2005 e em outro o dia (2 por ex) e me retorna todos os dias dos meses que cai as segundas-feiras. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Kobra Sistemas | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] IB6 + IBX + D7
Francisco, Estou com o mesmo problema do nosso amigo e essa solução de mudar o nome do arquivo não resolveu, no meu caso. Abraços, Mauricio - Original Message - From: Francisco de A Souza To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 8:31 AM Subject: RES: [delphi-br] IB6 + IBX + D7 Muda a estensao do arquivo de gdb para qualuqer outra... -Mensagem original- De: Eduardo RC Neto [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 23 de março de 2005 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] IB6 + IBX + D7 Colegas da lista, boa tarde. Tenho um cliente, que estava rodando um sistema em rede, feito em D7 com IB6 utilizando os componentes IBX, em uma máquina AMD 950, 256 Mb de memória com Win 98, e rodava sem problemas até relativamente rápido. Agora ele comprou uma máquina nova, Pentiun 4 - 3.5, bi-processada, 1 Gb de memória, com Windows XP. Nessa máquina, o IBConsole demora quase 2 minutos para fazer a conexão com o banco, e, logicamente, na hora que coloco o TIBDataBase para conectar o banco, por dentro da minha aplicação, ocorre o mesmo problema... Depois de feita a conexão, o sistema roda normalmente E o Interbase e o executável estão na mesma máquina. Todos os outros programas rodam sem problemas, chegando até a voar... Será que é algum problema com o Firewall do Windows XP Liberei a porta e continua tendo o mesmo problema... Alguém tem alguma dica ou já passou por esse problema??? Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ICQ: 64-674-105 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- Nenhum virus encontrado nesta mensagem. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/2005 -- Nenhum virus encontrado nesta mensagem. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/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] Quickreport
Caverinha, tem um programa aqui na empresa feito em delphi e colocaram um botão para enviar e-mail e e outro botão para transformar o relatório em Word, tu sabes como se faz isso? PAULO FERNANDES PORTO ALEGRE RS [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] Novos botões no Quicreport
Alguém sabe como eu faço para criar novos buttons no Quickreport, um para enviar e-mail e outro para Transformar o relatório em arquivo do Word. Alaguem já fez isso? PAULO FERNANDES PORTO ALEGRE RS [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] Alinhamento StringGrid
Eu trabalho utilizando TClientDataSet tambem, mas, no isso que estou precisando... Mesmo assim, muito obrigado por ter cooperado. Ainda estou tentando resolver, caso souber de alguma soluo... Abraos, Ricardo - Original Message - From: Daniel Bastos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 9:12 AM Subject: Re: [delphi-br] Alinhamento StringGrid Kara, no exatamente o que vc quer, mas, fica a ideia. Quando tenho que fazer algo do tipo, utilizo o TClientDataSet para criar uma tabela temporaria na memria e uso o TDBGrid normalmente. Daniel A. Bastos On Wed, 23 Mar 2005 17:05:42 -0300, Ricardo Mauro [EMAIL PROTECTED] wrote: Boa tarde! Como poderia alterar o alinhamento de uma coluna especifica de um StringGrid? Ricardo -- O Banco de Dados de Vrus interno expirou. Verificado por AVG Anti-Vrus. Verso: 7.0.302 / Banco de dados de Vrus: 265.6.9 Data de Lanamento: 6/1/2005 [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- O Banco de Dados de Vrus interno expirou. Verificado por AVG Anti-Vrus. Verso: 7.0.302 / Banco de dados de Vrus: 265.6.9 Data de Lanamento: 6/1/2005 -- 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] Novos botões no Quicreport
Como colocar os botões eu ja descobri, agora quer saber como faço para programar os botões [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] Função que retorna os últimos dias do mês
Se for delphi 6 para frente, use a função DaysInAMonth (lembre de declarar
DateUtils no uses da sua unit).
Leandro
- Original Message -
From: caverinha [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 24, 2005 10:57 AM
Subject: Re: [delphi-br] Função que retorna os últimos dias do mês
essa funcao da pra vc ver qual e o ultimo dia do mes
function DiasDesteMes(iAno, iMes: Integer): Integer;
{Retorna o número de dias do mes}
const
DiasNoMes: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31,
30, 31, 30, 31);
begin
Result := DiasNoMes[iMes];
if (iMes = 2) and AnoBissexto(iAno) then Inc(Result); { soma um dia em
fevereiro}
end;
at+ caverinha
caverinha escreveu:
iai blz mano
pra vc sabe q dia é da semana é essa funcao do delphi
dia : Integer;
dia := DayOfWeek(strtodate(data))
case dia of
1 : segunda;
2 : terça;
3 : quarta;
4 : quinta;
5 : sexta;
6 : sabado;
7 : domingo;
da pra vc fazer um funcao q va da primeira data ate a ultima
dai vc vai mostrando quando for igual a tal dia da semana ...
e + ou - isso de uma olhada no help do delphi ...
caverinha
Eduardo Silva ® escreveu:
Galera, preciso desenvolver uma função onde eu coloco em um edit o ano e
em
outro edit o dia da semana e ela me retorne todos os dias escolhidos do
ano.
Por exemplo:
Eu queria saber quando vai cair todos as últimas segundas-feiras dos
meses
deste ano.
Alguém tem idéia de como eu faço isso ?
E uma outra função que me retornasse todos os dias de um mes ou dos
meses do
ano. Por exemplo: eu digito em um edit o ano de
2005 e em outro o dia (2 por ex) e me retorna todos os dias dos meses
que
cai as segundas-feiras.
~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
| Eduardo de Almeida Silva |
| Kobra Sistemas |
| [EMAIL PROTECTED] - (14)3263-0326 |
||
|.oooO Oooo. |
o( )---( )---o
\ ( ) /
\_) (_/
--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.269 / Virus Database: 266.5.1 - Release Date: 27/02/2005
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Salvar arquivo em blob
Olá a todos
To usando o seguinte código para ler um arquivo BLOB, editá-lo e salvar o
arquivo
(Stream)no blob novamente.
procedure TForm1.Button2Click(Sender: TObject);
begin
STR:= TStream.Create;
STR:= ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('ARQUIVO'),
bmRead);
//Edito o arquivo
Report.SaveToStream(STR);//salvo o arquivo no TStream STR
ClientDataSet1.Edit;
TBlobField(ClientDataSet1.Fields[2]).LoadFromStream(STR);
ClientDataSet1.Post;
STR.Free;
end;
Mas quando altero o arquivo, a alteração não é gravada no BD e ainda dá erro
quando
chamo o STR.Free.
Agradeceria se alguém indicasse onde está o erro.
Grato
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] Componentes free igual ao MIDAS/DataSnap
Alguém conhece algum componente que permita trabalhar 3 camadas sem necessitar do MIDAS/DataSnap? A idéia é poder programar em três camadas mesmo usando a versão profetional do Delphi que não tem os componentes da paleta DataStap. Alessandro [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] Imprimir somente paginas impares ou pares no QuickReport.
Pessoal, Como fazer para permitir que o usuário escolha a impressão somente de páginas pares ou impares em um relatório QuickReport? Isso no Delphi 6. Obrigado _ Alessandro Cunha Fernandes SoftTI - Software e Consultoria e TI. [EMAIL PROTECTED] Fone/Fax: +55 24 2458-4538 [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] E-mail Leonildo de Santos
Grupo se algue de vcs tiverem o e-mail do Leonildo, vou ficar muito grato. Leonildo se puder me mandar o restante das apostilas, me desulpe, é que perdi o teu e-mail do ig. Grato Cristiano. _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.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-mail???
Olá galera, Gostaria de saber como posso pelo delphi mandar e-mail com imagem jpg SEM ser anexada? Atenciosamente, Rubens Esfera Sistemas e-mail: [EMAIL PROTECTED] (15) 3202-3236 [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] Componentes free igual ao MIDAS/DataSnap
Utilizo o KbmMw já há algum tempo em projetos que já estão em produção (acesso via web) e estou gostando muito. Meus motivos foram os mesmos que os seus : Utilizo Delphi Professional e necessitava de um componente p/3 camadas que fosse royalt free na distribuição (o que o Midas também não é). www.components4programmers.com []s Paulo Botelho - Original Message - From: Alessandro Fernandes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 2:08 PM Subject: [delphi-br] Componentes free igual ao MIDAS/DataSnap Alguém conhece algum componente que permita trabalhar 3 camadas sem necessitar do MIDAS/DataSnap? A idéia é poder programar em três camadas mesmo usando a versão profetional do Delphi que não tem os componentes da paleta DataStap. Alessandro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Nova Materia no Portal do Assinante ClubeDelphi.NET!!!!
Ae galera Delphiana! Minha nova materia com direito a agradecimentos!!! É sobre Master-Detail no QuickReport. http://www.clubedelphi.net/portal/artigos/lichot/13.asp Estou as ordens []´s Bruno Lichot Gerente de Novas Tecnologias - Micrologos Equipe ClubeDelphi DevMedia [EMAIL PROTECTED] [EMAIL PROTECTED] www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.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: http://br.yahoo.com/info/utos.html
[delphi-br] duvida iniciante
Eu gostaria de saber qual a ferramenta que os colegas usam para modelagem de banco de dados tanto para paradox como para firebird e se poderiam me indicar onde eu consigo, (de preferencia as que forem gratuitas). Agadeço Marcio. - 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
Re: [delphi-br] Envio de E-mail???
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Sem anexar a imagem é impossivel... Mas acho que entendí o que você quer. Você quer anexar uma mensagem e exibí-la no html da mensagem certo? Eu carrego a imagem num Stream e anexo à mensagem. No código html eu coloco: img src=cid:my_img.jpg; A e não esqueça de colocar o tipo de atachamento que é: with idAttach do begin ContentDisposition := 'attachment'; ExtraHeaders.Values['Content-id']:='my_img.jpg'; ContentType:='image/jpeg'; end; Envia uma mensagem pelo seu Outloco ou qualquer Client de email e veja como fica o código. - -- Oséias Ferreira. PS: Estou usando Indy, pois o NetMaster está ultrapassado. Rubens escreveu: Olá galera, Gostaria de saber como posso pelo delphi mandar e-mail com imagem jpg SEM ser anexada? -BEGIN PGP SIGNATURE- Version: GnuPG v1.4.0 (MingW32) iD8DBQFCQwUsHKYDdGAIQkURAoKcAJ9yTLA58vUeGLonAtt8goSQPgL/aQCdENma n3fb0oKR21fbKtVbHc25dTY= =bn1n -END PGP SIGNATURE- -- 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] Outra duvida....
Eu fiz um programinha e fui instalar em outra máquina e ele deu erro que estava faltando dll ( as dos componentes que eu instalei no delphi, como a do Zeos, Dosmov, etc..) então eu copiei as mesmas e coloquei no computador e o programa roudou. Eu quero saber se tem como eu colocar essas dll junto com o meu programa para diminuir o tamanho da instalação ou qual a forma que os colegas usam fazer? Agradeço Marcio __ 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] Imagem DBNavigator
Olá grupo, gostaria de saber se existe a possibilidade de inserir outras figuras em um dbnavigator além daquelas apresentadas, caso alguém queira doar um pouco do seu conhecendo, vou ficar muito grato. Cristiano. _ 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] Componentes free igual ao MIDAS/DataSnap
Desculpe... Não atentei para o detalhe do free no assunto da mensagem... apenas considerei o corpo do e-mail. O KbmMw não é free, mas na minha opinião valeu cada centavo pago por ele. []s Paulo Botelho - Original Message - From: Paulo Botelho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 2:53 PM Subject: Re: [delphi-br] Componentes free igual ao MIDAS/DataSnap Utilizo o KbmMw já há algum tempo em projetos que já estão em produção (acesso via web) e estou gostando muito. Meus motivos foram os mesmos que os seus : Utilizo Delphi Professional e necessitava de um componente p/3 camadas que fosse royalt free na distribuição (o que o Midas também não é). www.components4programmers.com []s Paulo Botelho - Original Message - From: Alessandro Fernandes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 2:08 PM Subject: [delphi-br] Componentes free igual ao MIDAS/DataSnap Alguém conhece algum componente que permita trabalhar 3 camadas sem necessitar do MIDAS/DataSnap? A idéia é poder programar em três camadas mesmo usando a versão profetional do Delphi que não tem os componentes da paleta DataStap. Alessandro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] Pegar Ano Em Data
Ola Lista!!!
Estou querendo pegar o Ano de Uma Data, estou usando o
YearOf, mas ele retorna um Word, entaum usei uma
funcao chamada WordToStr, pra passar de Word pra
String, e assim gravar no meu BD, mas isso retorna um
valor estranho, parece que ele naum conseque fazer a
conversao, ou coisa assim, o camando ficou assim:
DM_Principal.qryFeriado.FieldByName ('ANO').AsString
:= WordToStr (YearOf (StrToDate (edtData.Text)));
Alguem tem uma ideia de como fazer isso?
Obrigado a todos!
P.S.: Pegar Como Integer Tambem serve!
Rodrigo Izquierdo da Motta.
__
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
RES: [delphi-br] Componentes free igual ao MIDAS/DataSnap
Olá, Existe uma versão (1.04) que deve ser free. Mas nunca testei. --- []'s Alexandre Oliveira Campioni Analista de Sistemas A-Tecnologia e Sistemas de Informacao Ltda. Sao Joaquim da Barra - Sao Paulo - Brasil [EMAIL PROTECTED] -Mensagem original- De: Paulo Botelho [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 24 de março de 2005 15:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Componentes free igual ao MIDAS/DataSnap Desculpe... Não atentei para o detalhe do free no assunto da mensagem... apenas considerei o corpo do e-mail. O KbmMw não é free, mas na minha opinião valeu cada centavo pago por ele. []s Paulo Botelho - Original Message - From: Paulo Botelho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 2:53 PM Subject: Re: [delphi-br] Componentes free igual ao MIDAS/DataSnap Utilizo o KbmMw já há algum tempo em projetos que já estão em produção (acesso via web) e estou gostando muito. Meus motivos foram os mesmos que os seus : Utilizo Delphi Professional e necessitava de um componente p/3 camadas que fosse royalt free na distribuição (o que o Midas também não é). www.components4programmers.com []s Paulo Botelho - Original Message - From: Alessandro Fernandes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 24, 2005 2:08 PM Subject: [delphi-br] Componentes free igual ao MIDAS/DataSnap Alguém conhece algum componente que permita trabalhar 3 camadas sem necessitar do MIDAS/DataSnap? A idéia é poder programar em três camadas mesmo usando a versão profetional do Delphi que não tem os componentes da paleta DataStap. Alessandro _ avast! Antivirus http://www.avast.com : Outbound message clean. Virus Database (VPS): 0512-0, 22/03/2005 Tested on: 24/3/2005 16:20:29 avast! - copyright (c) 1988-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
Res: Re: [delphi-br] Envio de E-mail???
Oséias, Muito obrigado pela dica, será o mesmo funcionaria para mandar o email sem ser pelo cliente email? P.S. Estou desenvolvendo o meu cliente email :) Atenciosamente, Rubens Esfera Sistemas e-mail: [EMAIL PROTECTED] (15) 3202-3236 ---Mensagem original--- De: delphi-br@yahoogrupos.com.br Data: 03/24/05 15:40:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Envio de E-mail??? -BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Sem anexar a imagem é impossivel... Mas acho que entendí o que você quer. Você quer anexar uma mensagem e exibí-la no html da mensagem certo? Eu carrego a imagem num Stream e anexo à mensagem. No código html eu coloco: img src=cid:my_img.jpg; A e não esqueça de colocar o tipo de atachamento que é: with idAttach do begin ContentDisposition := 'attachment'; ExtraHeaders.Values['Content-id']:='my_img.jpg'; ContentType:='image/jpeg'; end; Envia uma mensagem pelo seu Outloco ou qualquer Client de email e veja como fica o código. - -- Oséias Ferreira. PS: Estou usando Indy, pois o NetMaster está ultrapassado. Rubens escreveu: Olá galera, Gostaria de saber como posso pelo delphi mandar e-mail com imagem jpg SEM ser anexada? -BEGIN PGP SIGNATURE- Version: GnuPG v1.4.0 (MingW32) iD8DBQFCQwUsHKYDdGAIQkURAoKcAJ9yTLA58vUeGLonAtt8goSQPgL/aQCdENma n3fb0oKR21fbKtVbHc25dTY= =bn1n -END PGP SIGNATURE- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Pegar Ano Em Data
Rodrigo,
Eu faria da seguinte forma:
Var
dtAux : TDateTime;
begin
dtAux := (StrToDate (edtData.Text));
DM_Principal.qryFeriado.FieldByName('ANO').AsString :=
FormatDateTime('',dtAux);
end;
Obs: A Função FormatDateTime permite que você escolha se quer pegar o ano
() o mês (mm) o dia (dd) entre um monte de outras variações que você pode
conferir no help do Delphi.
Abraços e mande noticias,
Mauricio C. Vaglieri
- Original Message -
From: Rodrigo Izquierdo da Motta
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 24, 2005 4:01 PM
Subject: [delphi-br] Pegar Ano Em Data
Ola Lista!!!
Estou querendo pegar o Ano de Uma Data, estou usando o
YearOf, mas ele retorna um Word, entaum usei uma
funcao chamada WordToStr, pra passar de Word pra
String, e assim gravar no meu BD, mas isso retorna um
valor estranho, parece que ele naum conseque fazer a
conversao, ou coisa assim, o camando ficou assim:
DM_Principal.qryFeriado.FieldByName ('ANO').AsString
:= WordToStr (YearOf (StrToDate (edtData.Text)));
Alguem tem uma ideia de como fazer isso?
Obrigado a todos!
P.S.: Pegar Como Integer Tambem serve!
Rodrigo Izquierdo da Motta.
__
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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/2005
--
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/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
[delphi-br] ScExcelExport
Alguém tem esse componente ?? Preciso que saia todos os campos do dataset. São 10 campos e exporta p/ o excel somente 3. Grato Roberto Castro [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] CASCADE DELETE com DBExpress
Olá pessoal, utilizo delphi 7 + Firebird 1.5 + DBExpress, e tenho uma foreign key configurada no banco como CASCADE DELETE (quando excluir o registro mestre deve excluir automaticamente os registros detalhes)... ...quando faço a exclusão de um registro via SQL funciona perfeitamente a exclusão dos registros detalhes automaticamente... mas quando utilizo o método delete do ClientDataSet Mestre ele retorna erro dizendo q as tabelas detalhes possuem registros. será q vou ter q excluir os registros detalhes na unha -- 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] Pegar Ano Em Data
ou inttostr(yearof(date))
aqui funciona legal.
Att,
Leandro
- Original Message -
From: Maurício Chiarato Vaglieri [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 24, 2005 4:40 PM
Subject: Re: [delphi-br] Pegar Ano Em Data
Rodrigo,
Eu faria da seguinte forma:
Var
dtAux : TDateTime;
begin
dtAux := (StrToDate (edtData.Text));
DM_Principal.qryFeriado.FieldByName('ANO').AsString :=
FormatDateTime('',dtAux);
end;
Obs: A Função FormatDateTime permite que você escolha se quer pegar o ano
() o mês (mm) o dia (dd) entre um monte de outras variações que você
pode conferir no help do Delphi.
Abraços e mande noticias,
Mauricio C. Vaglieri
- Original Message -
From: Rodrigo Izquierdo da Motta
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 24, 2005 4:01 PM
Subject: [delphi-br] Pegar Ano Em Data
Ola Lista!!!
Estou querendo pegar o Ano de Uma Data, estou usando o
YearOf, mas ele retorna um Word, entaum usei uma
funcao chamada WordToStr, pra passar de Word pra
String, e assim gravar no meu BD, mas isso retorna um
valor estranho, parece que ele naum conseque fazer a
conversao, ou coisa assim, o camando ficou assim:
DM_Principal.qryFeriado.FieldByName ('ANO').AsString
:= WordToStr (YearOf (StrToDate (edtData.Text)));
Alguem tem uma ideia de como fazer isso?
Obrigado a todos!
P.S.: Pegar Como Integer Tambem serve!
Rodrigo Izquierdo da Motta.
__
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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
--
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/2005
--
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/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
--
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] Pegar Ano Em Data
Porque não usa o FormatDateTime , ja que vc vai gravar uma string.
Abraço
- Original Message -
From: Rodrigo Izquierdo da Motta
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 24, 2005 4:01 PM
Subject: [delphi-br] Pegar Ano Em Data
Ola Lista!!!
Estou querendo pegar o Ano de Uma Data, estou usando o
YearOf, mas ele retorna um Word, entaum usei uma
funcao chamada WordToStr, pra passar de Word pra
String, e assim gravar no meu BD, mas isso retorna um
valor estranho, parece que ele naum conseque fazer a
conversao, ou coisa assim, o camando ficou assim:
DM_Principal.qryFeriado.FieldByName ('ANO').AsString
:= WordToStr (YearOf (StrToDate (edtData.Text)));
Alguem tem uma ideia de como fazer isso?
Obrigado a todos!
P.S.: Pegar Como Integer Tambem serve!
Rodrigo Izquierdo da Motta.
__
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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
