[delphi-br] Capturar Informações de outros programa s...

[Onjahyr - GMAIL]

Olá pessoal

A tempos atrás eu tinha os fontes de um programa que capturava 
descrições ao passar o mouse por cima de um objeto. Por exemplo: Passar 
o mouse no Botão Iniciar do Windows >> mostrava a classe, nome, etc... e 
também nos programas. Alguém poderia lembrar o nome desse utilitário 
para eu pesquisar na net?
Me lembro que tinha os fontes, mas como tô apressado só basta o programa 
mesmo! É que tô tentando acessar o nome de um componente que tá dentro 
de outro componente. Como tenho mais de um desse componente eu queria 
saber o nome de apenas um dele para desabilitá-lo no meu programa:

type
TExemplo = class(TCom1);

(TExemplo).FButton.Enabled := False; // Desse jeito eu desabilito todos


Mais ou menos isso, a pressa é a imperfeição, mas não tô conseguindo 
raciocinar direito porque eu só penso nesse programinha que eu tinha

Se alguém sabe do que estou falando e sabe como fazer isso eu agradeço.

Blz.

Re: [delphi-br] Inserir dados no Mysql via SQL

[Joao Morais]

Eduardo Silva dos Santos wrote:
> Olá João, eu fiz um utilitário (
> http://www.drdsistemas.com.br/util/builder/Builder.htm )  que gera os dml's,
> é bem simples, mas  pelo menos a primeira vez quando estou desenvolvendo é
> automtático, depois para implementar novos campos eu edito o sql
> manualmente, imagina que até cerca de 2 anos era tudo na mão mesmo.. todo o
> select, todo o insert...  A unica diferença é que nao monto o SQL no código,
> deixo dentro da propriedade SQL.
> 
> da um pouco mais de trabalho, mas a liberdade que se tem é impressionante. e
> por mais que o pessoal fale eu acho muito mais fácil de dar manutenção
> assim, doque ter aquele monte de Query com seus TField's em dataModules e
> vez ou outra perdendo as ligações e por ai vai.
> 
> eu procuro usar o melhor dos 2 mundos, o bom e velho DBGrid ta lá nas
> buscas, agora no cadastro é SQL na unha.
> 
> quanto eu tiver mais livre vou estudar alguma forma de automatizar esse
> processo.

http://wiki.pressobjects.org/br/OPF
http://wiki.pressobjects.org/br/do_TDataSet_ao_MVP_e_OPF

Joao Morais

[delphi-br] Buscar Nome Tabela

[tiribim2006]

Preciso buscar o nome da tabela através de código que está no select do 
DataSet, uso DBExpress e clientDataSet. Preciso pegar dinamicamente.

Att

Egar

Re: [delphi-br] Inserir dados no Mysql via SQL

[Eduardo Silva dos Santos]

Olá João, eu fiz um utilitário (
http://www.drdsistemas.com.br/util/builder/Builder.htm )  que gera os dml's,
é bem simples, mas  pelo menos a primeira vez quando estou desenvolvendo é
automtático, depois para implementar novos campos eu edito o sql
manualmente, imagina que até cerca de 2 anos era tudo na mão mesmo.. todo o
select, todo o insert...  A unica diferença é que nao monto o SQL no código,
deixo dentro da propriedade SQL.

da um pouco mais de trabalho, mas a liberdade que se tem é impressionante. e
por mais que o pessoal fale eu acho muito mais fácil de dar manutenção
assim, doque ter aquele monte de Query com seus TField's em dataModules e
vez ou outra perdendo as ligações e por ai vai.

eu procuro usar o melhor dos 2 mundos, o bom e velho DBGrid ta lá nas
buscas, agora no cadastro é SQL na unha.

quanto eu tiver mais livre vou estudar alguma forma de automatizar esse
processo.

valew.

2008/7/4 Joao Morais <[EMAIL PROTECTED]>:

>   Eduardo Silva dos Santos wrote:
> > Eu faça dessa forma também, é mais trabalhosa, porem você não fica preso
> às
> > definições da tabela, usando essa tecnica você pode perfeitamente
> modificar
> > o tamanho do campo sem ter que mexer em nada no seu software.
> >
> > outro grande fator é a questão de você saber exatamente e controlar o SQL
> > que está sendo executado.
>
> Então Eduardo, já tinha ouvido falar da sua técnica mas achei que você
> automatizava a criação da dml de alguma forma. Criar funcionalidade deve
> ser um parto.
>
> --
> Joao Morais
>
> > outra alternativa seria usar DBEdits, mas usando essa tecnica se você
> mudar
> > o tamanho do campo ou tipo do dado você terá que modificar seu software,
> > removendo e adicionando os TFields.
> >
> > 2008/7/4 HNS Informática <[EMAIL PROTECTED] >:
> >
> >> Pessoal, tenho alguns edit.text e gostaria de saber a melhor forma de
> >> inserir em uma tabela mysql usando uma query.
> >>
> >> estou fazendo assim:
> >>
> >> query.close;
> >> query.sql.Clear;
> >> query.Sql.Add ('insert into Produtos (produto,Usuario)');
> >> query.Add ('Values(:Produto,:Usuario)');
> >> query.ParamByName('produto').value := editproduto.text;
> >> query.ParamByName('usuario').value := editusuario.text;
> >>
> >> query.execSql;
> >>
> >>
> >> o problema é que eu tenho que fazer a mão cada campo do formulario, o
> >> codigo vai ficar muito extenso, alguém sabe uma forma melhor de se fazer
> >> isso?
> >>
> >> obrigado a todos.. abraços...
> >>
> >> [As partes desta mensagem que não continham texto foram removidas]
> >>
> >>
> >>
> >
> >
> >
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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

Re: [delphi-br] Inserir dados no Mysql via SQL

[Joao Morais]

HNS Informática wrote:
> Pessoal, tenho alguns edit.text e gostaria de saber a melhor forma de inserir 
> em uma tabela mysql usando uma query.
> 
> estou fazendo assim:
> 
> 
>  query.close;
>  query.sql.Clear;
>  query.Sql.Add ('insert into Produtos (produto,Usuario)');
>  query.Add ('Values(:Produto,:Usuario)');
>  query.ParamByName('produto').value := editproduto.text;
> query.ParamByName('usuario').value := editusuario.text;
> 
>  query.execSql;
>   
> 
> o problema é que eu tenho que fazer a mão cada campo do formulario, o codigo 
> vai ficar muito extenso, alguém sabe uma forma melhor de se fazer isso?

Você pode criar um meio de armazenar as informações das tabelas, e criar 
rotinas que lêem estas informações e transformam em dml. Criar essa 
estrutura dá um trabalho infernal, mas geralmente você as encontra em 
frameworks de persistência. Então, ou você faz como já está fazendo, ou 
passa um trabalho infernal para automatizar, ou encara um opf ou parte 
para dbware.

--
Joao Morais

Re: [delphi-br] Inserir dados no Mysql via SQL

[Joao Morais]

Eduardo Silva dos Santos wrote:
> Eu faça dessa forma também, é mais trabalhosa, porem você não fica preso às
> definições da tabela, usando essa tecnica você pode perfeitamente modificar
> o tamanho do campo sem ter que mexer em nada no seu software.
> 
> outro grande fator é a questão de você saber exatamente e controlar o SQL
> que está sendo executado.

Então Eduardo, já tinha ouvido falar da sua técnica mas achei que você 
automatizava a criação da dml de alguma forma. Criar funcionalidade deve 
ser um parto.

--
Joao Morais



> outra alternativa seria usar DBEdits, mas usando essa tecnica se você mudar
> o tamanho do campo ou tipo do dado você terá que modificar seu software,
> removendo e adicionando os TFields.
> 
> 2008/7/4 HNS Informática <[EMAIL PROTECTED]>:
> 
>>   Pessoal, tenho alguns edit.text e gostaria de saber a melhor forma de
>> inserir em uma tabela mysql usando uma query.
>>
>> estou fazendo assim:
>>
>> query.close;
>> query.sql.Clear;
>> query.Sql.Add ('insert into Produtos (produto,Usuario)');
>> query.Add ('Values(:Produto,:Usuario)');
>> query.ParamByName('produto').value := editproduto.text;
>> query.ParamByName('usuario').value := editusuario.text;
>>
>> query.execSql;
>>
>>
>> o problema é que eu tenho que fazer a mão cada campo do formulario, o
>> codigo vai ficar muito extenso, alguém sabe uma forma melhor de se fazer
>> isso?
>>
>> obrigado a todos.. abraços...
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>  
>>
> 
> 
> 

Re: [delphi-br] Inserir dados no Mysql via SQL

[Eduardo Silva dos Santos]

Eu faça dessa forma também, é mais trabalhosa, porem você não fica preso às
definições da tabela, usando essa tecnica você pode perfeitamente modificar
o tamanho do campo sem ter que mexer em nada no seu software.

outro grande fator é a questão de você saber exatamente e controlar o SQL
que está sendo executado.

outra alternativa seria usar DBEdits, mas usando essa tecnica se você mudar
o tamanho do campo ou tipo do dado você terá que modificar seu software,
removendo e adicionando os TFields.

2008/7/4 HNS Informática <[EMAIL PROTECTED]>:

>   Pessoal, tenho alguns edit.text e gostaria de saber a melhor forma de
> inserir em uma tabela mysql usando uma query.
>
> estou fazendo assim:
>
> query.close;
> query.sql.Clear;
> query.Sql.Add ('insert into Produtos (produto,Usuario)');
> query.Add ('Values(:Produto,:Usuario)');
> query.ParamByName('produto').value := editproduto.text;
> query.ParamByName('usuario').value := editusuario.text;
>
> query.execSql;
>
>
> o problema é que eu tenho que fazer a mão cada campo do formulario, o
> codigo vai ficar muito extenso, alguém sabe uma forma melhor de se fazer
> isso?
>
> obrigado a todos.. abraços...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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

[delphi-br] Inserir dados no Mysql via SQL

[HNS Informática]

Pessoal, tenho alguns edit.text e gostaria de saber a melhor forma de inserir 
em uma tabela mysql usando uma query.

estou fazendo assim:


 query.close;
 query.sql.Clear;
 query.Sql.Add ('insert into Produtos (produto,Usuario)');
 query.Add ('Values(:Produto,:Usuario)');
 query.ParamByName('produto').value := editproduto.text;
query.ParamByName('usuario').value := editusuario.text;

 query.execSql;
  

o problema é que eu tenho que fazer a mão cada campo do formulario, o codigo 
vai ficar muito extenso, alguém sabe uma forma melhor de se fazer isso?


obrigado a todos.. abraços...

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

Re: [delphi-br] Borcon 2008

[Eduardo Silva dos Santos]

Acho que o assunto de correção de um bug no Delphi é de interesse de toda
lista.

desculpem por ter invadido a thread.

2008/7/4 Rubem Nascimento da Rocha <[EMAIL PROTECTED]>:

>
> Num pudia ter direcionado esse e-mail direto pra ele ao invés de, além de
> usar uma mesma thread da lista, mandar pra todo mundo da lista? Ou então ter
> aberto uma outra thread?
>
> Sds.
>
> 
>
> To: delphi-br@yahoogrupos.com.br 
> From: [EMAIL PROTECTED] 
> Date: Fri, 4 Jul 2008 19:26:38 -0300
> Subject: Re: [delphi-br] Borcon 2008
>
> Meu caro Andreano, mudando de assunto, e quanto ao bug que eu te reportei
> no
> object inspector?
>
> http://www.drdsistemas.com.br/util/d2007/Bug_ObjectInspector.htm
>
> alguma novidade?
>
> 2008/7/4 Andreano Lanusse <[EMAIL PROTECTED]
> >:
>
> > Pessoal,
> >
> > Assim que tivermos notícias sobre o Developer Conference :), informaremos
> > vocês.
> >
> > []'s
> > Andreano
> >
> > From: delphi-br@yahoogrupos.com.br [mailto:
> > delphi-br@yahoogrupos.com.br  ] On
> Behalf
> > Of Apoio
> > Sent: Friday, July 04, 2008 12:08 PM
> >
> > To: delphi-br@yahoogrupos.com.br 
> > Subject: Re: [delphi-br] Borcon 2008
> >
> > será que a Embarcadero vai fazer algo diferente?!!
> >
> > Podia servir churrasco no coffe breack . (hahahahah)
> >
> > Vamo la come pizza dinovo com o Bruno .
> >
> > Dessa vez ele paga a conta...
> >
> > - Original Message -
> > From: Rubem Nascimento da Rocha
> > To: delphi-br@yahoogrupos.com.br delphi-br%
> 40yahoogrupos.com.br >
> > Sent: Friday, July 04, 2008 3:58 PM
> > Subject: RE: [delphi-br] Borcon 2008
> >
> > Tenho fé em Deus que eu irei este ano!
> > Sds.
> >
> > 
> >
> > To: delphi-br@yahoogrupos.com.br delphi-br%
> 40yahoogrupos.com.br >
> > From: [EMAIL PROTECTED] 
> >  >>
> > Date: Fri, 4 Jul 2008 15:55:09 -0300
> > Subject: [delphi-br] Borcon 2008
> >
> > Alguém sabe se teremos um Borcon 2008? Se sim, quando será?
> >
> > __
> > Confira vídeos com notícias do NY Times, gols direto do Lance,
> > videocassetadas e muito mais no MSN Video!
> > http://video.msn.com/?mkt=pt-br
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > CONFIDENTIALITY NOTICE: This email message is for the sole use of the
> > intended recipient(s)
> > and may contain confidential and privileged information. Any unauthorized
> > review, use,
> > disclosure or distribution is prohibited. If you are not the intended
> > recipient, please
> > contact the sender by reply email and destroy all copies of the original
> > message.
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com.br/
>
> __
> Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
> Messenger! É GRÁTIS!
> http://www.msn.com.br/emoticonpack
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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

RE: [delphi-br] Borcon 2008

[Rubem Nascimento da Rocha]

Num pudia ter direcionado esse e-mail direto pra ele ao invés de, além de usar 
uma mesma thread da lista, mandar pra todo mundo da lista? Ou então ter aberto 
uma outra thread?
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 4 Jul 2008 19:26:38 -0300
Subject: Re: [delphi-br] Borcon 2008


Meu caro Andreano, mudando de assunto, e quanto ao bug que eu te reportei no
object inspector?

http://www.drdsistemas.com.br/util/d2007/Bug_ObjectInspector.htm

alguma novidade?

2008/7/4 Andreano Lanusse <[EMAIL PROTECTED]>:

> Pessoal,
>
> Assim que tivermos notícias sobre o Developer Conference :), informaremos
> vocês.
>
> []'s
> Andreano
>
> From: delphi-br@yahoogrupos.com.br [mailto:
> delphi-br@yahoogrupos.com.br ] On Behalf
> Of Apoio
> Sent: Friday, July 04, 2008 12:08 PM
>
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Borcon 2008
>
> será que a Embarcadero vai fazer algo diferente?!!
>
> Podia servir churrasco no coffe breack . (hahahahah)
>
> Vamo la come pizza dinovo com o Bruno .
>
> Dessa vez ele paga a conta...
>
> - Original Message -
> From: Rubem Nascimento da Rocha
> To: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> Sent: Friday, July 04, 2008 3:58 PM
> Subject: RE: [delphi-br] Borcon 2008
>
> Tenho fé em Deus que eu irei este ano!
> Sds.
>
> 
>
> To: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> From: [EMAIL PROTECTED] 
> >
> Date: Fri, 4 Jul 2008 15:55:09 -0300
> Subject: [delphi-br] Borcon 2008
>
> Alguém sabe se teremos um Borcon 2008? Se sim, quando será?
>
> __
> Confira vídeos com notícias do NY Times, gols direto do Lance,
> videocassetadas e muito mais no MSN Video!
> http://video.msn.com/?mkt=pt-br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> CONFIDENTIALITY NOTICE: This email message is for the sole use of the
> intended recipient(s)
> and may contain confidential and privileged information. Any unauthorized
> review, use,
> disclosure or distribution is prohibited. If you are not the intended
> recipient, please
> contact the sender by reply email and destroy all copies of the original
> message.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>

--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/

_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

Re: RES: [delphi-br] Escolher impressora - RESOLVIDO

[Maycon Sanches Amaro]

Galera consegui fazer aqui...sem gambiarra
Depois de tanta procura..

RPDev.DeviceIndex := RPDev.Printers.IndexOf('nome da impressora');


Att.
Maycon Sanches Amaro


Maycon Sanches Amaro escreveu:
> Pessoal, como não consegui encontrar nada na net referente a enviar ao 
> rave qual a impressora que quero imprimir em tempo de execucao tive 
> que fazer o seguinte. Qd crio o formulario ele define a impressora 
> padrao no win para a que eu quero e qd fecho o formulario ele volta 
> pra impressora que estava padrao antes.
>
> Essa mudanca de impressora tá ok, o problema e que o rave não 
> reconhece q a impressora que coloquei como padrao é a padrao, ele fica 
> com a antiga. Tentei dar um aPrinter.Free, 
> RvSystem1.SystemPrinter.Free; e nada.. ele nao reconhece q a padrao 
> foi alterada..
>
> Alguma dica..
>
>
> Ricardo César Cardoso escreveu:
>>
>> Não mexo com o Rave, mas acredito que deva existir alguma propriedade 
>> que aponte para um objeto TPrinter. Bastaria apontar a impressora 
>> para este objeto:
>>
>> IMPORTANTE: supondo que essa propriedade exista e se chame Printer, 
>> vc teria um código parecido com:
>>
>> {...}
>> var
>>   aImpressora: TPrinter;
>>
>> ...
>> ravereport.printer := aImpressora.PrinterIndex[ x ];
>>
>> {..}
>>
>> IMPORTANTE: não sei se o que sugeri acima existe, é de extrema 
>> importancia verificar quais propriedades um objeto do RaveReports tem.
>>
>> Atte,
>> Ricardo.
>>
>> --- Em qua, 2/7/08, Maycon Sanches Amaro <[EMAIL PROTECTED] 
>> > escreveu:
>> De: Maycon Sanches Amaro <[EMAIL PROTECTED] 
>> >
>> Assunto: Re: RES: [delphi-br] Escolher impressora
>> Para: delphi-br@yahoogrupos.com.br 
>> 
>> Data: Quarta-feira, 2 de Julho de 2008, 14:40
>>
>> Então.. eu nao to conseguindo enviar pro rave qual a impressora, listar
>>
>> as impressoras eu consegui mas como faço pra enviar pra ele que tem que
>>
>> ser impresso na impressora selecionada?
>>
>> Pensei em setar a impressora pra padrao e quando fechar o formulário
>>
>> voltar na que tava padrao antes, é uma gambiarra, mas se eu nao
>>
>> conseguir vou ter que fazer isso mesmo.
>>
>> Grato pela atenção.
>>
>> Att.
>>
>> Maycon Sanches Amaro
>>
>> Juliano Silva - Yahoo escreveu:
>>
>> >
>>
>> > Declare no USES "Printers", coloque no formulário um componente
>>
>> > TCombobox e
>>
>> > no evento OnShow deste formulário coloque o código abaixo
>>
>> >
>>
>> > procedure TForm1.FormShow( Sender: TObject);
>>
>> > var
>>
>> > i: Integer;
>>
>> > Printer: TPrinter;
>>
>> > begin
>>
>> > Printer := TPrinter.Create;
>>
>> > try
>>
>> > for i := 0 to Printer.Printers. Count - 1 do
>>
>> > begin
>>
>> > ComboBox1.Items. Add(Printer. Printers. Strings[i] );
>>
>> > end;
>>
>> > finally
>>
>> > Printer.free;
>>
>> > end;
>>
>> > end;
>>
>> >
>>
>> > Agora no Combobox você tem todas as impressoras instaladas, basta 
>> agora
>>
>> > selecionar uma e passar para a propriedade de impressão do 
>> relatório... Se
>>
>> > usar a imaginação tem bastante coisas que é possível fazer...
>>
>> >
>>
>> > Juliano
>>
>> >
>>
>> > _
>>
>> >
>>
>> > De: [EMAIL PROTECTED] os.com.br
>>
>> > 
>>
>> > [mailto:[EMAIL PROTECTED] os.com.br
>>
>> > ] Em
>>
>> > nome de Maycon Sanches Amaro
>>
>> > Enviada em: quarta-feira, 2 de julho de 2008 12:50
>>
>> > Para: [EMAIL PROTECTED] os.com.br > br%40yahoogrupos .com.br>
>>
>> > Assunto: Re: [delphi-br] Escolher impressora
>>
>> >
>>
>> > Nicolas, fiz como vc me explicou, mas como é que eu passo pro RAVE 
>> que a
>>
>> > impressora de impressao é a 2 por exemplo??
>>
>> >
>>
>> > Juliano os componentes TPrintDialog ou TPrintSetup estão na guia
>>
>> > Dialogs. Você tem algum exemplo de como uso eles?? PReciso enviar pro
>>
>> > rave o nome da impressora que tem que ser impressa de acordo com o
>>
>> > formulário.
>>
>> >
>>
>> > Grato pela atenção.
>>
>> >
>>
>> > Att.
>>
>> > Maycon Sanches Amaro
>>
>> >
>>
>> > Nicolas escreveu:
>>
>> > >
>>
>> > > Para isso eu utilizo a propriedade PrinterIndex do objeto Printer
>>
>> > >
>>
>> > > printer.printerinde x:=-1; // impressora padrão
>>
>> > > printer.printerinde x:=n; // onde n é o índice da impressora 
>> desejada
>>
>> > >
>>
>> > > []s
>>
>> > >
>>
>> > > alexandre
>>
>> > >
>>
>> > > - Original Message -
>>
>> > > From: Maycon Sanches Amaro
>>
>> > > To: [EMAIL PROTECTED] 
>>
>> > os.com.br
>>
>> > 
>>
>> > > Sent: Wednesday, July 02, 2008 8:30 AM
>>
>> > > Subject: [delphi-br] Escolher impressora
>>
>> > >
>>
>> > > Pessoal tenho duas impressoras instalados no meu micro, as duas 
>> estão na
>>
>> > > rede tipo \\sevidor\pr001 e \\servidor\pr002. A padrão é a 001 mas
>>
>> > > dependendo do formulário preciso que seja impresso na 002. Como 
>> faço pro
>>
>> > > delph

Re: [delphi-br] Borcon 2008

[Eduardo Silva dos Santos]

Meu caro Andreano, mudando de assunto, e quanto ao bug que eu te reportei no
object inspector?

http://www.drdsistemas.com.br/util/d2007/Bug_ObjectInspector.htm

alguma novidade?

2008/7/4 Andreano Lanusse <[EMAIL PROTECTED]>:

>   Pessoal,
>
> Assim que tivermos notícias sobre o Developer Conference :), informaremos
> vocês.
>
> []'s
> Andreano
>
> From: delphi-br@yahoogrupos.com.br [mailto:
> delphi-br@yahoogrupos.com.br ] On Behalf
> Of Apoio
> Sent: Friday, July 04, 2008 12:08 PM
>
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Borcon 2008
>
> será que a Embarcadero vai fazer algo diferente?!!
>
> Podia servir churrasco no coffe breack . (hahahahah)
>
> Vamo la come pizza dinovo com o Bruno .
>
> Dessa vez ele paga a conta...
>
> - Original Message -
> From: Rubem Nascimento da Rocha
> To: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> Sent: Friday, July 04, 2008 3:58 PM
> Subject: RE: [delphi-br] Borcon 2008
>
> Tenho fé em Deus que eu irei este ano!
> Sds.
>
> 
>
> To: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> From: [EMAIL PROTECTED] 
>  >
> Date: Fri, 4 Jul 2008 15:55:09 -0300
> Subject: [delphi-br] Borcon 2008
>
> Alguém sabe se teremos um Borcon 2008? Se sim, quando será?
>
> __
> Confira vídeos com notícias do NY Times, gols direto do Lance,
> videocassetadas e muito mais no MSN Video!
> http://video.msn.com/?mkt=pt-br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> CONFIDENTIALITY NOTICE: This email message is for the sole use of the
> intended recipient(s)
> and may contain confidential and privileged information. Any unauthorized
> review, use,
> disclosure or distribution is prohibited. If you are not the intended
> recipient, please
> contact the sender by reply email and destroy all copies of the original
> message.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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

Re: [delphi-br] Sugestão de impressora cupom ñ fiscal

[Fellipe Henrique]

Amigo, estou passando por algo parecido, a principio nenhuma impressora
não-fiscal funciona em sistemas de relatorios, você até consegue imprimir
direto na porta, mas nada usando crystal, report builder e etc. Mas o ideal
é usar a DLL que vem com a mini-impressora, que funcione 100%. Voce tem que
ver se seu PC tem porta LPT1, Serial ou USB, dependendo voce compra
impressora para tal porta, não adianta comprar uma que usa LPT1 e usar o
adaptador pra USB que não funciona, aconteceu comigo.

Se você quer Matricial, tem a MP20 (Serial/LPT1 - Não funciona em USB) da
bematech, já uma térmica tem a MP2100 (Serial/LPT1) ou MP4000(USB)...

[]s
Fellipe H.

2008/7/4 Alexsandro <[EMAIL PROTECTED]>:

>   Boa tarde pessoal,
> Alguem pode me indicar uma impressora de cupom matricial que tenha uma
> boa relação custo X beneficio, para usar numa biblioteca (Só para
> imprimir os recibos de empréstimos dos alunos ?
> E que funcione blz com o crystal .
>
> Obrigado pela atenção
>
>  
>



-- 
_
.-. T.·.F.·.A.·.
/v\ Fellipe Henrique
// \\ http://www.linkedin.com/in/fellipehenrique
/( )\ Sou a FAVOR da lei 0607/2007.
^^-^^


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

RE: [delphi-br] Lentidao com ClientDataset

[Bruno Lichot]

isso

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Lucas 
Eduardo Barao Neves
Sent: sexta-feira, 4 de julho de 2008 16:37
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Lentidao com ClientDataset


Bruno, quando voce menciona Transacoes Monitoradas, voce quer dizer no famoso 
dbxConnection.StartTransacation?

Obrigado mais uma vez!

--- Em sex, 4/7/08, Bruno Lichot <[EMAIL 
PROTECTED]> escreveu:
De: Bruno Lichot <[EMAIL PROTECTED]>
Assunto: RE: [delphi-br] Lentidao com ClientDataset
Para: "delphi-br@yahoogrupos.com.br" 
mailto:delphi-br%40yahoogrupos.com.br>>
Data: Sexta-feira, 4 de Julho de 2008, 15:41

Então, mas foi como te falei, operações em lotes, não use o ClientDataSet para 
inclui, alterar e excluir. Faça através da montagem dinâmica de sqls e use o 
método executedirect do sqlconnection para isso, sempre dentro de transações 
monitoradas.

Desta forma ficará ainda mais rápido e sem nenhum problema.

Abs

BL

From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On 
Behalf Of Lucas Eduardo Barao Neves

Sent: sexta-feira, 4 de julho de 2008 13:46

To: [EMAIL PROTECTED] os.com.br

Subject: RE: [delphi-br] Lentidao com ClientDataset

Bruno, muito obrigado! O processo ficou absurdamente mais rapido, mas ainda tem 
um problema:

Eu estou mandando o ApplyUpdates a cada 3000 registros e ainda assim, mais pro 
final do processo ele me retorna o erro "SQLDA error or incorrect version / 
types of variables", coisa assim. Ja verifiquei e nao e inconsistencia nos 
dados. Isso acontecia muito quando eu usava close/open toda hora.

Alguma sugestao?

Obrigado

--- Em qua, 2/7/08, Bruno Lichot mailto:bruno. 
lichot%40codegea r.com>> escreveu:

De: Bruno Lichot mailto:bruno. lichot%40codegea 
r.com>>

Assunto: RE: [delphi-br] Lentidao com ClientDataset

Para: "[EMAIL PROTECTED] os.com.br" 
<[EMAIL PROTECTED] os.com.br>

Data: Quarta-feira, 2 de Julho de 2008, 11:28

Salve Lucas,

É o seguinte.

Para fazer estes processamentos em lotes o ideal é ler os dados e navegar por 
eles com clientdatasets mesmo. Só que para navegação não use locate, use setkey 
com índices dinâmicos em memória no CDS que é estupidamente rápido. No meu 
primeiro exemplo do meu link de downloads gratuitos (HTTP://cc.codegear. 
com/author/ 795118) tem uma aplicações sobre recursos do ClientDataSet que 
implementa em um dos exemplos o setkey. Em tempo, estarei no FireBird 
Developers Day – FDD – dia 19/07 (WWW.firebirddevelo persday.com. br) fazendo 
uma palestra sobre estes e outros recursos.

Para manipular os dados, ou seja fazer inserts, deletes e updates dos 
registros, o melhor a se fazer e montar dinamicamente os comandos SQL e 
executá-los sempre dentro de uma transação monitorada usando o método 
ExecuteDirect do SQLConnection. No mesmo exemplo que indiquei na aplicação 
servidora, tem uma função na classe principal chamada incluipedidos que faz 
algo parecido desta forma que expliquei.

Faça o processamento em lote separado por tabelas e para cada um deles abra uma 
transação monitorada, processe o lote e feche a transação.

Desta forma ficará rápido o processamento e não trará problemas para o seu 
banco.

Dicas:

Tenha total controle das conexões que você utilizar, bem como das transações 
monitoradas.

Cuidado para não deixar objetos instanciados desnecessariamente, feche sempre 
os datasets quando não utilizar mais.

Verifique o tamanho de buffer em memória do FireBird para que não incorra no 
erro de ter um banco de 100 mb e um espaço em memória de 12 mb. O seu espaço em 
memória deve ser relativo ao tamanho do seu banco e limitado ao que você tem de 
RAM disponível e ao que outros recursos no Server também podem consumir. Ou 
seja não tenha de mais, mas também não tenha de menos.

Abraços,

BL

From: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] 
On Behalf Of Lucas Eduardo Barao Neves

Sent: quarta-feira, 2 de julho de 2008 10:33

To: [EMAIL PROTECTED] os.com.br

Subject: [delphi-br] Lentidao com ClientDataset

Bom dia pessoal, gostaria de uma ajuda de voces,

Estou trabalhando em um sistema de importacao de dados via arquivo TXT. Ele=

tem mais ou menos a seguinte estrutura:

Arquivo: +- 56000 linhas

Ele atualizara da seguinte forma:

Tabela 1 - 85000 registros

Para cada sequencial encontrado / criado, ele atualizara uma tabela 2 =3D 1=

 registros

Para cada um da tabela 2 ele atualizara ou fara insercoes em uma tabela 3 =

=3D 900 registroa

A tabela 3 fara a mesma coisa na tabela 4: 56000 registros (todos os regist=

ros do TXT)

Ja tentei das seguintes formas:

Somente com queries, uma para selecao, uma para insercao, uma para alteraca=

o;

Somente com queries, somente uma para selecao, insercao e alteracao,

Somente uma query com ClientDataSet 

RE: [delphi-br] Lentidao com ClientDataset

[Lucas Eduardo Barao Neves]

Bruno, quando voce menciona Transacoes Monitoradas, voce quer dizer no famoso 
dbxConnection.StartTransacation?

Obrigado mais uma vez!

--- Em sex, 4/7/08, Bruno Lichot <[EMAIL PROTECTED]> escreveu:
De: Bruno Lichot <[EMAIL PROTECTED]>
Assunto: RE: [delphi-br] Lentidao com ClientDataset
Para: "delphi-br@yahoogrupos.com.br" 
Data: Sexta-feira, 4 de Julho de 2008, 15:41











Então, mas foi como te falei, operações em lotes, não use o 
ClientDataSet para inclui, alterar e excluir. Faça através da montagem dinâmica 
de sqls e use o método executedirect do sqlconnection para isso, sempre dentro 
de transações monitoradas.





Desta forma ficará ainda mais rápido e sem nenhum problema.





Abs





BL





From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On 
Behalf Of Lucas Eduardo Barao Neves


Sent: sexta-feira, 4 de julho de 2008 13:46


To: [EMAIL PROTECTED] os.com.br


Subject: RE: [delphi-br] Lentidao com ClientDataset








Bruno, muito obrigado! O processo ficou absurdamente mais rapido, mas ainda tem 
um problema:





Eu estou mandando o ApplyUpdates a cada 3000 registros e ainda assim, mais pro 
final do processo ele me retorna o erro "SQLDA error or incorrect version / 
types of variables", coisa assim. Ja verifiquei e nao e inconsistencia nos 
dados. Isso acontecia muito quando eu usava close/open toda hora.





Alguma sugestao?





Obrigado





--- Em qua, 2/7/08, Bruno Lichot mailto:bruno. 
lichot%40codegea r.com>> escreveu:


De: Bruno Lichot mailto:bruno. lichot%40codegea 
r.com>>


Assunto: RE: [delphi-br] Lentidao com ClientDataset


Para: "[EMAIL PROTECTED] os.com.br" 
<[EMAIL PROTECTED] os.com.br>


Data: Quarta-feira, 2 de Julho de 2008, 11:28





Salve Lucas,





É o seguinte.





Para fazer estes processamentos em lotes o ideal é ler os dados e navegar por 
eles com clientdatasets mesmo. Só que para navegação não use locate, use setkey 
com índices dinâmicos em memória no CDS que é estupidamente rápido. No meu 
primeiro exemplo do meu link de downloads gratuitos (HTTP://cc.codegear. 
com/author/ 795118) tem uma aplicações sobre recursos do ClientDataSet que 
implementa em um dos exemplos o setkey. Em tempo, estarei no FireBird 
Developers Day – FDD – dia 19/07 (WWW.firebirddevelo persday.com. br) fazendo 
uma palestra sobre estes e outros recursos.





Para manipular os dados, ou seja fazer inserts, deletes e updates dos 
registros, o melhor a se fazer e montar dinamicamente os comandos SQL e 
executá-los sempre dentro de uma transação monitorada usando o método 
ExecuteDirect do SQLConnection. No mesmo exemplo que indiquei na aplicação 
servidora, tem uma função na classe principal chamada incluipedidos que faz 
algo parecido desta forma que expliquei.





Faça o processamento em lote separado por tabelas e para cada um deles abra uma 
transação monitorada, processe o lote e feche a transação.





Desta forma ficará rápido o processamento e não trará problemas para o seu 
banco.





Dicas:





Tenha total controle das conexões que você utilizar, bem como das transações 
monitoradas.





Cuidado para não deixar objetos instanciados desnecessariamente, feche sempre 
os datasets quando não utilizar mais.





Verifique o tamanho de buffer em memória do FireBird para que não incorra no 
erro de ter um banco de 100 mb e um espaço em memória de 12 mb. O seu espaço em 
memória deve ser relativo ao tamanho do seu banco e limitado ao que você tem de 
RAM disponível e ao que outros recursos no Server também podem consumir. Ou 
seja não tenha de mais, mas também não tenha de menos.





Abraços,





BL





From: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] 
On Behalf Of Lucas Eduardo Barao Neves





Sent: quarta-feira, 2 de julho de 2008 10:33





To: [EMAIL PROTECTED] os.com.br





Subject: [delphi-br] Lentidao com ClientDataset





Bom dia pessoal, gostaria de uma ajuda de voces,





Estou trabalhando em um sistema de importacao de dados via arquivo TXT. Ele=





tem mais ou menos a seguinte estrutura:





Arquivo: +- 56000 linhas





Ele atualizara da seguinte forma:





Tabela 1 - 85000 registros





Para cada sequencial encontrado / criado, ele atualizara uma tabela 2 =3D 1=





 registros





Para cada um da tabela 2 ele atualizara ou fara insercoes em uma tabela 3 =





=3D 900 registroa





A tabela 3 fara a mesma coisa na tabela 4: 56000 registros (todos os regist=





ros do TXT)





Ja tentei das seguintes formas:





Somente com queries, uma para selecao, uma para insercao, uma para alteraca=





o;





Somente com queries, somente uma para selecao, insercao e alteracao,





Somente uma query com ClientDataSet para selecao, insercao e alteracao.





Essas tres primeiras tentativas geravam tantos acessos ao banco de dados qu=





e chegava uma hora que dava um overflow dentro do banco (o famo

[delphi-br] Sugestão de impressora cupom ñ fiscal

[Alexsandro]

Boa tarde pessoal,
Alguem pode me indicar uma impressora de cupom matricial que tenha uma 
boa relação custo X beneficio, para usar numa biblioteca (Só para 
imprimir os recibos de empréstimos dos alunos ?
E que funcione blz com o crystal .

Obrigado pela atenção 

Re: RES: [delphi-br] Dúvida com Record

[Joao Morais]

Davi Eduardo Borges Wall wrote:
> Eu ainda diria para você tomar de costume sempre que possível
> inicializar variáveis. É uma boa prática de programação e
> evita problemas futuros.

Toda variável deve ser inicializada, sempre. Se ela for definida no 
corpo da unit (fora de um método, função ou procedimento), ela 
atualmente é pré-inicializada mas isso pode mudar em versões futuras do 
compilador. Se ela for definida dentro de uma rotina, ela é alocada no 
stack e virá com a tralha que já havia naquela região da memória.

No caso de campos de um record, eles são parte da própria variável e 
certamente seguem as mesmas regras. No caso de membros de uma classe, o 
construtor da classe (mais precisamente o método TObject.NewInstance) 
faz a limpeza implicitamente. Quando você:

TNovaClasse = class(TObject)
private
   FValue: Integer;
   FUmPonteiro: Pointer;
end;

ao criar uma instância de TNovaClasse você pode se assegurar de que 
FValue sempre será zero e que FUmPonteiro sempre será nil. Sempre. Em 
qualquer versão do compilador (Delphi ou FPC) atual ou futura. Por sinal 
eu costumo usar muita carga sob demanda, e uso esse truque aqui:

TCarga = class(TObject)
private
   FEncaps: TEncaps;
   function GetEncaps: TEncaps;
public
   destructor Destroy; override;
   property Encaps: TEncaps read GetEncaps;
end;

...

function TCarga.GetEncaps: TEncaps;
begin
   if not Assigned(FEncaps) then
 FEncaps := TEncaps.Create;
   Result := FEncaps;
end;

destructor TCarga.Destroy;
begin
   FEncaps.Free;
   inherited;
end;

Note que não existe create, que eu testo FEncaps sem inicializá-lo, que 
eu chamo FEncaps.Free sem saber se ele foi ou não foi criado, e isto é 
100% seguro. Mas isto é apenas dentro de uma classe. Maravilhas da OOP.

Meus $ 0,02

Joao Morais

Res: [delphi-br] Re: Instrução SQL

[Jean Barreiros]

Aco que o que vc procura é fazer união de resultados de SQL
se for, segue uma diaca:
Select T1.Campo1, T1.CampoX from Tabela1 T1
where ( (T1..CampoX = 'Qualquer coisa') )
union
Select T2.Campo1, T2.CampoX from Tabela1 T2
where ( (T2.CampoX = 'Outra coisa') )
 
OBS: os campos das duas tabelas devem ter conteudos do mesmo tipo e tamanho
 na ordem que se encontram.Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]



- Mensagem original 
De: Carlos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 2 de Julho de 2008 21:37:24
Assunto: [delphi-br] Re: Instrução SQL


Boa noite!
Sinceramente não entendi muito bem a sua dúvida, mas se for para
mostrar os campos que contenha os valores "SIM" e "NÃO" é muito simples.
select 
* 
from 
Tb_Exemplo 
where 
(Campo1 = "SIM")or
(Campo1 = "NÃO");
Caso não seja esta a sua dúvida(e sinceramente, creio que não seja),
peço para que você explique melhor para que assim possamos ajuda-lo.
Fraterno abraço,
Carlos

 


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Res: [delphi-br] TEm como desviar o OnCreate de todo s os forms, de forma genérica?

[Jean Barreiros]

Meu caro, não precisa desviar o OnCreate de nenhum form!
simplismente cria uma função ou procedure no form principal ou alguma outra 
unit que seus forms possam acessar e execute-a quando quizer.
eu faço isso usando o RDPrint, porque preciso configurá-lo igualmente
em varias partes do sistema.

 Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]



- Mensagem original 
De: Fellipe Henrique <[EMAIL PROTECTED]>
Para: "delphi-br@yahoogrupos.com.br" 
Enviadas: Quarta-feira, 2 de Julho de 2008 11:01:41
Assunto: [delphi-br] TEm como desviar o OnCreate de todos os forms, de forma 
genérica?


Olá amigos, tenho que passar alguns parametros para o ReportBuilder, alguns
relatorios, porém tem várias telas que usam, e não queria passar na mão uma
por uma.. teria como eu desviar o OnCreate do Form, de todos os Forms que
forem abrir, e depois de executar minha função, continuar no OnCreate do
próprio Form? Como faço isso, se é que tem jeito...:o)

[]s

-- 
 _ _ ___
.-. T.·.F.·.A.·.
/v\ Fellipe Henrique
// \\ http://www.linkedin .com/in/fellipeh enrique
/( )\ Sou a FAVOR da lei 0607/2007.
^^-^^

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

 


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail..com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] Form com BorderIcons = biHelp execut ar alguma ação

[Leandro]

valeu... pelo sofrimento... rsrsrs :)

t+

  - Original Message - 
  From: Onjahyr - GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 4:22 PM
  Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma ação


  Então usa o componente da JEDI que resolve teu problema. Aliás, vou logo 
  te passar o código abaixo prá não prolongar teu sofrimento (hahahaha):

  Aparecer uma mensagem ao clicar no botão Help do Form:

  *type*
  TForm1 = *class*(TForm)
  *private*
  *procedure* WMNCLBUTTONDOWN(*var* Msg: TWMNCLButtonDown) ; 
  *message* WM_NCLBUTTONDOWN;
  *procedure* WMNCLBUTTONUP(*var* Msg: TWMNCLButtonUp) ; *message* 
  WM_NCLBUTTONUP;
  *end*;

  *var*
  Form1: TForm;

  *implementation

  */{$R *.dfm}/

  *procedure* TForm1.WMNCLBUTTONDOWN(*var* Msg: TWMNCLButtonDown) ;
  *begin*
  *if* Msg.HitTest = HTHELP *then*
  Msg.Result := 0
  *else*
  *inherited*;
  *end*;

  *procedure* TForm1.WMNCLBUTTONUP(*var* Msg: TWMNCLButtonUp) ;
  *begin*
  *if* Msg.HitTest = HTHELP *then*
  *begin*
  Msg.Result := 0;
  ShowMessage('O botão Help foi clicado!') ;
  *end*
  *else*
  *inherited*;
  *end*;

  Pronto problema resolvido. Era para ter dito antes, mas enrolei para 
  facilitar o teu lado.

  Blz

  Onjahyr

  Leandro escreveu:
  >
  > Onjahyr...
  >
  > O componente funcionou legal, mas não resolveu meu problema. Isso por 
  > quê eu queria executar
  > uma determinada ação minha quando clicassem na "?", e não chamar o 
  > help. Por exemplo, mostrar
  > uma mensagem para o usuário.
  >
  > De qualquer forma, vou dar uma estudada no código do componente. 
  > Talvez eu consiga implementar
  > algo através dele.
  >
  > Muito obrigado,
  >
  > Leandro
  >
  > - Original Message -
  > From: Onjahyr - GMAIL
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Friday, July 04, 2008 10:10 AM
  > Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma 
  > ação
  >
  > Acabei de enviar o componente para seu e-mail... Se funcionar para o que
  > deseja dê um retorno!
  >
  > Blz.
  >
  > Leandro escreveu:
  > >
  > > Valeu cara...
  > >
  > > Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma
  > > olhada nesse do Jedi.
  > >
  > > Muito obrigado.
  > >
  > > Leandro
  > >
  > > - Original Message -
  > > From: Onjahyr - GMAIL
  > > To: delphi-br@yahoogrupos.com.br 
  >  
  > 
  > > Sent: Friday, July 04, 2008 9:19 AM
  > > Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma
  > > ação
  > >
  > > Tenho outra alternativa.
  > >
  > > Procurei e não achei, mas eu tenho pois já usei.
  > >
  > > Outra alternativa:
  > >
  > > Instale os componentes da JEDI, são 333 componentes.
  > > Após instalação, copie o texto abaixo e cole no seu form:
  > >
  > > object JvCaptionButton1: TJvCaptionButton
  > > Alignment = taCenter
  > > ButtonHeight = 18
  > > ButtonLeft = -31
  > > ButtonTop = -2
  > > ButtonWidth = 25
  > > ShowHint = True
  > > ParentShowHint = False
  > > Enabled = False
  > > Font.Charset = ANSI_CHARSET
  > > Font.Color = clBlack
  > > Font.Height = -11
  > > Font.Name = 'Tahoma'
  > > Font.Style = [fsBold]
  > > ImageIndex = 2
  > > Images = ImageList1
  > > Margin = 0
  > > Spacing = 0
  > > Left = 5
  > > Top = 258
  > > end
  > >
  > > Se os componetes estiverem instalados aparecerá o componente no seu 
  > form.
  > > São tantos componentes que não achei onde ele tava, então, copiando o
  > > texto acima dá no mesmo e é logo direto. Este componente cria um botão
  > > na barra e tem uma opção no Object Inspector que cria o de Help, fechar,
  > > minimizar, etc... e tem o customizado que você vai dizer no evento
  > > onClique o que ele vai fazer.
  > >
  > > Se mesmo assim vc quiser os componentes para capturar o do próprio
  > > Formulário me dê um tempo para procutrar na minha estufa. (me avise).
  > >
  > > Blz.
  > >
  > > Leandro escreveu:
  > > >
  > > > Ótimo... muito obrigado... fico aguardando.
  > > >
  > > > Leandro
  > > >
  > > > --
  > > >
  > > >
  > > >
  > >
  > > [As partes desta mensagem que não continham texto foram removidas]
  > >
  > >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 


   

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

Re: [delphi-br] Borcon 2008

[Adriano Santos (Yahoo)]

E dessa vez estarei no BorCon, com certeza e na pizza tb.

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br



Andreano Lanusse respondeu:
>
> Pessoal,
>
> Assim que tivermos notícias sobre o Developer Conference :), 
> informaremos vocês.
>
> []'s
> Andreano
>
> From: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] On Behalf Of Apoio
> Sent: Friday, July 04, 2008 12:08 PM
> To: delphi-br@yahoogrupos.com.br 
> Subject: Re: [delphi-br] Borcon 2008
>
> será que a Embarcadero vai fazer algo diferente?!!
>
> Podia servir churrasco no coffe breack . (hahahahah)
>
> Vamo la come pizza dinovo com o Bruno .
>
> Dessa vez ele paga a conta...
>
> - Original Message -
> From: Rubem Nascimento da Rocha
> To: delphi-br@yahoogrupos.com.br 
> 
> Sent: Friday, July 04, 2008 3:58 PM
> Subject: RE: [delphi-br] Borcon 2008
>
> Tenho fé em Deus que eu irei este ano!
> Sds.
>
> 
>
> To: delphi-br@yahoogrupos.com.br 
> 
> From: [EMAIL PROTECTED] 
> 
> Date: Fri, 4 Jul 2008 15:55:09 -0300
> Subject: [delphi-br] Borcon 2008
>
> Alguém sabe se teremos um Borcon 2008? Se sim, quando será?
>
> __
> Confira vídeos com notícias do NY Times, gols direto do Lance, 
> videocassetadas e muito mais no MSN Video!
> http://video.msn.com/?mkt=pt-br 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> CONFIDENTIALITY NOTICE: This email message is for the sole use of the 
> intended recipient(s)
> and may contain confidential and privileged information. Any 
> unauthorized review, use,
> disclosure or distribution is prohibited. If you are not the intended 
> recipient, please
> contact the sender by reply email and destroy all copies of the 
> original message.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
> 
>
>
> No virus found in this incoming message.
> Checked by AVG. 
> Version: 8.0.134 / Virus Database: 270.4.5/1533 - Release Date: 3/7/2008 19:19
>   

RE: [delphi-br] Borcon 2008

[Andreano Lanusse]

Pessoal,

Assim que tivermos notícias sobre o Developer Conference :), informaremos vocês.

[]'s
Andreano


From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Apoio
Sent: Friday, July 04, 2008 12:08 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Borcon 2008


será que a Embarcadero vai fazer algo diferente?!!

Podia servir churrasco no coffe breack . (hahahahah)

Vamo la come pizza dinovo com o Bruno .

Dessa vez ele paga a conta...

- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 04, 2008 3:58 PM
Subject: RE: [delphi-br] Borcon 2008

Tenho fé em Deus que eu irei este ano!
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 4 Jul 2008 15:55:09 -0300
Subject: [delphi-br] Borcon 2008

Alguém sabe se teremos um Borcon 2008? Se sim, quando será?

__
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas 
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br

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

CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended 
recipient(s) 
and may contain confidential and privileged information. Any unauthorized 
review, use, 
disclosure or distribution is prohibited. If you are not the intended 
recipient, please 
contact the sender by reply email and destroy all copies of the original 
message.


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

Re: [delphi-br] Dúvida com Record

[Guionardo Furlan]

Ops, destructors não existem em records.

2008/7/4 Guionardo Furlan <[EMAIL PROTECTED]>:
> Opa, acho que isso resolve minha questão:
>
> http://delphi.about.com/od/adptips2006/qt/newdelphirecord.htm
>
> constructors e destructors automáticos.
>
> 2008/7/4 Davi Eduardo Borges Wall <[EMAIL PROTECTED]>:
>>
>> Muito legal as perguntas e respostas!
>>
>> Eu ainda diria para você tomar de costume sempre que possível inicializar 
>> variáveis. É uma boa prática de programação e evita problemas futuros.
>>
>> []'s
>>
>> 
>>
>> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao 
>> Morais
>> Enviada em: sexta-feira, 4 de julho de 2008 15:37
>>
>> Para: delphi-br@yahoogrupos.com.br
>> Assunto: Re: [delphi-br] Dúvida com Record
>>
>> Guionardo Furlan wrote:
>> > TReg = record
>> > private
>> > FInicializado: Boolean;
>> > FData: array of string;
>> > function GetCount: Integer;
>> > function SetCount(const Value: Integer);
>> > public
>> > property Count: Integer read GetCount write SetCount;
>> > property Data[Index: Integer] read GetData write SetData;
>> > end;
>> > 
>> > 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado
>> > Booleano é *sempre* criado como False?
>>
>> Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma
>> vez que ele não tem uma rotina de inicialização como uma classe.
>>
>> Se a variável desse record for global, possivelmente ele será
>> inicializado. Se for dentro de uma procedure, function ou method, mais
>> provável que não.
>>
>> > 2. Após vários processos em que o tamanho da array de strings FData é
>> > modificado, pode ocorrer vazamento de memória?
>>
>> Não. Array dinâmico possui contagem de referência e ele é destruído tão
>> logo saia de escopo, assim como acontece com ansi strings.
>>
>> > Num sistema, criei um record similar a este, e depois disso, começaram a
>> > aparecer mensagens do FastMM falando sobre vazamento de memória com tipos
>> > string, que não estou conseguindo identificar.
>>
>> Você cria alguma coisa dinamicamente, tal como instância de classes ou
>> através da procedure new? Talvez a string esteja em um array, e este
>> array esteja associado a alguma outra área de memória, tal como um
>> objeto ou uma variável dinâmica?
>>
>> > No NG, recebi dicas para utilizar classes ao invés de records, mas foi o 
>> > que
>> > me pareceu mais econômico, já que as variáveis record serão acessadas
>> > localmente, dentro de outras classes.
>>
>> A única economia ao utilizar record é não precisar instanciar, e seus
>> métodos receberem um parâmetro a menos (que no caso da classe é o
>> ponteiro da instância) mas será que realmente vale a economia?
>>
>> Joao Morais
>>
>
> --
> Timeo hominem unius libri
> Cogito ergo sum - Carpe diem
>
> []s
> Guionardo Furlan
> http://guionardo.blogspot.com
>



-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com

Re: [delphi-br] Dúvida com Record

[Guionardo Furlan]

Opa, acho que isso resolve minha questão:

http://delphi.about.com/od/adptips2006/qt/newdelphirecord.htm

constructors e destructors automáticos.

2008/7/4 Davi Eduardo Borges Wall <[EMAIL PROTECTED]>:
>
> Muito legal as perguntas e respostas!
>
> Eu ainda diria para você tomar de costume sempre que possível inicializar 
> variáveis. É uma boa prática de programação e evita problemas futuros.
>
> []'s
>
> 
>
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao 
> Morais
> Enviada em: sexta-feira, 4 de julho de 2008 15:37
>
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Dúvida com Record
>
> Guionardo Furlan wrote:
> > TReg = record
> > private
> > FInicializado: Boolean;
> > FData: array of string;
> > function GetCount: Integer;
> > function SetCount(const Value: Integer);
> > public
> > property Count: Integer read GetCount write SetCount;
> > property Data[Index: Integer] read GetData write SetData;
> > end;
> > 
> > 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado
> > Booleano é *sempre* criado como False?
>
> Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma
> vez que ele não tem uma rotina de inicialização como uma classe.
>
> Se a variável desse record for global, possivelmente ele será
> inicializado. Se for dentro de uma procedure, function ou method, mais
> provável que não.
>
> > 2. Após vários processos em que o tamanho da array de strings FData é
> > modificado, pode ocorrer vazamento de memória?
>
> Não. Array dinâmico possui contagem de referência e ele é destruído tão
> logo saia de escopo, assim como acontece com ansi strings.
>
> > Num sistema, criei um record similar a este, e depois disso, começaram a
> > aparecer mensagens do FastMM falando sobre vazamento de memória com tipos
> > string, que não estou conseguindo identificar.
>
> Você cria alguma coisa dinamicamente, tal como instância de classes ou
> através da procedure new? Talvez a string esteja em um array, e este
> array esteja associado a alguma outra área de memória, tal como um
> objeto ou uma variável dinâmica?
>
> > No NG, recebi dicas para utilizar classes ao invés de records, mas foi o que
> > me pareceu mais econômico, já que as variáveis record serão acessadas
> > localmente, dentro de outras classes.
>
> A única economia ao utilizar record é não precisar instanciar, e seus
> métodos receberem um parâmetro a menos (que no caso da classe é o
> ponteiro da instância) mas será que realmente vale a economia?
>
> Joao Morais
>

--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com

Re: [delphi-br] Form com BorderIcon s = biHelp executar alguma ação

[Onjahyr - GMAIL]

Então usa o componente da JEDI que resolve teu problema. Aliás, vou logo 
te passar o código abaixo prá não prolongar teu sofrimento (hahahaha):

Aparecer uma mensagem ao clicar no botão Help do Form:

*type*
   TForm1 = *class*(TForm)
   *private*
 *procedure* WMNCLBUTTONDOWN(*var* Msg: TWMNCLButtonDown) ; 
*message* WM_NCLBUTTONDOWN;
 *procedure* WMNCLBUTTONUP(*var* Msg: TWMNCLButtonUp) ; *message* 
WM_NCLBUTTONUP;
   *end*;

*var*
   Form1: TForm;

*implementation

*/{$R *.dfm}/

*procedure* TForm1.WMNCLBUTTONDOWN(*var* Msg: TWMNCLButtonDown) ;
*begin*
   *if* Msg.HitTest = HTHELP *then*
 Msg.Result := 0
   *else*
 *inherited*;
*end*;

*procedure* TForm1.WMNCLBUTTONUP(*var* Msg: TWMNCLButtonUp) ;
*begin*
   *if* Msg.HitTest = HTHELP *then*
   *begin*
 Msg.Result := 0;
 ShowMessage('O botão Help foi clicado!') ;
   *end*
   *else*
 *inherited*;
*end*;

Pronto problema resolvido. Era para ter dito antes, mas enrolei para 
facilitar o teu lado.

Blz

Onjahyr


Leandro escreveu:
>
> Onjahyr...
>
> O componente funcionou legal, mas não resolveu meu problema. Isso por 
> quê eu queria executar
> uma determinada ação minha quando clicassem na "?", e não chamar o 
> help. Por exemplo, mostrar
> uma mensagem para o usuário.
>
> De qualquer forma, vou dar uma estudada no código do componente. 
> Talvez eu consiga implementar
> algo através dele.
>
> Muito obrigado,
>
> Leandro
>
> - Original Message -
> From: Onjahyr - GMAIL
> To: delphi-br@yahoogrupos.com.br 
> Sent: Friday, July 04, 2008 10:10 AM
> Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma 
> ação
>
> Acabei de enviar o componente para seu e-mail... Se funcionar para o que
> deseja dê um retorno!
>
> Blz.
>
> Leandro escreveu:
> >
> > Valeu cara...
> >
> > Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma
> > olhada nesse do Jedi.
> >
> > Muito obrigado.
> >
> > Leandro
> >
> > - Original Message -
> > From: Onjahyr - GMAIL
> > To: delphi-br@yahoogrupos.com.br 
>  
> 
> > Sent: Friday, July 04, 2008 9:19 AM
> > Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma
> > ação
> >
> > Tenho outra alternativa.
> >
> > Procurei e não achei, mas eu tenho pois já usei.
> >
> > Outra alternativa:
> >
> > Instale os componentes da JEDI, são 333 componentes.
> > Após instalação, copie o texto abaixo e cole no seu form:
> >
> > object JvCaptionButton1: TJvCaptionButton
> > Alignment = taCenter
> > ButtonHeight = 18
> > ButtonLeft = -31
> > ButtonTop = -2
> > ButtonWidth = 25
> > ShowHint = True
> > ParentShowHint = False
> > Enabled = False
> > Font.Charset = ANSI_CHARSET
> > Font.Color = clBlack
> > Font.Height = -11
> > Font.Name = 'Tahoma'
> > Font.Style = [fsBold]
> > ImageIndex = 2
> > Images = ImageList1
> > Margin = 0
> > Spacing = 0
> > Left = 5
> > Top = 258
> > end
> >
> > Se os componetes estiverem instalados aparecerá o componente no seu 
> form.
> > São tantos componentes que não achei onde ele tava, então, copiando o
> > texto acima dá no mesmo e é logo direto. Este componente cria um botão
> > na barra e tem uma opção no Object Inspector que cria o de Help, fechar,
> > minimizar, etc... e tem o customizado que você vai dizer no evento
> > onClique o que ele vai fazer.
> >
> > Se mesmo assim vc quiser os componentes para capturar o do próprio
> > Formulário me dê um tempo para procutrar na minha estufa. (me avise).
> >
> > Blz.
> >
> > Leandro escreveu:
> > >
> > > Ótimo... muito obrigado... fico aguardando.
> > >
> > > Leandro
> > >
> > > --
> > >
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Re: [delphi-br] Borcon 2008

[Apoio]

   será que a Embarcadero vai fazer algo diferente?!!

Podia servir churrasco no coffe breack . (hahahahah)

Vamo la come pizza dinovo com o Bruno .

Dessa vez ele paga a conta...


  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 3:58 PM
  Subject: RE: [delphi-br] Borcon 2008



  Tenho fé em Deus que eu irei este ano!
  Sds.

  

  To: delphi-br@yahoogrupos.com.br
  From: [EMAIL PROTECTED]
  Date: Fri, 4 Jul 2008 15:55:09 -0300
  Subject: [delphi-br] Borcon 2008

  Alguém sabe se teremos um Borcon 2008? Se sim, quando será?

  __
  Confira vídeos com notícias do NY Times, gols direto do Lance, 
videocassetadas e muito mais no MSN Video!
  http://video.msn.com/?mkt=pt-br

   

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

RE: [delphi-br] Borcon 2008

[Rubem Nascimento da Rocha]

Tenho fé em Deus que eu irei este ano!
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 4 Jul 2008 15:55:09 -0300
Subject: [delphi-br] Borcon 2008


Alguém sabe se teremos um Borcon 2008? Se sim, quando será?



_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas 
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br

[delphi-br] Borcon 2008

[Luis Alberto - Yahoo!]

 
Alguém sabe se teremos um Borcon 2008? Se sim, quando será?
 
 
 


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

RES: [delphi-br] Dúvida com Record

[Davi Eduardo Borges Wall]

Muito legal as perguntas e respostas!

 

Eu ainda diria para você tomar de costume sempre que possível inicializar 
variáveis. É uma boa prática de programação e evita problemas futuros.

 

[]'s

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao 
Morais
Enviada em: sexta-feira, 4 de julho de 2008 15:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Dúvida com Record

 

Guionardo Furlan wrote:
> TReg = record
> private
> FInicializado: Boolean;
> FData: array of string;
> function GetCount: Integer;
> function SetCount(const Value: Integer);
> public
> property Count: Integer read GetCount write SetCount;
> property Data[Index: Integer] read GetData write SetData;
> end;
> 
> 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado
> Booleano é *sempre* criado como False?

Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma 
vez que ele não tem uma rotina de inicialização como uma classe.

Se a variável desse record for global, possivelmente ele será 
inicializado. Se for dentro de uma procedure, function ou method, mais 
provável que não.

> 2. Após vários processos em que o tamanho da array de strings FData é
> modificado, pode ocorrer vazamento de memória?

Não. Array dinâmico possui contagem de referência e ele é destruído tão 
logo saia de escopo, assim como acontece com ansi strings.

> Num sistema, criei um record similar a este, e depois disso, começaram a
> aparecer mensagens do FastMM falando sobre vazamento de memória com tipos
> string, que não estou conseguindo identificar.

Você cria alguma coisa dinamicamente, tal como instância de classes ou 
através da procedure new? Talvez a string esteja em um array, e este 
array esteja associado a alguma outra área de memória, tal como um 
objeto ou uma variável dinâmica?

> No NG, recebi dicas para utilizar classes ao invés de records, mas foi o que
> me pareceu mais econômico, já que as variáveis record serão acessadas
> localmente, dentro de outras classes.

A única economia ao utilizar record é não precisar instanciar, e seus 
métodos receberem um parâmetro a menos (que no caso da classe é o 
ponteiro da instância) mas será que realmente vale a economia?

Joao Morais

 



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

Re: RES: [delphi-br] Escolher impressora

[Maycon Sanches Amaro]

Pessoal, como não consegui encontrar nada na net referente a enviar ao 
rave qual a impressora que quero imprimir em tempo de execucao tive que 
fazer o seguinte. Qd crio o formulario ele define a impressora padrao no 
win para a que eu quero e qd fecho o formulario ele volta pra impressora 
que estava padrao antes.

Essa mudanca de impressora tá ok, o problema e que o rave não reconhece 
q a impressora que coloquei como padrao é a padrao, ele fica com a 
antiga. Tentei dar um aPrinter.Free, RvSystem1.SystemPrinter.Free; e 
nada.. ele nao reconhece q a padrao foi alterada..

Alguma dica..


Ricardo César Cardoso escreveu:
>
> Não mexo com o Rave, mas acredito que deva existir alguma propriedade 
> que aponte para um objeto TPrinter. Bastaria apontar a impressora para 
> este objeto:
>
> IMPORTANTE: supondo que essa propriedade exista e se chame Printer, vc 
> teria um código parecido com:
>
> {...}
> var
>   aImpressora: TPrinter;
>
> ...
> ravereport.printer := aImpressora.PrinterIndex[ x ];
>
> {..}
>
> IMPORTANTE: não sei se o que sugeri acima existe, é de extrema 
> importancia verificar quais propriedades um objeto do RaveReports tem.
>
> Atte,
> Ricardo.
>
> --- Em qua, 2/7/08, Maycon Sanches Amaro <[EMAIL PROTECTED] 
> > escreveu:
> De: Maycon Sanches Amaro <[EMAIL PROTECTED] 
> >
> Assunto: Re: RES: [delphi-br] Escolher impressora
> Para: delphi-br@yahoogrupos.com.br 
> Data: Quarta-feira, 2 de Julho de 2008, 14:40
>
> Então.. eu nao to conseguindo enviar pro rave qual a impressora, listar
>
> as impressoras eu consegui mas como faço pra enviar pra ele que tem que
>
> ser impresso na impressora selecionada?
>
> Pensei em setar a impressora pra padrao e quando fechar o formulário
>
> voltar na que tava padrao antes, é uma gambiarra, mas se eu nao
>
> conseguir vou ter que fazer isso mesmo.
>
> Grato pela atenção.
>
> Att.
>
> Maycon Sanches Amaro
>
> Juliano Silva - Yahoo escreveu:
>
> >
>
> > Declare no USES "Printers", coloque no formulário um componente
>
> > TCombobox e
>
> > no evento OnShow deste formulário coloque o código abaixo
>
> >
>
> > procedure TForm1.FormShow( Sender: TObject);
>
> > var
>
> > i: Integer;
>
> > Printer: TPrinter;
>
> > begin
>
> > Printer := TPrinter.Create;
>
> > try
>
> > for i := 0 to Printer.Printers. Count - 1 do
>
> > begin
>
> > ComboBox1.Items. Add(Printer. Printers. Strings[i] );
>
> > end;
>
> > finally
>
> > Printer.free;
>
> > end;
>
> > end;
>
> >
>
> > Agora no Combobox você tem todas as impressoras instaladas, basta agora
>
> > selecionar uma e passar para a propriedade de impressão do 
> relatório... Se
>
> > usar a imaginação tem bastante coisas que é possível fazer...
>
> >
>
> > Juliano
>
> >
>
> > _
>
> >
>
> > De: [EMAIL PROTECTED] os.com.br
>
> > 
>
> > [mailto:[EMAIL PROTECTED] os.com.br
>
> > ] Em
>
> > nome de Maycon Sanches Amaro
>
> > Enviada em: quarta-feira, 2 de julho de 2008 12:50
>
> > Para: [EMAIL PROTECTED] os.com.br  .com.br>
>
> > Assunto: Re: [delphi-br] Escolher impressora
>
> >
>
> > Nicolas, fiz como vc me explicou, mas como é que eu passo pro RAVE que a
>
> > impressora de impressao é a 2 por exemplo??
>
> >
>
> > Juliano os componentes TPrintDialog ou TPrintSetup estão na guia
>
> > Dialogs. Você tem algum exemplo de como uso eles?? PReciso enviar pro
>
> > rave o nome da impressora que tem que ser impressa de acordo com o
>
> > formulário.
>
> >
>
> > Grato pela atenção.
>
> >
>
> > Att.
>
> > Maycon Sanches Amaro
>
> >
>
> > Nicolas escreveu:
>
> > >
>
> > > Para isso eu utilizo a propriedade PrinterIndex do objeto Printer
>
> > >
>
> > > printer.printerinde x:=-1; // impressora padrão
>
> > > printer.printerinde x:=n; // onde n é o índice da impressora desejada
>
> > >
>
> > > []s
>
> > >
>
> > > alexandre
>
> > >
>
> > > - Original Message -
>
> > > From: Maycon Sanches Amaro
>
> > > To: [EMAIL PROTECTED] 
>
> > os.com.br
>
> > 
>
> > > Sent: Wednesday, July 02, 2008 8:30 AM
>
> > > Subject: [delphi-br] Escolher impressora
>
> > >
>
> > > Pessoal tenho duas impressoras instalados no meu micro, as duas 
> estão na
>
> > > rede tipo \\sevidor\pr001 e \\servidor\pr002. A padrão é a 001 mas
>
> > > dependendo do formulário preciso que seja impresso na 002. Como 
> faço pro
>
> > > delphi já enviar direto pra impressora que não é a padrao??
>
> > >
>
> > > --
>
> > > Att.
>
> > > Maycon Sanches Amaro
>
> > >
>
> > >  - - - - - -
>
> > >
>
> > > No virus found in this incoming message.
>
> > > Checked by AVG.
>
> > > Version: 8.0.101 / Virus Database: 270.4.3/1529 - Release Date:
>
> > > 1/7/2008 19:23
>
> > >
>
> > > [As partes desta mensagem que não continham texto foram 

RE: [delphi-br] Lentidao com ClientDataset

[Bruno Lichot]

Então, mas foi como te falei, operações em lotes, não use o ClientDataSet para 
inclui, alterar e excluir. Faça através da montagem dinâmica de sqls e use o 
método executedirect do sqlconnection para isso, sempre dentro de transações 
monitoradas.

Desta forma ficará ainda mais rápido e sem nenhum problema.

Abs

BL

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Lucas 
Eduardo Barao Neves
Sent: sexta-feira, 4 de julho de 2008 13:46
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Lentidao com ClientDataset


Bruno, muito obrigado! O processo ficou absurdamente mais rapido, mas ainda tem 
um problema:

Eu estou mandando o ApplyUpdates a cada 3000 registros e ainda assim, mais pro 
final do processo ele me retorna o erro "SQLDA error or incorrect version / 
types of variables", coisa assim. Ja verifiquei e nao e inconsistencia nos 
dados. Isso acontecia muito quando eu usava close/open toda hora.

Alguma sugestao?

Obrigado

--- Em qua, 2/7/08, Bruno Lichot <[EMAIL 
PROTECTED]> escreveu:
De: Bruno Lichot <[EMAIL PROTECTED]>
Assunto: RE: [delphi-br] Lentidao com ClientDataset
Para: "delphi-br@yahoogrupos.com.br" 
mailto:delphi-br%40yahoogrupos.com.br>>
Data: Quarta-feira, 2 de Julho de 2008, 11:28

Salve Lucas,

É o seguinte.

Para fazer estes processamentos em lotes o ideal é ler os dados e navegar por 
eles com clientdatasets mesmo. Só que para navegação não use locate, use setkey 
com índices dinâmicos em memória no CDS que é estupidamente rápido. No meu 
primeiro exemplo do meu link de downloads gratuitos (HTTP://cc.codegear. 
com/author/ 795118) tem uma aplicações sobre recursos do ClientDataSet que 
implementa em um dos exemplos o setkey. Em tempo, estarei no FireBird 
Developers Day – FDD – dia 19/07 (WWW.firebirddevelo persday.com. br) fazendo 
uma palestra sobre estes e outros recursos.

Para manipular os dados, ou seja fazer inserts, deletes e updates dos 
registros, o melhor a se fazer e montar dinamicamente os comandos SQL e 
executá-los sempre dentro de uma transação monitorada usando o método 
ExecuteDirect do SQLConnection. No mesmo exemplo que indiquei na aplicação 
servidora, tem uma função na classe principal chamada incluipedidos que faz 
algo parecido desta forma que expliquei.

Faça o processamento em lote separado por tabelas e para cada um deles abra uma 
transação monitorada, processe o lote e feche a transação.

Desta forma ficará rápido o processamento e não trará problemas para o seu 
banco.

Dicas:

Tenha total controle das conexões que você utilizar, bem como das transações 
monitoradas.

Cuidado para não deixar objetos instanciados desnecessariamente, feche sempre 
os datasets quando não utilizar mais.

Verifique o tamanho de buffer em memória do FireBird para que não incorra no 
erro de ter um banco de 100 mb e um espaço em memória de 12 mb. O seu espaço em 
memória deve ser relativo ao tamanho do seu banco e limitado ao que você tem de 
RAM disponível e ao que outros recursos no Server também podem consumir. Ou 
seja não tenha de mais, mas também não tenha de menos.

Abraços,

BL

From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On 
Behalf Of Lucas Eduardo Barao Neves

Sent: quarta-feira, 2 de julho de 2008 10:33

To: [EMAIL PROTECTED] os.com.br

Subject: [delphi-br] Lentidao com ClientDataset

Bom dia pessoal, gostaria de uma ajuda de voces,

Estou trabalhando em um sistema de importacao de dados via arquivo TXT. Ele=

tem mais ou menos a seguinte estrutura:

Arquivo: +- 56000 linhas

Ele atualizara da seguinte forma:

Tabela 1 - 85000 registros

Para cada sequencial encontrado / criado, ele atualizara uma tabela 2 =3D 1=

 registros

Para cada um da tabela 2 ele atualizara ou fara insercoes em uma tabela 3 =

=3D 900 registroa

A tabela 3 fara a mesma coisa na tabela 4: 56000 registros (todos os regist=

ros do TXT)

Ja tentei das seguintes formas:

Somente com queries, uma para selecao, uma para insercao, uma para alteraca=

o;

Somente com queries, somente uma para selecao, insercao e alteracao,

Somente uma query com ClientDataSet para selecao, insercao e alteracao.

Essas tres primeiras tentativas geravam tantos acessos ao banco de dados qu=

e chegava uma hora que dava um overflow dentro do banco (o famoso e misteri=

oso erro SQLDA);

Sendo assim tentei de outra forma:

Um ClientDataSet para cada tabela da situacao informada, todos eles com sel=

ect * e carregamento na memoria, procura pelo comando Locate.

Dessa forma ate funciona sem dar erro no banco, porem ele esta a uma veloci=

dade de 1 a 2 registros por segundo!

Das outras formas eu ate conseguia uma marca maior, o problema e o erro que=

acontece apos tantas requisicoes com o banco.

Estou utilizando Delphi 6, dbExpress e Firebird 2.0. Sei que e uma mistura =

assassina, mas e so o que tem aqui na empresa.

Alguem tem sugestoes de o 

[delphi-br] Re: [lista-delphi] Lógica sobre Entrada e Saída de Estoque

[Fabrício | PrismaFive]

Fabrício | PrismaFive escreveu:
>
>
> Bom dia senhores!
>
> Estou trabalhando com Delphi recentemente e gostaria de saber onde 
> posso obter informações ou
> processo ou melhor ainda a lógica sobre Nota Fiscal de Entrada e de 
> Saída de Estoque.
> Estou pesquisando em páginas de busca mas ainda não encontrei como é 
> esse processo.
>
> Muito obrigado a todos.
>
> Fabrício Veiga
>
> 
> 
>
> No virus found in this incoming message.
> Checked by AVG. 
> Version: 7.5.524 / Virus Database: 270.4.4/1530 - Release Date: 2/7/2008 08:05
>   
Desculpe Pessoal, me expressei erradamente.

O processo é de Movimento de Entrada e de Saída e não de Nota Fiscal.

Grato!

[delphi-br] Lógica sobre Entrada e Saída de E stoque

[Fabrício | PrismaFive]

Bom dia senhores!

Estou trabalhando com Delphi recentemente e gostaria de saber onde posso obter 
informações ou 
processo ou melhor ainda a lógica sobre Nota Fiscal de Entrada e de Saída de 
Estoque. 
Estou pesquisando em páginas de busca mas ainda não encontrei como é esse 
processo.

Muito obrigado a todos.

Fabrício Veiga

RE: [delphi-br] Lentidao com ClientDataset

[Lucas Eduardo Barao Neves]

Bruno, muito obrigado! O processo ficou absurdamente mais rapido, mas ainda tem 
um problema:

Eu estou mandando o ApplyUpdates a cada 3000 registros e ainda assim, mais pro 
final do processo ele me retorna o erro "SQLDA error or incorrect version / 
types of variables", coisa assim. Ja verifiquei e nao e inconsistencia nos 
dados. Isso acontecia muito quando eu usava close/open toda hora. 

Alguma sugestao?

Obrigado

--- Em qua, 2/7/08, Bruno Lichot <[EMAIL PROTECTED]> escreveu:
De: Bruno Lichot <[EMAIL PROTECTED]>
Assunto: RE: [delphi-br] Lentidao com ClientDataset
Para: "delphi-br@yahoogrupos.com.br" 
Data: Quarta-feira, 2 de Julho de 2008, 11:28











Salve Lucas,





É o seguinte.





Para fazer estes processamentos em lotes o ideal é ler os dados e navegar por 
eles com clientdatasets mesmo. Só que para navegação não use locate, use setkey 
com índices dinâmicos em memória no CDS que é estupidamente rápido. No meu 
primeiro exemplo do meu link de downloads gratuitos (HTTP://cc.codegear. 
com/author/ 795118) tem uma aplicações sobre recursos do ClientDataSet que 
implementa em um dos exemplos o setkey. Em tempo, estarei no FireBird 
Developers Day – FDD – dia 19/07 (WWW.firebirddevelo persday.com. br) fazendo 
uma palestra sobre estes e outros recursos.





Para manipular os dados, ou seja fazer inserts, deletes e updates dos 
registros, o melhor a se fazer e montar dinamicamente os comandos SQL e 
executá-los sempre dentro de uma transação monitorada usando o método 
ExecuteDirect do SQLConnection. No mesmo exemplo que indiquei na aplicação 
servidora, tem uma função na classe principal chamada incluipedidos que faz 
algo parecido desta forma que expliquei.





Faça o processamento em lote separado por tabelas e para cada um deles abra uma 
transação monitorada, processe o lote e feche a transação.





Desta forma ficará rápido o processamento e não trará problemas para o seu 
banco.





Dicas:


Tenha total controle das conexões que você utilizar, bem como das transações 
monitoradas.


Cuidado para não deixar objetos instanciados desnecessariamente, feche sempre 
os datasets quando não utilizar mais.


Verifique o tamanho de buffer em memória do FireBird para que não incorra no 
erro de ter um banco de 100 mb e um espaço em memória de 12 mb. O seu espaço em 
memória deve ser relativo ao tamanho do seu banco e limitado ao que você tem de 
RAM disponível e ao que outros recursos no Server também podem consumir. Ou 
seja não tenha de mais, mas também não tenha de menos.





Abraços,





BL





From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On 
Behalf Of Lucas Eduardo Barao Neves


Sent: quarta-feira, 2 de julho de 2008 10:33


To: [EMAIL PROTECTED] os.com.br


Subject: [delphi-br] Lentidao com ClientDataset








Bom dia pessoal, gostaria de uma ajuda de voces,





Estou trabalhando em um sistema de importacao de dados via arquivo TXT. Ele=


tem mais ou menos a seguinte estrutura:





Arquivo: +- 56000 linhas


Ele atualizara da seguinte forma:





Tabela 1 - 85000 registros





Para cada sequencial encontrado / criado, ele atualizara uma tabela 2 =3D 1=


 registros


Para cada um da tabela 2 ele atualizara ou fara insercoes em uma tabela 3 =


=3D 900 registroa


A tabela 3 fara a mesma coisa na tabela 4: 56000 registros (todos os regist=


ros do TXT)





Ja tentei das seguintes formas:


Somente com queries, uma para selecao, uma para insercao, uma para alteraca=


o;


Somente com queries, somente uma para selecao, insercao e alteracao,


Somente uma query com ClientDataSet para selecao, insercao e alteracao.





Essas tres primeiras tentativas geravam tantos acessos ao banco de dados qu=


e chegava uma hora que dava um overflow dentro do banco (o famoso e misteri=


oso erro SQLDA);





Sendo assim tentei de outra forma:





Um ClientDataSet para cada tabela da situacao informada, todos eles com sel=


ect * e carregamento na memoria, procura pelo comando Locate.





Dessa forma ate funciona sem dar erro no banco, porem ele esta a uma veloci=


dade de 1 a 2 registros por segundo!





Das outras formas eu ate conseguia uma marca maior, o problema e o erro que=


acontece apos tantas requisicoes com o banco.





Estou utilizando Delphi 6, dbExpress e Firebird 2.0. Sei que e uma mistura =


assassina, mas e so o que tem aqui na empresa.





Alguem tem sugestoes de o que eu posso fazer para melhorar a performance ne=


sse sentido? O processo da maneira que esta demora uma noite inteira para t=


erminar, sendo que no sistema antigo deles, a mesma rotina feita em Clipper=


e DBF levava em torno de 30 minutos.





Agradeco antecipadamente!





Lucas Neves





Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.


http://br.new. mail.yahoo. com/addresses





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





CONFIDENTIALITY NOTICE: This em

[delphi-br] Re: [Ajuda] Comando NVL!!

[Douglas Takahara]

Bom, andei pesquisando e parece que a função no access eh NZ..

o que eu quero é o seguinte..
tenho campos nome, idade, sexo...
eu faço uma consulta por exemplo>:

SELECT Tabela1.nome, Tabela1.sexo, Count(Tabela1.idade) AS
ContarDeidade FROM Tabela1 GROUP BY Tabela1.nome, Tabela1.sexo
HAVING (((Tabela1.sexo)="F") AND ((Count(Tabela1.idade))<=18));

eu gostaria que caso algum registro n tenha o critério sexo=F e
idade<=18, aparecesse o nome e na contage aparece "0" :

por exemplo:


nome   sexoidade
eu F   20  
aa F   4
aaaF   9

se fosse com a função sql ficaria mais ou menos assim:

nomesexo   contaridade
aa  F   1
aaa F   1 

no caso o nome "eu" n aparece, eu gostaria que aparecesse e como n
atende a condição nada aparecesse "0"




--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
<[EMAIL PROTECTED]> escreveu
>
> 
> NVL() é função, e não comando! Se retorna um valor, é uma função, e
não uma procedure, rotina ou comando! Olha os conceitos, galera!
> 
> Sds.
> 
> 
> 
> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Thu, 3 Jul 2008 15:58:18 -0300
> Subject: Re: [delphi-br] Re: [Ajuda] Comando NVL!!
> 
> Ms Access nao aceita esse comando NVL salvo engano ele eh do Oracle.
> 
> 2008/7/3 Douglas Takahara <[EMAIL PROTECTED]>:
> 
> > --- Em delphi-br@yahoogrupos.com.br ,
> > Joao Morais  escreveu
> >>
> >> Douglas Takahara wrote:
> >>> Eu quero que ele conte um campo e retorne zero caso o valor for null
> >>> meu comando sql está assim:
> >>>
> >>> Select from blabla Count(NVL(IDADE,0) from bla bla..
> >>>
> >>> Eu gostaria de saber se usa o comando NVL mesmo ou se usa outro...
> >>> estou tentando como citei acima, porém n está dando certo.
> >>
> >> Não seria coalesce()? Qual o banco?
> >>
> >> Joao Morais
> >>
> >
> > desculpe pelo gafe Rubem!!!
> >
> > Joao eh MS Acess
> >
> >
> >
> 
> --
> Antonio Mateus
> Estudante de Sistemas de Informação 4º Periodo
> 
> _
> Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS
para o Messenger! É GRÁTIS!
> http://www.msn.com.br/emoticonpack
>

Re: [delphi-br] CONECTAR O BANCO DE DADOS VIA NET COM ZEOSCONECTION

[Itamar Souza]

Boa Tarde amigo
 
Você pode conectar utilizando o IP do host que disponibiliza o banco de dados. 
Isto e feito acrescentando “:” (exemplo: 
192.168.0.1:C\Diretório|Banco|NomeBanco.gdb).
 
Veja se lhe ajuda!!


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] CONECTAR O BANCO DE DADOS VIA NET COM ZEOSCONECTION

> Porem nao consigo conectar o zeos com o banco de dados se alguem puder
> me ajudar fico agradecido

precisamos saber de antemão o que vc está tentando fazer para te ajudar... 
strings de conexào, por exemplo...

de antemao, para conectar a um servidor remoto, o path do DB deve estar da 
seguinte forma

200.201.202.203:c:\caminho_do_banco_no_servidor\nome_do_banco.FB

Além disso, a porta do FB deve estar aberta no servidor (firewall)

Jackson Gomes
Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

Devhost - Webhost para desenvolvedores Borland
http://www.devhost.com.br
[EMAIL PROTECTED] 

Re: [delphi-br] Dúvida com Record

[Joao Morais]

Guionardo Furlan wrote:
> TReg = record
> private
>   FInicializado: Boolean;
>   FData: array of string;
>   function GetCount: Integer;
>   function SetCount(const Value: Integer);
> public
>   property Count: Integer read GetCount write SetCount;
>   property Data[Index: Integer] read GetData write SetData;
> end;
> 
> 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado
> Booleano é *sempre* criado como False?

Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma 
vez que ele não tem uma rotina de inicialização como uma classe.

Se a variável desse record for global, possivelmente ele será 
inicializado. Se for dentro de uma procedure, function ou method, mais 
provável que não.

> 2. Após vários processos em que o tamanho da array de strings FData é
> modificado, pode ocorrer vazamento de memória?

Não. Array dinâmico possui contagem de referência e ele é destruído tão 
logo saia de escopo, assim como acontece com ansi strings.

> Num sistema, criei um record similar a este, e depois disso, começaram a
> aparecer mensagens do FastMM falando sobre vazamento de memória com tipos
> string, que não estou conseguindo identificar.

Você cria alguma coisa dinamicamente, tal como instância de classes ou 
através da procedure new? Talvez a string esteja em um array, e este 
array esteja associado a alguma outra área de memória, tal como um 
objeto ou uma variável dinâmica?

> No NG, recebi dicas para utilizar classes ao invés de records, mas foi o que
> me pareceu mais econômico, já que as variáveis record serão acessadas
> localmente, dentro de outras classes.

A única economia ao utilizar record é não precisar instanciar, e seus 
métodos receberem um parâmetro a menos (que no caso da classe é o 
ponteiro da instância) mas será que realmente vale a economia?

Joao Morais

Re: [delphi-br] Form com BorderIcons = biHelp execut ar alguma ação

[Leandro]

Onjahyr...

O componente funcionou legal, mas não resolveu meu problema. Isso por quê eu 
queria executar
uma determinada ação minha quando clicassem na "?", e não chamar o help. Por 
exemplo, mostrar
uma mensagem para o usuário.

De qualquer forma, vou dar uma estudada no código do componente. Talvez eu 
consiga implementar
algo através dele.

Muito obrigado,

Leandro


- Original Message - 
  From: Onjahyr - GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 10:10 AM
  Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma ação


  Acabei de enviar o componente para seu e-mail... Se funcionar para o que 
  deseja dê um retorno!

  Blz.

  Leandro escreveu:
  >
  > Valeu cara...
  >
  > Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma 
  > olhada nesse do Jedi.
  >
  > Muito obrigado.
  >
  > Leandro
  >
  > - Original Message -
  > From: Onjahyr - GMAIL
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Friday, July 04, 2008 9:19 AM
  > Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma 
  > ação
  >
  > Tenho outra alternativa.
  >
  > Procurei e não achei, mas eu tenho pois já usei.
  >
  > Outra alternativa:
  >
  > Instale os componentes da JEDI, são 333 componentes.
  > Após instalação, copie o texto abaixo e cole no seu form:
  >
  > object JvCaptionButton1: TJvCaptionButton
  > Alignment = taCenter
  > ButtonHeight = 18
  > ButtonLeft = -31
  > ButtonTop = -2
  > ButtonWidth = 25
  > ShowHint = True
  > ParentShowHint = False
  > Enabled = False
  > Font.Charset = ANSI_CHARSET
  > Font.Color = clBlack
  > Font.Height = -11
  > Font.Name = 'Tahoma'
  > Font.Style = [fsBold]
  > ImageIndex = 2
  > Images = ImageList1
  > Margin = 0
  > Spacing = 0
  > Left = 5
  > Top = 258
  > end
  >
  > Se os componetes estiverem instalados aparecerá o componente no seu form.
  > São tantos componentes que não achei onde ele tava, então, copiando o
  > texto acima dá no mesmo e é logo direto. Este componente cria um botão
  > na barra e tem uma opção no Object Inspector que cria o de Help, fechar,
  > minimizar, etc... e tem o customizado que você vai dizer no evento
  > onClique o que ele vai fazer.
  >
  > Se mesmo assim vc quiser os componentes para capturar o do próprio
  > Formulário me dê um tempo para procutrar na minha estufa. (me avise).
  >
  > Blz.
  >
  > Leandro escreveu:
  > >
  > > Ótimo... muito obrigado... fico aguardando.
  > >
  > > Leandro
  > >
  > > --
  > >
  > >
  > >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 


   

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

Re: [delphi-br] QUERO SAIR DA LISTA!!!!

[Alan Vieceli]

quer sair da lista?
tchau!!!

Odail Della Niesi Junior escreveu:
>
> Manda um e-mail para [EMAIL PROTECTED] 
> 
>
> Alessandro Falanque escreveu:
> >
> > ..
> >
> > - Original Message 
> > From: Evandro Ricardo Silvestre <[EMAIL PROTECTED] 
> 
> > >
> > To: delphi-br@yahoogrupos.com.br 
>  
> 
> > Sent: Friday, July 4, 2008 11:27:13 AM
> > Subject: Re: [delphi-br] QUERO SAIR DA LISTA
> >
> > Tente ler o rodapé das mensagens!
> >
> > Evandro
> > Alessandro Falanque wrote:
> > > Bom dia...
> > > Como faço para sair desta lista?
> > >
> > > Obrigado !!
> > >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>  

Re: [delphi-br] Dúvida com Record

[Ricardo César Cardoso]

Olá Guoinardo!
As respostas seguem abaixo quando indicado:

--- Em sex, 4/7/08, Guionardo Furlan <[EMAIL PROTECTED]> escreveu:

De: Guionardo Furlan <[EMAIL PROTECTED]>
Assunto: [delphi-br] Dúvida com Record
Para: delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED]
Data: Sexta-feira, 4 de Julho de 2008, 12:06










Buenas pessoal, postei esta mesma dúvida no newsgroup da u-br.



No D2007, tenho um record similar a este.



TReg = record

private

  FInicializado: Boolean;

  FData: array of string;

  function GetCount: Integer;

  function SetCount(const Value: Integer);

public

  property Count: Integer read GetCount write SetCount;

  property Data[Index: Integer] read GetData write SetData;

end;



function TReg.GetCount: Integer;

begin

  if not FInicializado then

  begin

SetLength(FData, 0);

FInicializado: =True;

  end;

  Result:=Length( FData);

end;



procedure TReg.SetCount( const Value: Integer);

begin

  if Value in [0..255] then

SetLength(FData, Value);

end;



function TReg.GetData( const Index: Integer): string;

begin

  if (Index>=0) and (Index=0) and (Index Sim, a não ser que vc "force a 
inicialização" atribuindo para True. E isso acontece pois o "valor padrão" de 
uma variável do tipo Boolean é false.



2. Após vários processos em que o tamanho da array de strings FData é

modificado, pode ocorrer vazamento de memória?> Não sei, pois nunca testei, mas 
sempre adoto a seguinte estratégia quando tenho um array dinâmico: a cada nova 
atribuição, limpo o conteúdo e volto o tamanho para zero antes de fazer nova 
alocação. Agora se é a melhor coisa a fazer ou se é indicado, já não sei, 
sinceramente.



Num sistema, criei um record similar a este, e depois disso, começaram a

aparecer mensagens do FastMM falando sobre vazamento de memória com tipos

string, que não estou conseguindo identificar.



No NG, recebi dicas para utilizar classes ao invés de records, mas foi o que

me pareceu mais econômico, já que as variáveis record serão acessadas

localmente, dentro de outras classes.> Aqui tb não sei... seria interessante 
tirar essa dúvida... mas eu acho que é mais uma questão de gosto.



-- 

Timeo hominem unius libri

Cogito ergo sum - Carpe diem



[]s

Guionardo Furlan

http://guionardo. blogspot. com



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



  




  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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

Re: [delphi-br] QUERO SAIR DA LISTA!!!!

[Odail Della Niesi Junior]

Manda um e-mail para [EMAIL PROTECTED]

Alessandro Falanque escreveu:
>
> ..
>
> - Original Message 
> From: Evandro Ricardo Silvestre <[EMAIL PROTECTED] 
> >
> To: delphi-br@yahoogrupos.com.br 
> Sent: Friday, July 4, 2008 11:27:13 AM
> Subject: Re: [delphi-br] QUERO SAIR DA LISTA
>
> Tente ler o rodapé das mensagens!
>
> Evandro
> Alessandro Falanque wrote:
> > Bom dia...
> > Como faço para sair desta lista?
> >
> > Obrigado !!
> >
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Re: [delphi-br] CONECTAR O BANCO DE DADOS VIA NET COM ZEOSCONECTION

[Eduardo Silva dos Santos]

Olá, para conectar vc deve informar o IP da internet do pc onde está o
banco, seguido de : e o caminho do banco.

mas para que isso funcione, nesse PC onde esta banco, deve-se verificar como
é a conexão à internet, certamente essa máquina está se conectando atravéz
de um roteador, nesse caso é necessário fazer um redirecionamento da porta
que o FireBird usa para o IP da máquina.

além de liberar a referida porta no firewall do windows.

2008/7/4 ohnegolindo <[EMAIL PROTECTED]>:

>   Bom dia Familia é o seguinte :
> 1 : O Banco de Dados que uso é firebird 1.5
> 2 : O banco de dados se encontra em uma maquina diferente da aplicação
> cliente
> 3 : a Velocidade da conexao é de 2 mb
>
> Porem nao consigo conectar o zeos com o banco de dados se alguem puder
> me ajudar fico agradecido
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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

Re: [delphi-br] Dúvida com Record

[Onjahyr - GMAIL]

1. Coloque False na variável:

TReg = record
private
FInicializado: Boolean = False; / ***
FData: array of string;
function GetCount: Integer;
function SetCount(const Value: Integer);
public
property Count: Integer read GetCount write SetCount;
property Data[Index: Integer] read GetData write SetData;
end;

===


Guionardo Furlan escreveu:
>
> Buenas pessoal, postei esta mesma dúvida no newsgroup da u-br.
>
> No D2007, tenho um record similar a este.
>
> TReg = record
> private
> FInicializado: Boolean;
> FData: array of string;
> function GetCount: Integer;
> function SetCount(const Value: Integer);
> public
> property Count: Integer read GetCount write SetCount;
> property Data[Index: Integer] read GetData write SetData;
> end;
>
> function TReg.GetCount: Integer;
> begin
> if not FInicializado then
> begin
> SetLength(FData,0);
> FInicializado:=True;
> end;
> Result:=Length(FData);
> end;
>
> procedure TReg.SetCount(const Value: Integer);
> begin
> if Value in [0..255] then
> SetLength(FData,Value);
> end;
>
> function TReg.GetData(const Index: Integer): string;
> begin
> if (Index>=0) and (Index Result:=FData[Index]
> else
> Result:='';
> end;
>
> procedure TReg.SetData(const Index: Integer; Value: string);
> begin
> if (Index>=0) and (Index FData[Index]:=Value;
> end;
>
> Agora às dúvidas:
>
> 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado
> Booleano é *sempre* criado como False?
>
> 2. Após vários processos em que o tamanho da array de strings FData é
> modificado, pode ocorrer vazamento de memória?
>
> Num sistema, criei um record similar a este, e depois disso, começaram a
> aparecer mensagens do FastMM falando sobre vazamento de memória com tipos
> string, que não estou conseguindo identificar.
>
> No NG, recebi dicas para utilizar classes ao invés de records, mas foi 
> o que
> me pareceu mais econômico, já que as variáveis record serão acessadas
> localmente, dentro de outras classes.
>
> -- 
> Timeo hominem unius libri
> Cogito ergo sum - Carpe diem
>
> []s
> Guionardo Furlan
> http://guionardo.blogspot.com 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

[delphi-br] Re: CONECTAR A BASE DE DADOS FIREBIRD COM ZEOS CONECTION VIA INTERNET

[itasouza]

Boa Tarde amigo

Você pode conectar utilizando o IP do host que disponibiliza o banco de 
dados. Isto e feito acrescentando ":" (exemplo: 
192.168.0.1:C\Diretório|Banco|NomeBanco.gdb).

Veja se lhe ajuda!!

[delphi-br] Dúvida com Record

[Guionardo Furlan]

Buenas pessoal, postei esta mesma dúvida no newsgroup da u-br.

No D2007, tenho um record similar a este.

TReg = record
private
  FInicializado: Boolean;
  FData: array of string;
  function GetCount: Integer;
  function SetCount(const Value: Integer);
public
  property Count: Integer read GetCount write SetCount;
  property Data[Index: Integer] read GetData write SetData;
end;

function TReg.GetCount: Integer;
begin
  if not FInicializado then
  begin
SetLength(FData,0);
FInicializado:=True;
  end;
  Result:=Length(FData);
end;

procedure TReg.SetCount(const Value: Integer);
begin
  if Value in [0..255] then
SetLength(FData,Value);
end;

function TReg.GetData(const Index: Integer): string;
begin
  if (Index>=0) and (Index=0) and (Indexhttp://guionardo.blogspot.com


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

[delphi-br] CONECTAR O BANCO DE DADOS VIA NET COM ZEOSCONECTION

[ohnegolindo]

Bom dia Familia é o seguinte :
1 : O Banco de Dados que uso é firebird 1.5
2 : O banco de dados se encontra em uma maquina diferente da aplicação 
cliente
3 : a Velocidade da conexao é de 2 mb

Porem nao consigo conectar o zeos com o banco de dados se alguem puder 
me ajudar fico agradecido

Re: [delphi-br] QUERO SAIR DA LISTA!!!!

[Alessandro Falanque]

..


- Original Message 
From: Evandro Ricardo Silvestre <[EMAIL PROTECTED]>
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 4, 2008 11:27:13 AM
Subject: Re: [delphi-br] QUERO SAIR DA LISTA


Tente ler o rodapé das mensagens!

Evandro
Alessandro Falanque wrote:
> Bom dia...
> Como faço para sair desta lista?
>
> Obrigado !!
> 



  

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

Re: [delphi-br] CONECTAR A BASE DE DADOS FIREBIRD COM ZEOS CONECTION VIA INTERNET

[Eduardo Silva dos Santos]

O processo é o mesmo.

falta você dar mais informações.

1 - Qual o Banco?
2 - Ele está em um provedor?
3 - O Banco está em Outra rede?
4 - Qual versão do banco
5 - Qual a velocidade da conexão?

2008/7/4 ohnegolindo <[EMAIL PROTECTED]>:

>   Salve salve, familia delphiana, estou precisando urgentemente conectar
> um banco de dados via internet usando o componente zeos, se puderem me
> ajudar fico no aguardo de vossa resposta. abraços
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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

[delphi-br] CONECTAR A BASE DE DADOS FIREBIRD COM ZEOS CONECTION VIA INTERNET

[ohnegolindo]

Salve salve, familia delphiana, estou precisando urgentemente conectar 
um banco de dados via internet usando o componente zeos, se puderem me 
ajudar fico no aguardo de vossa resposta. abraços

Re: [delphi-br] QUERO SAIR DA LISTA!!!!

[Evandro Ricardo Silvestre]

Tente ler o rodapé das mensagens!



Evandro
Alessandro Falanque wrote:
> Bom dia...
> Como faço para sair desta lista?
>
> Obrigado!!
>   

[delphi-br] Re: Como pegar os arquivos da pasta e sub-pastas?

[silvaburro]

Era exatamente isso que eu precisava.

Muito grato!

Silva B. Úri de Rodrigues



--- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]> 
escreveu
>
> Caro Silva,
> Neste link http://delphi.about.com/od/vclusing/a/findfile.htm vc
> encontrará o que precisa.
> 
> Att,
> Marcos Douglas
> 
> 2008/7/3 silvaburro <[EMAIL PROTECTED]>:
> >
> > Alguém dessa lista poderia me ajudar?
> >
> > Eu uso um tipo de OpenDialog que pega apenas o diretório (pasta).
> >
> > Bom, eu seleciono a pasta desejada, no retorno, eu preciso colocar
> > numa ListBox todos os arquivos dessa pasta e todos os arquivos das
> > sub-pastas (se existirem), no ListBox tem que ter o caminho completo
> > de todos os arquivos. Já fiz uma pesquisa nos fóruns mas o que
> > encontrei só informa como pegar todos os arquivos da pasta, mas das
> > pastas de dentro da pasta escolhida não encontrei.
> >
> > Me ajudem aí por favor.
> >
> > Obrigado
> >
> >
> > 
> >
> > --
> > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> >
> >
> >
>

Re: [delphi-br] QUERO SAIR DA LISTA!!!!

[André Moraes - GMail]

No fim de qualquer mensagem tem um link "Sair do Grupo"
  - Original Message - 
  From: Alessandro Falanque 
  To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 11:03 AM
  Subject: [delphi-br] QUERO SAIR DA LISTA


  Bom dia...
  Como faço para sair desta lista?

  Obrigado!!



   

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

Re: [delphi-br] QUERO SAIR DA LISTA!!!!

[delphi-br] QUERO SAIR DA LISTA!!!!

[Alessandro Falanque]

Bom dia...
Como faço para sair desta lista?

Obrigado!!



  

[delphi-br] [OT] Novo Sistema Operacional da Microsoft...

[Onjahyr - GMAIL]

E aí pessoal, desculpem o OFF, mas como se trata de Sistema Operacional, 
só para curiosidade dos programadores, eu postei esta notícia:

Interessados podem baixar o Singularity, sistema experimental 
não-Windows da empresa.

O Singularity foi desenvolvido do zero por um grupo de pesquisa da 
Microsoft, que começou a trabalhar nele em 2003. Como não havia a 
obrigação de o sistema ser compatível com o Windows, o grupo teve 
bastante liberdade para inovar. Foi escrito quase totalmente numa versão 
estendida da linguagem C#. A Microsoft diz que o objetivo do projeto é 
criar novas tecnologias em LINGUAGEM DE PROGRAMAÇÃO, COMPILADORES e 
ferramentas.

O projeto envolve, também, alguma experimentação com arquitetura. Quase 
todos os sistemas operacionais atuais - incluindo Linux, Unix, Mac OS e 
Windows - têm sua arquitetura básica derivada do Multics, criado nos 
anos 60. O Singularity segue um modelo diferente. Segundo a Microsoft, 
cada aplicativo, driver de dispositivo ou componente do sistema roda num 
processo isolado por software, ou SIP. O sistema não permite que os SIPs 
compartilhem memória ou modifiquem seu próprio código. A comunicação 
entre SIPs é feita por um sistema de mensagens. O resultado, ao menos na 
teoria, é uma plataforma mais robusta e segura que o Windows.

O pacote que está disponível para download 
 desde março é o RDK, kit 
de desenvolvimento e pesquisa. Ele inclui código-fonte, material 
informativo e ferramentas de compilação e teste. Está liberado para uso 
educacional, não comercial. Naturalmente, o Singularity não tem 
utilidade prática no momento, já que não existem aplicativos para ele. 
Além disso, não há interface gráfica e o suporte a dispositivos de 
hardware é bastante restrito. O software serve basicamente para estudo e 
pesquisa. Mas é razoável supor que a Microsoft esteja usando essa 
plataforma para desenvolver e testar tecnologias que poderão estar em 
futuras versões do Windows.


Fonte: 
http://info.abril.com.br/blog/estacaowindows/20080702_listar.shtml?93102


Onjahyr

RE: [delphi-br] Re: [Ajuda] Comando NVL!!

[Rubem Nascimento da Rocha]

NVL() é função, e não comando! Se retorna um valor, é uma função, e não uma 
procedure, rotina ou comando! Olha os conceitos, galera!

Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 3 Jul 2008 15:58:18 -0300
Subject: Re: [delphi-br] Re: [Ajuda] Comando NVL!!

Ms Access nao aceita esse comando NVL salvo engano ele eh do Oracle.

2008/7/3 Douglas Takahara <[EMAIL PROTECTED]>:

> --- Em delphi-br@yahoogrupos.com.br ,
> Joao Morais  escreveu
>>
>> Douglas Takahara wrote:
>>> Eu quero que ele conte um campo e retorne zero caso o valor for null
>>> meu comando sql está assim:
>>>
>>> Select from blabla Count(NVL(IDADE,0) from bla bla..
>>>
>>> Eu gostaria de saber se usa o comando NVL mesmo ou se usa outro...
>>> estou tentando como citei acima, porém n está dando certo.
>>
>> Não seria coalesce()? Qual o banco?
>>
>> Joao Morais
>>
>
> desculpe pelo gafe Rubem!!!
>
> Joao eh MS Acess
>
>
>

--
Antonio Mateus
Estudante de Sistemas de Informação 4º Periodo

_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

Re: *****SPAM***** Re: [delphi-br] Form com BorderIc ons = biHelp executar alguma ação

[Leandro]

Sim, ja testei

  - Original Message - 
  From: Jackson Gomes - Tools&Comps 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 9:53 AM
  Subject: *SPAM* Re: [delphi-br] Form com BorderIcons = biHelp 
executar alguma ação



  > Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma olhada 
  > nesse do Jedi.

  Já testou se o clique nesse botão aciona o evento OnHelp do Form?

  Jackson Gomes
  Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
  Web Site: http://www.toolsandcomps.com
  Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
  e-mail: [EMAIL PROTECTED]
  Fone: 27 3389 1138 - 8811 0324
  --
  Devhost - Webhost para desenvolvedores Borland
  http://www.devhost.com.br
  [EMAIL PROTECTED] 



   

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

RE: [delphi-br] Delphi como consumidor de serviços

[Rubem Nascimento da Rocha]

Falando no broker como um webservice, a partir da versão 6 o Delphi já possui 
subsídios para consumir webservices, de forma fácil e simples. Como vc está 
falando em uma questão de tratamento do retorno, os dados de resposta de um 
webservice sempre são retornados em XML. Portanto, terias que interpretar esse 
resultado para visualizá-lo da maneira que vc quer em seu aplicativo.

Se o webservice retorna um XML que é um dataset, por exemplo, vc pode recorrer 
a transformações XML para transformar o XML de retorno em um XML datapacket, 
que é o formato XML que é usado pelo TClientDataSet. Tem material na internet 
falando sobre isso, inclusive no site da DevMedia. Lá, eu pelo menos vi umas 
três vídeo-aulas abordando o assunto, assim como tb vi vídeo-aulas abordando 
sobre consumo de webservices com Delphi.

Agora, é fato que cada broker tem a sua abordagem para que possa consumido. 
RMI, até onde me consta, tem haver com Java. E sinceramente não sei se essa 
tecnologia é muito utilizada em projetos críticos ou empresas de médio a grande 
porte. Muito menos vi na Internet artigos abordando chamadas RMI em uma 
aplicação cliente feita em Delphi.

Se eu falei alguma asneira, por favor, me corrijam!
Sds.





To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 4 Jul 2008 01:39:05 +
Subject: [delphi-br] Delphi como consumidor de serviços


Olá Senhores,

Primeiramente, gostaria de saber de todos, quais os canais de
comunicação eu posso ter com o Delphi, isto é, tendo o Delphi apenas
como o consumidor de serviços, uma interface para um serviço levantado
seja Via WebServiices, via RMI, ou outro broker.

Outro detalhe, tendo o flex neste perfil de apenas consumidor de
serviços, quais recursos principais eu iria perder? como por exemplo a
grid não poderia acessar o banco de dados diretamente, mas os dados
teriam de ser providor de um serviço.

Um forte abraço a todos.



_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdomessenger.com.br

Re: [delphi-br] Form com BorderIcon s = biHelp executar alguma ação

[Onjahyr - GMAIL]

Acabei de enviar o componente para seu e-mail... Se funcionar para o que 
deseja dê um retorno!

Blz.

Leandro escreveu:
>
> Valeu cara...
>
> Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma 
> olhada nesse do Jedi.
>
> Muito obrigado.
>
> Leandro
>
> - Original Message -
> From: Onjahyr - GMAIL
> To: delphi-br@yahoogrupos.com.br 
> Sent: Friday, July 04, 2008 9:19 AM
> Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma 
> ação
>
> Tenho outra alternativa.
>
> Procurei e não achei, mas eu tenho pois já usei.
>
> Outra alternativa:
>
> Instale os componentes da JEDI, são 333 componentes.
> Após instalação, copie o texto abaixo e cole no seu form:
>
> object JvCaptionButton1: TJvCaptionButton
> Alignment = taCenter
> ButtonHeight = 18
> ButtonLeft = -31
> ButtonTop = -2
> ButtonWidth = 25
> ShowHint = True
> ParentShowHint = False
> Enabled = False
> Font.Charset = ANSI_CHARSET
> Font.Color = clBlack
> Font.Height = -11
> Font.Name = 'Tahoma'
> Font.Style = [fsBold]
> ImageIndex = 2
> Images = ImageList1
> Margin = 0
> Spacing = 0
> Left = 5
> Top = 258
> end
>
> Se os componetes estiverem instalados aparecerá o componente no seu form.
> São tantos componentes que não achei onde ele tava, então, copiando o
> texto acima dá no mesmo e é logo direto. Este componente cria um botão
> na barra e tem uma opção no Object Inspector que cria o de Help, fechar,
> minimizar, etc... e tem o customizado que você vai dizer no evento
> onClique o que ele vai fazer.
>
> Se mesmo assim vc quiser os componentes para capturar o do próprio
> Formulário me dê um tempo para procutrar na minha estufa. (me avise).
>
> Blz.
>
> Leandro escreveu:
> >
> > Ótimo... muito obrigado... fico aguardando.
> >
> > Leandro
> >
> > --
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Re: [delphi-br] Form com BorderIcons = biHelp executar alguma a��o

> Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma olhada 
> nesse do Jedi.

Já testou se o clique nesse botão aciona o evento OnHelp do Form?

Jackson Gomes
Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

Devhost - Webhost para desenvolvedores Borland
http://www.devhost.com.br
[EMAIL PROTECTED] 

RES: [delphi-br] Como pegar os arquivos da pasta e sub-pastas?

[André Lima]

Não sei como você está trabalhando com diretórios, mas uma coisa que eu
recomendo é usar os componentes da palheta WIN 3.1. Eu gosto dos componentes
de lá porque tem diretorio, arquivos, filtro etc...
aí é só ligar um ao outro através de suas propriedades!
 
Abraços

   _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de silvaburro
Enviada em: quinta-feira, 3 de julho de 2008 20:08 BoaTarde Dé
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como pegar os arquivos da pasta e sub-pastas?



Alguém dessa lista poderia me ajudar?

Eu uso um tipo de OpenDialog que pega apenas o diretório (pasta).

Bom, eu seleciono a pasta desejada, no retorno, eu preciso colocar
numa ListBox todos os arquivos dessa pasta e todos os arquivos das
sub-pastas (se existirem), no ListBox tem que ter o caminho completo
de todos os arquivos. Já fiz uma pesquisa nos fóruns mas o que
encontrei só informa como pegar todos os arquivos da pasta, mas das
pastas de dentro da pasta escolhida não encontrei.

Me ajudem aí por favor.

Obrigado



 


No virus found in this incoming message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 270.4.3/1528 - Release Date: 01/07/2008
07:26 BomDia André



No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.524 / Virus Database: 270.4.3/1528 - Release Date: 01/07/2008
07:26 BomDia André
 


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

Re: [delphi-br] Como pegar os arquivos da pasta e sub-pastas?

[Marcos Douglas]

Caro Silva,
Neste link http://delphi.about.com/od/vclusing/a/findfile.htm vc
encontrará o que precisa.

Att,
Marcos Douglas

2008/7/3 silvaburro <[EMAIL PROTECTED]>:
>
> Alguém dessa lista poderia me ajudar?
>
> Eu uso um tipo de OpenDialog que pega apenas o diretório (pasta).
>
> Bom, eu seleciono a pasta desejada, no retorno, eu preciso colocar
> numa ListBox todos os arquivos dessa pasta e todos os arquivos das
> sub-pastas (se existirem), no ListBox tem que ter o caminho completo
> de todos os arquivos. Já fiz uma pesquisa nos fóruns mas o que
> encontrei só informa como pegar todos os arquivos da pasta, mas das
> pastas de dentro da pasta escolhida não encontrei.
>
> Me ajudem aí por favor.
>
> Obrigado
>
>
> 
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>

Re: [delphi-br] Form com BorderIcons = biHelp execut ar alguma ação

[Leandro]

Valeu cara...

Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma olhada 
nesse do Jedi.

Muito obrigado.

Leandro


  - Original Message - 
  From: Onjahyr - GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 9:19 AM
  Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma ação


  Tenho outra alternativa.

  Procurei e não achei, mas eu tenho pois já usei.

  Outra alternativa:

  Instale os componentes da JEDI, são 333 componentes.
  Após instalação, copie o texto abaixo e cole no seu form:

  object JvCaptionButton1: TJvCaptionButton
  Alignment = taCenter
  ButtonHeight = 18
  ButtonLeft = -31
  ButtonTop = -2
  ButtonWidth = 25
  ShowHint = True
  ParentShowHint = False
  Enabled = False
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = [fsBold]
  ImageIndex = 2
  Images = ImageList1
  Margin = 0
  Spacing = 0
  Left = 5
  Top = 258
  end

  Se os componetes estiverem instalados aparecerá o componente no seu form.
  São tantos componentes que não achei onde ele tava, então, copiando o 
  texto acima dá no mesmo e é logo direto. Este componente cria um botão 
  na barra e tem uma opção no Object Inspector que cria o de Help, fechar, 
  minimizar, etc... e tem o customizado que você vai dizer no evento 
  onClique o que ele vai fazer.

  Se mesmo assim vc quiser os componentes para capturar o do próprio 
  Formulário me dê um tempo para procutrar na minha estufa. (me avise).

  Blz.

  Leandro escreveu:
  >
  > Ótimo... muito obrigado... fico aguardando.
  >
  > Leandro
  >
  > --
  >
  >
  > 


   

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

Re: [delphi-br] Form com BorderIcon s = biHelp executar alguma ação

[Onjahyr - GMAIL]

Tenho outra alternativa.

Procurei e não achei, mas eu tenho pois já usei.

Outra alternativa:

Instale os componentes da JEDI, são 333 componentes.
Após instalação, copie o texto abaixo e cole no seu form:

object JvCaptionButton1: TJvCaptionButton
  Alignment = taCenter
  ButtonHeight = 18
  ButtonLeft = -31
  ButtonTop = -2
  ButtonWidth = 25
  ShowHint = True
  ParentShowHint = False
  Enabled = False
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = [fsBold]
  ImageIndex = 2
  Images = ImageList1
  Margin = 0
  Spacing = 0
  Left = 5
  Top = 258
end

Se os componetes estiverem instalados aparecerá o componente no seu form.
São tantos componentes que não achei onde ele tava, então, copiando o 
texto acima dá no mesmo e é logo direto. Este componente cria um botão 
na barra e tem uma opção no Object Inspector que cria o de Help, fechar, 
minimizar, etc... e tem o customizado que você vai dizer no evento 
onClique o que ele vai fazer.

Se mesmo assim vc quiser os componentes para capturar o do próprio 
Formulário me dê um tempo para procutrar na minha estufa. (me avise).

Blz.





Leandro escreveu:
>
> Ótimo... muito obrigado... fico aguardando.
>
> Leandro
>
> --
>
>
>  

Re: [delphi-br] Form com BorderIcons = biHelp execut ar alguma ação

[Leandro]

Ótimo... muito obrigado... fico aguardando.

Leandro

  - Original Message - 
  From: Onjahyr - GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 04, 2008 8:14 AM
  Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma ação


  Eu tenho um componente que manipula isso, e vem com um DEMO. Vou mandar 
  para seu e-mail.

  Blz.

  Leandro escreveu:
  > Pessoal,
  >
  > Alguém sabe como eu posso executar uma determinada ação ao clicar
  > no botão de interrogação que aparece quando eu coloco BorderIcons = biHelp?
  > Obrigado,
  >
  > Leandro
  >
  >
  >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  >
  > 
  >
  > 


   

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

Re: [delphi-br] Form com BorderIcon s = biHelp executar alguma ação

[Onjahyr - GMAIL]

Eu tenho um componente que manipula isso, e vem com um DEMO. Vou mandar 
para seu e-mail.

Blz.

Leandro escreveu:
> Pessoal,
>
> Alguém sabe como eu posso executar uma determinada ação ao clicar
> no botão de interrogação que aparece quando eu coloco  BorderIcons = biHelp?
> Obrigado,
>
> Leandro
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> 
>
>   

Re: Res: [delphi-br] Site de banco fecha aplicaç ão

[Onjahyr - GMAIL]

Se não me falha a memória, tem uma API do windows que impede o 
fechamento da janela, como o evento "onCloseQuery" do Delphi, só que 
neste evento do Delphi não funcionará porquê se o plugin estiver 
fechando o aplicativo por uma API (que, com certeza é), nem chega a 
detectar este evento. Tem que ser via API também. Vou pesquisar sobre 
isso...

Luciano Calenzani Simões escreveu:
>
> Isso acontecia com vários bancos BB, Bradesco, Real. Depois de 
> atualizar o gerenciador financeiro e serem liberadas novas versões dos 
> "internets banlkings" na maioria resolveu. Ainda persiste o Real.
> O que você falou já era conhecido, eles derrubam aplicações feitas em 
> VB e Delphi como medida de segurança, "imaginando" que elas podem ser 
> keylogers.
> O suporte deles é robotizado, é perda de tempo.
>
> Luciano Calenzani Simões
>
> - Mensagem original 
> De: Alisson <[EMAIL PROTECTED] >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Quinta-feira, 3 de Julho de 2008 18:05:23
> Assunto: [delphi-br] Site de banco fecha aplicação
>
> Eu já tinha falado sobre o assunto aqui. Tenho uma aplicação que em 
> algumas
> máquinas fecha sem mais nem menos. Agora descobri a causa disso: é o 
> sistema
> de segurança de bancos. Quando o usuário acessa sites de bancos, é 
> instalado
> um plugin de segurança que interpreta a minha aplicação como alguma
> ameaça.Já tentei até falar com o suporte do Banco Real, mas tá bem
> complicado ser atendido. Alguém sabe o que pode existe na aplicação 
> que faz
> o sistema de segurança fechar a mesma?
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a 
> sua cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses 
> 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Re: [delphi-br] Problemas com o BDE

[Walter Chagas Jr (BOL)]

No site da Code Gear tém lá.


[]s



Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr

  - Original Message - 
  From: Anderson - Yahoo 
  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] 
  Sent: Thursday, July 03, 2008 6:22 PM
  Subject: [delphi-br] Problemas com o BDE


  Alguém sabe onde posso fazer o download do BDE 5.2.

  Obrigado,

  Atenciosamente,

  Anderson 

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



   

  __ Informação do ESET NOD32 Antivirus, versão da vacina 3239 
(20080703) __

  A mensagem foi verificada pelo ESET NOD32 Antivirus.

  http://www.eset.com


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

[delphi-br] Como pegar os arquivos da pasta e sub-pastas?

[silvaburro]

Alguém dessa lista poderia me ajudar?

Eu uso um tipo de OpenDialog que pega apenas o diretório (pasta).

Bom, eu seleciono a pasta desejada, no retorno, eu preciso colocar
numa ListBox todos os arquivos dessa pasta e todos os arquivos das
sub-pastas (se existirem), no ListBox tem que ter o caminho completo
de todos os arquivos. Já fiz uma pesquisa nos fóruns mas o que
encontrei só informa como pegar todos os arquivos da pasta, mas das
pastas de dentro da pasta escolhida não encontrei.

Me ajudem aí por favor.

Obrigado