Re: [delphi-br] Atualização de versão do aplicati vo

[Gilson]

Eduardo,

Provavelmente vc precisará desabilitar o UAC.

Atenciosamente,

Gilson

Em 5 de julho de 2010 23:18, Eduardo Silva dos Santos  escreveu:

> Gilson, como você consegue fazer isso? aqui no meu pc, Win7, com o
> executável aberto não é possível renomear.
>
>
> Att,
> ...
> Eduardo Silva dos Santos
> DRD SISTEMAS
> (27) 3218-4201
> (27) 9961-7095
> MSN: eduardo@gmail.com
> Site: http://www.drdsistemas.com.br/
> ...
>
>
> Em 5 de julho de 2010 23:04, Gilson  escreveu:
>
> >
> >
> > Uma informação que pode ajudar é a seguinte:
> >
> > Quando uma aplicação está sendo executada, vc não pode sobrescrever ou
> > excluir o executavél, mas pode renomea-lo. Experimente! Esse pode ser um
> > caminho.
> >
> > Gilson
> >
> > Em 5 de julho de 2010 20:24, Adriano Santos  >
> > escreveu:
> >
> > > Hummm verdade, nem com o nosso esquema vai funcionar.
> > >
> > > Adriano Santos
> > > http://twitter.com/asrsantos
> > > Enviado de meu iPhone
> > >
> > > Em 05/07/2010, às 17:38, "Walter Chagas \(Bol\)"  
> > >
> > > escreveu:
> > >
> > > > Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM.
> > Neste
> > > caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo
> > que
> > > tá no terminal e parar o serviço pra atualizar.
> > > >
> > > > []s
> > > >
> > > >
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchag...@bol.com.br 
> > > > http://delphitocorporerm.blogspot.com/
> > > > http://twitter.com/wchagas
> > > > MSN: whitesock...@hotmail.com 
> > > > SKYPE: WalterChagasJr
> > > >
> > > > - Original Message -
> > > > From: Odair
> > > > To: delphi-br@yahoogrupos.com.br 
> > > > Sent: Monday, July 05, 2010 5:36 PM
> > > > Subject: Re: [delphi-br] Atualização de versão do aplicativo
> > > >
> > > > Pegando uma carona no assunto:
> > > >
> > > > Tenho uma rotina de atualização que funciona muito bem para o sistema
> > > > rodando local (cerca de 40 micros) .
> > > > O problema é que temos 10 micros acessando o sistema via WTS
> (Terminal
> > > > Server) e quando libero alguma atualização, o executavel principal da
> > > > aplicação não consegue ser substituido pois sempre ha algum usuario
> com
> > o
> > > > mesmo em execução no WTS.
> > > >
> > > > Alguem tem alguma rotina ou dica para atualização da aplicação em
> > > servidor
> > > > WTS??
> > > >
> > > > Grato a todos,
> > > >
> > > > Odair
> > > >
> > > > - Original Message -
> > > > From: "Walter Chagas (Bol)"  40bol.com.br>
> > >
> > > > To: >
> > > > Sent: Monday, July 05, 2010 9:50 AM
> > > > Subject: Re: [delphi-br] Atualização de versão do aplicativo
> > > >
> > > > Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém,
> > não
> > > > precisa renomear o .exe. O lançador fecha o programa e sobrepoe a
> cópia
> > > sem
> > > > problema algum. Eu tenho a versão do sistema atual gravado em uma
> > tabela
> > > e o
> > > > proprio programa consulta a tabela pra saber se tem atualização nova
> lá
> > > no
> > > > servidor.
> > > >
> > > > []s
> > > >
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchag...@bol.com.br 
> > > > http://delphitocorporerm.blogspot.com/
> > > > http://twitter.com/wchagas
> > > > MSN: whitesock...@hotmail.com 
> > > > SKYPE: WalterChagasJr
> > > >
> > > > - Original Message -
> > > > From: Eny Urias
> > > > To: delphi-br@yahoogrupos.com.br 
> > > > Sent: Sunday, July 04, 2010 10:09 AM
> > > > Subject: Res: [delphi-br] Atualização de versão do aplicativo
> > > >
> > > > Eu tenho um esquema assim:
> > > >
> > > > - Uma pasta no servidor para deixar o .exe atual.
> > > > - Um programa que verifica se o .exe do usuário é mais antigo que o
> da
> > > > 

Re: [delphi-br] Atualização de versão do aplicati vo

[Gilson]

Uma informação que pode ajudar é a seguinte:

Quando uma aplicação está sendo executada, vc não pode sobrescrever ou
excluir o executavél, mas pode renomea-lo. Experimente! Esse pode ser um
caminho.

Gilson

Em 5 de julho de 2010 20:24, Adriano Santos  escreveu:

> Hummm verdade, nem com o nosso esquema vai funcionar.
>
> Adriano Santos
> http://twitter.com/asrsantos
> Enviado de meu iPhone
>
> Em 05/07/2010, às 17:38, "Walter Chagas \(Bol\)" 
> escreveu:
>
> > Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM. Neste
> caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo que
> tá no terminal e parar o serviço pra atualizar.
> >
> > []s
> >
> >
> > Walter Alves Chagas Junior
> > Belo Horizonte - MG - Brazil
> > wchag...@bol.com.br
> > http://delphitocorporerm.blogspot.com/
> > http://twitter.com/wchagas
> > MSN: whitesock...@hotmail.com
> > SKYPE: WalterChagasJr
> >
> > - Original Message -
> > From: Odair
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Monday, July 05, 2010 5:36 PM
> > Subject: Re: [delphi-br] Atualização de versão do aplicativo
> >
> > Pegando uma carona no assunto:
> >
> > Tenho uma rotina de atualização que funciona muito bem para o sistema
> > rodando local (cerca de 40 micros) .
> > O problema é que temos 10 micros acessando o sistema via WTS (Terminal
> > Server) e quando libero alguma atualização, o executavel principal da
> > aplicação não consegue ser substituido pois sempre ha algum usuario com o
> > mesmo em execução no WTS.
> >
> > Alguem tem alguma rotina ou dica para atualização da aplicação em
> servidor
> > WTS??
> >
> > Grato a todos,
> >
> > Odair
> >
> > - Original Message -
> > From: "Walter Chagas (Bol)" 
> > To: 
> > Sent: Monday, July 05, 2010 9:50 AM
> > Subject: Re: [delphi-br] Atualização de versão do aplicativo
> >
> > Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não
> > precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia
> sem
> > problema algum. Eu tenho a versão do sistema atual gravado em uma tabela
> e o
> > proprio programa consulta a tabela pra saber se tem atualização nova lá
> no
> > servidor.
> >
> > []s
> >
> > Walter Alves Chagas Junior
> > Belo Horizonte - MG - Brazil
> > wchag...@bol.com.br
> > http://delphitocorporerm.blogspot.com/
> > http://twitter.com/wchagas
> > MSN: whitesock...@hotmail.com
> > SKYPE: WalterChagasJr
> >
> > - Original Message -
> > From: Eny Urias
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Sunday, July 04, 2010 10:09 AM
> > Subject: Res: [delphi-br] Atualização de versão do aplicativo
> >
> > Eu tenho um esquema assim:
> >
> > - Uma pasta no servidor para deixar o .exe atual.
> > - Um programa que verifica se o .exe do usuário é mais antigo que o da
> > pasta do servidor.
> > - Renomeio o .exe antigo e copio o novo.
> > - O atalho do sistema aponta para o .exe desse programa ou seja, ele é
> > executado antes do sistema.
> >
> > Se interessar, te passo os arquivos.
> > --
> > Eny Trova Urias
> >
> > "Somos o que repetitivamente fazemos, portanto, a excelência não é um
> > feito, mas um hábito"- Aristóteles
> >
> > 
> > De: Ari Arantes Filho 
> > Para: delphi-br@yahoogrupos.com.br
> > Enviadas: Domingo, 4 de Julho de 2010 3:01:32
> > Assunto: [delphi-br] Atualização de versão do aplicativo
> >
> > Pessoal,
> >
> > Como fazer para atualizar automaticamente (de preferência) o
> > executável do sistema, num ambiente onde o executável (.exe) fica nos
> > micros dos usuários, principalmente nos notebooks. Pois vários
> > usuários utilizam através de VPN e fica melhor o acesso com o
> > executável direto no PC que no servidor de arquivos. Para os usuários
> > da rede interna sem problemas, pois o .exe fica no servidor de
> > arquivos.
> >
> > Existe alguma maneira de deixar sempre o .exe atualizado?
> >
> > Obrigado,
> >
> > Ari
> >
> > [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 >>>>>
> >
> > __
> > 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]
> >
> >
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>


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

RE: [delphi-br] Dúvi da com SQL

[Gilson gindre gindre]

dixa ver se eu entendi, se vc tem duvidas quanto de que tabela pegar os campos, 
ou se colaca todos em uma tabela só !

isso indepente se é no delphi, vb, java, php, phyton, asp ou estou enganado a 
duvida do rapaz e referente banco estrutura de dados! Ou dependendo de como 
está o banco de dados o delphi não consegue escrever ?

reafirmo meu pensamento, entrei aqui para tentar aprender delphi que é uma das 
poucas linguagens que ainda não trabalhei e me parece que continua tendo gente 
ignorante na discussão!

 

se eu não me engano com meus 20 anos de programação, vc cria a estrutura do 
banco de dados depois vc escolhe em que linguagem vc quer programar, e me 
corrigam por favor, se o delphi não tem poder de trabalhar com um banco já 
pronto, não presição me ajudar, pois não quero mas aprender delphi não me 
interessa mais, já mandei email me escruindo do grupo, por causa de pessoas 
arrogante, mas continuo recebendo email, se o moderador quiser, pode me excluir 
por gentileza.

 
 
> To: delphi-br@yahoogrupos.com.br
> From: fb...@hotmail.com
> Date: Mon, 30 Nov 2009 07:51:31 -0200
> Subject: RE: [delphi-br] Dúvida com SQL
> 
> 
> pessoal banco vc pode usar qquer um, com qquer linguagem de programação, 
> parece que estou desaprendendo aqui, Dark vc pode fazer o que achar certo 
> referente relacionamento, mas vc tem que pensar o seguinte, um bom sitema, 
> bem elaborado pensa em problemas futuros, imagina vc precisar de um relatório 
> de quem pagou o frete ou seja se é cif ou fob, um relatorio só de clientes, 
> então pense nisso, vc pode tambem incluir mais um camo em sua tabela, onde vc 
> pode gravar o tipo do cadastro por exemplo ! 1 remetente 2 destinatario 3 
> pagador, ai sim futuramente vc terá um parametro para filtrar sua consulta, 
> ah pessoal não programo em delphi, entrei aqui para tentar aprender, mas tem 
> muita gente ignorante, leio email de todos vcs, e respetio todos, e estou 
> aqui afim de aprender delphi com todo respeito, conhecimento é uma riqueza 
> que devemos compartilhar, desenvolvo em flex, php e mysql, um abraço a todos, 
> epero que me deixem aprender delphi !
> 
> 
> 
> 
> 
> To: delphi-br@yahoogrupos.com.br
> From: wchag...@bol.com.br
> Date: Sun, 29 Nov 2009 05:35:58 -0300
> Subject: Re: [delphi-br] Dúvida com SQL
> 
> 
> 
> 
> 
> Bom se voce acha que isto não tem nada haver com Delphi então é porque voce 
> está na área errada ou não é desenvolvedor de software e sim um mero 
> pregrador de botão em form.
> 
> []s
> 
> 
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphitocorporerm.blogspot.com/
> 
> - Mensagem original 
> De: Matheus Nabao 
> Para: "delphi-br@yahoogrupos.com.br" 
> Enviadas: Sexta-feira, 27 de Novembro de 2009 11:38:56
> Assunto: RE: [delphi-br] Dúvida com SQL
> 
> O que é que isso tem a ver com Delphi?
> 
> To: delphi-br@yahoogrupos.com.br
> From: dark...@yahoo.com.br
> Date: Fri, 27 Nov 2009 11:35:26 -0300
> Subject: [delphi-br] Dúvida com SQL
> 
> Olá pessoal,
> 
> Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete.
> 
> Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se 
> relacionam.
> 
> Dúvida:
> 
> No Cabeçalho do Conhecimento tenho os campos:
> Remetente
> Destinatário
> Pagador
> 
> Pergunta:
> Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho 
> que criar uma tabela para cada um deles?
> Qual impacato eu teria se pegasse os três tabela CLIENTE?
> 
> É só isso pessoal
> 
> []'s
> DarkZad
> 
> __
> Faça ligações para outros computadores com o novo Yahoo! Messenger 
> http://br.beta.messenger.yahoo.com/ 
> 
> __
> Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows 
> Live.
> http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
> __
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> 
> 
> _
> Novo site do Windows Live: Novidades, dicas dos produtos e muito mais. 
> Conheça!
> http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> 
> 
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
> 
> 
  
_
Com o Internet Explorer 8 você tem seu contéudo favorito em poucos cliques. 
Conheça!
http://brasil

RE: [delphi-br] Dúvi da com SQL

[Gilson gindre gindre]

pessoal banco vc pode usar qquer um, com qquer linguagem de programação, parece 
que estou desaprendendo aqui, Dark vc pode fazer o que achar certo referente 
relacionamento, mas vc tem que pensar o seguinte, um bom sitema, bem elaborado 
pensa em problemas futuros, imagina vc precisar de um relatório de quem pagou o 
frete ou seja se é cif ou fob, um relatorio só de clientes, então pense nisso, 
vc pode tambem incluir mais um camo em sua tabela, onde vc pode gravar o tipo 
do cadastro por exemplo ! 1 remetente 2 destinatario 3 pagador, ai sim 
futuramente vc terá um parametro para filtrar sua consulta, ah pessoal não 
programo em delphi, entrei aqui para tentar aprender, mas tem muita gente 
ignorante, leio email de todos vcs, e respetio todos, e estou aqui afim de 
aprender delphi com todo respeito, conhecimento é uma riqueza que devemos 
compartilhar, desenvolvo em flex, php e mysql, um abraço a todos, epero que me 
deixem aprender delphi !


 


To: delphi-br@yahoogrupos.com.br
From: wchag...@bol.com.br
Date: Sun, 29 Nov 2009 05:35:58 -0300
Subject: Re: [delphi-br] Dúvida com SQL

  



Bom se voce acha que isto não tem nada haver com Delphi então é porque voce 
está na área errada ou não é desenvolvedor de software e sim um mero pregrador 
de botão em form.

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/

- Mensagem original 
De: Matheus Nabao 
Para: "delphi-br@yahoogrupos.com.br" 
Enviadas: Sexta-feira, 27 de Novembro de 2009 11:38:56
Assunto: RE: [delphi-br] Dúvida com SQL

O que é que isso tem a ver com Delphi?

To: delphi-br@yahoogrupos.com.br
From: dark...@yahoo.com.br
Date: Fri, 27 Nov 2009 11:35:26 -0300
Subject: [delphi-br] Dúvida com SQL

Olá pessoal,

Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete.

Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se 
relacionam.

Dúvida:

No Cabeçalho do Conhecimento tenho os campos:
Remetente
Destinatário
Pagador

Pergunta:
Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho 
que criar uma tabela para cada um deles?
Qual impacato eu teria se pegasse os três tabela CLIENTE?

É só isso pessoal

[]'s
DarkZad

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

__
Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows 
Live.
http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09

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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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




  
_
Novo site do Windows Live: Novidades, dicas dos produtos e muito mais. Conheça!
http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09

[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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Impressora Fiscal Zantus

[Gilson]

Algum colega poderia compartilhar o código da finalização do cupom fiscal da
impressora Zantus, é que estou precisando informar no rodapé do cupom os
dados do cliente (nome, cpf, etc...) e não estou conseguindo. Já procurei na
net mas não encontrei nada a respeito. Ou seja, consigo finalizar o cupom
mas não consigo inserir estas informações no rodapé. Fico grato a quem puder
ajudar.

PS: Utilizo Delphi 7 com Firebird 1.5

Atenciosamente,

Gilson


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

[delphi-br] MyDac com ou sem DatasetProvider + Clientdataset

[Gilson]

Caros colegas,

Na opinião de vcs, qual seria a melhor opção para mudar um sistema que já
usa dbexpress para mydac?

1 - Seria substituir o trio sqldataset+datasetprovider+clientdataset pela
query do mydac

2 - Utilizar a query do mydac + datasetprovider+ clientdataset

ou teria outra alternativa melhor?


Agradeço as opiniões,


Gilson


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

Re: [delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona

[Gilson]

Já verificou o firewall? Libere a porta 3050.

[]'s

Gilson

2008/10/8 Coutinho - Yahoo <[EMAIL PROTECTED]>

> Acho que o que ele não fez foi copiar a midas.dll para o diretório da
> aplicação na máquina nova...
> Tenho aplicativos que usam Midas, e é imprescindível copiar a midas.dll
> para o diretório onde está o aplicativo, e ainda executar:
> no "executar do botão iniciar"
> regsvr3 
>
> Ok?
>
>
>
> Odail Della Niesi Junior escreveu:
>  >
> > Fábio,
> >
> > Coloque na uses do Projeto a biblioteca MidasLib.
> >
> > Fabio Ferreira escreveu:
> > >
> > > Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3.
> > > O mesmo programa funciona numa maquina. Qdo levo o programa para a
> outra
> > > maquina, não funciona.
> > >
> > > Na maquna esta isntalado o Client do FireBird.
> > >
> > > Clico no icone do programa, e simplesmente ele não entra e nem da
> > mensagem
> > > de erro.
> > >
> > > Abs
> > >
> > > 2008/10/8 Fabiano SJC <[EMAIL PROTECTED]
> > <mailto:fabianoconrado%40gmail.com >
> > > <mailto:fabianoconrado%40gmail.com >>
> > >
> > > >
> > > > Amigo,
> > > >
> > > > Não entendi exatamente o que vc gostaria de fazer, explique melhor
> ok,
> > > > descreva o que exatamente esta usando!, qual componente de acesso ao
> > > > banco etc...
> > > > Aqui não é o local mais apropriado para tais perguntas por ser um
> > > > grupo do Delphi 4 PHP!, mas, tudo bem por mim!.
> > > >
> > > > Caso queira somente rodar seu programa em outra maquina, verifique se
> > > > o firebird esta instalado, se vc usou o DBE para acesso ao banco
> > > > (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a
> > > > alias no mesmo esta criada; se o seu sistema foi feito para rodar em
> > > > apenas uma maquina usando banco local, vc pode ainda ignorar as
> etapas
> > > > acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as
> > > > dll e o banco para pasta, mas, deve ser a do firebird embarcado!)
> > > >
> > > > um abraço,
> > > >
> > > > Fabiano Conrado
> > > > SJCampos (PHP, Delphi)
> > > >
> > > > On 4 out, 14:25, "Fabio Ferreira" <[EMAIL PROTECTED]
> > <mailto:fabio.aracajusi...%40gmail.com
> >
> > > <mailto:fabio.aracajusi...%40gmail.com
> >>
> > > > wrote:
> > > > > Boa Tarde
> > > > > Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD.
> > > > >
> > > > > Coloquei todas as DLLs necessárias no diretório principal de
> > onde vou
> > > > > executar o programa.
> > > > >
> > > > > Quando eu clico no Programa, ele não abre e não da nenhuma
> > mensagem de
> > > > erro.
> > > > >
> > > > > Na minha maquina , de desenvolvimento, funciona normalmente.
> > > > >
> > > > > O que fazer?
> > > > >
> > > > > Abs
> > > > --~--~-~--~~~---~--~~
> > > > Você recebeu esta mensagem do Grupo "Delphi + PHP".
> > > >
> > > > Para postar, envie um e-mail para [EMAIL PROTECTED]
> > <mailto:delphimaisphp%40googlegroups.com
> >
> > > <mailto:delphimaisphp%40googlegroups.com
> >
> > > >
> > > > Para cancelar a sua inscrição, envie um e-mail para
> > > > [EMAIL PROTECTED]
> > <mailto:delphimaisphp-unsubscribe%40googlegroups.com
> >
> > > <mailto:delphimaisphp-unsubscribe%40googlegroups.com
> >
> > > >
> > > > Visite este grupo em
> > > > http://groups.google.com.br/group/delphimaisphp?hl=pt-BR
> > <http://groups.google.com.br/group/delphimaisphp?hl=pt-BR>
> > > <http://groups.google.com.br/group/delphimaisphp?hl=pt-BR
> > <http://groups.google.com.br/group/delphimaisphp?hl=pt-BR>>
> > > > -~--~~~~--~~--~--~---
> > > >
> > > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> >
> > --
> > []s,
> >
> > Odail Della Niesi Junior
> > São Pedro-SP
> >
> >
>
>
>
> 
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>


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

Re: [delphi-br] OFF SUPORTE DELPHI

[Gilson]

Acesse: http://www.theclub.com.br/

Acredito que o serviço q eles oferecem é bem o q vc precisa.

[]'s

Gilson

2008/7/15 Roberto <[EMAIL PROTECTED]>:

> Vc esta onde, em São Miguel? Se estiver nossa empresa se candidata.
>
>  - Original Message -
>  From: Adevaldo Oliveira
>  To: delphi-br@yahoogrupos.com.br
>  Sent: Tuesday, July 15, 2008 5:37 PM
>  Subject: [delphi-br] OFF SUPORTE DELPHI
>
>
>  Ola, gostaria de saber se alguem da lista poderia me indicar alguma
> empresa que presta suporte em delphi 7, tenho interesse em comprar por um
> tempo pacote de suporte com pagamento mensal.
>
>  Gratos
>
>
>
>  -
>  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail.com.
>
>  [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.138 / Virus Database: 270.4.11/1554 - Release Date: 7/15/
> 18:03
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> 
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>


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

[delphi-br] Mainmenu Delphi 2006

[Gilson]

Alguém sabe dizer como faço para que os ítens de um mainmenu (padrão do
delphi) sejam exibidos em tempo de projeto?

Obs: Se eu der um duplo click no objeto ele mostra, mas eu quero é que os
ítens sejam exibidos como se o sistema estivesse em execução.

Obrigado,


Gilson


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

[delphi-br] REPORT BUILDER

[Gilson]

Bom dia!

Pessoall é o seguinte, tenho q fazer um contrato no Report Builder com
as seguintes caracteristicas:

- O conteúdo básico do contrato precisa de duas páginas.
- uma para o cabeçalho e alguns registros
- outra para as cláusulas do contrato (q são muitas).
- Mas o tamanho total pode variar de acordo com a quantidade de
registros q podem conter no contrato. Ex: se a quntidade de registros
for 120 o relatório teria aproximadamente quatro páginas, uma para o
cabeçalho, duas para os registro e uma para  restatne do contrato.


Agradeço qualquer ajuda,

Obs: Caso alguém conheça uma solução utilizando outro gerador de
relatórios, será bem-vinda tmb!

[]'s

Gilson

RES: [delphi-br] Verificador de datas

[Gilson]

Tenta assim

try
  StrToDate(Edt_Data.text);
 except
  on EConvertError do
  begin
   Mensagem ('A Data Informada é Inválida !');
   Edt_Data.SetFocus;
  end
 end;

[]'s

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Ravelli
Enviada em: terça-feira, 12 de dezembro de 2006 15:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificador de datas

Tenho alguns cadastros com campos data para o usuário preencher, gostaria de
saber como eu posso fazer um verificador de datas para ver se usuário não
digitou uma data errada, como por exemplo: 18/20/2000.

Obrigado.
Ricardo Ravelli.


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Links do Yahoo! Grupos

 

-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.16/582 - Release Date: 11/12/2006
16:32
 

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.16/582 - Release Date: 11/12/2006
16:32
 

[delphi-br] PROBLEMAS IMPRESSÃO BOLETO BB

[Gilson]

Senhores,

Estou usando o GbBoleto e preciso descobrir uma forma (se é que existe) de
imprimir (vizualizando) vários boletos ao mesmo tempo.

 

Exemplo: Se for apenas uma parcela ok. Ele vizualiza e imprime certinho.

Agora se eu tiver cinco parcelas, como faço para vizualizar todas as cinco
parcelas antes de imprimir?? (sem ter q fecha o QR pra abrir novamente a
cada parcela)

Já vi q o componente usa um mecanismo em XML pra fazer algo do tipo, mas não
consegui descobrir como implementar isso.

 

Agradeço a ajuda de todos,

 

Gilson

 



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

RES: [delphi-br] Erro Saida Sistema

[Gilson]

Tente mudar a propriedade FormStyle do formulário de: fsMDIForm para:
fsNormal ( apenas para testar se o erro ocorre neste formato )


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Paulo Batalhão
Enviada em: sexta-feira, 22 de setembro de 2006 15:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Erro Saida Sistema

verifique se voce não está destruindo um form e tentando em seguinda 
acessa-lo. ou não está criando e
mesmo assim tentando abrir ele !
.

abraço. espero ter ajudado.

- - - -
att' Paulo Batalhão
arphanet.com 
batalhao.eti.br 
saudeamericana.com.br 
fusame.com.br 

"Não existe patch para a estupidez humana"
- Original Message - 
From: "Marcelo I. Barby" <[EMAIL PROTECTED]>
To: 
Sent: Friday, September 22, 2006 2:53 PM
Subject: [delphi-br] Erro Saida Sistema


Pessoal,



Tem um erro que me atormenta a algum tempo, e não consigo
identificar o problema, utilizo delphi 7 e quando saio do sistema ele me da
uma mensagem de erro da sequinte maneira,



except EaccessViolation in module faturamento.exe  at . Acess
violation at adress . Read of adress .



Já tentei de tudo via F7, F8 para tentar identificar o problema, tenho 9
data modules no projeto.



Alguém tem alguma idéia de como posso resolver este caso.



Atenciosamente,



Marcelo I. Barby

[EMAIL PROTECTED]

Analista de Sistemas

Teorema Informática Ltda

  www.teorema.inf.br

(0xx42) 3035-4030





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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >



Links do Yahoo! Grupos










-- 
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus.
Versão: 7.1.407 / Banco de dados de Vírus: 268.12.8/455 - Data de 
Lançamento: 22/9/2006




-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >


 
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]
 
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] Ajuda com Select

[Gilson]

Boa tarde!

 

 

Preciso obter o total de itens cuja data da última compra seja igual,
conforma demonstrado no exemplo abaixo:

 

NF código  quantidade data_compra 

123456   0001 10 18/09/2006

789456   0001 20 18/09/2006

415263   0001 50 15/09/2006

142536   0002 15 16/09/2006

487755   0002 20 16/09/2006

546789   0002 60 17/09/2006

 

 

O resultado deverá ser:

 

0001 30 18/09/2006

0002 60 17/09/2006

 

Ou seja, eu estarei somando apenas as quantidade dos produtos que tenham
data da compra é igual à data da última compra.

 

Obs 1: não tenho gravada a data da última compra em lugar algum...

Obs 2: Delphi 7 + Firebird 1.5 

 

Agradeço a ajuda,

 

[]’s

 

Gilson



[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]
 
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] Duvida sobre um DBGrid Zebrado

[Gilson]

Tente assim:

procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect: 
TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
x := DM.cAluno.RecNo mod 2;
  if x <> 0 then
begin
  DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.Brush.Color := $00F0F8FF;
end
else
  if x = 0 then
begin
  DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.Brush.Color := clWhite;
end;
if gdselected in state then   // se a linha estiver selecionada
  dbgrid1.Canvas.Font.Color := clwhite;  // muda a cor do texto
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;

[]'s

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de henriquefari
Enviada em: sábado, 16 de setembro de 2006 16:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvida sobre um DBGrid Zebrado

E ai galera, tranquilo com vcs?

Eu estou terminado minha aplicação, e estou introduziondo o o dbgrig 
zebrado, ele está funcioanndo perfeitamente, como segue a linha de 
código abaixo.

Porém por eu ter setado a cor da linhae da fonte, a linha selecionada 
não muda de cor, e não estou conseguindo manipular a linha 
SELECIONADA, para mudar ela de cor.

Quem souber como manipula ela, agradeço muito!

Abraços,

Henrique Faria

--

procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect: 
TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
x := DM.cAluno.RecNo mod 2;
  if x <> 0 then
begin
  DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.Brush.Color := $00F0F8FF;
end
else
  if x = 0 then
begin
  DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.Brush.Color := clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
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] Tempo Restante - trabalhando com datas - help-me please!!

[Gilson]

Outra maneira bem simples seria vc usar um campo calculado!
Desta forma, vc sempre teria os resultados atualizados toda vez q executasse
a consulta.

[]'s
Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ulisses
Enviada em: quarta-feira, 13 de setembro de 2006 14:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Tempo Restante - trabalhando com datas - help-me
please!!

Você precisa listar para cada registro, os dias que faltam para a data da
Tarefa?

Pode fazer isso de várias maneiras, sem precisar gravar na tabela do banco
de dados.

Select Data_Tarefa, Data_Tarefa - Cast(Current_date as TimeStamp) as Dias
from Sua_Tabela

Creio que seja isso aí.

[]'s

Ulisses
  -Mensagem Original- 
  De: Moked - Thiago (Brasil) 
  Para: delphi-br@yahoogrupos.com.br 
  Enviada em: quarta-feira, 13 de setembro de 2006 13:48
  Assunto: RES: [delphi-br] Tempo Restante - trabalhando com datas - help-me
please!!


  então Ulisses,

  eu tenho uma data, ex: 25/12/2006
  hoje eh dia 13/09/2006 ... 

  preciso saber qtos dias faltam para chegar a 25/12/2006 entendeu?

  só que isso eu tenho que fazer toda vez que o sistema eh iniciado e quando
eh inserido um novo registro no dbgrid.


  ;) 

  valew


  Thiago Filiano - Suporte técnico
  Moked do Brasil - Consultoria de Segurança Empresarial
  Divisão Mokinf de Informática
  PABX: (55-11) 5071-2748
  [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  www.moked.com.br <http://www.moked.com.br/> 


  

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ulisses
  Enviada em: quarta-feira, 13 de setembro de 2006 13:33
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Tempo Restante - trabalhando com datas - help-me
please!!


  Boa tarde!

  Não sei se entendi, mas creio que vc precisa de algo como:
  Update Sua_Tabela SET Campo_dias_que_faltam =
Campo_Data_Tarefa-Cast(CURRENT_DATE AS TIMESTAMP)

  Boa sorte.

  Ulisses

  -Mensagem Original- 
De: Moked - Thiago (Brasil) 
Para: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
Enviada em: quarta-feira, 13 de setembro de 2006 11:53
Assunto: [delphi-br] Tempo Restante - trabalhando com datas - help-me
please!!


Bom dia!

Tenho a data de uma determinada tarefa em uma coluna do dbgrid, e na
coluna seguinte tenho que colocar a quantidade em dias que faltam para a
tarefa.

Preciso gravar essa quantidade (dias restantes)  no banco de dados, e
toda vez que abrir o sistema, ou no dia seguinte (após as 00:00) esse campo
ser atualizado, mostrando qtos dias aida faltam.


Alguém pode me ajudar?


obrigado.

Thiago Filiano - Suporte técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão Mokinf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
www.moked.com.br <http://www.moked.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]

   

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit

[Gilson]

Experimente colocar no evento OnEnter do edit2 algo como:
Edit2.Clear;

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Edison DRP
Enviada em: sábado, 2 de setembro de 2006 12:13
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Como eliminar caracteres excedentes em um acept de
TEdit

Caro Gilson
Sua sugestão não resolve, porque o accept vai sendo analisado caracter a
caracter digitado, de forma que, ao atingir o 8o. caracter, é feita a
validação do mesmo que, se for boa, o processo segue, caso contrário uma msg
de erro é mostrada.  Desta forma, ao processar os primeiros 8 caracteres e
aceitá-los,  passando desta forma ao proximo TEdit, os restantes caracteres
já foram lidos pelo scanner e são lançados na Edit 2.  Deu para entender o
que ocorre ?  Retirar os primeiros 8 caracteres isto já é feito e sem
problemas, o que não consigo é evitar que caracteres excedentes sejam
lançados no proximo campo de accept.(Edit2)
De qualquer forma obrigado
Edison

- Original Message - 
From: "Gilson" <[EMAIL PROTECTED]>
To: 
Sent: Saturday, September 02, 2006 8:42 AM
Subject: RES: [delphi-br] Como eliminar caracteres excedentes em um acept de
TEdit


Tente assim:

No exento onExit do edit coloque

Copy(edit1.text,1,8);

Desta forma, vc pode fazer os testes necessários usando apenas os 8
primeiros caracteres do edit.

[]'s

Gilson


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Edison Garcia
Enviada em: sexta-feira, 1 de setembro de 2006 22:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como eliminar caracteres excedentes em um acept de
TEdit

Prezados colegas
Estou quebrando a cabeça para resolver o seguinte problema:  em uma
TEdit onde espero receber uma string com 8 caracteres,faço um exame dos
caracteres digitados e ao atingir length = 8, testo se é o que deveria
ser digitado e estando OK, passo adiante para uma nova TEdit.  Até ai
tudo bem.  Mas, se o usuário ao invez de digitar, resolver utilizar um
scanner e ler um código de barras com mais de 8 caracteres, o que
ocorre é que, os primeiros 8 caracteres são examinados e se aceitos, o
sistema vai adiante, e coloca os caracteres excedentes lidos pelo
scanner na TEdit seguinte, o que não quero e eventualmente leva a erro.
O que quero é ler os primeiros 8 caracteres, examina-los e desprezar os
eventualmente presentes caracteres excedentes.  alguma sugestão ?
obrigado
Edison Garcia






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos









-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos












-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit

[Gilson]

Tente assim:

No exento onExit do edit coloque

Copy(edit1.text,1,8);

Desta forma, vc pode fazer os testes necessários usando apenas os 8
primeiros caracteres do edit.

[]'s

Gilson


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Edison Garcia
Enviada em: sexta-feira, 1 de setembro de 2006 22:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como eliminar caracteres excedentes em um acept de
TEdit

Prezados colegas
Estou quebrando a cabeça para resolver o seguinte problema:  em uma 
TEdit onde espero receber uma string com 8 caracteres,faço um exame dos 
caracteres digitados e ao atingir length = 8, testo se é o que deveria 
ser digitado e estando OK, passo adiante para uma nova TEdit.  Até ai 
tudo bem.  Mas, se o usuário ao invez de digitar, resolver utilizar um 
scanner e ler um código de barras com mais de 8 caracteres, o que 
ocorre é que, os primeiros 8 caracteres são examinados e se aceitos, o 
sistema vai adiante, e coloca os caracteres excedentes lidos pelo 
scanner na TEdit seguinte, o que não quero e eventualmente leva a erro.
O que quero é ler os primeiros 8 caracteres, examina-los e desprezar os 
eventualmente presentes caracteres excedentes.  alguma sugestão ?
obrigado
Edison Garcia






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

RES: RES: [delphi-br] Rotina para limpar campos dando problemas me unit sem form

[Gilson]

Eduardo,

Realmente vc tem razão, só depois é q percebi a real necessidade do colega e
vi q não estava 100%. Mas o bom da história é q agora com a colaboração de
todos ficou show!!

[]'s

Gilson 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo
Enviada em: sexta-feira, 1 de setembro de 2006 09:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Rotina para limpar campos dando problemas me
unit sem form

Gilson, desta forma não vai resolver o problema por q dentro da classe 
não existe estes obejetos.

Mas a sua ideia melhoraria a rotina disponibilizada pelo Rogerio Martins.

procedure LimparCampos(pai: TForm)
begin
   for  i := 0  to pai.ComponentCount -1 do
   begin
  if (pai.Components[i] is TCustomEdit) then
 TCustomEdit(pai.Components[i]).Clear;
   end;
end;



Eduardo


Gilson escreveu:
> Experimente usar desta forma:
>
> procedure TNomedoFormulario.LimparCampos;
> var
>   I: Integer;
>   Temp: TComponent;
> begin
>   for I := ComponentCount - 1 downto 0 do
>   begin
> Temp := Components[I];
> if (Temp is TCustomEdit) then
> begin
>   TCustomEdit(Components[i]).Clear;
> end;
>   end;
> end;
>
> Desta forma, todos os componentes que descendem de TCustomEdit (edits,
> maskedits, etc...) serão limpos!
>
> []'s
>
> Gilson
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
> nome de Welson Avelar
> Enviada em: quinta-feira, 31 de agosto de 2006 17:54
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Rotina para limpar campos dando problemas me unit
> sem form
>
> --- Praxis escreveu:
> > (...)
> > unit uApoio;//não está acoplada a um form
> >
> > interface
> >
> > uses
> >   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
> Forms,
> >   Dialogs, Mask, StdCtrls, Buttons, ExtCtrls, DBCtrls;
> >
> >
> >
> > //Exporta método pra outra unit
> >procedure LimparCampos;
> >
> >
> >
> > implementation
> >
> >uses ModuloDados, DateUtils, DB, IBQuery;
> >
> >
> >
> >  procedure LimparCampos;
> >   var  i : integer;
> >   begin
> >for  i := 0  to ComponentCount -1 do
> >begin
> >   if (Components[i] is TEdit) Then
> >  (Components[i] as TEdit).Clear;
> >
> >   if (Components[i] is TMaskEdit) then
> >   (Components[i] as TMaskEdit).Clear;
> >end;
> >
> >   end;
> >   
> >
> >
> > end.
> [--x--]
>
> [Welson] Passe um form como parâmetro. É assim que usamos aqui na empresa:
>
> procedure LimpaForm(Form: TForm);
> var i: integer;
> begin
>   { *** Percorre todos os Componentes do Form *** }
>   for i := 0 to Form.ComponentCount - 1 do
>   begin
> { *** LabeledEdit *** }
> if (Form.Components[i] is TLabeledEdit) then
>   TLabeledEdit(Form.Components[i]).Clear
> { *** Edit *** }
> else if (Form.Components[i] is TEdit) then
>   TEdit(Form.Components[i]).Clear
> { *** ComboBox *** }
> else if (Form.Components[i] is TComboBox) then
>   TComboBox(Form.Components[i]).ItemIndex := -1
> { *** Radio Group *** }
> else if (Form.Components[i] is TRadioGroup) then
>   TRadioGroup(Form.Components[i]).ItemIndex := -1
> { *** Radio Button *** }
> else if (Form.Components[i] is TRadioButton) then
>   TRadioButton(Form.Components[i]).Checked := False
> { *** Memo *** }
> else if (Form.Components[i] is TMemo) then
>   TMemo(Form.Components[i]).Lines.Clear
> { *** CheckBox *** }
> else if (Form.Components[i] is TCheckBox) then
>   TCheckBox(Form.Components[i]).Checked := False
> { *** MaskEdit *** }
> else if (Form.Components[i] is TMaskEdit) then
>   TMaskEdit(Form.Components[i]).Clear
>   end;
>
> end;
>
> Atente para o typecast: se você faz antes "(Form.Components[i] is
> TMaskEdit)",
> então faça o 'cast' diretamente com "TMaskEdit(Form.Components[i]).Clear".
> Uma
> vez o Daniel Poliblablabla (não sei escrever o sobrenome dele -_-') 
> explicou
> a
> diferença disso, mas sinceramente não me lembro.
>
> []s.
>
> =
> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
> Martin Luther King.
> =
> Welson de Avelar Soares Filho
> Analista/Programador Delphi
> Gemini Sistemas
> 
> Juiz de Fora - Minas Ger

RES: [delphi-br] campo tipo BLOB

[Gilson]

Neste site abaixo tem uma dica que pode ser útil.

http://delphi.about.com/library/weekly/aa030105a.htm

Espero ter ajudado,

[]'s

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de ca_programador007
Enviada em: quinta-feira, 31 de agosto de 2006 14:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] campo tipo BLOB

Olá galera

Criei uma tabela com o campo tipo BLOB, e no meu form coloquei o componente
memo.
Nas minhas consultas, este campo não mostra o conteúdo que está gravado, mas
mostra assim: (MEMO).

Tenho que fazer alguma conversão para o conteúdo gravado neste campo para
aparecer corretamente nas minhas consultas?

Valeu

CA_programador007.


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
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] Rotina para limpar campos dando problemas me unit sem form

[Gilson]

Experimente usar desta forma:

procedure TNomedoFormulario.LimparCampos;
var
  I: Integer;
  Temp: TComponent;
begin
  for I := ComponentCount - 1 downto 0 do
  begin
Temp := Components[I];
if (Temp is TCustomEdit) then
begin
  TCustomEdit(Components[i]).Clear;
end;
  end;
end;

Desta forma, todos os componentes que descendem de TCustomEdit (edits,
maskedits, etc...) serão limpos!

[]'s

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Welson Avelar
Enviada em: quinta-feira, 31 de agosto de 2006 17:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Rotina para limpar campos dando problemas me unit
sem form

--- Praxis escreveu:
> (...)
> unit uApoio;//não está acoplada a um form
> 
> interface
> 
> uses
>   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
>   Dialogs, Mask, StdCtrls, Buttons, ExtCtrls, DBCtrls;
> 
> 
> 
> //Exporta método pra outra unit
>procedure LimparCampos;
> 
> 
> 
> implementation
> 
>uses ModuloDados, DateUtils, DB, IBQuery;
> 
> 
> 
>  procedure LimparCampos;
>   var  i : integer;
>   begin
>for  i := 0  to ComponentCount -1 do
>begin
>   if (Components[i] is TEdit) Then
>  (Components[i] as TEdit).Clear;
> 
>   if (Components[i] is TMaskEdit) then
>   (Components[i] as TMaskEdit).Clear;
>end;
> 
>   end;
>
> 
> 
> end.
[--x--]

[Welson] Passe um form como parâmetro. É assim que usamos aqui na empresa:

procedure LimpaForm(Form: TForm);
var i: integer;
begin
  { *** Percorre todos os Componentes do Form *** }
  for i := 0 to Form.ComponentCount - 1 do
  begin
{ *** LabeledEdit *** }
if (Form.Components[i] is TLabeledEdit) then
  TLabeledEdit(Form.Components[i]).Clear
{ *** Edit *** }
else if (Form.Components[i] is TEdit) then
  TEdit(Form.Components[i]).Clear
{ *** ComboBox *** }
else if (Form.Components[i] is TComboBox) then
  TComboBox(Form.Components[i]).ItemIndex := -1
{ *** Radio Group *** }
else if (Form.Components[i] is TRadioGroup) then
  TRadioGroup(Form.Components[i]).ItemIndex := -1
{ *** Radio Button *** }
else if (Form.Components[i] is TRadioButton) then
  TRadioButton(Form.Components[i]).Checked := False
{ *** Memo *** }
else if (Form.Components[i] is TMemo) then
  TMemo(Form.Components[i]).Lines.Clear
{ *** CheckBox *** }
else if (Form.Components[i] is TCheckBox) then
  TCheckBox(Form.Components[i]).Checked := False
{ *** MaskEdit *** }
else if (Form.Components[i] is TMaskEdit) then
  TMaskEdit(Form.Components[i]).Clear
  end;

end;

Atente para o typecast: se você faz antes "(Form.Components[i] is
TMaskEdit)",
então faça o 'cast' diretamente com "TMaskEdit(Form.Components[i]).Clear".
Uma
vez o Daniel Poliblablabla (não sei escrever o sobrenome dele -_-') explicou
a
diferença disso, mas sinceramente não me lembro.

[]s.

=
"O que me preocupa não é o grito dos maus. É o silêncio dos bons."
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas

Juiz de Fora - Minas Gerais
=








___ 
Você quer respostas para suas perguntas? Ou você sabe muito e quer
compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
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] Uso da função TO_CHAR( )

[Gilson]

Caro Sergio,

Veja se este exemplo pode lhe ajudar.

[]'s,

Gilson


procedure TFrmPrincipal.btnExportarClick(Sender: TObject);
Var 
F: TextFile;
Vcampo1, vcampo2 : String;

Begin

Query.SQL.Clear;
Query.SQL.Add('select * from tabela');
Query.Open;


memo1.Lines.Clear;


Query.First;

 while not Query.Eof do
   begin
 Vcampo1 := Query.FieldbyName('campo1).AsString;
 while length(Vcampo1)< 6 DO vcampo1 := vcampo1 + ' ' ; // Faz com q a
//estring fique com o tamanho 6 mesmo q o conteudo dele seja inferior a
///isso.
 Vcampo2 := Query.FieldbyName('campo2).AsString;
 while length(Vcampo2)< 10 DO vcampo2 := vcampo2 + ' ' ; 

 Memo1.Lines.Add(vcampo1+vcampo2);
  
Query.Next;

   end;

 AssignFile(F, 'c:\arquivo.txt');
 Rewrite(F);
 WriteLn(F,MEMO1.TEXT);
 CloseFile(F);

End;



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Sérgio
Enviada em: terça-feira, 29 de agosto de 2006 10:45
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Uso da função TO_CHAR( )

Bom dia galera, blza?

To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a um
orgão publico. Cada campo deve estar previavemente formatado com os tamanhos
especificados pelo orgão. No meu Select, fiz uso da função TO_CHAR( ) para
formatar as colunas. Por exemplo: To_Char(campo1,'0') para trazer o
resultado com 5 digitos. Porém, qdo uso essa função parece q ela INSERE UM
ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu arquivo TXT
não pode conter esses "espaços", é uma coluna(campo) colada a outra, aí vos
pergunto: Como que faço pra evitar esses espaços Formato os campos com
alguma outra função que nao seja o To_Char??? Espero contar com ajuda dos
senhores..

Obrigado..

Sérgio 
Tecnologia da Informação - TI 
e-mail: [EMAIL PROTECTED] 
Usina Alta Mogiana S/A - Acucar e Alcool

 


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


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

[Gilson]

Já encontrei!! :D

No evento OnRetrieveFile vc pode usar assim:
  ProgressBar1.Position := vstream.Size;

E no evento OnGetFileSize voce pode fazer assim:

  ProgressBar1.Max := VFilesize;

Favor informar caso eu esteja enganado.

[]'s

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre Mesquita
Enviada em: sexta-feira, 25 de agosto de 2006 17:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] FTP

Application.ProcessMessages pode te ajudar.

O componente TidFtp possui um evento que mostra o total do arquivo e o total

transferido. Apartir daí você pode ver o andamento.

Seria interessante você implementar uma thread que faça o download, assim 
você poderá iniciar o(s) download(s) e continuar com a aplicação, já que o 
TidFtp é um componente "thread-safe".

No momento estou desenvolvendo uma aplicação aqui na empresa que existe uma 
thread se comunicando com um servidor Asterisk (telefonia) por telnet usando

threads. A execução é transparente. Esse sistema já possuia uma série de 
threads executando atividades diversas.

Implementa isso aí... vc não vai se arrepender.

[ ]'s

- Original Message - 
From: "pcinfowave" <[EMAIL PROTECTED]>
To: 
Sent: Friday, August 25, 2006 4:11 PM
Subject: [delphi-br] FTP


Ola, desenvolvi um sisteminha pelo delphi para uploads e downloads via
FTP c/ componentes Indy, porem quando vou enviar ou receber arquivos
grandes, o micro trava e tambem não tenho um controle de tempo para
saber como está o andamento do envio.

Alguem poderia me dar uma dica de como melhorar este programa ou um
outro meio de transitar com rquivos de +- 30MB com performance melhor.
Uso internet ADSL c/ velocidade de 100K a 300K.

Qualquer ajuda ou exemplo serão bem vindos

[]´s
Paulo






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos










-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


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

[Gilson]

Você poderia fazer a gentileza de informar qual é o evento do TidFtp q
determina o total do arquivo transferido??

Obrigado,

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre Mesquita
Enviada em: sexta-feira, 25 de agosto de 2006 17:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] FTP

Application.ProcessMessages pode te ajudar.

O componente TidFtp possui um evento que mostra o total do arquivo e o total

transferido. Apartir daí você pode ver o andamento.

Seria interessante você implementar uma thread que faça o download, assim 
você poderá iniciar o(s) download(s) e continuar com a aplicação, já que o 
TidFtp é um componente "thread-safe".

No momento estou desenvolvendo uma aplicação aqui na empresa que existe uma 
thread se comunicando com um servidor Asterisk (telefonia) por telnet usando

threads. A execução é transparente. Esse sistema já possuia uma série de 
threads executando atividades diversas.

Implementa isso aí... vc não vai se arrepender.

[ ]'s

- Original Message - 
From: "pcinfowave" <[EMAIL PROTECTED]>
To: 
Sent: Friday, August 25, 2006 4:11 PM
Subject: [delphi-br] FTP


Ola, desenvolvi um sisteminha pelo delphi para uploads e downloads via
FTP c/ componentes Indy, porem quando vou enviar ou receber arquivos
grandes, o micro trava e tambem não tenho um controle de tempo para
saber como está o andamento do envio.

Alguem poderia me dar uma dica de como melhorar este programa ou um
outro meio de transitar com rquivos de +- 30MB com performance melhor.
Uso internet ADSL c/ velocidade de 100K a 300K.

Qualquer ajuda ou exemplo serão bem vindos

[]´s
Paulo






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos










-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


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

[Gilson]

Muito Obrigado!

Realmente era isso!

Valeu!

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de JJW Informática Ltda. - Roberto
Enviada em: segunda-feira, 21 de agosto de 2006 16:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MDO

Se vc estiver utilizando a versão CLASSIC SERVER do Firebird/Interbase não
irá funcionar. o Classic Server cria 1 processo do fbserver.exe por vez e
retorna a lista de usuário conectados sempre como 1. para resolver isso,
utilize a versão Super Server
  - Original Message - 
  From: Gilson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 3:37 PM
  Subject: [delphi-br] MDO


  Caros colegas,



  Para determinar a quantidade de usuários que estão acessando a base de
dados
  utilizando o IBX eu usava o componente IbDataBaseInfo da seguinte maneira:



  'Usuários Conectados: '+inttostr(dados.IbDatabaseInfo1.UserNames.Count);



  E funcionava muito bem



  Agora estou tentando fazer a mesma coisa utilizando o MDO com um
componente
  correspondente o MDODatabaseInfo desta forma:



  'Usuários Conectados: '+inttostr(dados.MDODatabaseInfo1.UserNames.Count);



  Mas ele não está retornando a quantidade correta de usuários conectados à
  base de dados, ou seja, ele sempre mostra como se apenas um usuário
  estivesse conectado apesar de haver vários!



  Alguém poderia dar alguma dica de como posso obter a quantidade correta de
  usuários que estão acessando a base de dados utilizando o MDO!!



  Obrigado,



  Gilson







  [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




 





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] MDO

[Gilson]

Caros colegas,

 

Para determinar a quantidade de usuários que estão acessando a base de dados
utilizando o IBX eu usava o componente IbDataBaseInfo da seguinte maneira:

 

'Usuários Conectados: '+inttostr(dados.IbDatabaseInfo1.UserNames.Count);

 

E funcionava muito bem

 

Agora estou tentando fazer a mesma coisa utilizando o MDO com um componente
correspondente o MDODatabaseInfo desta forma:

 

'Usuários Conectados: '+inttostr(dados.MDODatabaseInfo1.UserNames.Count);

 

Mas ele não está retornando a quantidade correta de usuários conectados à
base de dados, ou seja, ele sempre mostra como se apenas um usuário
estivesse conectado apesar de haver vários!

 

Alguém poderia dar alguma dica de como posso obter a quantidade correta de
usuários que estão acessando a base de dados utilizando o MDO!!

 

Obrigado,

 

Gilson

 

 



[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]
 
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] Enviar arquivo via rede

[Gilson]

Experimente enviar assim:

Var
FileOpInfo: TSHFileOpStruct;
Origem, Destino : String;
begin
 With FileOpInfo Do
   Begin
 Wnd:= FrmFormulario.Handle;
 wFunc  := FO_COPY;
 pFrom  := Pchar (Origem +#0+#0); //É necessário manter os +#0+#0
 pTo:= Pchar (Destino);
 fFlags := FOF_WANTMAPPINGHANDLE;
 fFlags := FOF_NOCONFIRMATION;
   end;
  SHFileOperation (FileOpInfo);
  ShFreeNameMappings (GlobalHandle(FileOpInfo.hNameMappings));
end;

Naturalmente, Origem e destino correspondem ao caminho completo do arquivo
inclusive com o nome do micro ou IP.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Moked - Tamara (Brazil)
Enviada em: segunda-feira, 24 de julho de 2006 09:57
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Enviar arquivo via rede

 
 
   Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br  

Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo 
Nível de Prioridade:  Alto  Médio  Baixo
Destinatário/s: Lista de divulgação 
-
Bom dia,
 
Pessoal, estou com um problema para enviar arquivo via rede de uma máquina
para outro. Se eu enviar de uma pasta para outra no msm computador, td
funciona maravilhosamente bem, agora, se eu jogo um IP na frente (pode ser a
propria máquina) ñ consigo enviar.
 
Alguém poderia me dar uma ajuda de como fazer isso?
 
Obrigada,


Tamara
A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000

Serviços prestados no Brasil na área de segurança pessoal e empresarial: 
Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos |
Auditoria e Sindicância | Software de Gestão | Help-desk 24hs 

O emitente da mensagem é o responsável por seu conteúdo e divulgação,
proibindo sua reprodução sem a prévia autorização do mesmo. 
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos! 
 


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >


 
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]
 
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] select e update

[Gilson]

Tente Assim:

   UPDATE PRODUTOS
SET PREVENPRO = PREVENPRO + (:NOVO_PREVENPRO * PREVENPRO)
WHERE CODPRO IN (SELECT CODPRO FROM PRODUTOS
WHERE CODFOR= :CODFOR_FP
 AND   CODCLAEST BETWEEN  :CODCLAEST_FP1 AND  :CODCLAEST_FP2);

Sds,


Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Elton
Enviada em: terça-feira, 20 de junho de 2006 17:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] select e update

O CODPRO penso que ele  tem valor do select.
  - Original Message - 
  From: Elazar Dornelles Ceza 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 20, 2006 5:29 PM
  Subject: RES: [delphi-br] select e update


  Elton

  e o CODPRO, tem algum valor quando no loop??

  Atenc.
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  Em nome de Elton
  Enviada em: terça-feira, 20 de junho de 2006 15:43
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] select e update


  vejam o select :
  
  FOR SELECT CODPRO, PREVENPRO
FROM PRODUTOS
WHERE CODFOR= :CODFOR_FP
AND   CODCLAEST BETWEEN  :CODCLAEST_FP1 AND  :CODCLAEST_FP2
INTO CODPRO, PREVENPRO
DO
BEGIN
  UPDATE PRODUTOS
  SET PREVENPRO = PREVENPRO + (:NOVO_PREVENPRO * PREVENPRO)
  WHERE CODPRO = :CODPRO;
   SUSPEND;
END

  tem alguma coisa errada nisso ? porque nao da o update.

  UPDATE PRODUTOS
  SET PREVENPRO = PREVENPRO + (:NOVO_PREVENPRO * PREVENPRO)
  WHERE CODPRO = 1 <--  vejam , se
  eu colocar  o cod 1, ele da update
   SUSPEND;
END


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




  
  ___ 
  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora! 
  http://br.mobile.yahoo.com/mailalertas/ 


   

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
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] telas em laptop DELL

[Gilson]

Verifica se a fonte padrão do seu sistema está instalada no sistema
operacional do notebook do seu cliente! Caso esteja, tenta mudar a fonte no
seu sistema e verifica o que acontece...

Forte abraço,

Gilson 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Cleiton
Enviada em: quarta-feira, 21 de junho de 2006 13:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] telas em laptop DELL

Cara... eu desenvolvo com laptop dell e nunca tive problema com isso
  - Original Message - 
  From: Tatu-yahoogrupos 
  To: Delphi-Br 
  Sent: Wednesday, June 21, 2006 11:37 AM
  Subject: [delphi-br] telas em laptop DELL


  Estou com um  problema que está me enchendo as paciencias e nao consigo
  encontrar a solução.
  Tenho um cliente com Laptop dell (+/- 1 1/2 ano). Neste utilizaba o
sistema
  e os forms abriam normalmente.
  As grids mantinham o formato que eu definia , etc..etc..Porem tive que
  reformatar,
  ou como tem na dell deixar do jeito que veio de fabrica e agora ao abrir o
  "mesmo sistema", os forms abrem com barra de rolagem com as fontes maiores
  que as definidas, o mesmo ocorre com o "corpo da grid" (os titulos estão
  ok).
  Não achei na configuração do laptop nada que me permita alterar alguma
  configuracao que mude este tema
  ALguem ja utilizou laptop dell e teve o mesmo problema ???. Detalhe, nas
  outras maquinas (algumas dell inclusive) os forms abrem sem problemas


  Santiago...


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

   



--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.394 / Virus Database: 268.9.2/370 - Release Date: 20/06/2006

-- 
Esta mensagem foi verificada pelo sistema de antivírus e
 acredita-se estar livre de perigo.



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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
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]
 
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] Passagem de Parametros na SQL

[Gilson]

Defina 0 (zero) como valor padrão do campo!

Sds,

Gilson

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luis
Enviada em: segunda-feira, 19 de junho de 2006 14:38
Para: Delphi-Br
Assunto: [delphi-br] Passagem de Parametros na SQL

Galera é o seguinte...

Estou passando parâmetro para um SQL, certo..

mas eu gostaria de que quando o parâmetro vir com o valor zero, ele 
filtrar todos os campos, ou Null

teria como fazer isso na sql em run-time, tipo fazer uma condição

Ex:
 Ib_Pag.ParamByName('nFor').AsInteger := edtCodFor.AsInteger

Onde se  edtCodFor.AsInteger vier com Zero "0", ele filtrar todos os 
codigos cadastrados , nao somente o zero como esta fazendo agora

-- 

Grato pelo atenção

  Luís



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


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


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