RES: [delphi-br] FASTREPORT

[logos]

Não tem como utilizar o evento before printt e restornar false de o
numero da pagina=1?

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de joao_jma
Enviada em: sexta-feira, 7 de maio de 2010 08:19
Para: delphi-br@yahoogrupos.com.br; Projeto Cooperar
Assunto: [delphi-br] FASTREPORT

 

  

Estou desenvolvendo DANFE utilizando o fastReport...

Preciso que a banda rodapé de página apareça apenas na primeira página, mas
não estou conseguindo.

Coloquei um comando "Visible := False" na banda rodapé caso seja página
maior que 1.

Porém a banda some na segunda página, mas os itens do DANFE q estão no
master data não vão até o final da página,
eles param onde começaria supostamente a banda rodapé agora invisível e fica
akele espaço branco.

Se alguém puder ajudar...

Antecipo meus agradecimentos

[]'s 

João Amorim

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





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

RES: [delphi-br] trabalhar com arquivo compactado

[logos]

Dentro da aplicacao mesmo... cria um bat com os comandos depois
executa o bat pela aplicacao e apaga o mesmo... eu faço  sempre isso...

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Osiel Santos
Enviada em: terça-feira, 4 de maio de 2010 18:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] trabalhar com arquivo compactado

 

  

Preciso de uma solução que chame um arquivo que está dentro de uma pasta
compactada com senha.

Mais ou menos isso...
uses shellapi
ShellExecute(Application.Handle,Pchar('Open'),
Pchar('arquivo.zip'),('foto.jpg'),('senha'),0);

Alguém tem a solução? 
Agradeço!

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





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

RES: [delphi-br] [MAF] Componente Indy

[logos]

O acbr, tem um modelo simples Mas bem funcional.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcos Abreu Ferreira
Enviada em: terça-feira, 4 de maio de 2010 11:31
Para: Yahoo Grupos (Delphi); Yahoo Grupos (Delphi)
Assunto: [delphi-br] [MAF] Componente Indy

 

  

>
> Pessoal,

>
como anda o desenvolvimento do componente Indy
(http://www.indyproject.org/)?
Vale a pena atualizar para a versão 10? Alguém me recomendaria outro
componente FREE para fazer comunicação entre 2 software por socket?

>
Atualmente uso o TClientSocket e TServerSocket que vem com o Delphi, mas
gostaria de usar um componente que não pedisse o Nome+IP+Porta da máquina
para conectar, e sim somente o IP+Porta, como o Indy faz.

Att,

Marcos A. Ferreira
São Paulo - Brasil
(+55) 11 9309-3936

MSN: maferre...@hotmail.it  
Google Talk: maferreira.f2
Skype: maferreira.f2
LinkedIn: http://www.linkedin.com/in/maferreira/

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não
pode usar, copiar, ou divulgar as informações nela contidas ou tomar
qualquer ação baseada nestas informações. Se você recebeu esta mensagem por
engano, por favor, avise imediatamente o remetente, respondendo o email e em
seguida, apague-o.
Agradecemos sua cooperação.

This message may contain confidential and/or privileged information. If you
are not the addressee or authorized to receive this for the addressee, you
must not use, copy, disclose or take any action based on this message or any
information herein. If you have received this message in error, please,
advise the sender immediately by reply e-mail and delete this message.
Thank you for your cooperation.

Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.

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





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

RES: [delphi-br] Duplicar FORM

[logos]

Ele controla tambem os controles dentro do form. (buttons, Edit, action
list, etc)

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Nazareno Neto
Enviada em: quinta-feira, 22 de abril de 2010 14:36
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Duplicar FORM

 

  

Outra boa opção tambem seia UserControl, agora um pouco diferente do que vc
quer, ele controla apenas action list e menus.

Em 22 de abril de 2010 14:03, Alexandre mailto:alexandre.pedroto%40gmail.com> >escreveu:

> Entendi o que vc quer fazer.
>
> Não sei se esta é a melhor estratégia, mas o que você precisa é percorrer
> todos os campos do form e jogar numa tabela, e aí atribuir visibilidade,
> entre outras propriedades como cores, fonte, etc.
>
> No oncreate ou onshow de cada form você chama a função passando o id do
> usuário e o sistema irá ler na tabela os componentes e setar as
> propriedades. Caso encontre componentes novos, ele adicionará na tabela
> para
> que possa ser configurado também.
>
> Quanto a configuração dos campos de telas em si, poderá haver um popup em
> cada componente que abrirá uma janela com as configurações e a
> possibilidade
> de atualização.
>
> Por outro lado, existe um componente que já ouvi falar por aqui na lista,
> que fazia exatamente isso, inclusive tratava a questão das tabelas e tudo
> mais. Talvez alguém lembre e seja mais prático pra você usar o componente.
>
> Não posto códigos do FindComponent porque estou sem o Delphi aqui agora.
>
> Alexandre
>
> Em 22 de abril de 2010 08:56, Murilo Cunha mailto:mcscunha%40yahoo.com.br> >
> escreveu:
>
> >
> >
> > Pessoal,
> >
> > Meu objetivo eh o seguinte:
> > Tenho um form para definir direitos dos usuarios no meu sistema.
> > Quando abre esta tela, vc define qual usuario e qual tela irah
> > configurar os direitos.
> > Suponhamos que vc quer definir os direito para a tela principal do
> > sistema, entao, no lado direito da tela tem um grid que lista todos os
> > nome dos botoes e opcoes de menu para vc definir se aquele usuario pode
> > ou nao ver a opcao, pode acessar o botao adicionar, excluir
> >
> > Estou fazendo desta forma:
> >
> > var
> > frm_Tela : TForm;
> > begin
> > case cbxTelas.ItemIndex of
> > 0: begin
> > if frmPrincipal = nil then
> > frmPrincipal := TfrmPrincipal.Create(Application.MainForm);
> > frm_Tela := frmPrincipal;
> > if frm_Tela = nil then
> > frm_Tela := frm_Tela.Create(Application.MainForm);
> > end;
> > 1: begin
> > if frmPermissoesUsuarios = nil then
> > frmPermissoesUsuarios :=
> > TfrmPermissoesUsuarios.Create(Self);
> > frm_Tela := frmPermissoesUsuarios;
> > end;
> > end;
> >
> > ...
> > 
> > ..
> >
> > finally
> > FreeAndNil(frm_Tela); // <-- Aqui ele destroi meu formulario
> > principal, nao tem como eu continuar a trabalhar com o sistema!!!
> > end;
> >
> > Obrigado.
> > MuriloCunha
> >
> >
> > On 20/04/2010 22:18, Alexandre wrote:
> > > Desculpa a intromissão mais qual seria o objetivo disso?
> > > E como você está fazendo a cópia agora?
> > > Depois da sua resposta te digo o que vc deve fazer.
> > >
> > >
> > > Em 20 de abril de 2010 13:46, Murilo Cunhamailto:mcscunha%40yahoo.com.br> 
> >
> > escreveu:
> > >
> > >
> > >>
> > >> Pessoal,
> > >>
> > >> Como eu posso duplicar um form?
> > >> O que eu quero é criar o FORM_PRINCIPAL duas vezes.
> > >> Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os
> > >> nomes de botoes que estao contidos nela.
> > >> Depois, eu destruo esta copia e continuo usando o sistema.
> > >>
> > >> NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é
> > >> destruido!!!
> > >>
> > >> Como criar uma COPIA INDEPENDENTE??
> > >>
> > >> Obrigado.
> > >> MuriloCunha
> > >>
> > >>
> > >>
> > >>
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > 
> > >
> > >
> >
> >
> >
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
>

-- 
Nazareno Neto #507685
Desenvolvedor Delphi e Firebird

http://www.delphisistemas.com.br
nazarenon...@delphisistemas.com.br
 
nazareno.nobr...@gmail.com  

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





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

[delphi-br] Autocomplet no ide delphi 2009

[Logos]

Pessoal, instalei o delphi 2009… criei um projeto novo, e no ide ele
autocompleta toda vez que vou alterar uma propriedade de algum componente. 

Dbgrid.->aqui ele completa as propriedades..., etc...

 

Se abro um projeto meu que foi feito em delphi 2007, isso não funciona de
jeito nenhum, alguém passou por isso?

 

Obrigado

 

Francisco A Souza

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.409 / Virus Database: 270.13.95/2368 - Release Date: 09/14/09
05:51:00




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

RES: [delphi-br] [Entrevista - Ramon Durães] Voc ê ainda lembra do Clipper? Vamos migrar para .NET!

[Logos]

Concordo em gênero, grau e numero.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Walter Chagas (Bol)
Enviada em: quarta-feira, 12 de agosto de 2009 08:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [Entrevista - Ramon Durães] Você ainda lembra do
Clipper? Vamos migrar para .NET!

 

  

Eu li esta artigo e achei ele altamente tendencioso e muito com o coração. É
igual voce pedir pro Atleticano comentar a final da libertadores deste ano.
O cara deve ser Microsoft até no sangue pra falar aquelas coisas. Algumas
até fazem sentido mas outras saiu completamente pela tangente, como falar
que o VS é altamente produtivo ou mais produtivo que no Delphi..

Alias, o que esperar de um camarada que é Microsoft MVP, Especialista em
Visual Studio Team System, etc? Que ele vá falar bem da Embarcadero? É ruim
heim!!!

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br  
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com  
SKYPE: WalterChagasJr

- Original Message - 
From: Rubem Rocha 
To: delphi-br@yahoogrupos.com.br   
Sent: Tuesday, August 11, 2009 8:35 PM
Subject: [delphi-br] [Entrevista - Ramon Durães] Você ainda lembra do
Clipper? Vamos migrar para .NET!

http://www.ramonduraes.net/post/Voce-ainda-lembra-do-Clipper-Vamos-migrar-pa
ra-NET!.aspx

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

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



Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.392 / Banco de dados de vírus: 270.13.53/2299 - Data de
Lançamento: 08/12/09 18:12:00



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

RES: [delphi-br] Upload de Arquivos com Socket Server

[Logos]

Eu tenho uma rotina, onde o cliente envia um arquivo para o Server, o Server
trava e manda de volta para o cliente. Seria isso? 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo Suruagy
Enviada em: terça-feira, 26 de maio de 2009 02:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Upload de Arquivos com Socket Server

 






Alguem sabe como fazer upload de arquivos com os componentes ClientSocket e
ServerSocket ?

Eduardo Suruagy
Net System - (82) 9117-0204

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



Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.339 / Banco de dados de vírus: 270.12.39/2133 - Data de
Lançamento: 05/25/09 08:16:00



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

RES: [delphi-br] pacotes bpl

[Logos]

Qual a sua dificuldade?

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rafael Marques
Enviada em: quarta-feira, 18 de fevereiro de 2009 17:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] pacotes bpl

 

Ola!!

vc poderia dar uma breve explicacao de como fez a modularizacao??

eu tentei aq de varias formas e nao consegui, sempre davam problemas (a
minha situacao é a mesma da sua, terei um form base e um datamodule e os
forms d cadastro herdando desse form base)

valeu

- Original Message - 
From: Logos 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
Sent: Tuesday, February 17, 2009 5:22 PM
Subject: [delphi-br] pacotes bpl

Pessoal, já pesquisei na net mas não consegui achar. Poderiam me dar uma
dica?

Tenho aplicação dividida em pacotes.

Principal+Datamodulo

Pacote1=formbase+datamodulo

Pacote2=cadastro de grupos

Na aplicação principal, carrego o pacote 2, onde o forme é herança do
pacote1. 

Abre a tabela, navega, edita, exclui... tudo certinho.

Quando vou incluir um grupo, eu utilizo uma função no datamoulo, para
retornar o ultimo código disponível.

Ai que acontece o erro (violação de memória no pacote 1), nessa função
utilizo um clientdataset onde crio ele temporariamente. Quando executo o
comando createdataset da o erro de violação de memória no pacote1.

Se eu executar qualquer outra função no datamodulo funciona blz, menos o
createdataset do clientdatset.

Bom, baixei um exemplo na net, e fiz o mesmo teste. Coloquei um clientdatset
no datamoulo do exempli, tentei criar ele temporariamente e da o mesmo erro.

Se alguém tiver alguma sugestão.. agradeço.

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

--
E-mail verificado pelo Terra Anti-Spam.
Para classificar esta mensagem como spam ou não spam, clique aqui.
Verifique periodicamente a pasta Spam para garantir que apenas mensagens
indesejadas sejam classificadas como Spam. 

--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 17/02/2009

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



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.237 / Virus Database: 270.10.25/1957 - Release Date: 02/18/09
08:57:00



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

RES: [delphi-br] pacotes bpl

[Logos]

Meus exemplos se basearm no exemplo do adreano
http://cc.codegear.com/Item/25031,



Funciona blz, mas o problema que estou tendo e na criação de clientdataset
em tempo de execução no datamodule.

Tambem utilizo datasnap, e não consigo executar um método remoto no
servidor.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rafael Marques
Enviada em: quarta-feira, 18 de fevereiro de 2009 17:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] pacotes bpl

 

Ola!!

vc poderia dar uma breve explicacao de como fez a modularizacao??

eu tentei aq de varias formas e nao consegui, sempre davam problemas (a
minha situacao é a mesma da sua, terei um form base e um datamodule e os
forms d cadastro herdando desse form base)

valeu

- Original Message - 
From: Logos 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
Sent: Tuesday, February 17, 2009 5:22 PM
Subject: [delphi-br] pacotes bpl

Pessoal, já pesquisei na net mas não consegui achar. Poderiam me dar uma
dica?

Tenho aplicação dividida em pacotes.

Principal+Datamodulo

Pacote1=formbase+datamodulo

Pacote2=cadastro de grupos

Na aplicação principal, carrego o pacote 2, onde o forme é herança do
pacote1. 

Abre a tabela, navega, edita, exclui... tudo certinho.

Quando vou incluir um grupo, eu utilizo uma função no datamoulo, para
retornar o ultimo código disponível.

Ai que acontece o erro (violação de memória no pacote 1), nessa função
utilizo um clientdataset onde crio ele temporariamente. Quando executo o
comando createdataset da o erro de violação de memória no pacote1.

Se eu executar qualquer outra função no datamodulo funciona blz, menos o
createdataset do clientdatset.

Bom, baixei um exemplo na net, e fiz o mesmo teste. Coloquei um clientdatset
no datamoulo do exempli, tentei criar ele temporariamente e da o mesmo erro.

Se alguém tiver alguma sugestão.. agradeço.

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

--
E-mail verificado pelo Terra Anti-Spam.
Para classificar esta mensagem como spam ou não spam, clique aqui.
Verifique periodicamente a pasta Spam para garantir que apenas mensagens
indesejadas sejam classificadas como Spam. 

--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 17/02/2009

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



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.237 / Virus Database: 270.10.25/1957 - Release Date: 02/18/09
08:57:00



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

RES: [delphi-br] pacotes bpl

[Logos]

Pessoal, olha so o que descobri:

 

No form cadastro de grupos, coloquei um clientdataset, no datamodule criei
uma procedure que recebe um clientdataset por parâmetro.

Dentro dessa procedure executei: parâmetro.createtaset.

Pra minha surpresa, funcionou. Mas se colocar um clientdataset no
datamodulo, e executar clientdataset.createdataset da erro... 

Alguém  já passoui por isso?

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Logos
Enviada em: terça-feira, 17 de fevereiro de 2009 17:33
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] pacotes bpl

 

Baixei um exemplo, que o adreano fez em http://cc.codegear.com/Item/25031,
com pacotes. 

Fiz o mesmo teste, adicionei um datamulo, dentro dele um clientdataset.
Criei um campo.

Dentro do datamodulo criei uma procedure teste

E dentro da procedure: clientdataset.createdataset.

No pacote coloquei um botão: datamodulo.teste;

Nesse pacote adicionei o datamodule. E o mesmo erro acontece agora
fiquei encucado... He He He He

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Logos
Enviada em: terça-feira, 17 de fevereiro de 2009 17:23
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: [delphi-br] pacotes bpl

Pessoal, já pesquisei na net mas não consegui achar. Poderiam me dar uma
dica?

Tenho aplicação dividida em pacotes.

Principal+Datamodulo

Pacote1=formbase+datamodulo

Pacote2=cadastro de grupos

Na aplicação principal, carrego o pacote 2, onde o forme é herança do
pacote1. 

Abre a tabela, navega, edita, exclui... tudo certinho.

Quando vou incluir um grupo, eu utilizo uma função no datamoulo, para
retornar o ultimo código disponível.

Ai que acontece o erro (violação de memória no pacote 1), nessa função
utilizo um clientdataset onde crio ele temporariamente. Quando executo o
comando createdataset da o erro de violação de memória no pacote1.

Se eu executar qualquer outra função no datamodulo funciona blz, menos o
createdataset do clientdatset.

Bom, baixei um exemplo na net, e fiz o mesmo teste. Coloquei um clientdatset
no datamoulo do exempli, tentei criar ele temporariamente e da o mesmo erro.

Se alguém tiver alguma sugestão.. agradeço.

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

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.237 / Virus Database: 270.10.25/1957 - Release Date: 02/17/09
07:07:00

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



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.237 / Virus Database: 270.10.25/1957 - Release Date: 02/17/09
07:07:00



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

RES: [delphi-br] pacotes bpl

[Logos]

Baixei um exemplo, que o adreano fez em http://cc.codegear.com/Item/25031,
com pacotes. 

Fiz o mesmo teste, adicionei um datamulo, dentro dele um clientdataset.
Criei um campo.

Dentro do datamodulo criei uma procedure teste

E dentro da procedure: clientdataset.createdataset.

No pacote coloquei um botão: datamodulo.teste;

 

Nesse pacote adicionei o datamodule. E o mesmo erro acontece agora
fiquei encucado... He He He He

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Logos
Enviada em: terça-feira, 17 de fevereiro de 2009 17:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] pacotes bpl

 

Pessoal, já pesquisei na net mas não consegui achar. Poderiam me dar uma
dica?

Tenho aplicação dividida em pacotes.

Principal+Datamodulo

Pacote1=formbase+datamodulo

Pacote2=cadastro de grupos

Na aplicação principal, carrego o pacote 2, onde o forme é herança do
pacote1. 

Abre a tabela, navega, edita, exclui... tudo certinho.

Quando vou incluir um grupo, eu utilizo uma função no datamoulo, para
retornar o ultimo código disponível.

Ai que acontece o erro (violação de memória no pacote 1), nessa função
utilizo um clientdataset onde crio ele temporariamente. Quando executo o
comando createdataset da o erro de violação de memória no pacote1.

Se eu executar qualquer outra função no datamodulo funciona blz, menos o
createdataset do clientdatset.

Bom, baixei um exemplo na net, e fiz o mesmo teste. Coloquei um clientdatset
no datamoulo do exempli, tentei criar ele temporariamente e da o mesmo erro.

Se alguém tiver alguma sugestão.. agradeço.

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



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.237 / Virus Database: 270.10.25/1957 - Release Date: 02/17/09
07:07:00



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

[delphi-br] pacotes bpl

[Logos]

Pessoal, já pesquisei na net mas não consegui achar. Poderiam me dar uma
dica?

 

Tenho aplicação dividida em pacotes.

 

Principal+Datamodulo

Pacote1=formbase+datamodulo

Pacote2=cadastro de grupos

 

Na aplicação principal, carrego o pacote 2, onde o forme é herança do
pacote1. 

Abre a tabela, navega, edita, exclui... tudo certinho.

Quando vou incluir um grupo, eu utilizo uma função no datamoulo, para
retornar o ultimo código disponível.

Ai que acontece o erro (violação de memória no pacote 1), nessa função
utilizo um clientdataset onde crio ele temporariamente. Quando executo o
comando createdataset da o erro de violação de memória no pacote1.

 

Se eu executar qualquer outra função no datamodulo funciona blz, menos o
createdataset do clientdatset.

 

Bom, baixei um exemplo na net, e fiz o mesmo teste. Coloquei um clientdatset
no datamoulo do exempli, tentei criar ele temporariamente e da o mesmo erro.

Se alguém tiver alguma sugestão.. agradeço.



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

RES: [delphi-br] Consulta em delphi 2007 e banco mysql-front

[Logos]

Coloca pra o dataset ligado ao dependentes para ir filtrando a medida que vc
vai navegando no form de titulares, e so utilizar o evento do datasource pra
fazer isso...

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vanessa Oliveira
Enviada em: terça-feira, 10 de fevereiro de 2009 09:53
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Consulta em delphi 2007 e banco mysql-front

 

Bom dia Pessoal!!

Criei um form normal chamado registro, só que no mesmo tem um speed button
com uma consulta pra abrir um outro form chamado titular(nesse form tem 1
grid com uma dbEdit onde posso pesquisar por titulares), minha dúvida
é..como faço pra após eu selecionar o titular aparecer outro form (sem
precisar clicar em outro speed button, só em selecionar o titular, aparecer
com os dependentes do mesmo)

Se alguém puder me ajudar agradeceria

-- 
Atenciosamente
Vanessa Oliveira

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



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.233 / Virus Database: 270.10.20/1943 - Release Date: 02/10/09
07:20:00



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

RES: [delphi-br] [MAF] Socket no Delphi 7

[Logos]

O client socket do delphi 7, conecta pelo hostname, em vez do ip. Eu utilizo
em alguns clientes, e utilizamos um no-ip da vida, pra conectar.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcos Abreu Ferreira
Enviada em: quarta-feira, 28 de janeiro de 2009 09:55
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] [MAF] Socket no Delphi 7

 


Pessoal,

um cliente comprou uma aplicação que lê informações em páginas web, trata
elas e distribui essas informações por socket.

Ele pediu que eu desenvolvesse uma aplicação que le-se essas informações e
as armazenasse em banco de dados. Comecei o desenvolvimento usando o
ClientSocket no Delphi 7, pois não consegui fazer funcionar com o Indy
IdTCPClient.

Quando fui entregar o sistema para ele, não funcionava nem com reza brava e
após várias tentativas, descobri que o problema estava na configuração da
conexão, tive que colocar o IP fixo, ele não conecta de forma alguma com
DHCP. Alguém já teve algum problema parecido? Como resolveu.

Agora estou tentando usar o Indy IdTCPClient. Acontece que todos os exemplos
que acho na internet são para a versão do Indy que vem original no Delphi 7
e eu atualizei os componentes para a última versão dele, a 10.1.5.
Att,Marcos A. Ferreira
São Paulo - BrasilMSN: maferre...@hotmail.itgoogle
  Talk: maf.decisiva
Skype: m_abreuferreiraEsta mensagem pode conter informação confidencial e/ou
privilegiada. Se você não for o destinatário ou a pessoa autorizada a
receber esta mensagem, não pode usar, copiar, ou divulgar as informações
nela contidas ou tomar qualquer ação baseada nestas informações. Se você
recebeu esta mensagem por engano, por favor, avise imediatamente o
remetente, respondendo o email e em seguida, apague-o.Agradecemos sua
cooperação.This message may contain confidential and/or privileged
information. If you are not the addressee or authorized to receive this for
the addressee, you must not use, copy, disclose or take any action based on
this message or any information herein. If you have received this message in
error, please, advise the sender immediately by reply e-mail and delete this
message.Thank you for your cooperation.

Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.
__
Show them the way! Add maps and directions to your party invites. 
http://www.microsoft.com/windows/windowslive/events.aspx

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.10.14/1918 - Release Date: 28/01/2009
06:37



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

RES: [delphi-br] Re: Indy - Server socket com multi clientes

[Logos]

Bom... entao da uma olhada nesse artigo: ele trata varias conexões ao mesmo
tempo.

http://delphi.about.com/od/internetintranet/l/aa012004a.htm

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Paulo Coutinho
Enviada em: segunda-feira, 5 de janeiro de 2009 20:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Indy - Server socket com multi clientes

 

Obrigado Logos,

Mas este eu conheço e não é com indy, eu precisava mesmo é de um que use o
indy, pois toda a estrutura que tenho ja usa os sockets dele, os métodos já
tem as assinaturas e código preparados pro indy, mas não uso thread, queria
um exemplo de como fazer os sockets em thread com indy,

2009/1/5 Logos mailto:logos%40logosinfo.com.br> >

> Da uma olhada nesse artigo pra ver se te atende:
>
> http://www.delphi3000.com/printarticle.asp?ArticleID=1473
>
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
 [mailto:
> delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
> nome de Paulo Coutinho
> Enviada em: domingo, 4 de janeiro de 2009 17:50
>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>

> Assunto: Re: [delphi-br] Re: Indy - Server socket com multi clientes
>
> Em relação ao topico alguém tem solução ?
>
> 2009/1/4 Ricardo César Cardoso mailto:ricardo_engsoft%40yahoo.com.br> 
> <mailto:ricardo_engsoft%40yahoo.com.br >
> >
>
> > Nem leva muito a sério não, Emanuel... foi só uma piada pra descontrair,
> > companheiro. A propósito, o problema a que se refere o tópico foi
> resolvido?
> >
> >
> > []'s
> > Ricardo.
> >
> > __
> >
> > "Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
> >
> > --- Em sáb, 3/1/09, Coutinho - Yahoo mailto:emanuelcoutinho%40yahoo.com.br> 
> <mailto:emanuelcoutinho%40yahoo.com.br >
> >
> > escreveu:
> >
> > Quando se escreve rápido, às vezes se faz inversão de letras...
> >
> > ainda quando as letras são vizinhas no teclado... certo?
> >
> > Minhas mais humildes escusas por tão crasso erro!
> >
> > Sds
> >
> > Emanuel Coutinho
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > Veja quais são os assuntos do momento no Yahoo! +Buscados
> > http://br.maisbuscados.yahoo.com
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Atenciosamente,
> Paulo Coutinho.
> Site: www.prsolucoes.com
> Msn: pa...@prsolucoes.com <mailto:paulo%40prsolucoes.com>
  paulo%40prsolucoes.com >
> Skype: paulo.prsolucoes
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.176 / Virus Database: 270.9.19/1859 - Release Date:
03/01/2009
> 14:14
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
Atenciosamente,
Paulo Coutinho.
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com <mailto:paulo%40prsolucoes.com> 
Skype: paulo.prsolucoes

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.10.3/1877 - Release Date: 05/01/2009
19:20



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

RES: [delphi-br] Re: Indy - Server socket com multi clientes

[Logos]

Vc já viu o acbrmonitor? Aquele que vem junto com o acbr? Ele vem com o
código fonte, e faz a comunicação pelo Indy, através de um timer, que não
deixa de ser uma thread

Da uma olhadinha, que sabe te ajuda.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Paulo Coutinho
Enviada em: segunda-feira, 5 de janeiro de 2009 20:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Indy - Server socket com multi clientes

 

Obrigado Logos,

Mas este eu conheço e não é com indy, eu precisava mesmo é de um que use o
indy, pois toda a estrutura que tenho ja usa os sockets dele, os métodos já
tem as assinaturas e código preparados pro indy, mas não uso thread, queria
um exemplo de como fazer os sockets em thread com indy,

2009/1/5 Logos mailto:logos%40logosinfo.com.br> >

> Da uma olhada nesse artigo pra ver se te atende:
>
> http://www.delphi3000.com/printarticle.asp?ArticleID=1473
>
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
 [mailto:
> delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
> nome de Paulo Coutinho
> Enviada em: domingo, 4 de janeiro de 2009 17:50
>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>

> Assunto: Re: [delphi-br] Re: Indy - Server socket com multi clientes
>
> Em relação ao topico alguém tem solução ?
>
> 2009/1/4 Ricardo César Cardoso mailto:ricardo_engsoft%40yahoo.com.br> 
> <mailto:ricardo_engsoft%40yahoo.com.br >
> >
>
> > Nem leva muito a sério não, Emanuel... foi só uma piada pra descontrair,
> > companheiro. A propósito, o problema a que se refere o tópico foi
> resolvido?
> >
> >
> > []'s
> > Ricardo.
> >
> > __
> >
> > "Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
> >
> > --- Em sáb, 3/1/09, Coutinho - Yahoo mailto:emanuelcoutinho%40yahoo.com.br> 
> <mailto:emanuelcoutinho%40yahoo.com.br >
> >
> > escreveu:
> >
> > Quando se escreve rápido, às vezes se faz inversão de letras...
> >
> > ainda quando as letras são vizinhas no teclado... certo?
> >
> > Minhas mais humildes escusas por tão crasso erro!
> >
> > Sds
> >
> > Emanuel Coutinho
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > Veja quais são os assuntos do momento no Yahoo! +Buscados
> > http://br.maisbuscados.yahoo.com
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Atenciosamente,
> Paulo Coutinho.
> Site: www.prsolucoes.com
> Msn: pa...@prsolucoes.com <mailto:paulo%40prsolucoes.com>
  paulo%40prsolucoes.com >
> Skype: paulo.prsolucoes
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.176 / Virus Database: 270.9.19/1859 - Release Date:
03/01/2009
> 14:14
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
Atenciosamente,
Paulo Coutinho.
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com <mailto:paulo%40prsolucoes.com> 
Skype: paulo.prsolucoes

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.10.3/1877 - Release Date: 05/01/2009
19:20



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

RES: [delphi-br] Re: Indy - Server socket com multi clientes

[Logos]

Da uma olhada nesse artigo pra ver se te atende:

 

http://www.delphi3000.com/printarticle.asp?ArticleID=1473

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Paulo Coutinho
Enviada em: domingo, 4 de janeiro de 2009 17:50
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Indy - Server socket com multi clientes

 

Em relação ao topico alguém tem solução ?

2009/1/4 Ricardo César Cardoso mailto:ricardo_engsoft%40yahoo.com.br> >

> Nem leva muito a sério não, Emanuel... foi só uma piada pra descontrair,
> companheiro. A propósito, o problema a que se refere o tópico foi
resolvido?
>
>
> []'s
> Ricardo.
>
> __
>
> "Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
>
> --- Em sáb, 3/1/09, Coutinho - Yahoo mailto:emanuelcoutinho%40yahoo.com.br> >
> escreveu:
>
> Quando se escreve rápido, às vezes se faz inversão de letras...
>
> ainda quando as letras são vizinhas no teclado... certo?
>
> Minhas mais humildes escusas por tão crasso erro!
>
> Sds
>
> Emanuel Coutinho
>
>
>
>
>
>
>
>
>
>
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
Atenciosamente,
Paulo Coutinho.
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com  
Skype: paulo.prsolucoes

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.9.19/1859 - Release Date: 03/01/2009
14:14



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

RES: [delphi-br] OFF +- Quero comprar o Delphi e o preço?

[Logos]

Bruno, esta versao Ref.: HDE0009WWFS190 - DELPHI 2009 FOR WIN 32 ENTERPRISE
NEW USER NAMED 

Detalhes: 

DELPHI 2009 FOR WIN 32 ENTERPRISE NEW USER NAMED 

 Que ta no site, tem o datasnap?

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 20 de novembro de 2008 10:58
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] OFF +- Quero comprar o Delphi e o preço?

 

11-2165-8000 falar com a graça ou em WWW.borlandshop.com.br

Abs

BL

From: delphi-br@yahoogrupos.com.br 
[mailto:delphi-br@yahoogrupos.com.br 
] On Behalf Of alessandra porto
Sent: quinta-feira, 20 de novembro de 2008 11:55
To: delphi-br@yahoogrupos.com.br  
Subject: Re: [delphi-br] OFF +- Quero comprar o Delphi e o preço?

aproveitando 
gostaria de ter uma ideia de preço aproximado
de cada versão disponivel no mercado

ainda posso comprar o delphi 7 ?

--- Em qui, 20/11/08, Claudiney Cogo <[EMAIL PROTECTED]

 > escreveu:
De: Claudiney Cogo <[EMAIL PROTECTED]

 >
Assunto: Re: [delphi-br] OFF +- Quero comprar o Delphi
Para: delphi-br@yahoogrupos.com.br 
 
Data: Quinta-feira, 20 de Novembro de 2008, 12:13

Olá Jorge.

Eu acredito que em qualquer uma das versões você não terá problema de
migração, se trabalha com os componentes próprios do delphi somente ou se
você mesmo produz os seus ou ainda se tem o código fonte dos componentes de
terceiros. Agora se você utiliza componentes de terceiros e não tem os
fontes aí sim pode ter problemas, caso estes componentes não tenham versão
para o delphi escolhido. Aí o caminho é solicitar ao fabricante a
atualização ou parar de usar e substituir por outro componente padrão.

Agora quanto a versão Delphi 2009 ou RAD 2007 depende do uso. Se você só usa
delphi win32, o Delphi 2009 vai resolver tudo. Se você trabalha com outras
linguagens, como C++ ou desenvolvimento pra .NET, aí tem que ser o RAD 2007.
Ou aguardar um pouco mais pelo RAD 2009 e o Prism.

Acredito que seja isso. Mas de qualquer maneira o pessoal da Borland que
frequenta a lista pode dar mais informações.

Abraço.

 - - - - - -

Claudiney Cogo

N2 Sistemas e Soluções em Informática

Av. São Paulo, 172 - 15º Andar - Sala 1505

Fone/Fax: (44) 3029-6053 - Maringá - Paraná

www.n2solutions. com.br

www.nfe.n2solutions .com.br

www.studion2. com.br

- Original Message - 

From: Jorge Ericsson 

To: [EMAIL PROTECTED] os.com.br 

Sent: Thursday, November 20, 2008 9:36 AM

Subject: Re: [delphi-br] OFF +- Quero comprar o Delphi

Também quero comprar o Delphi mas a minha dúvida é quanto a versão.

Hoje eu trabalho com a versão Delphi 7 e fico na dúvida em Comprar o Delphi

2009 ou Rad Studio 2007.

Alguém poderia me dá uma dica em qual das versão não teria problema de

migração ?

Queria algo barato, investimento inicial baixo mas que atender as minhas

necessidades.

Abraço.

Jorge Ericsson

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

__ Informação do NOD32 IMON 3625 (20081119) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus

http://www.eset. com.br

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

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

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

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

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.175 / Virus Database: 270.9.8/1800 - Release Date: 19/11/2008
18:55



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

RES: [delphi-br] Re: Socket Server

[Logos Informatica]

O socket server já faz isso em uma thread

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 28 de maio de 2008 10:25
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Re: Socket Server

 

Se você não utilizar threads, quando uma requisição estiver sendo
processada, as outras ficaram esperando e provavelmente irão cair por time
out (dependendo do tamanho do problema)

O ideal seria sempre criar 1 thread por conexão.

[]'s

De: [EMAIL PROTECTED]  os.com.br
[mailto:[EMAIL PROTECTED] 
os.com.br] Em nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 28 de maio de 2008 10:22
Para: [EMAIL PROTECTED]  os.com.br
Assunto: RES: [delphi-br] Re: Socket Server

Dica: faça threads para cada conexão.

De: [EMAIL PROTECTED]  os.com.br
 [mailto:[EMAIL PROTECTED]
 os.com.br
 ] Em nome de lucaoliveira7
Enviada em: quarta-feira, 28 de maio de 2008 10:16
Para: [EMAIL PROTECTED]  os.com.br
 
Assunto: [delphi-br] Re: Socket Server

José Mário,

Eu não estou usando threads. Não sei se deveria usar. 95% da lógica
está no evento OnClientRead do Serversocket.

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

RES: [delphi-br] Socket Server

[Logos Informatica]

Eu tenho uma rotina, que faz consultas via arquivo texto: o cliente mandar
um arquivo txt com as requisições, o servidor gera o retorno em arquivo
texto e devolve para o cliente. O servidor fica num windows 2003, e os
clientes em pdvs numa rede local, sendo q uma determinada loja utiliza velox
para consultar na matriz.

Utilizo delphi7+socket server.

 

Parte Cliente:

Tenho um timer que fica verificando se existe tal aquivo:

 

procedure TFrmConsulta.RxTimerEvent1Timer(Sender: TObject);

 

begin

   APPLICATION.ProcessMessages;

   Narq1:=dd1.text+'CLIENTE.CMD';

   Narq3:=dd1.text+'CLIENTE.STS';

   jvled1.ColorOn:=clred;

   TRY

  if (fileexists(narq1)) then begin

 IF CLIENTSOCKET.Active=FALSE THEN CLIENTSOCKET.Open;

 IF CLIENTSOCKET.Active THEN BEGIN

JVLED1.ColorON:=CLgreen;

rx1.Deactivate;

ret:= TStringList.create;

ret.LoadFromFile(narq1);

Log('Enviando Arquivo: '+EDTIP.TEXT+':'+SEDTPROTA.text+' - Pdv
'+edit13.text+' Inicio:'+DateTimeToStr(Now));

log(ret.Text);

CLIENTSOCKET.Socket.SendText(BuscaTroca(RET.CommaText,'"',''));

Log('Fim Comunicacao : '+EDTIP.TEXT+':'+SEDTPROTA.text+' - Pdv
'+edit13.text+' Inicio:'+DateTimeToStr(Now));

 
Log('--'
);

deletefile(narq1);

rx1.Activate;

 END;

  end;

   EXCEPT

  clientsocket.Close;

  JVLED1.ColorON:=CLRED;

  rx1.Activate;

   END;

end;

 

no client socket no evento  onread

procedure TFrmConsulta.ClientSocketRead(Sender: TObject;

  Socket: TCustomWinSocket);

var

   Txt:string;

   Arquivo:Textfile;

   Nomedolog:string;

   a:integer;

   stemp:string;

   txt2: TStringList;

   iLen: Integer;

   Bfr: Pointer;

 

begin

   rx1.Deactivate;

   if clientsocket.Active then begin

  FStream := TFileStream.Create(narq8, fmCreate or fmShareDenyWrite);

  iLen := Socket.ReceiveLength;

 GetMem(Bfr, iLen);

  try

Socket.ReceiveBuf(Bfr^, iLen);

FStream.Write(Bfr^, iLen);

  finally

FreeMem(Bfr);

  end;

 

  Log('Recebendo Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));

  if fileexists(narq3) then deletefile(narq3);

  if fileexists(narq8) then deletefile(narq8);

  Log('Recebendo Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));

  Log('Fim Comunicacao : '+EDTIP.TEXT+':'+SEDTPROTA.text+' - Pdv
'+edit13.text+' Inicio:'+DateTimeToStr(Now));

  ret.SaveToFile(narq3);

 
Log('--'
);

   end;

   rx1.Activate;

end;

 

no servidor utilize o seguinte:

 

no evento on read  do socketserver

 

var

   t: TStringList;

   Arq:string;

   TEXTO:STRING;

   buff:string;

   stemp:string;

begin

   TEXTO:=SOCKET.ReceiveText;

   t := TStringList.create;

   sBreakApart(socket.remoteaddress, '.', t);

   Pdv:=STRZERO(t.Strings[3],3);

   arq:=DD2.TEXT+'PDV'+STRZERO(t.Strings[3],3)+'\';

   if not DirectoryExists(ARQ) then CreateDir(ARQ);

   if fileexists(ARQ+'CLIENTE.CMD') then deletefile(ARQ+'CLIENTE.CMD');

   if fileexists(ARQ+'CLIENTE.STS') then deletefile(ARQ+'CLIENTE.STS');

   if fileexists(ARQ+'FLUXO.CMD') then deletefile(ARQ+'FLUXO.CMD');

   if fileexists(ARQ+'FLUXO.STS') then deletefile(ARQ+'FLUXO.STS');

   Log('Recebendo Arquivo -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));

   t.clear;

   sBreakApart(texto, ',', t);

   IF CHECKBOX1.Checked THEN t.SaveToFile(ARQ+'CLIENTE.CMD');

   IF CHECKBOX2.Checked THEN t.SaveToFile(ARQ+'FLUXO.CMD');

   t.clear;

   Log('Finalizando   -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));

   IF CHECKBOX1.Checked THEN pesquisadbf;

   IF CHECKBOX2.Checked THEN PESQUISAFLUXO;

   IF CHECKBOX1.CHECKED THEN  DELETEFILE(ARQ+'CLIENTE.CMD');

   IF CHECKBOX2.CHECKED THEN  DELETEFILE(ARQ+'FLUXO.CMD');

   IF (FILEEXISTS(NARQ3)) OR (FILEEXISTS(NARQ8)) THEN BEGIN

  Log('Enviando Arquivo  -
'+socket.RemoteAddress+':'+inttostr(socket.RemotePort)+'
Inicio:'+DateTimeToStr(Now));

  T.CLEAR;

  T.DelimitedText:='';

  IF CHECKBOX1.Checked THEN

  t.LoadFromFile(narq3);

  IF CHECKBOX2.Checked THEN

  t.LoadFromFile(narq8);

  socket.SendText(BuscaTroca(t.CommaText,'"',''));

  t.Destroy;

  IF CHECKBOX1.Checked THEN

  DELETEFILE(ARQ+'CLIENTE.sts');

IF CHECKBOX2.Checked THEN

DELETEFILE(ARQ+'FLUXO.sts');

 

   END;

 

 

 

 

Veja se te ajuda.



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

[delphi-br] Solução Mala direta no Word

[Logos]

Amigos segue a solucao encontrada, caso alguém tenha interesse em utilizar a
rotina:

 

 

Adicionei o componente wordapplication da paleta server e codifiquei assim,
seguindo sugestao de um amigo aqui da minha cidade.

 

procedure TForm1.Button3Click(Sender: TObject);

var

  pFileName,ConfirmConversions,ReadOnly : OleVAriant;

  AddToRecentFiles, PasswordDocument,PasswordTemplate,Revert : OleVAriant;

  WritePasswordDocument,WritePasswordTemplate,Format:OleVariant;

  SaveChanges: OleVariant;

  What,Which,Name_, type_ : OleVariant;

  RePlace : OleVariant;

  DiretorioAtual,tdoc:string;

  i, col,nLinhas :Integer;

  velhoCursor : TCursor;

  ListProd : TStringList;

  tliteral : string;

  voptional:olevariant;

  a:integer;

begin

DiretorioAtual := ExtractFilePAth(ParamStr(0));

tdoc :='d:\sistemaswindows\start\documentos\cbv300.doc';

try

   CopyFile(pchar(tdoc), pchar('c:\DC1.DOC'),false);

except

  ShowMessage('Feche o Documento no Word Primeiro');

  exit;

end;

w.Visible:=true;

w.Connect;

pFileName := tdoc;

ConfirmConversions := false;

ReadOnly:=false;

AddToRecentFiles:=False;

PasswordDocument:='';

PasswordTemplate:='';

Revert:=False;

WritePasswordDocument:='';

WritePasswordTemplate:='';

Format:= wdOpenFormatAuto;

w.Documents.Open(pFileName,ConfirmConversions,ReadOnly,
AddToRecentFiles,PasswordDocument,
PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,
Format,voptional,voptional,voptional,voptional,voptional);

w.Selection.WholeStory;

w.Selection.Cut;

What := wdGoToPage;

Which:=wdGoToNext;

Name_ :='1';

w.Selection.GoTo_(what,which,emptyparam,Name_);

cds.First;

for a:=1 to cds.RecordCount do begin

if a<>1 then begin

   Type_:=wdPageBreak;

   w.Selection.InsertBreak(type_);

end;

w.Selection.Paste;

end;

What := wdGoToPage;

Which:=wdGoToNext;

Name_ :='1';

w.Selection.GoTo_(what,which,emptyparam,Name_);

cds.First;

while not cds.Eof do begin

   Replace :=wdReplaceOne;

   w.Selection.Find.ClearFormatting;

   w.Selection.Find.Replacement.ClearFormatting;

   w.Selection.Find.Text := '@s01';

   w.Selection.Find.Replacement.Text := cdsnome.asstring;

   w.Selection.Find.Forward := True;

   w.Selection.Find.Wrap := wdFindContinue; //Continue;

   w.Selection.Find.Format := False;

   w.Selection.Find.MatchCase := False;

   w.Selection.Find.MatchWholeWord := False;

   w.Selection.Find.MatchWildcards := False;

   w.Selection.Find.MatchSoundsLike := False;

   w.Selection.Find.MatchAllWordForms := False;

 
w.Selection.Find.execute(emptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa
ram,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Replace,emptyPara
m,emptyParam,emptyParam,emptyParam);

  cds.Next;

    end;

 

end;

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Logos
Enviada em: segunda-feira, 14 de abril de 2008 10:32
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Mala direta no Word

 

Obrigado pela sugestão, mas precisa ser como te disse.

_ 

De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
[mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br] Em
nome de Vinicius Santos - MSI
Enviada em: segunda-feira, 14 de abril de 2008 09:05
Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Assunto: Re: [delphi-br] Mala direta no Word

Mas então cara, faça a mala direta normalmente no Word, vc vai criar um BD
em Access, e usá-lo normalmente, ou seja esqueça a parte do sistema, depois
vc apenas coloca os dados no BD em Access...a menos que vc queira fazer mais
alguma coisa, ou tenha alguma outra particularidade, isso resolve !

Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br

- Original Message - 
From: Logos 
To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br 
Sent: Monday, April 14, 2008 8:50 AM
Subject: RES: [delphi-br] Mala direta no Word

Não, preciso fazer como falei no email. A Carta é feito no word, com os
campos chaves.

O meu sistema vai ler a minha base e substitui os campos chaves pelos campos
da minha tabela e abre o word para que possa ser feita a imrpessão ou alguma
outra coisa que o usuário quiser.

Até ai consegui sem problemas, o que não to conseguindo e se tiver mais de
um registro, adicionar uma nova pagina no word e jogar os dados dessa carta.
Já pesquisei na net, mas não achei nada.

Bom... Esperando pra ver se surge alguma solução

Abraços e obrigado aos que respond

[delphi-br] solucao mala direta

[Logos]

Amigos segue a solucao encontrada, caso alguém tenha interesse em utilizar a
rotina:

 

 

Adicionei o componente wordapplication da paleta server e codifiquei assim,
seguindo sugestao de um amigo aqui da minha cidade.

 

procedure TForm1.Button3Click(Sender: TObject);

var

  pFileName,ConfirmConversions,ReadOnly : OleVAriant;

  AddToRecentFiles, PasswordDocument,PasswordTemplate,Revert : OleVAriant;

  WritePasswordDocument,WritePasswordTemplate,Format:OleVariant;

  SaveChanges: OleVariant;

  What,Which,Name_, type_ : OleVariant;

  RePlace : OleVariant;

  DiretorioAtual,tdoc:string;

  i, col,nLinhas :Integer;

  velhoCursor : TCursor;

  ListProd : TStringList;

  tliteral : string;

  voptional:olevariant;

  a:integer;

begin

DiretorioAtual := ExtractFilePAth(ParamStr(0));

tdoc :='d:\sistemaswindows\start\documentos\cbv300.doc';

try

   CopyFile(pchar(tdoc), pchar('c:\DC1.DOC'),false);

except

  ShowMessage('Feche o Documento no Word Primeiro');

  exit;

end;

w.Visible:=true;

w.Connect;

pFileName := tdoc;

ConfirmConversions := false;

ReadOnly:=false;

AddToRecentFiles:=False;

PasswordDocument:='';

PasswordTemplate:='';

Revert:=False;

WritePasswordDocument:='';

WritePasswordTemplate:='';

Format:= wdOpenFormatAuto;

w.Documents.Open(pFileName,ConfirmConversions,ReadOnly,
AddToRecentFiles,PasswordDocument,
PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,
Format,voptional,voptional,voptional,voptional,voptional);

w.Selection.WholeStory;

w.Selection.Cut;

What := wdGoToPage;

Which:=wdGoToNext;

Name_ :='1';

w.Selection.GoTo_(what,which,emptyparam,Name_);

cds.First;

for a:=1 to cds.RecordCount do begin

if a<>1 then begin

   Type_:=wdPageBreak;

   w.Selection.InsertBreak(type_);

end;

w.Selection.Paste;

end;

What := wdGoToPage;

Which:=wdGoToNext;

Name_ :='1';

w.Selection.GoTo_(what,which,emptyparam,Name_);

cds.First;

while not cds.Eof do begin

   Replace :=wdReplaceOne;

   w.Selection.Find.ClearFormatting;

   w.Selection.Find.Replacement.ClearFormatting;

   w.Selection.Find.Text := '@s01';

   w.Selection.Find.Replacement.Text := cdsnome.asstring;

   w.Selection.Find.Forward := True;

   w.Selection.Find.Wrap := wdFindContinue; //Continue;

   w.Selection.Find.Format := False;

   w.Selection.Find.MatchCase := False;

   w.Selection.Find.MatchWholeWord := False;

   w.Selection.Find.MatchWildcards := False;

   w.Selection.Find.MatchSoundsLike := False;

   w.Selection.Find.MatchAllWordForms := False;

 
w.Selection.Find.execute(emptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa
ram,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Replace,emptyPara
m,emptyParam,emptyParam,emptyParam);

  cds.Next;

end;

 

end;

 



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

RES: [delphi-br] Mala direta no Word

[Logos]

Obrigado pela sugestão, mas precisa ser como te disse.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vinicius Santos - MSI
Enviada em: segunda-feira, 14 de abril de 2008 09:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Mala direta no Word

 

Mas então cara, faça a mala direta normalmente no Word, vc vai criar um BD
em Access, e usá-lo normalmente, ou seja esqueça a parte do sistema, depois
vc apenas coloca os dados no BD em Access...a menos que vc queira fazer mais
alguma coisa, ou tenha alguma outra particularidade, isso resolve !

Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br

- Original Message - 
From: Logos 
To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br 
Sent: Monday, April 14, 2008 8:50 AM
Subject: RES: [delphi-br] Mala direta no Word

Não, preciso fazer como falei no email. A Carta é feito no word, com os
campos chaves.

O meu sistema vai ler a minha base e substitui os campos chaves pelos campos
da minha tabela e abre o word para que possa ser feita a imrpessão ou alguma
outra coisa que o usuário quiser.

Até ai consegui sem problemas, o que não to conseguindo e se tiver mais de
um registro, adicionar uma nova pagina no word e jogar os dados dessa carta.
Já pesquisei na net, mas não achei nada.

Bom... Esperando pra ver se surge alguma solução

Abraços e obrigado aos que responderam.

_ 

De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
[mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br] Em
nome de Vinicius Santos - MSI
Enviada em: segunda-feira, 14 de abril de 2008 08:32
Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Assunto: Re: [delphi-br] Mala direta no Word

Cara, não estou intendendo oq vc está fazendo...Não seria mais simples, vc
fazer a mala direta normalmente e apenas jogar os dados(migrar) do seu
sistema para o Access, na base de dados da mala direta ? E pronto vc tem a
mala direta pronta. agora é só trabalhar dentro do Word...

Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br

- Original Message - 
From: Logos 
To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br 
Sent: Saturday, April 12, 2008 6:52 PM
Subject: RES: [delphi-br] Mala direta no Word

Caro colega, obrigado por responder o tópico. Mas já estou fazendo isso, o
que estava precisando era não fazer a impressão direta, e sim gerar todas as
cartas da mala direta, abrir o word e la aparecer todas as cartas. E de lá o
usuário fazer a impressão da(s) mesma(s). 

Se tiver mais alguma sugestão será bem vinda,

Mais uma vez obrigado.

Francisco A Souza

_ 

De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
[mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br] Em
nome de Sergio Eurico
Enviada em: sábado, 12 de abril de 2008 12:42
Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Assunto: Re: [delphi-br] Mala direta no Word

Olá.
ja viu este artigo?
http://www.guiadode <http://www.guiadode
<http://www.guiadode <http://www.guiadodelphi.com.br/ler.php?codigo=792>
lphi.com.br/ler.php?codigo=792>
lphi.com.br/ler.php?codigo=792>
lphi.com.br/ler.php?codigo=792

Em 12/04/08, Logos <[EMAIL PROTECTED] <mailto:logos%40logosinfo.com.br>
com.br> escreveu:
>
> Pessoal, bom dia.
>
> Estou implementando uma mala direta no meu sistema. Pesquisei exemplos na
> net, e através desses exemplos testei e esta tudo ok. Apenas uma coisa
> esta
> dificultando e gostaria de saber se os meus nobres colegas já tentaram
> alguma solução:
>
> Abro minha tabela de clientes, instancio o word, abro o documento e
> substituo os campos chaves pelos campos da tabela. Mas preciso fazer isso
> para o numero de clientes que tiver na tabela. Como criar o documento
> igual
> ao numero de clientes?
>
> O loop para ler o banco e gravar no arquivo já estou fazendo e está ok. Só
> não sei como adicionar um novo documento com os dados do próximo cliente.
>
> Agradeço quem puder me ajudar.
>
> Francisco A souza
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

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

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

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

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

RES: [delphi-br] Mala direta no Word

[Logos]

Não, preciso fazer como falei no email. A Carta é feito no word, com os
campos chaves.

O meu sistema vai ler a minha base e substitui os campos chaves pelos campos
da minha tabela e abre o word para que possa ser feita a imrpessão ou alguma
outra coisa que o usuário quiser.

Até ai consegui sem problemas, o que não to conseguindo e se tiver mais de
um registro, adicionar uma nova pagina no word e jogar os dados dessa carta.
Já pesquisei na net, mas não achei nada.

 

Bom... Esperando pra ver se surge alguma solução

 

Abraços e obrigado aos que responderam.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vinicius Santos - MSI
Enviada em: segunda-feira, 14 de abril de 2008 08:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Mala direta no Word

 

Cara, não estou intendendo oq vc está fazendo...Não seria mais simples, vc
fazer a mala direta normalmente e apenas jogar os dados(migrar) do seu
sistema para o Access, na base de dados da mala direta ? E pronto vc tem a
mala direta pronta. agora é só trabalhar dentro do Word...

Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br

- Original Message - 
From: Logos 
To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br 
Sent: Saturday, April 12, 2008 6:52 PM
Subject: RES: [delphi-br] Mala direta no Word

Caro colega, obrigado por responder o tópico. Mas já estou fazendo isso, o
que estava precisando era não fazer a impressão direta, e sim gerar todas as
cartas da mala direta, abrir o word e la aparecer todas as cartas. E de lá o
usuário fazer a impressão da(s) mesma(s). 

Se tiver mais alguma sugestão será bem vinda,

Mais uma vez obrigado.

Francisco A Souza

_ 

De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
[mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br] Em
nome de Sergio Eurico
Enviada em: sábado, 12 de abril de 2008 12:42
Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Assunto: Re: [delphi-br] Mala direta no Word

Olá.
ja viu este artigo?
http://www.guiadode <http://www.guiadode
<http://www.guiadodelphi.com.br/ler.php?codigo=792>
lphi.com.br/ler.php?codigo=792>
lphi.com.br/ler.php?codigo=792

Em 12/04/08, Logos <[EMAIL PROTECTED] <mailto:logos%40logosinfo.com.br>
com.br> escreveu:
>
> Pessoal, bom dia.
>
> Estou implementando uma mala direta no meu sistema. Pesquisei exemplos na
> net, e através desses exemplos testei e esta tudo ok. Apenas uma coisa
> esta
> dificultando e gostaria de saber se os meus nobres colegas já tentaram
> alguma solução:
>
> Abro minha tabela de clientes, instancio o word, abro o documento e
> substituo os campos chaves pelos campos da tabela. Mas preciso fazer isso
> para o numero de clientes que tiver na tabela. Como criar o documento
> igual
> ao numero de clientes?
>
> O loop para ler o banco e gravar no arquivo já estou fazendo e está ok. Só
> não sei como adicionar um novo documento com os dados do próximo cliente.
>
> Agradeço quem puder me ajudar.
>
> Francisco A souza
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

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

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

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

 



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

RES: [delphi-br] Mala direta no Word

[Logos]

Caro colega, obrigado por responder o tópico. Mas já estou fazendo isso, o
que estava precisando era não fazer a impressão direta, e sim gerar todas as
cartas da mala direta, abrir o word e la aparecer todas as cartas. E de lá o
usuário fazer a impressão da(s) mesma(s). 

Se tiver mais alguma sugestão será bem vinda,

 

Mais uma vez obrigado.

 

Francisco A Souza

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Sergio Eurico
Enviada em: sábado, 12 de abril de 2008 12:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Mala direta no Word

 

Olá.
ja viu este artigo?
http://www.guiadode <http://www.guiadodelphi.com.br/ler.php?codigo=792>
lphi.com.br/ler.php?codigo=792

Em 12/04/08, Logos <[EMAIL PROTECTED] <mailto:logos%40logosinfo.com.br>
com.br> escreveu:
>
> Pessoal, bom dia.
>
> Estou implementando uma mala direta no meu sistema. Pesquisei exemplos na
> net, e através desses exemplos testei e esta tudo ok. Apenas uma coisa
> esta
> dificultando e gostaria de saber se os meus nobres colegas já tentaram
> alguma solução:
>
> Abro minha tabela de clientes, instancio o word, abro o documento e
> substituo os campos chaves pelos campos da tabela. Mas preciso fazer isso
> para o numero de clientes que tiver na tabela. Como criar o documento
> igual
> ao numero de clientes?
>
> O loop para ler o banco e gravar no arquivo já estou fazendo e está ok. Só
> não sei como adicionar um novo documento com os dados do próximo cliente.
>
> Agradeço quem puder me ajudar.
>
> Francisco A souza
>
> [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]

[delphi-br] Mala direta no Word

[Logos]

Pessoal, bom dia.

Estou implementando uma mala direta no meu sistema. Pesquisei exemplos na
net, e através desses exemplos testei e esta tudo ok. Apenas uma coisa esta
dificultando e gostaria de saber se os meus nobres colegas já tentaram
alguma solução:

Abro minha tabela de clientes, instancio o word, abro o documento e
substituo os campos chaves pelos campos da tabela. Mas preciso fazer isso
para o numero de clientes que tiver na tabela. Como criar o documento igual
ao numero de clientes?  

O loop para ler o banco e gravar no arquivo já estou fazendo e está ok. Só
não sei como adicionar um novo documento com os dados do próximo cliente.

 

Agradeço quem puder me ajudar.

 

 

Francisco  A souza

 

 



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

Re: [delphi-br] Delphi+PostGres+Replicação

[Logos (Francisco)]

nao uso o ado, mas me parece que tem a ver com o tipo de cursor: tente usar o 
adopendynamic
e tambem efetuar o commit...

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

Re: [delphi-br] Delphi+PostGres+Replicação

[Logos (Francisco)]

eles tao colocando embratel agora, mas usavam com velox, a excessao e uma loja 
que usa radio.

loja principal velox 1mb
loja 1 e 2... velox 600
e loja 3 usa radio 256 mas da no maximo 128, 150...

em breve vai usar embratel, mas so porque vao ter uma reducao de custos nas 
ligacoes telefonicas, porque com velox funciona sem problemas. e nunca ta fora 
do ar. 
  - Original Message - 
  From: Marcelo Moacir Florindo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, October 19, 2007 9:57 AM
  Subject: Re: [delphi-br] Delphi+PostGres+Replicação


  Até pensei nesta possibilidade, porém se a adsl estiver foraeles
  ficariam se comunicação.

  Qual a velocidade dos links do teu cliente?

  Valeu!

  Marcelo

  Em 19/10/07, Logos (Francisco) <[EMAIL PROTECTED]> escreveu:
  >
  > ja tentou 3 camadas? com bss? eu uso num cliente com 4 lojas. funciona q
  > e uma beleza.
  >
  >
  > - Original Message -
  > From: Marcelo Moacir Florindo
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Friday, October 19, 2007 8:25 AM
  > Subject: [delphi-br] Delphi+PostGres+Replicação
  >
  > Colegas,
  >
  > Estou fazendo um sistema onde será necessário a replicação, pois o cliente
  > poderá pagar sua conta em qualquer loja...
  >
  > Alguém já trabalha assim??
  >
  > Poderiam me dar uma dica? o Slony atende isto??
  >
  > Ou alguém faz via algum aplicativo construido no delphi
  >
  > Obrigado a todos...
  >
  > --
  > Marcelo Moacir Florindo
  > Analista/Desenvolvedor
  > http://www.gestaotec.com.br
  >
  > --
  > Marcelo Moacir Florindo
  > Analista/Desenvolvedor
  > http://www.gestaotec.com.br
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Marcelo Moacir Florindo
  Analista/Desenvolvedor
  http://www.gestaotec.com.br

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



   

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

Re: [delphi-br] Delphi+PostGres+Replicação

[Logos (Francisco)]

ja tentou 3 camadas?  com bss? eu uso num cliente com 4 lojas. funciona q e uma 
beleza.

  - Original Message - 
  From: Marcelo Moacir Florindo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, October 19, 2007 8:25 AM
  Subject: [delphi-br] Delphi+PostGres+Replicação


  Colegas,

  Estou fazendo um sistema onde será necessário a replicação, pois o cliente
  poderá pagar sua conta em qualquer loja...

  Alguém já trabalha assim??

  Poderiam me dar uma dica? o Slony atende isto??

  Ou alguém faz via algum aplicativo construido no delphi

  Obrigado a todos...

  -- 
  Marcelo Moacir Florindo
  Analista/Desenvolvedor
  http://www.gestaotec.com.br

  -- 
  Marcelo Moacir Florindo
  Analista/Desenvolvedor
  http://www.gestaotec.com.br

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



   

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

[delphi-br] Gbboleto

[Logos]

Pessoal, alguem da lista usa o gbboleto? poderia  me dar uma dica?

meu delphi 7  esta atualizado com o indy 10, e o gbboleto, pede o indy 7 
alguem tem uma dica pra instalar? nao to conseguind... obrigado

[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] mala direta delphi

[Logos]

vou dar uma olhada, mas tava precisando alguma dica pra emitir carta, no papel. 
valeu
  - Original Message - 
  From: Edu Nicácio 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 26, 2007 11:05 AM
  Subject: Re: [delphi-br] mala direta delphi


  Saiu exatamente o que você quer há algumas edições na ClubeDelphi.

  Dá uma procurada no site da DevMedia por "Delphi + Outlook".

  Abraço.

  --
  Atenciosamente:

  Eduardo Cláudio Nicácio
  Analista de Sistemas Pleno
  Fábrica 02 - CTIS
  Tel.: (11) 3150-6841
  [EMAIL PROTECTED]


  - Original Message - 
  From: Logos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 25, 2007 1:46 PM
  Subject: [delphi-br] mala direta delphi

  galera, alguem tem alguem exemplo de mala direta com delphi? 
  uso d7+firebird+dbexpress+reportbuilder...obrigadu

  - Original Message - 
  From: Adriano Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 25, 2007 1:15 PM
  Subject: Re: [delphi-br] Re: Dúvida - sistema de Impressão de cheques !

  Oi Fernando,

  Tudo bem?
  Cara, como os colegas disseram você deve colocar a dll no diretório da 
  sua aplicação.
  Quanto a declaração das funções e da variável de retorno, você pode 
  declarar onde quiser.
  No exemplo que fiz pra ClubeDelphi coloquei tudo na unit principal, mas 
  poderia fazer a declaração em qualquer lugar, basta fazer a chamada 
  correta. Se observar vai ver que toda as declarações estão no form 
  principal e nos forms secundários dou um use unit do form principal e 
  com isso consigo chamar as funções das dll que estão declaradas no 
  principal.

  Se quiser me manda mensagem em PVT ou acesse meu blog e mande sua dúvida.

  -- 
  Adriano Santos
  Desenvolvedor Delphi desde 1998. Professor e programador PHP.
  Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

  Colunista e Comissão Editorial da revista ClubeDelphi.
  http://www.delphitodelphi.blogspot.com

  Fernando de Simas respondeu:
  >
  >
  > É simples, você declara elas na unit principal, e se for usá-las em 
  > outros formulários, bastá chama-las a partir da unit principal.
  >
  > Espero ter ajudado.
  >
  > Qualquer coisa meu msn é : [EMAIL PROTECTED] 
  > <mailto:simas.programador%40hotmail.com>
  >
  > To: [EMAIL PROTECTED] 
  > <mailto:delphi-br%40yahoogrupos.com.brFrom>: [EMAIL PROTECTED] 
  > <mailto:itasouza%40yahoo.com.brDate>: Tue, 25 Sep 2007 12:51:22 
  > +Subject: [delphi-br] Re: Dúvida - sistema de Impressão de cheques !
  >
  > Bom dia Fernando, agradeço a ajuda, mais se possível me responde o 
  > seguinte:As declarações de function são feitas em cada unit de cada 
  > tela ou efeita na unit da tela principal?A declaração da variável 
  > "Retorno: Integer;" e feita apenas na tela principal? Agradeceria se 
  > pudesse verificar as declarações das function que estão no código 
  > descrito.Atenciosamente
  >
  > __
  > Receba GRÁTIS as mensagens do Messenger no seu celular quando você 
  > estiver offline. Conheça o MSN Mobile!
  > http://mobile.live.com/signup/signup2.aspx?lc=pt-br 
  > <http://mobile.live.com/signup/signup2.aspx?lc=pt-br>
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  > --
  >
  > No virus found in this incoming message.
  > Checked by AVG Free Edition. 
  > Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 
08:02
  > 

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

[delphi-br] mala direta delphi

[Logos]

galera, alguem tem alguem exemplo de mala direta com delphi? 
uso d7+firebird+dbexpress+reportbuilder...obrigadu

  - Original Message - 
  From: Adriano Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 25, 2007 1:15 PM
  Subject: Re: [delphi-br] Re: Dúvida - sistema de Impressão de cheques !


  Oi Fernando,

  Tudo bem?
  Cara, como os colegas disseram você deve colocar a dll no diretório da 
  sua aplicação.
  Quanto a declaração das funções e da variável de retorno, você pode 
  declarar onde quiser.
  No exemplo que fiz pra ClubeDelphi coloquei tudo na unit principal, mas 
  poderia fazer a declaração em qualquer lugar, basta fazer a chamada 
  correta. Se observar vai ver que toda as declarações estão no form 
  principal e nos forms secundários dou um use unit do form principal e 
  com isso consigo chamar as funções das dll que estão declaradas no 
  principal.

  Se quiser me manda mensagem em PVT ou acesse meu blog e mande sua dúvida.

  -- 
  Adriano Santos
  Desenvolvedor Delphi desde 1998. Professor e programador PHP.
  Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

  Colunista e Comissão Editorial da revista ClubeDelphi.
  http://www.delphitodelphi.blogspot.com

  Fernando de Simas respondeu:
  >
  >
  > É simples, você declara elas na unit principal, e se for usá-las em 
  > outros formulários, bastá chama-las a partir da unit principal.
  >
  > Espero ter ajudado.
  >
  > Qualquer coisa meu msn é : [EMAIL PROTECTED] 
  > 
  >
  > To: [EMAIL PROTECTED] 
  > : [EMAIL PROTECTED] 
  > : Tue, 25 Sep 2007 12:51:22 
  > +Subject: [delphi-br] Re: Dúvida - sistema de Impressão de cheques !
  >
  > Bom dia Fernando, agradeço a ajuda, mais se possível me responde o 
  > seguinte:As declarações de function são feitas em cada unit de cada 
  > tela ou efeita na unit da tela principal?A declaração da variável 
  > "Retorno: Integer;" e feita apenas na tela principal? Agradeceria se 
  > pudesse verificar as declarações das function que estão no código 
  > descrito.Atenciosamente
  >
  > __
  > Receba GRÁTIS as mensagens do Messenger no seu celular quando você 
  > estiver offline. Conheça o MSN Mobile!
  > http://mobile.live.com/signup/signup2.aspx?lc=pt-br 
  > 
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  > --
  >
  > No virus found in this incoming message.
  > Checked by AVG Free Edition. 
  > Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 
08:02
  > 



   

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

Re: [delphi-br] Sintegra

[Logos]

no registro 54 vc informa o total da item, e nao o preco unitario.
  - Original Message - 
  From: guilherme_tonini 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, September 14, 2007 8:28 AM
  Subject: [delphi-br] Sintegra


  Amigos,

  alguém sabe como devo proceder para gerar o sintegra no caso em que a 
  nota fiscal de entrada tenha produtos em que o valor unitários tenha 
  mais de 3 casas decimais. Alguns preços chegam a ter até 6 casa 
  decimais. Exemplo: 1,365497

  Desde já agradeço.

  Att, Guilherme



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.487 / Virus Database: 269.13.19/1008 - Release Date: 14/9/2007 
08:59


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

Re: [delphi-br] Varrer TStringList e Retornar os valores para um CheckBox

[Logos]

Pelo q percebi, a estrutura esta tipo arquivo ini. eu faço assim


Para Ler:
Procedure teste;
var
   ArqIni : TmeminiFile;
   Texto:string;
begin
   ArqIni := TmeminiFile.Create(ExtractFilePath(ParamStr(0))+'ARQUIVO.INI');
   texto:=arqini.ReadString('GERAL', 'RodapeRecibo', '');
END;


Para gravar:

Procedure gravararq;
var
  ArqIni : TiniFile;
  texto:String;
begin
  ArqIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'arquivo.ini');
  ArqIni.WriteString('geral','rodaperecibo', 'valor a ser gravado');
end;

na secao uses adicionar inifiles
  - Original Message - 
  From: Jorge Ericsson 
  Sent: Wednesday, September 12, 2007 11:57 PM
  Subject: [delphi-br] Varrer TStringList e Retornar os valores para um CheckBox


  Olá amigos delphianos,

  Eu criei um campo em uma tabela do tipo Text e acrescentei o seguinte texto
  abaixo:

  [Geral]
  ExibirBarraFerramentas=1
  ExibirBarraTarefas=1
  ...
  [Mensagem]
  RodapeRecibo=''
  RodapeRelatorio=''

  Bom, eu criei uma varriavel to tipo TStringList para armazerna o valor do
  campo:

  Varrival := TStringList.Create;
  Variavel.Add(FieldbyName('campo').AsString);

  O problema é que não consigo lembrar como verificar cada linha da Lista e
  carregar os parametros que estão logo abaixo do procedimento entre
  parenteses.

  Eu tentei um for mais ele me retorna toda os valores:
  for I := 0 to Configuracoes.Count-1 do
  begin
  Showmessage(Trim(Configuracoes[I]));
  end;

  Alguém poderia me ajuda com uma idéia ?

  Valew

  Jorge Ericsson S. Pinheiro
  Analista/Projetista de Sistemas
  Ericsson Sistemas e Soluções
  http://www.jericsson.com.br
  61 9227.4785 / 3965.2992 / 3039.1768
  Brasília - DF

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.485 / Virus Database: 269.13.15/1003 - Release Date: 12/9/2007 
10:56


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

[delphi-br] d7+sql server express+dbexpress

[Logos]

alguem poderia me dar uma dica? como conectar? um exemplo? criei o banco, com 
algumas tabelas, mas nao acessa...acho que nao to colocando os caminhos e 
usuarios corretos.

obrigado


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

Re: [delphi-br] actions

[Logos]

faca um teste... coloqueo uma mensagem no action... e outra no click... veja o 
q aparece primeiro
  - Original Message - 
  From: fabinho 
  To: Undisclosed-Recipient:; 
  Sent: Sunday, September 09, 2007 11:30 AM
  Subject: [delphi-br] actions


  Moçada bom dia e bom domingo a todos,

  Gostaria de saber uma coisa sobre actions: Tenho uma TActionList com algumas 
actions para banco de dados, como Post e Cancel. Mas se, eu coloco um código 
qualquer no evento Onclick de um botão com sua action configurada para Post, 
por exemplo, o que o delphi faz primeiro? executa a action ou o código do 
Onclick do botão?

  grato.

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.485 / Virus Database: 269.13.12/997 - Release Date: 9/9/2007 
10:17


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

Re: Re: [delphi-br] Meu aplicativo não fuciona em outra máquina.

[Logos]

e so copiar esta dll para a pasta do seu aplicativo ou na pasta windows\system32
  - Original Message - 
  From: Adenes I. Freire Junior 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, July 04, 2007 8:31 AM
  Subject: RES: Re: [delphi-br] Meu aplicativo não fuciona em outra máquina.


  Walter, valeu! 
  Deletei SqlConst.dcu e compilei o projeto sem erro. 
  Só tem um prorém, agora o aplicativo abre na outra máquina só que ele está
  ´pedindo: 

  Unable to load DBExpint.dll, 




  ---Mensagem original--- 

  De: Walter Alves Chagas Junior 
  Data: 07/03/07 18:02:27 
  Para: delphi-br@yahoogrupos.com.br 
  Assunto: RES: Re: [delphi-br] Meu aplicativo não fuciona em outra máquina. 

  Então? 

  Salva este fonte. Vai lá no diretorio Lib do Delphi, apaga o dcu
  correspondente e coloca esta unit lá e tenta recompilar o projeto. 

  []s 

  Walter Alves Chagas Junior 
  Projeto e desenvolvimento de sistemas 
  Telemont Engenharia de telecomunicações S/A 
  Belo Horizonte - MG - Brasil 
  [EMAIL PROTECTED] 
  Fone: (31) 3389-8217 Fax: (31) 3389-8215 

  -Mensagem original- 
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 
  nome de Adenes I. Freire Junior 
  Enviada em: terça-feira, 3 de julho de 2007 17:13 
  Para: delphi-br@yahoogrupos.com.br 
  Assunto: RES: Re: [delphi-br] Meu aplicativo não fuciona em outra 
  máquina. 

  Walter, tem assim: 

  SDRIVERREG_SETTING = 'Driver Registry File'; { Do not localize } 

  ---Mensagem original--- 

  De: Walter Alves Chagas Junior 

  Data: 07/03/07 16:53:39 

  Para: delphi-br@yahoogrupos.com.br 

  Assunto: RES: Re: [delphi-br] Meu aplicativo não fuciona em outra máquina. 

  Abra esta Unit SqlConst.pas (ela deve estar dentro de um dos diretórios 
  Source do Delphi). Verifique se nela contem a Resourcestring 
  SDRIVERREG_SETTING. Se não tiver, inclui na mão. 

  []s 

  Walter Alves Chagas Junior 

  Projeto e desenvolvimento de sistemas 

  Telemont Engenharia de telecomunicações S/A 

  Belo Horizonte - MG - Brasil 

  [EMAIL PROTECTED] 

  Fone: (31) 3389-8217 Fax: (31) 3389-8215 

  -Mensagem original- 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 

  nome de Adenes I. Freire Junior 

  Enviada em: terça-feira, 3 de julho de 2007 16:24 

  Para: delphi-br@yahoogrupos.com.br 

  Assunto: Res: Re: [delphi-br] Meu aplicativo não fuciona em outra 

  máquina. 

  Ricardo, se eu desativo o Build with Runtime packages dar o seguinte erro na 

  compilação: 

  [Fatal Error] AgendaEcoplan2007.dpr(16): Unit SqlExpr was compiled with a 

  different version of SqlConst.SDRIVERREG_SETTING 

  ---Mensagem original--- 

  De: Ricardo César Cardoso 

  Data: 03/07/2007 16:00:52 

  Para: delphi-br@yahoogrupos.com.br 

  Assunto: Re: [delphi-br] Meu aplicativo não fuciona em outra máquina. 

  Verifique tb se vc não compilou a sua aplicação com a "Build with runtime 

  packages" ativadas (Project -> Options). Se sim, desative. 

  Sds, 

  Ricardo. 

  Ricardo Mendes <[EMAIL PROTECTED]> escreveu: Para que o seu aplicativo 

  funcione é necessário que vc coloque duas bibliotecas no system32 da maquina 

  que vc vai rodarposso estar enganado, mas eu tenho aplicativos em outras 

  maquinas e eu coloco as duas bibliotecas 

  qtintf70.dll 

  qtintf.dll 

  Ricardo Mendes 

  TotalSat - Rastreamento de Veículos 

  Departamento de Informática 

  E-mail: [EMAIL PROTECTED] 

  Tel. (41) 2109-7717 

  - Original Message - 

  From: Adenes I. Freire Junior 

  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] ; FireBase 

  ; [EMAIL PROTECTED] 

  Sent: Tuesday, July 03, 2007 3:39 PM 

  Subject: [delphi-br] Meu aplicativo não fuciona em outra máquina. 

  Instalei meu aplicativo em outra máquina, quando executo ele pede o arquivo 

  rtl70.bpl, se copio ele pede já outro e assim por diante O aplicativo 

  foi feito no dlephi 7.0 e bd firebird. 

  -- 

  --- 

  avast! Antivirus: Outbound message clean. 

  Virus Database (VPS): 000753-2, 03/07/2007 

  Tested on: 3/7/2007 15:39:27 

  avast! - copyright (c) 1988-2007 ALWIL Software. 

  http://www.avast.com 

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

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

  - 

  Novo Yahoo! Cadê? - Experimente uma nova busca. 

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

  avast! Antivirus: Inbound message clean. 

  Virus Database (VPS): 000753-2, 03/07/2007 

  Tested on: 3/7/2007 16:02:38 

  avast! - copyright (c) 1988-2007 ALWIL Software. 

  -- 

  --- 

  avast! Antivirus: Outbound message clean. 

  Virus Database (VPS): 000753-2, 03/07/2007 

  Tested on: 3/7/2007 16:23:46 

  avast! - copyright (c) 1988-2007 ALWIL Software. 

  http://www.avast.com 

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

  -- 

  < FAVOR REMOVER ESTA PA

Re: [delphi-br] Novato...

[Logos]

pegue pelo campo copy(campo.asstring,1,1)
  - Original Message - 
  From: Carlos Magno 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 02, 2007 11:28 AM
  Subject: Re: [delphi-br] Novato...


  Coloquei este codigo, na complilação nao deu erro, mas na execução da o
  seguinte erro:
  "Proj .exe raised exception Class EConverterError with message ''I' is not
  valid integer value."
  grato pela atenção,
  Magno

  Em 02/07/07, Alcistemas Informática <[EMAIL PROTECTED]> escreveu:
  >
  > VAR
  > POS1:Char;
  > POS2:Char;
  > POS3:Char;
  > etc..
  > BEGIN
  > POS1:=copy(Campo.text,1,1);
  > POS2:=copy(Campo.text,2,1);
  > POS3:=copy(Campo.text,3,1);
  > etc...
  >
  > - Original Message -
  > From: crsmagno
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Monday, July 02, 2007 8:30 AM
  > Subject: [delphi-br] Novato...
  >
  > Olá pessoal,
  > Estou começando a trabalhar com delphi 7, e esbarrei em varios
  > problemas, entre eles o que me fez parar.
  > Tenho um campo do tipo alfanumerico em BD, de tamanho 6(01).
  > Preciso testar cada posição.
  > se é 1
  > se é 2
  > se é 3...
  > para isso eu preciso extrair a posição para uma variavel do tipo
  > string.
  > Alguém pode me ajudar?
  > Um abraço,
  > Magno
  >
  > --
  >
  > No virus found in this incoming message.
  > Checked by AVG Free Edition.
  > Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007
  > 12:19
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  um abraço,

  Carlos Magno

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19


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

Re: [delphi-br] Novato...

[Logos]

copy(coluna inicial,tamanho)
6
copy(5,1)=6
  - Original Message - 
  From: crsmagno 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 02, 2007 8:30 AM
  Subject: [delphi-br] Novato...


  Olá pessoal,
  Estou começando a trabalhar com delphi 7, e esbarrei em varios
  problemas, entre eles o que me fez parar.
  Tenho um campo do tipo alfanumerico em BD, de tamanho 6(01).
  Preciso testar cada posição.
  se é 1 
  se é 2
  se é 3...
  para isso eu preciso extrair a posição para uma variavel do tipo
  string.
  Alguém pode me ajudar?
  Um abraço,
  Magno



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.476 / Virus Database: 269.9.14/882 - Release Date: 30/6/2007 
15:10


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

Re: [delphi-br] Re: Report Builder X Delphi 7

[Logos]

eu acho muito simples, nao tive muita dificuldade nao. a dificuldade que tive 
foi porque usava o fortes(muito bom por sinal), e na mudança a gente fica um 
pouco perdido, porque as propriedades sao diferentes. ele tambem tem a 
possbilidade de gravar o relatorio desenvolvido em arquivo, e levar ao cliente, 
para que o proprio cliente possa alterar. veja o exemplo que vem com ele... da 
pra pegar muita coisa... 
segue um pedaco do codigo q uso no relatorio de contas a receber. ele é um 
unico relatorio onde tem a posibilidade de gerar cerca de 10 relatorios, so 
mudando as propridades do report:

valeu... t+

  if (rd3.ItemIndex=0) and (rd2.ItemIndex=0) then 
PPGROUP1.BreakName:='vencimento';
  if (rd3.ItemIndex=0) and (rd2.ItemIndex=1) then PPGROUP1.BreakName:='emissao';
  if (rd3.ItemIndex=1) then PPGROUP1.BreakName:='nome';
  if (rd3.ItemIndex=2) then PPGROUP1.BreakName:='nome_convenio';
ai em cima defini a quebra... de acordo opcao no relatorio, defini a quebra em 
tempo de execucao.

  dts.close;
  dts.CommandText:=sql;
  ppgroupfooterband1.Visible:=false;
  ppgroupheaderband1.Visible:=false;
  if ck7.Checked then begin
 ppgroupfooterband1.Visible:=true;
 ppgroupheaderband1.Visible:=true;
  end;
aqui se vou imprimir  a quebra...

  ppdbcalc1.Font.Style:=[FSBOLD];
  ppdbcalc6.Font.Style:=[FSBOLD];
  ppdbcalc5.Font.Style:=[FSBOLD];
  ppdbcalc3.Font.Style:=[FSBOLD];
  pplabel11.Font.Style:=[FSBOLD];PPDBTEXT11.DisplayFormat:='DD/MM/';

aqui colocando em negrito


  pplabel1.Caption:='Mix Duplicatas '+rd1.Items.Strings[rd1.itemindex];
  pplabel9.Caption:='Periodo de:'+dateedit3.Text+' a '+dateedit4.text+' 
Por:'+rd2.Items.Strings[rd2.itemindex]+' 
Ordem:'+rd3.Items.Strings[rd3.itemindex]+'   % Juros ao 
Dia:'+formatfloat(',0.00',frmprincipal._vlrjuros)+' '+rd0.Items[rd0.itemindex];
aqui mudando o titulo do relatorio

  pplabel15.Visible:=false;
  if rd0.ItemIndex=0 then ppDetailBand1.Visible:=true;
  if rd0.ItemIndex=1 then begin
  ppdbcalc1.Font.Style:=[];
  ppdbcalc6.Font.Style:=[];
  ppdbcalc5.Font.Style:=[];
  ppdbcalc3.Font.Style:=[];
  pplabel11.Font.Style:=[];
  
ppDetailBand1.Visible:=false;pplabel7.Visible:=false;pplabel3.Visible:=false;
  pplabel2.Visible:=false;pplabel6.Visible:=false;pplabel5.Visible:=false;
  ppdbtext11.Visible:=true;
  if rd3.ItemIndex=0 then if rd2.ItemIndex=0 then 
pplabel8.Caption:='Vencimento' else pplabel8.Caption:='Emissão';
  if rd3.ItemIndex=1 then if rd2.ItemIndex=0 then 
pplabel8.Caption:='Cliente/Vencimento' else pplabel8.Caption:='Cliente/Emissão';
  if rd3.ItemIndex=2 then if rd2.ItemIndex=0 then 
pplabel8.Caption:='Convenio/Vencimento' else 
pplabel8.Caption:='Convenio/Emissão';

  if rd3.ItemIndex=0 then if rd2.ItemIndex=0 then 
ppdbtext11.DataField:='Vencimento' else ppdbtext11.DataField:='Emissao';
  if rd3.ItemIndex=1 then begin
 ppdbtext11.DataField:='nome';
 ppdbtext11.DisplayFormat:='';
  end;
  if rd3.ItemIndex=2 then begin
 ppdbtext11.DataField:='nome_convenio';
 ppdbtext11.DisplayFormat:='';
  end;
  aqui mudei alguns campos... para outros campos de acordo o relatorio

  end;
  pplabel4.Caption:=frmprincipal._Sisvers+' - 
['+strzero(frmprincipal._codempr,3)+' - '+frmprincipal._nomempr+'] - 
'+'[Usuário:'+frmprincipal.Uc.CurrentUser.UserLogin+']';
  try
screen.Cursor:=crsqlwait;
dts.Open;
  finally
 screen.Cursor:=crdefault;
  end;

  rP.PRINT;
aqui to imprimindo o relatorio
  - Original Message - 
  From: maniacapordelphi 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, June 30, 2007 8:24 AM
  Subject: [delphi-br] Re: Report Builder X Delphi 7


  E, no meu caso, que nunca trabalhei com o Report Builder, acha que 
  seria possível desenvolver relatórios nele sem fazer um curso antes? 
  Ele é auto-explicativo? Não estou encontrando material na net. 
  Encontro muita coisa para Crystal Report, mas R.Builder nada.
  Uma curiosidade: como se faz a chamada do relatório feito no 
  R.Builder através do Delphi? E os relatórios funcionam também fora 
  do Delphi? 
  Mani

  --- Em delphi-br@yahoogrupos.com.br, "Leandro" <[EMAIL PROTECTED]> escreveu
  >
  > Maniaca,
  > 
  > Uso o R. Builder 10 no Delphi 7 blz...
  > 
  > att,
  > 
  > Leandro
  > 
  > - Original Message - 
  > From: maniacapordelphi 
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Friday, June 29, 2007 2:14 PM
  > Subject: [delphi-br] Report Builder X Delphi 7
  > 
  > 
  > Qual é a versão do REport Builder mais apropriada para o Delphi 
  7?
  > Alguém teria uma apostila sobre o Report Builder? Nunca usei 
  esse 
  > gerenciador de relatório.
  > Mani
  > 
  > 
  > 
  > 
  > 
  > [As partes desta mensagem que não continham texto foram removidas]
  >



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.476 / Virus Database:

Re: [delphi-br] Report Builder X Delphi 7

[Logos]

eu tambem, ate agora nao tenho do q reclamar... muito bomso nao achei ainda 
uma rotina para converter em excel, se alguem tiver ai.

  - Original Message - 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 29, 2007 6:03 PM
  Subject: Re: [delphi-br] Report Builder X Delphi 7


  Maniaca,

  Uso o R. Builder 10 no Delphi 7 blz...

  att,

  Leandro

  - Original Message - 
  From: maniacapordelphi 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 29, 2007 2:14 PM
  Subject: [delphi-br] Report Builder X Delphi 7

  Qual é a versão do REport Builder mais apropriada para o Delphi 7?
  Alguém teria uma apostila sobre o Report Builder? Nunca usei esse 
  gerenciador de relatório.
  Mani

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.476 / Virus Database: 269.9.10/873 - Release Date: 26/6/2007 
23:54


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

Re: [delphi-br] Incorret values within SQLDA structure, no sistema 3 Camadas, o que pode ser?

[Logos]

os parametros do clientdataset devem estar com o tipo incorreto, da uma 
verificada comigo ja aconteceu isso, e as vezes tambem acontecia de ter um 
parametro q nao existia. ai fasso um fetch paramet...


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

[delphi-br] percorrer TJvCheckTreeView;

[Logos]

pessoal, estou percorrendo um TJvCheckTreeView, mas gostaria de saber qual item 
esta com o check marcado. alguem teria alguma luz? valeu

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

Re: [delphi-br] agrupar reporte builder

[Logos]

pessoal, ja descobri. e so usar a propriedade breakname da classe ppgroup, 
brigado
  - Original Message - 
  From: Logos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 06, 2007 4:01 PM
  Subject: [delphi-br] agrupar reporte builder


  Pessoal, tenho um relatorio no report builder que agrupa por um determinado 
campo. ate ai tudo bem. mas gostaria de alterar este agrupamento na hora que 
fosse imprimir o relatorio. nao to conseguindo alterar isso em tempo de 
execuçao. ja tentei com uma variavel tambem nao consegui. algeum teria alguma 
dica?

  obrigado

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.472 / Virus Database: 269.8.9/834 - Release Date: 5/6/2007 14:38


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

[delphi-br] agrupar reporte builder

[Logos]

Pessoal, tenho um relatorio no report builder que agrupa por um determinado 
campo. ate ai tudo bem. mas gostaria de alterar este agrupamento na hora que 
fosse imprimir o relatorio. nao to conseguindo alterar isso em tempo de 
execuçao. ja tentei com uma variavel tambem nao consegui. algeum teria alguma 
dica?

obrigado


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

[delphi-br] DBTREEVIEW

[Logos]

Amigos, estou tentando usar o jvdbtreeview, com um plano de contas em firebird 
com a pelas 2 niveis. mas nem seguindo o exemplo que vem com o jedi, consegui 
colocar pra funcionar. alguem teria uma receita de bolo? ou ate algum outro 
componente? 
agradeço.

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

Re: [delphi-br] Parametros com fortes report

[Logos]

que tipo de parametros? para alterar algum titulo? etc?

  - Original Message - 
  From: galdariah 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 01, 2007 12:31 PM
  Subject: [delphi-br] Parametros com fortes report


  pessoal, alguém sabe como enviar parâmetros pelo fortes Report,
  ou algo parecido ao q tem no rave resports?
  brigadinha!
  té+



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.472 / Virus Database: 269.8.1/822 - Release Date: 28/5/2007 11:40


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

Re: [delphi-br] Aplicação n-tier

[Logos]

a minha aplicacao nao coloquei como servico nao,coloquei ela pra ficar o 
trayicon.
  - Original Message - 
  From: galvao_em 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, March 26, 2007 11:43 AM
  Subject: [delphi-br] Aplicação n-tier


  Olá, estou iniciando com aplicações n-tier, gostaria de saber se tem 
  como desenvolver o servidor como um serviço do windows, desenvolvendo 
  como aplicação normal eu consegui blz, mas gostaria que o servidor 
  funcionasse como um serviço do windows, tem como?, caso tenha podem me 
  passar como faço isto?.

  Att.

  Rodrigo





  ___ 
  Yahoo! Mail - Sempre a melhor opção para você! 
  Experimente já e veja as novidades. 
  http://br.yahoo.com/mailbeta/tudonovo/ 


   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.446 / Virus Database: 268.18.17/731 - Release Date: 23/3/2007 
15:27


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

[delphi-br] TRAYICON

[Logos]

Pessoal tenho uma aplicacao que ao executar vai para o trayicon perto do 
relogio. e mostra um icone que especifiquei na aplicacao. alguem sabe como 
fazer para esse icone ficar animado? brilhar... ou coisa do tipo?
  - Original Message - 
  From: Nilton 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 20, 2007 10:45 PM
  Subject: RES: [delphi-br] DEBATE: Tratando Concorrência de Dados em Delphi


  Achei fantástica a sugestão!

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 20 de março de 2007 21:43
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] DEBATE: Tratando Concorrência de Dados em Delphi
  Prioridade: Alta

  Srs.,

  Existem assuntos que julgo pertinentes pra nossa profissão como
  desenvolvedor de sistemas, e acredito que como a maioria dos profissionais
  que aqui nesta lista estão inscritos a preocupação com a integridade física
  e relacional em um banco de dados é algo imprescindível.

  Já vi pessoas relatando problemas sobre erros de deadlock em sistemas
  aplicativos, quer sejam no ramo comercial ou industrial, e acredito que
  seria uma boa oportunidade nós discutirmos sobre este assunto. Me refiro ao
  controle de concorrência em um banco de dados.

  Quem estudou em faculdade, sabe do que estou falando. Quem tem apenas a
  experiência adquirida no trabalho, tb já deve ter passado por isso quando
  suas aplicações começavam a assinalar mensagens de erro mencionando a
  palavra 'deadlock' durante uma operação de alteração de dados em uma tabela.
  Pois é, é a mesma coisa.

  Proponho que nesta lista nós, colegas da área experimentados no assunto,
  possamos discutir um meio de controlar, de forma conceitual e genérica, para
  qualquer banco de dados (se possível) como efetuar este tipo de controle em
  nossas aplicações, ou mesmo como detectar isto em nossos bancos de dados
  através das linguagens por eles disponibilizadas (PL/SQL do Oracle,
  TransactSQL do SQL Server, Informix 4GL do Informix, etc.).

  Enfim, srs., o que proponho não é apenas uma forma implícita de helpdesk,
  como já fi circular em muitas listas de discussão, e sim propor uma
  discussão verdadeiramente técnica sobre o tema.

  Ao moderador, espero contar com a colaboração de incentivar os colegas com
  mais experiência com desenvolvimento de sistemas a colocar suas idéias e
  expor suas experiências a fim de que todos possam se beneficiar com esta
  discussão. Afinal, a lista serve para isto, para discutir, de preferência
  temas técnicos com propostas, sugestões, idéias, ... e não meramente usar
  este recurso como um helpdesk ou um help on-line.

  Gratos pela atenção,

  Rubem Rocha
  Manaus, AM

  __
  MSN Busca: fácil, rápido, direto ao ponto. http://search.
   msn.com.br

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.446 / Virus Database: 268.18.15/728 - Release Date: 20/3/2007 
08:07


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

Re: [delphi-br] DLL's necessárias para aplic ação utilizando dbExpress.

[Logos]

hum... realmente... tinha testado no delphi 7... vou testar aqui

  - Original Message - 
  From: Thiago Filiano (America Soft) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, February 22, 2007 4:28 PM
  Subject: Re: [delphi-br] DLL's necessárias para aplicação utilizando 
dbExpress.


  declare Dbexpint se estiver usando BDS 2006.
  aqui funciona!

  []'s

  Thiago

  Logos escreveu:
  >
  > ja tentei fazer isso com as dll do dbexpress.. e nao funciona... o 
  > midas e beleza.
  > - Original Message -
  > From: Thiago Filiano (America Soft)
  > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
  > Sent: Thursday, February 22, 2007 12:45 PM
  > Subject: Re: [delphi-br] DLL's necessárias para aplicação utilizando 
  > dbExpress.
  >
  > declara as dll's na uses MidasLib, e as outras dll's do dbexpress
  > utilizadas.
  > Desta forma não se faz necessário enviar as dll's, pois as mesmas já vão
  > compiladas...
  >
  > []'s
  >
  > Thiago Filiano
  > 11-8288-4402
  > msn: [EMAIL PROTECTED] <mailto:thiago22filiano%40hotmail.com>
  >
  > Humberto escreveu:
  > >
  > > Creio q talves, seja necessário registrar as Dlls no windows.
  > > Provavelmente o instalador já deva fazer isso para vc.
  > >
  > > Tente utilizar o regsvr32 do windows para registrar a Dll, ele se
  > > localiza no diretório: Windows/System32
  > > - Original Message -
  > > From: criamabr
  > > To: delphi-br@yahoogrupos.com.br 
  > <mailto:delphi-br%40yahoogrupos.com.br> 
  > <mailto:delphi-br%40yahoogrupos.com.br>
  > > Sent: Thursday, February 22, 2007 10:21 AM
  > > Subject: [delphi-br] DLL's necessárias para aplicação utilizando
  > > dbExpress.
  > >
  > > Olá pessoal!
  > >
  > > Desenvolvi uma aplicação utilizando dbExpress e formulários em MDI.
  > > As DLL's necessárias para rodar a mesma são: DBEXPINT.DLL, MIDAS.DLL e
  > > QTINTF.DLL, copidas no mesmo diretório do executável, certo?
  > > Se eu instalar as mesmas através do InstallShield, funciona tudo beleza
  > > mas se forem copiadas sem o InstallShield, ou seja, no Copiar e Colar,
  > > dá um erro dizendo que não conseguiu carregar o arquivo MIDAS.DLL.
  > > Complicado, não é?
  > > Através do inatalador funciona beleza, mas se eu pegar minha pastinha
  > > com as mesmas e copiar na máquina desejada, não funciona.
  > > Alguém pode me dá uma ajudinha?
  > > Desde já, obrigado.
  > >
  > > Abraço,
  > >
  > > Cristiano.
  > >
  >


   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.441 / Virus Database: 268.18.3/697 - Release Date: 22/2/2007 
11:55


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

Re: [delphi-br] DLL's necessárias para aplic ação utilizando dbExpress.

[Logos]

ja tentei fazer isso com as dll do dbexpress.. e nao funciona... o midas e 
beleza.
  - Original Message - 
  From: Thiago Filiano (America Soft) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, February 22, 2007 12:45 PM
  Subject: Re: [delphi-br] DLL's necessárias para aplicação utilizando 
dbExpress.


  declara as dll's na uses MidasLib, e as outras dll's do dbexpress 
  utilizadas.
  Desta forma não se faz necessário enviar as dll's, pois as mesmas já vão 
  compiladas...

  []'s

  Thiago Filiano
  11-8288-4402
  msn: [EMAIL PROTECTED]

  Humberto escreveu:
  >
  > Creio q talves, seja necessário registrar as Dlls no windows.
  > Provavelmente o instalador já deva fazer isso para vc.
  >
  > Tente utilizar o regsvr32 do windows para registrar a Dll, ele se 
  > localiza no diretório: Windows/System32
  > - Original Message -
  > From: criamabr
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Thursday, February 22, 2007 10:21 AM
  > Subject: [delphi-br] DLL's necessárias para aplicação utilizando 
  > dbExpress.
  >
  > Olá pessoal!
  >
  > Desenvolvi uma aplicação utilizando dbExpress e formulários em MDI.
  > As DLL's necessárias para rodar a mesma são: DBEXPINT.DLL, MIDAS.DLL e
  > QTINTF.DLL, copidas no mesmo diretório do executável, certo?
  > Se eu instalar as mesmas através do InstallShield, funciona tudo beleza
  > mas se forem copiadas sem o InstallShield, ou seja, no Copiar e Colar,
  > dá um erro dizendo que não conseguiu carregar o arquivo MIDAS.DLL.
  > Complicado, não é?
  > Através do inatalador funciona beleza, mas se eu pegar minha pastinha
  > com as mesmas e copiar na máquina desejada, não funciona.
  > Alguém pode me dá uma ajudinha?
  > Desde já, obrigado.
  >
  > Abraço,
  >
  > Cristiano.
  >
  > --
  >
  > No virus found in this incoming message.
  > Checked by AVG Free Edition.
  > Version: 7.5.441 / Virus Database: 268.18.3/694 - Release Date: 
  > 20/2/2007 13:44
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > _
  >
  >
  > 


   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.441 / Virus Database: 268.18.3/697 - Release Date: 22/2/2007 
11:55


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

Re: [delphi-br] O q é curva ABC de estoque?

[Logos]

é um relatorio ordenado do maior faturamento ao menor faturamento. onde tem 3 
niveis de subtotalizacao (a,b,c), eu uso por padrao nos meus relatorios 
a=60%,b=30%,c=10%. ou seja os itens que totlizarem 60% do faturamento total, 
faco uma quebra... no relatorio. depois desses o que totalizar 30 e depois 10. 
mas existem outras regras para este relatorio. eu uso essa ai.

  - Original Message - 
  From: Desenvolvimento (Anderson) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, February 21, 2007 11:12 AM
  Subject: [delphi-br] O q é curva ABC de estoque?


  Me falaram sobre isso e acabei ficando na curiosidade...
  alguém conhece?

  obrigado.

  and.

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.441 / Virus Database: 268.18.3/694 - Release Date: 20/2/2007 
13:44


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

Re: [delphi-br] String em Vetor

[Logos]

veja se te server
117 - Quebra de String
Nesta dica iremos mostrar uma função que cria uma lista de strings baseado numa 
cadeia de string, quebrando-a onde encontrar um caractere predeterminado. Por 
exemplo:

Uma string como 'O céu é azul', escolhendo o caracter espaço (' ') para 
quebrar, seria tranformado em uma lista de strings que, colocada em um 
componente do tipo TListBox ficaria:

O

céu

é

azul

Isto é, onde havia um espaço a string foi "quebrada".

function sBreakApart(BaseString, BreakString: string; StringList: TStringList): 
TStringList;
var
EndOfCurrentString: byte;
TempStr: string;
begin
repeat
EndOfCurrentString := Pos(BreakString, BaseString);
if EndOfCurrentString = 0 then
StringList.add(BaseString)
else
StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
BaseString := Copy(BaseString, EndOfCurrentString + length(BreakString), 
length(BaseString) - EndOfCurrentString);

until EndOfCurrentString = 0;
result := StringList;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
t: TStringList;
begin
t := TStringList.create;
ListBox1.Items.Assign(sBreakApart(Edit1.Text, ' ', t));
t.free;
end;

 
  - Original Message - 
  From: Bruno 
  To: Delphi-Br 
  Sent: Saturday, August 26, 2006 5:46 PM
  Subject: [delphi-br] String em Vetor


  Boa Noite,

  Gostaria de saber se existe alguma função no Delphi 6 capaz de pegar uma
  string e ir quebrando ela caracter por caracter para fins de colocar esses
  caracteres num vetor.
  Se fosse em ASP eu diria que a função procurada é a função mid , mas em
  Delphi infelizmente não consegui achar.


  Agradeço Antecipadamente,


  Bruno.


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



   

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



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

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

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

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

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

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

 

Re: [delphi-br] TStrings

[Logos]

memo.lines.add(string)


- ri
  From: Bruno 
  To: Delphi-Br 
  Sent: Saturday, August 26, 2006 3:29 PM
  Subject: [delphi-br] TStrings


  Boa tarde ,



  Estou tentando passar uma variável string para a form2.memo1.lines e não tá
  dando certo. O compilador diz que String é diferente de TString e que
  TString é o do memo.

  Alguém sabe como posso contornar o problema ?





  Abraços,



  Bruno.


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




   

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



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

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

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

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

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

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

 

Re: [delphi-br] Mascara

[Logos]

,0.00
  - Original Message - 
  From: galvao_em 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 25, 2006 10:33 AM
  Subject: [delphi-br] Mascara


  Olá pessoal qual a melhor máscara para Valores monetários, eu utilizo R$ 
  0.00 mas para valores acima de 1000 fica estranho gostaria de alguma 
  coisa que ao invés de ficar assim R$ 1175632,00 ficasse assim R$ 
  1.175.632,00 alguém poderia me passar?
  Desde já agradeço.

  Att.

  Rodrigo




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


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/426 - Release Date: 23/08/2006


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



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

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

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

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

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

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

 

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

[Logos]

numero:=strtoint(form2.numero.text);
  - Original Message - 
  From: Bruno 
  To: Delphi-Br 
  Sent: Thursday, August 24, 2006 4:36 PM
  Subject: [delphi-br] Dúvida com Edit


  Boa tarde galera,

  Estou querendo pegar um valor digitado num edit e converter para inteiro
  fazendo assim:

  numero := form2.numero.text.AsString;

  Mas meu compilador diz que As String é um objeto não definido para a
  classe.

  tentei fazer assim também

  numero := StrToInt (form2.numero.text);

  Mas meu compilador diz queTedit e String são dois tipos incompatíveis.

  Alguém tem alguma idéia de como eu poderia pegar um campo edit e converter
  em String ?

  Abraços,

  Bruno.


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




   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/426 - Release Date: 23/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Gerador de instalador com BDE

[Logos]

seu inno setup deve estar desatualizado, pq ele tem essa opcao.
eu uso a ferramenta istool, e tipo um plugin para o innosetup, muito bom. da 
uma olhada http://www.istool.org/default.aspx/
  - Original Message - 
  From: almir cruz 
  To: Grupo 
  Sent: Tuesday, August 22, 2006 9:41 PM
  Subject: [delphi-br] Gerador de instalador com BDE


  Olá!
  Existe algum gerador de instalador automático para aplicação em Delphi q 
instale junto o BDE? Estou tentado usar o Inno Setup mas não consigo fazer um 
instalador que instale tb o BDE. 

  Agradeço alguma ajuda!

  
  -
  Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 

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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Sistema de Emissão de Cupom Fiscal - ECF.

[Logos]

basta vc informar no cadastro do produto, o indice da aliquota de icms no ecf.
tipo
1 no ecf e 17
2 e 7
f - substituido
e assim por diante.
  - Original Message - 
  From: criamabr 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 23, 2006 11:54 AM
  Subject: [delphi-br] Sistema de Emissão de Cupom Fiscal - ECF.


  Olá pessoal!

  Estou com dúvidas em relação a ECF.
  Irei desenvolver um sistema que só irá Emitir Cupom Fiscal - ECF.
  Preciso informar algum dado relacionado a imposto no cadastro de produtos?
  Ex.: Informar IPI, ICMS, etc.
  Se alguém já desenvolveu um sistema desse tipo, poderia orientar-me?
  Desde já, obrigado.

  Abraço,

  Cristiano.




   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Mudar o cursor do mouse

[Logos]

vai a dica dtdelphi

330 - Como Trocar o Cursor do Mouse
Existem vários cursores no Delphi (crDefault é o cursor padrão, crHourGlass é a 
ampulheta, crHandPoint é a "mãozinha", etc). Para alterá-lo, basta escolher um 
na propriedade Cursor do componente em que você quer mudar o cursor (troque no 
form para trocar o do form inteiro). Mas, se você quiser colocar um cursor 
diferente, siga os procedimentos abaixo: 

Na seção interface da unit que contém o form, coloque as seguintes linhas: 

const 
crSeuCursor = 1; // Tem que ser um valor maior que 0 (zero) 
No evento OnCreate do form, digite as seguintes linhas: 

Screen.Cursors [crSeuCursor] := LoadCursorFromFile ('Cursor.ani'); 
// O cursor pode ser dos tipos comum (*.cur) ou animado (*.ani) 
// Lembre-se: o arquivo tem que estar na mesma pasta do programa 
// ou digite o nome do caminho dele. 
Na hora de trocar de cursor, use o seguinte comando: 

Objeto.Cursor := crSeuCursor; 
onde Objeto é o nome do objeto que vai ter o cursor alterado (o form, por 
exemplo).

 


  - Original Message - 
  From: WILLER 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 23, 2006 1:14 PM
  Subject: [delphi-br] Mudar o cursor do mouse


  Alguém sabe como modificar a seta(cursor) do mouse, colocando um 
personalizado?
  Tentei criar um objeto TCursor, mas não consegui.
  Qualquer dica de como fazer isso eu agradeço.

  []s.

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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Distribuir - Programa junto com o BDE e o alias

[Logos]

usa o inno setup, ele ja tem uns scripts para instalar o bde, automaticamente.
  - Original Message - 
  From: Alexandre Simas Maciel 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 23, 2006 8:36 AM
  Subject: [delphi-br] Distribuir - Programa junto com o BDE e o alias


  Ola amigos..

  Fiz um programa para uma empresa, fiz utlizando o banco paradox. Na maquina 
  onde sera instala a aplicação, nao tem o delphi instalado, ou seja, nao tem 
  o BDE instalado. Como faço para criar um instalador que tb crie o BDE e o 
  alias, assim fazendo minha aplicação rodar normalmente. ? 


  
  ___ 
  O Yahoo! está de cara nova. Venha conferir! 
  http://br.yahoo.com 
   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Cronometro

[Logos]

e so usar o componente timer
  - Original Message - 
  From: Fabio Dantas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 22, 2006 3:33 PM
  Subject: [delphi-br] Cronometro


  Galera como faço um cronômetro no delphi ? 


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




   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] [OFF TOPIC] Programação pa ra coletor de dados

[Logos]

olha, a maioria dos coletores trabalham com arquivos texto. vc so fazer ler sua 
base e gerar um txt, com o cadastro, no layout que o coletor pegue. e depois o 
coletor tem um programa que le este arquivo e carrega o mesmo.

  - Original Message - 
  From: Murillo Proença 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 4:09 PM
  Subject: [delphi-br] [OFF TOPIC] Programação para coletor de dados 


  Boa tarde,

  estou precisando fazer um levantamento para desenvolvimento de um
  sistema que terá que carregar/descarregar um coletor de dados industrial.
  Onde será carregado uma lista de separação de produtos, aí o usuário
  lê o código de barras do produto e o sistema verifica se o mesmo está
  na lista ou não.
  Bom, como dá pra ver o sistema é bem simples. Só que pelo que andei
  vendo por aí, esses coletores possuem desenvolvimento em C, Basic e um
  kit de desenvolvimento para windows (não sei o que é isso).
  O que gostaria é sabe um pouco mais sobre o assunto, que já teve
  alguma experiência deste tipo favor me enviar.


  Abraço a todos

  Murillo Proença




   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006


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



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

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

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

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

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

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

 

Re: RES: [delphi-br] Remover acentos via SP

[Logos]

nao, ele grava com os acentos. mas na hora que vc pesquisar ou ordenar.. ele 
vai fazer de forma correta. o ideal e usar o colate pt_br, esse e o correto 
para o portugues/brasil. e so baixar no site do firebir e instalar.
  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 1:35 PM
  Subject: Re: RES: [delphi-br] Remover acentos via SP


  Amigos, agradeço a ajuda de todos, mas no meu não tem o Collate Pt-Br, 
  então eu escolho o charset PXW_INTL850, pois eu aprendi q esse é o de 
  acentuação. Porém gostaria de saber dos amigos, caso eu venha a escolher 
  o Charset Pt-Br, ao dar um post ele remove os acentos??

  Mais uma vez agradeco a todos.

  Welson Avelar escreveu:

  >--- Marcelo escreveu:
  >  
  >
  >>Qual seria o colate então, e tem alguma opção do FB q tem q ser marcado?
  >>
  >>Obrigado a todos.
  >>
  >>
  >[--x--]
  >
  >[Welson] Você escolhe o campo como Varchar. Escolhe o CharSet "Win1252" e
  >coloca o collate "Win_PTBR". Você pode perguntar: "Pô, se eu tiver trocentos
  >campos VarCahr no banco de dados terei de escolher isso pra cada um !?". E é
  >aqui é que vem a sacada: depois de analisar o banco de dados, faço 
estimativas
  >aproximadas do tamanho dos campos VarChar e crio "Domains" que representam
  >essas estimativas.
  >Por exemplo: tenho um campo "Nome" e outro "Telefone". Digamos que a média 
pra
  >um nome (nome + sobrenome) de pessoa seja de 60 caracteres e telefone é 13
  >(contando com os parentesis e com o hífen). Eu crio no banco de dados Um
  >"Domain" pra representar os campos "Nome" e afins como "String65" e aqui
  >seleciono o CharSet Win1252 e o collate Win_PTBR. Pro campo telefone é
  >"String13", porque tem outros campos que podem ter o mesmo tamanho dele. Ou
  >coloca "String20", porque campos como CNPJ podem entrar nesse meio, e por aí
  >vai. Depende da sua criatividade e da necessidade do sistema, saca ?!
  >
  >[]s.
  >
  >=
  >"O que me preocupa não é o grito dos maus. É o silêncio dos bons."
  >Martin Luther King.
  >=
  >Welson de Avelar Soares Filho
  >Analista/Programador Delphi
  >Gemini Sistemas
  >
  >Juiz de Fora - Minas Gerais
  >=
  >
  >
  >
  >___ 
  >Yahoo! Acesso Grátis - Internet rápida e grátis. Instale 
  >o discador agora! 
  >http://br.acesso.yahoo.com
  >
  >
  >  
  >

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006


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



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

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

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

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

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

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

 

Re: RES: [delphi-br] Remover acentos via SP

[Logos]

e so usar o colate pt_br... no fb 1.5 ou no 2.0
- Original Message - 
From: "Marcelo" <[EMAIL PROTECTED]>
To: 
Sent: Monday, August 21, 2006 9:32 AM
Subject: Re: RES: [delphi-br] Remover acentos via SP


> Qual seria o colate então, e tem alguma opção do FB q tem q ser marcado?
>
> Obrigado a todos.
>
> Logos escreveu:
>
>>mas o fb, ja tem esse controle... basta usar o colate correto
>>- Original Message - 
>>From: "Marcelo" <[EMAIL PROTECTED]>
>>To: 
>>Sent: Monday, August 21, 2006 8:52 AM
>>Subject: Re: RES: [delphi-br] Remover acentos via SP
>>
>>
>>
>>
>>>Bem quero remover os acentos visando a consulta do usuario. Por ex: No
>>>cadastro de cliente tem Jose e José. A intenção seria ficar tudo sem
>>>acento, para que na consulta ele apenas escreve-se Jose para realizar a
>>>busca.
>>>
>>>Muito obrigado.
>>>
>>>
>>>
>>>Francisco - Mol escreveu:
>>>
>>>
>>>
>>>>mas pq vc quer remover os acentos? é em algum campo do firebird?
>>>>- Original Message - 
>>>>From: "Marcelo" <[EMAIL PROTECTED]>
>>>>To: 
>>>>Sent: Friday, August 18, 2006 11:48 AM
>>>>Subject: Re: RES: [delphi-br] Remover acentos via SP
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>>Rodrigo, é para Firebird. Valeu. Agradeço tb a todos que respondeu a
>>>>>minha duvida.
>>>>>
>>>>>Rodrigo O. Farias escreveu:
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>>Primeiro vc deve dizer pra que banco essa SP será escrita, já que cada
>>>>>>um
>>>>>>tem a sua linguagem SQL
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>--
>>>>>>Rodrigo Othávio Farias
>>>>>>
>>>>>>
>>>>>>
>>>>>>-Mensagem original-
>>>>>>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
>>>>>>Em
>>>>>>nome de Marcelo
>>>>>>Enviada em: quinta-feira, 17 de agosto de 2006 09:06
>>>>>>Para: delphi-br@yahoogrupos.com.br
>>>>>>Assunto: [delphi-br] Remover acentos via SP
>>>>>>
>>>>>>Amigos da lista, estou querendo aprender a trabalhar mais com SP e
>>>>>>gostaria de começar pelo básico. Gostaria de saber se alguém tem a
>>>>>>rotina de remover acento via SP e como eu faço para chamar essa SP no
>>>>>>Delphi?
>>>>>>
>>>>>>Desde já eu agradeço a todos.
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>-- 
>>>>><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>>>>>
>>>>>
>>>>>
>>>>>Links do Yahoo! Grupos
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>-- 
>>>>>No virus found in this incoming message.
>>>>>Checked by AVG Free Edition.
>>>>>Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date:
>>>>>17/08/2006
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>-- 
>>><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>>>
>>>
>>>
>>>Links do Yahoo! Grupos
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>-- 
>>>No virus found in this incoming message.
>>>Checked by AVG Free Edition.
>>>Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 
>>>18/08/2006
>>>
>>>
>>>
>>
>>
>>
>>
>>
>>
>
>
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006
>
> 




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

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

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

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

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

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

 

Re: RES: [delphi-br] Remover acentos via SP

[Logos]

mas o fb, ja tem esse controle... basta usar o colate correto
- Original Message - 
From: "Marcelo" <[EMAIL PROTECTED]>
To: 
Sent: Monday, August 21, 2006 8:52 AM
Subject: Re: RES: [delphi-br] Remover acentos via SP


> Bem quero remover os acentos visando a consulta do usuario. Por ex: No
> cadastro de cliente tem Jose e José. A intenção seria ficar tudo sem
> acento, para que na consulta ele apenas escreve-se Jose para realizar a
> busca.
>
> Muito obrigado.
>
>
>
> Francisco - Mol escreveu:
>
>>mas pq vc quer remover os acentos? é em algum campo do firebird?
>>- Original Message - 
>>From: "Marcelo" <[EMAIL PROTECTED]>
>>To: 
>>Sent: Friday, August 18, 2006 11:48 AM
>>Subject: Re: RES: [delphi-br] Remover acentos via SP
>>
>>
>>
>>
>>>Rodrigo, é para Firebird. Valeu. Agradeço tb a todos que respondeu a
>>>minha duvida.
>>>
>>>Rodrigo O. Farias escreveu:
>>>
>>>
>>>
Primeiro vc deve dizer pra que banco essa SP será escrita, já que cada 
um
tem a sua linguagem SQL




--
Rodrigo Othávio Farias



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 
Em
nome de Marcelo
Enviada em: quinta-feira, 17 de agosto de 2006 09:06
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Remover acentos via SP

Amigos da lista, estou querendo aprender a trabalhar mais com SP e
gostaria de começar pelo básico. Gostaria de saber se alguém tem a
rotina de remover acento via SP e como eu faço para chamar essa SP no
Delphi?

Desde já eu agradeço a todos.






>>>
>>>-- 
>>>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>>>
>>>
>>>
>>>Links do Yahoo! Grupos
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>-- 
>>>No virus found in this incoming message.
>>>Checked by AVG Free Edition.
>>>Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 
>>>17/08/2006
>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006
> 




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

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

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

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

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

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

 

Re: [delphi-br] Manipular arquivo texto no delphi

[Logos]

vai a dica do dtdelphi 850 dicas... muito bom... nao fico sem ele... rs... 

473 - Lendo e gravando arquivos de texto
Existem vários métodos em Delphi para gravar arquivos texto a partir de 
informações gravadas em bases de dados ou para ler arquivos texto e 
armazená-los em bases de dados. Esta dica apresenta um destes métodos: o uso de 
TextFiles. 

TextFile é um tipo de dado pré-definido no Delphi e corresponde ao tipo Text do 
Turbo Pascal e do Object Pascal. 

Inicialmente para acessar um arquivo de texto, você precisa definir uma 
variável tipo TextFile, no local que você achar mais apropriado, da seguinte 
forma: 

var arq: TextFile; 
Vamos precisar também de uma variável tipo string para armazenar cada linha 
lida do arquivo: 

var linha: String; 
Antes de se iniciar a leitura do arquivo, precisamos associar a variavel 
TextFile com um arquivo fisicamente armazenado no disco: 

AssignFile ( arq, 'C:\AUTOEXEC.BAT' ); 
Reset ( arq ); 
A rotina AssignFile faz a associação enquanto Reset abre efetivamente o arquivo 
para leitura. AssignFile corresponde à Assign do Turbo Pascal. Em seguida é 
necessário fazer uma leitura ao arquivo, para isto utilizaremos a procedure 
ReadLn: 

ReadLn ( arq, linha ); 
O comando acima lê apenas uma linha de cada vez, assim precisamos de um loop 
para efetuar várias leituras até que o arquivo acabe. Para verificar o fim do 
arquivo, utilizaremos a função Eof: 

while not Eof ( arq ) do 
Agora uma rotina quase completa para fazer a leitura de um arquivo texto. Esta 
rotina recebe como parâmetro o nome do arquivo que será lido: 

procedure percorreArquivoTexto ( nomeDoArquivo: String ); 
var arq: TextFile; 
linha: String; 
begin 
AssignFile ( arq, nomeDoArquivo ); 
Reset ( arq ); 
ReadLn ( arq, linha ); 
while not Eof ( arq ) do 
begin 
{ Processe a linha lida aqui. } 
{ Para particionar a linha lida em pedaços, use a função Copy. } 
ReadLn ( arq, linha ); 
end; 
CloseFile ( arq ); 
end; 
E também uma rotina quase completa para gravação de um arquivo texto. Esta 
rotina recebe como parâmetro o nome do arquivo que será gravado e uma tabela 
(TTable) de onde os dados serão lidos: 

procedure gravaArquivoTexto ( nomeDoArquivo: String; tabela: TTable ); 
var arq: TextFile; 
linha: String; 
begin 
AssignFile ( arq, nomeDoArquivo ); 
Rewrite ( arq ); 
tabela.First; 
while not tabela.Eof do 
begin 
Write ( arq, AjustaStr ( tabela.FieldByName ( 'Nome' ).AsString, 30 ) ); 
Write ( arq, FormatFloat ( '.00', tabela.FieldByName ( 'Salario' 
).AsFloat ) ); 
WriteLn ( arq ); 
tabela.Next; 
end; 
CloseFile ( arq ); 
end; 
Note nesta segunda rotina, a substituição de Reset por Rewrite logo após o 
AssignFile. Rewrite abre o arquivo para escrita, destruindo tudo que houver lá 
anteriormente . 

Note também o uso de Write e WriteLn para gravar dados no arquivo texto. 

Finalmente note o uso de AjustaStr e FormatFloat para garantir que campos 
string e numericos sejam gravados com um número fixo de caracteres. FormatFloat 
é uma rotina do próprio Delphi enquanto AjustaStr está definida abaixo: 

function AjustaStr ( str: String; tam: Integer ): String; 
begin 
while Length ( str ) < tam do 
str := str + ' '; 
if Length ( str ) > tam then 
str := Copy ( str, 1, tam ); 
Result := str; 
end; 
O uso da função AjustaStr é fundamental quando você estiver gravando arquivos 
texto com registros de tamanho fixo a partir de bases de dados Paradox que 
usualmente não preenchem campos string com espaços no final. 



 

  - Original Message - 
  From: Renan 
  To: Delphi Br 
  Sent: Saturday, August 19, 2006 3:17 PM
  Subject: [delphi-br] Manipular arquivo texto no delphi


  Como faço para manipular partes de um arquivo texto ???

  gostaria de pegar alguns caracteres do arquivo e ir salvando em outro arquivo.

  alguem pode me ajudar ??

  valeu

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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Re: Form "livre"

[Logos]

entao manda a solucao para a lista, quem sabe alguem precisa algum dia disso. e 
temos a solucao aqui. 
valeu.
  - Original Message - 
  From: Malomar Alex Seminotti 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, August 19, 2006 11:35 AM
  Subject: Re: [delphi-br] Re: Form "livre"



  Murillo,

  Esta seria uma alternativa também, mas resolvi de outra forma.
  Valeu

  -- 
  []'s
  Malomar Alex Seminotti
  Erechim - RS


  Murillo Proença escreveu:

  >Você já pensou de ao invés de ser um form livre, ser uma outra
  >aplicação apenas com esse form, onde ela pode ser jogada na tray.
  >
  >
  >--- Em delphi-br@yahoogrupos.com.br, Malomar Alex Seminotti
  ><[EMAIL PROTECTED]> escreveu
  >  
  >
  >>Povo,
  >>
  >>Estou com uma dúvida na seguinte situação. Todos os meus forms são
  >>modais, mas tenho um que é não-modal que quero que seja "livre", ou
  >>seja, que ele possa ter seus registros modificados mesmo tendo um form
  >>modal por trás. Ele é usado para fazer anotações e por isso gostaria que
  >>o usuário pudesse modificar seus registros quando bem entendesse
  >>
  >>-- 
  >>[]'s
  >>Malomar Alex Seminotti
  >>Erechim - RS
  >>
  >>
   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Ajuda em Select

[Logos]

faz uma juncao da tabela de receber com a de vendas tipo:

select contasareceber.* from contasareceber 
inner join tabelavendas on (contasareceber.numerodavenda 
=tabelavendas.numerodavenda)
where tabelavendas.vendedor=1


DM.Q_Consulta.SQL.Clear;
DM.Q_Consulta.SQL.Add('SELECT R.RECE_COCL, R.RECE_NOCL, R.RECE_VENC, 
R.RECE_DATA, R.RECE_NUME, R.RECE_NUPA, R.RECE_PARC, R.RECE_VALO, R.RECE_NOFO, 
S.SAID_NOVE, S.SAID_COVE FROM RECEVER R, VENDA S');
DM.Q_Consulta.SQL.Add('WHERE R.RECE_RECE = ''N''');
DM.Q_Consulta.SQL.Add('AND R.RECE_VENC BETWEEN ''' +   
FormatDateTime('mm/dd/',StrToDate(EDDATAINICIAL.Text))+);
DM.Q_Consulta.SQL.Add('AND ''' + FormatDateTime('mm/dd/',  
StrToDate(EDDATAFINAL.Text)) + );
DM.Q_Consulta.SQL.Add('AND R.RECE_NUME = S.SAID_VEND');
DM.Q_Consulta.SQL.Add('AND S.SAID_COVE = ''' + EDCODIGO.Text + );
DM.Q_Consulta.SQL.Add('ORDER BY R.RECE_COCL, R.RECE_VENC');

  - Original Message - 
  From: Cristiano Rodrigo Gomes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, August 19, 2006 8:58 AM
  Subject: [delphi-br] Ajuda em Select


  Olá pessoal, preciso fazer um select que me traga o que possuo a receber de 
clientes porém de um determinado vendedor.
  Armazeno o contas a receber em uma tabela chamada RECEBER, só que nela não 
tenho a informação de qual vendedor é, o vendedor fica armazenado na tabela de 
VENDAS.
  Ambas as tabelas possui o campo que armazena o número da venda no caso 
R.RECE_NUME E S.SAID_VEND.
  Ele até traz alguns dados, mas não todos.
  Veja como estou fazendo:

  DM.Q_Consulta.SQL.Clear;
  DM.Q_Consulta.SQL.Add('SELECT R.RECE_COCL, R.RECE_NOCL, R.RECE_VENC, 
R.RECE_DATA, R.RECE_NUME, R.RECE_NUPA, R.RECE_PARC, R.RECE_VALO, R.RECE_NOFO, 
S.SAID_NOVE, S.SAID_COVE FROM RECEVER R, VENDA S');
  DM.Q_Consulta.SQL.Add('WHERE R.RECE_RECE = ''N''');
  DM.Q_Consulta.SQL.Add('AND R.RECE_VENC BETWEEN ''' +   
FormatDateTime('mm/dd/',StrToDate(EDDATAINICIAL.Text))+);
  DM.Q_Consulta.SQL.Add('AND ''' + FormatDateTime('mm/dd/',  
StrToDate(EDDATAFINAL.Text)) + );
  DM.Q_Consulta.SQL.Add('AND R.RECE_NUME = S.SAID_VEND');
  DM.Q_Consulta.SQL.Add('AND S.SAID_COVE = ''' + EDCODIGO.Text + );
  DM.Q_Consulta.SQL.Add('ORDER BY R.RECE_COCL, R.RECE_VENC');
  DM.CDS_Consulta.Open;

  Se alguém puder me ajudar.

  Sds.

  Cristiano.


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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] S O C O R R O

[Logos]

nao consegue como? da que mensagem? quando eu usava o ibx, eu usava sempre o ip 
do servidor, tipo 192.168.0.1:c:\BRTESTE\DADOS\BRT.FDB
e funcionava 100%
outra coisa, percebi que no arquivo ini vc criou uma secao config, par a 
conexao local vc esta usando tambem esta mesma secao? pq deve ser diferente na 
local, nao precisa ter o nome do servidor basta o local da conexao tipo:
c:\BRTESTE\DADOS\BRT.FDB

  - Original Message - 
  From: Leide Santinello 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, August 19, 2006 6:24 AM
  Subject: [delphi-br] S O C O R R O


  Estou usando Firebird consegui colocar o programa para funcionar em rede, 
isto é, outra estação com a ajuda dos amigos aqui, só que agora, o programa na 
estação só entra se o sistema estiver aberto no servidor, alguem poderia me dar 
uma dica para resolver este problema, outra coisa, só consigo gravar registro 
na primerira estação que começo a inserir dados, se entrar em outra e tentar 
inserir não consigo.

  a conexão dinamica está se dando da seguinte forma no evento beforeconnect do 
IBDATABASE faço:

  procedure TDMGcnet.IBConexaoBeforeConnect(Sender: TObject);
  var ConfigIni: TIniFile;
  begin
  //Seta as propriedades da conexão em tempo de execução pegando os dados do 
arquivo config.ini
  ConfigIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
  IBConexao.DatabaseName := ConfigIni.ReadString('CONFIG', 'DATABASE', '');
  IBConexao.Params.Values['User_Name']:= ConfigIni.ReadString('CONFIG', 
'USERNAME', '');
  IBConexao.Params.Values['Password']:= ConfigIni.ReadString('CONFIG', 
'PASSWORD', '');
  IBConexao.Params.Values['lc_ctype']:= ConfigIni.ReadString('CONFIG', 'TIPO', 
'');
  ConfigIni.Free;

  Arquivo INI utilizado 

  [CONFIG]
  DATABASE=\\GCNET\BRTESTE\DADOS\BRT.FDB
  USERNAME=SYSDBA
  PASSWORD=masterkey
  TIPO=WIN1252

  Nos cadastros estou utilizando o CxDbnavigator da paleta de componentes do 
DevExpress
  preciso colocar no evento afterpost das tabelas o Commit ou coisa parecida? 
estou perdida neste ponto
  tenho que abrir e fechar transações?  

  me ajudem por favor.

  desde já agradece Leide Santinello 




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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Erro no DBExpress

[Logos]

andre, tenho a vaga lembrança que isso ja aconteceu comigo. e tenho a vaga 
lembrança que tinha alguma coisa a ver com as dll do dbexpress e midas. tenta 
remover elas e reinstalar novamente.
  - Original Message - 
  From: André de Araujo Garcia 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 11:07 AM
  Subject: Re: [delphi-br] Erro no DBExpress


  Obrigado Logos e Roberto pela a atenção, 
  eu já tinha feito isto, e também naum surtou efeito

  Já tinha ate trocado a porta do servidor firebird, alterado no SQLConnecton a 
propriedade VendorLib de gds32 para FBclient.dll e nada!

- Original Message - 
From: JJW Informática Ltda. - Roberto 
To: delphi-br@yahoogrupos.com.br 
Sent: Friday, August 18, 2006 10:33 AM
Subject: Re: [delphi-br] Erro no DBExpress


Use o seguinte comando

regsvr32 -u C:\ONDE_ESTA_SUA_MIDAS_DLL\midas.dll
regsvr32 C:\ONDE_ESTA_SUA_MIDAS_DLL\midas.dll

Deve resolver...
  - Original Message - 
  From: André de Araujo Garcia 
  To: Delphi - BR 
  Sent: Friday, August 18, 2006 9:00 AM
  Subject: [delphi-br] Erro no DBExpress


  Bom dia, pessoal.
  Se puderem me dar uma dica no problema abaixo:

  Estou desenvolvendo uma aplicação em: Delphi 7 + DBEXPRESS + Firebird 1.5

  Os componentes de acesso ao banco estão dispostos da seguinte maneira : 
SQLConnection+SqlQuery+DataSetProvider+ClientDataSet

  Aqui na minha máquina (WINDOWS 2000 SERVER), o programa funciona 
normalmente, sem problema nenhum, mais qdo eu instalei no servidor do Cliente

  ele apresenta o seguinte erro: Operation Not aplicable

  Pelo o que eu constatei, No servidor do cliente (WINDOWS 2000 - SERVER), 
tem um programa de uma outra empresa que utiliza SQLServer e justamente aonde 
tem 

  este programa instalado o meu programa não funciona... 

  Com algumas validações e teste usando o showmessage, eu constatei que o 
erro se dá justamente qdo eu abro qualquer ClientDataSet dentro do meu sistema.

  Gostaria de saber se alguém já passou por este tipo de problema, se 
puderem me dar uma dica de como eu posso contornar este problema.




  Atenciosamente

  André de Araujo Garcia





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




   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Erro no DBExpress

[Logos]

 o arquivo midas.dll esta instalado? vc pode colocar ele na pasta 
windos\system32 ou incluir no proprio programa, adicionando a unit dbclient na 
clausula uses.
  - Original Message - 
  From: André de Araujo Garcia 
  To: Delphi - BR 
  Sent: Friday, August 18, 2006 9:00 AM
  Subject: [delphi-br] Erro no DBExpress


  Bom dia, pessoal.
  Se puderem me dar uma dica no problema abaixo:

  Estou desenvolvendo uma aplicação em: Delphi 7 + DBEXPRESS + Firebird 1.5

  Os componentes de acesso ao banco estão dispostos da seguinte maneira : 
SQLConnection+SqlQuery+DataSetProvider+ClientDataSet

  Aqui na minha máquina (WINDOWS 2000 SERVER), o programa funciona normalmente, 
sem problema nenhum, mais qdo eu instalei no servidor do Cliente

  ele apresenta o seguinte erro: Operation Not aplicable

  Pelo o que eu constatei, No servidor do cliente (WINDOWS 2000 - SERVER), tem 
um programa de uma outra empresa que utiliza SQLServer e justamente aonde tem 

  este programa instalado o meu programa não funciona... 

  Com algumas validações e teste usando o showmessage, eu constatei que o erro 
se dá justamente qdo eu abro qualquer ClientDataSet dentro do meu sistema.

  Gostaria de saber se alguém já passou por este tipo de problema, se puderem 
me dar uma dica de como eu posso contornar este problema.




  Atenciosamente

  André de Araujo Garcia





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




   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos discutir?

[Logos]

o meu tem botao tambem, mas optei por ele dar um enter e passar direto para o 
campo nome... e la ao digitar e dar enter... ele dispara a pesquisa e abre o 
grid. achei mais produtivo assim...
  - Original Message - 
  From: Daniel Bastos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 8:56 AM
  Subject: Re: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos 
discutir?


  Quando eu faço, fica mais ou menos apercido com o de vcs..
  só que eu tenho um botão de pesquisa... quando clicado, abre um dialogo de
  pesquisa e o usuário escolhe.

  Percebi que colocando um Lookup, o usuário demora mais pra achar um
  determinado cliente, visto que no caso do meu cliente ele 90% das vezes tem
  o cídogo do cliente em mãos.

  2006/8/18, Fellipe Henrique <[EMAIL PROTECTED]>:
  >
  >  Olá Logos, eu Também faço isso, porém o usuário só pode digitar o codigo,
  > se
  > ele nao achar, abre uma tela e tals com os registros, se selecionar joga
  > pro
  > EdCodigo e pro EdNome...
  >
  > Mas isso é trabalhoso d+, será que não tem algo mais rápido não?
  >
  >
  > []s
  >
  > Em 17/08/06, Logos <[EMAIL PROTECTED]> escreveu:
  >
  > >
  > > lookup com firebird, nao e uma boa ideia. eu fiz o seguinte:
  > > 2 dbedits.
  > > um para digitar o codigo, o outro o nome.
  > > se digitar o codigo e encontrar blz. ele ja joga o nome no dbedit2.
  > > se caso nao digitar o codigo. vai para o nome e la digita.
  > automaticamente
  > > dispara a query de pesquisa e abre o dbgrid com os registros
  > pesquisados.
  > > enter seleciona... esc volta para o dbedit2 para pesquisar novamente.
  > > faco isso manual e funciona bem.
  > >
  > >
  > >   - Original Message -
  > >   From: Fellipe Henrique
  > >   To: delphi-br@yahoogrupos.com.br
  > >   Sent: Thursday, August 17, 2006 6:48 PM
  > >   Subject: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos
  > > discutir?
  > >
  > >
  > >   Olá amigos, vamos supor que tenho um cadastro de pedido, e nele
  > preciso
  > >   colocar o  cliente...
  > >
  > >   Pois bem, como vocês fariam para o usuário colocar o cliente no
  > > cadastro? Um
  > >   LookupComboBox? Um Edit pra colocar o Código?
  > >
  > >   Gostaria de discutir com os amigos para que possamos chegar a uma
  > > conclusão
  > >   sobre qual o melhor método, levando em consideração a agilidade e
  > carga
  > > de
  > >   processamento.
  > >
  > >   Bem, como banco de dados seria o Firebrid 1.5, mas esta questão
  > envolve
  > >   quaisquer bancos
  > >
  > >   Fica aí uma discussão saudável para os amigos :o)
  > >
  > >
  > >   []s
  > >
  > >   --
  > >   _
  > >   Fellipe Henrique
  > >   [EMAIL PROTECTED]
  > >
  > >   Borland Developer Studio 2006 Certified
  > >
  > >   "Venham até a borda, ele disse.
  > >   Eles disseram: Nós temos medo.
  > >   Venham até a borda, ele insistiu.
  > >   Eles foram, Ele os empurrou...
  > >   E eles voaram."
  > >   (Guillaume Apollinaire)
  > >
  > >
  > >   [As partes desta mensagem que não continham texto foram removidas]
  > >
  > >
  > >
  > >
  > >
  > >
  > 
--
  > >
  > >
  > >   No virus found in this incoming message.
  > >   Checked by AVG Free Edition.
  > >   Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date:
  > > 16/08/2006
  > >
  > >
  > > [As partes desta mensagem que não continham texto foram removidas]
  > >
  > >
  > >
  >
  >
  >
  > --
  > _
  > Fellipe Henrique
  > [EMAIL PROTECTED]
  >
  > Borland Developer Studio 2006 Certified
  >
  > "Venham até a borda, ele disse.
  > Eles disseram: Nós temos medo.
  > Venham até a borda, ele insistiu.
  > Eles foram, Ele os empurrou...
  > E eles voaram."
  > (Guillaume Apollinaire)
  >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >


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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos discutir?

[Logos]

realmente, ja pensei em criar um componente. mas como nao tenho muita 
experiencia na criacao de componentes nao me aventurei ainda. ate tentei 
pesquisar algo na net mas nao achei.
mas depois vou ver se tento criar alguma coisa. deixa dar uma folgadinha... he 
he he he
  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 8:23 AM
  Subject: Re: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos 
discutir?


  Olá Logos, eu Também faço isso, porém o usuário só pode digitar o codigo, se
  ele nao achar, abre uma tela e tals com os registros, se selecionar joga pro
  EdCodigo e pro EdNome...

  Mas isso é trabalhoso d+, será que não tem algo mais rápido não?


  []s

  Em 17/08/06, Logos <[EMAIL PROTECTED]> escreveu:
  >
  > lookup com firebird, nao e uma boa ideia. eu fiz o seguinte:
  > 2 dbedits.
  > um para digitar o codigo, o outro o nome.
  > se digitar o codigo e encontrar blz. ele ja joga o nome no dbedit2.
  > se caso nao digitar o codigo. vai para o nome e la digita. automaticamente
  > dispara a query de pesquisa e abre o dbgrid com os registros pesquisados.
  > enter seleciona... esc volta para o dbedit2 para pesquisar novamente.
  > faco isso manual e funciona bem.
  >
  >
  >   - Original Message -
  >   From: Fellipe Henrique
  >   To: delphi-br@yahoogrupos.com.br
  >   Sent: Thursday, August 17, 2006 6:48 PM
  >   Subject: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos
  > discutir?
  >
  >
  >   Olá amigos, vamos supor que tenho um cadastro de pedido, e nele preciso
  >   colocar o  cliente...
  >
  >   Pois bem, como vocês fariam para o usuário colocar o cliente no
  > cadastro? Um
  >   LookupComboBox? Um Edit pra colocar o Código?
  >
  >   Gostaria de discutir com os amigos para que possamos chegar a uma
  > conclusão
  >   sobre qual o melhor método, levando em consideração a agilidade e  carga
  > de
  >   processamento.
  >
  >   Bem, como banco de dados seria o Firebrid 1.5, mas esta questão envolve
  >   quaisquer bancos
  >
  >   Fica aí uma discussão saudável para os amigos :o)
  >
  >
  >   []s
  >
  >   --
  >   _
  >   Fellipe Henrique
  >   [EMAIL PROTECTED]
  >
  >   Borland Developer Studio 2006 Certified
  >
  >   "Venham até a borda, ele disse.
  >   Eles disseram: Nós temos medo.
  >   Venham até a borda, ele insistiu.
  >   Eles foram, Ele os empurrou...
  >   E eles voaram."
  >   (Guillaume Apollinaire)
  >
  >
  >   [As partes desta mensagem que não continham texto foram removidas]
  >
  >
  >
  >
  >
  > 
--
  >
  >
  >   No virus found in this incoming message.
  >   Checked by AVG Free Edition.
  >   Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date:
  > 16/08/2006
  >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >



  -- 
  _
  Fellipe Henrique
  [EMAIL PROTECTED]

  Borland Developer Studio 2006 Certified

  "Venham até a borda, ele disse.
  Eles disseram: Nós temos medo.
  Venham até a borda, ele insistiu.
  Eles foram, Ele os empurrou...
  E eles voaram."
  (Guillaume Apollinaire)


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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Grid - campo currency com 3 casas decimais

[Logos]

sobre o componente do dataset, clica com o lado direito do mouse, fields 
editor. va ate o campo que deseja visualizar e na propriedade editformat e 
displayformat coloque ,0.000

  - Original Message - 
  From: Jeanne 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 11:06 AM
  Subject: [delphi-br] Grid - campo currency com 3 casas decimais


  Como faço para colocar uma colocar um campo no grid do tipo Currency (coluna 
  defina como currency) com tres casas decimais? 





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


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos discutir?

[Logos]

lookup com firebird, nao e uma boa ideia. eu fiz o seguinte:
2 dbedits.
um para digitar o codigo, o outro o nome.
se digitar o codigo e encontrar blz. ele ja joga o nome no dbedit2.
se caso nao digitar o codigo. vai para o nome e la digita. automaticamente 
dispara a query de pesquisa e abre o dbgrid com os registros pesquisados. enter 
seleciona... esc volta para o dbedit2 para pesquisar novamente.
faco isso manual e funciona bem.

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 6:48 PM
  Subject: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos discutir?


  Olá amigos, vamos supor que tenho um cadastro de pedido, e nele preciso
  colocar o  cliente...

  Pois bem, como vocês fariam para o usuário colocar o cliente no cadastro? Um
  LookupComboBox? Um Edit pra colocar o Código?

  Gostaria de discutir com os amigos para que possamos chegar a uma conclusão
  sobre qual o melhor método, levando em consideração a agilidade e  carga de
  processamento.

  Bem, como banco de dados seria o Firebrid 1.5, mas esta questão envolve
  quaisquer bancos

  Fica aí uma discussão saudável para os amigos :o)


  []s

  -- 
  _
  Fellipe Henrique
  [EMAIL PROTECTED]

  Borland Developer Studio 2006 Certified

  "Venham até a borda, ele disse.
  Eles disseram: Nós temos medo.
  Venham até a borda, ele insistiu.
  Eles foram, Ele os empurrou...
  E eles voaram."
  (Guillaume Apollinaire)


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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Componente de Pesquisa

[Logos]

bom, eu uso fb+dbexpress, e fiz uma funcao para fazer isso:
no evento on exit, disparo a funcao, com o nome da tabela, a condicao de 
pesquisa, e o campo de retorno.
ai apenas direciono ela para o label, ou edit.
segue a funcao abaixo. nao sei se vai servir.



function tbPesq(Tabela:string;Campo:String;Valor:Variant): Variant;
var
  Sql:string;
  tbsql:TSQLQuery;

Begin
  Sql:='SELECT * FROM '+TABELA+' WHERE '+CAMPO;
  Tbsql:=nil;
  Try
 dmdados.Bd.Execute(Sql,nil,@Tbsql);
 if not tbsql.eof then
Result:=Tbsql.fieldbyname(valor).value
 else
result:='';
  finally
 tbsql.free;
  end;
end;

  - Original Message - 
  From: Leandro Timóteo de Oliveira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 1:19 PM
  Subject: [delphi-br] Componente de Pesquisa


  Olá amigos deste conceituado Grupo!

  Esta é a minha primeira participação após um longo tempo de inatividade e 
  antes de mais nada gostaria de agradecer antecipadamente qualquer ajuda. 
  Espero poder contar com vocês e também ajudá-los no que for possível.

  Estou à procura de algum componente, comercial ou não, como o descrito 
  abaixo:

  Um DBEdit ligado a um Label. Este DBedit deverá ter uma propriedade SQL 
  (para consulta em outra tabela). O retorno dessa consulta deverá aparecer no 
  Label ligado a ele.

  Exemplo: O usuário digita o código do cliente no DBEdit, é executado uma 
  consulta SQL em outra tabela que devolve o nome do cliente e o mesmo aparece 
  no label ao lado dele. Também seria interessante se o DBEdit tivesse um 
  botão para que possa ser aberto uma janela de consulta + detalhada em outra 
  base.

  Algo mais ou menos parecido com isto. Espero que eu tenha sido claro. Posso 
  tentar explicar melhor, se quiserem.

  Se alguém puder dar uma dica onde posso encontrá-lo, seria de grande valia.

  Um abraço a todos.
  Leandro. 



  
  ___ 
  O Yahoo! está de cara nova. Venha conferir! 
  http://br.yahoo.com 
   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Re: Net Send

[Logos]

abra na pasta delphi, demos, internet, netchat
la tem um exemplo de chat na net

  - Original Message - 
  From: Murillo Proença 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 12:39 PM
  Subject: [delphi-br] Re: Net Send


  seria muito trabalho vc me passar qual o componente da paleta Indy que
  faz isso... Não é má vontade, é que tem um mundo de componentes e eu
  dei uma verificada inicial e não econtrei.

  Brigad

  --- Em delphi-br@yahoogrupos.com.br, "Logos" <[EMAIL PROTECTED]> escreveu
  >
  > no delphi tem varios exemplos com a paleta indy.
  >   - Original Message - 
  >   From: Murillo Proença 
  >   To: delphi-br@yahoogrupos.com.br 
  >   Sent: Thursday, August 17, 2006 10:30 AM
  >   Subject: [delphi-br] Net Send
  > 
  > 
  >   Fala aí galera, tudo blz?
  > 
  >   Estou precisando fazer um programa para envio de mensagens dentro da
  >   rede, igual ao NET SEND, aí encontrei na net vário exemplos,
  >   utilizando a dll NETAPI32, no qual todos estão funcionando
  perfeitamente.
  >   Meu único problema é enviar mensagem para todo o grupo, no NET SEND é
  >   só colocar o nome do grupo que ele envia para todo mundo que está
  >   neste grupo, só que com esses exemplos que econtrei não consegui
  >   colocar essa funcionalidade.
  >   Será que terei que fazer um loop para todos os computadores do grupo,
  >   ou alguém tem alguma coisa melhor?
  > 
  >   Abraço
  > 
  >   Murillo Proença
  > 
  > 
  > 
  >
  > 
  > 
  >
  --
  > 
  > 
  >   No virus found in this incoming message.
  >   Checked by AVG Free Edition.
  >   Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date:
  16/08/2006
  > 
  > 
  > [As partes desta mensagem que não continham texto foram removidas]
  >





   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Net Send

[Logos]

no delphi tem varios exemplos com a paleta indy.
  - Original Message - 
  From: Murillo Proença 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 10:30 AM
  Subject: [delphi-br] Net Send


  Fala aí galera, tudo blz?

  Estou precisando fazer um programa para envio de mensagens dentro da
  rede, igual ao NET SEND, aí encontrei na net vário exemplos,
  utilizando a dll NETAPI32, no qual todos estão funcionando perfeitamente.
  Meu único problema é enviar mensagem para todo o grupo, no NET SEND é
  só colocar o nome do grupo que ele envia para todo mundo que está
  neste grupo, só que com esses exemplos que econtrei não consegui
  colocar essa funcionalidade.
  Será que terei que fazer um loop para todos os computadores do grupo,
  ou alguém tem alguma coisa melhor?

  Abraço

  Murillo Proença



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Ajuda Urgente!

[Logos]

precisaria de um pouco mais de detalhes: qual banco, qual mensagem de erro 
da... como e a sua estrutura... etc
  - Original Message - 
  From: fpsp2000 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 11:38 AM
  Subject: [delphi-br] Ajuda Urgente!


  Estou c um grande problema em uma inclusao no meu sistema, ele roda em 
  10 lugares e em 3 começou a travar na hora q inclui, nesta inclusao 
  tenho dois select´s, 3 insert´s e 3 update´s.

  Alguem sabe oq pode se isso? E como posso tentar solucionar esse 
  problema?

  Fernanda



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Chamada de função

[Logos]

bom acredito que vc deve chama-la assim:
if not cpf(numero) then begin
   showmessage('erro de cpf');
   numero.setfocus;
   exit;
end;

   
  - Original Message - 
  From: João S. Araújo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 17, 2006 2:03 AM
  Subject: [delphi-br] Chamada de função


  Bom dia pessoal,

  peguei um função de validação de cpf ( function cpf(num: string): boolean; ) 
na net e coloquei em um novo form, porém não estou sabendo efetuar a chamada 
correta da função no envento OnExit do campo cpf. Alguém pode me ajudar?!!!


  Obrigado


  João



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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Garantir gravacao de arquivo TXT

[Logos]

vc pode fazer esse processo numa stringlist, e depois salvar no arquivo. ou 
pode criar um arquivo texto temporario, e ao termino salvar o temporario como 
arquivo final.
  - Original Message - 
  From: williamrocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 6:03 PM
  Subject: [delphi-br] Garantir gravacao de arquivo TXT


  Oi Pessoal,

 To com um problema serio.  Gravando dados em um arquivo .TXT
  caso o computador seja resetado ou desligue acidentalmente ele
  perde dados.

 To fazendo assim:

  while condicao do begin 
 ...
 AssignFile(F,'teste.txt');
 Append(F); // Sei q o arquivo existe
 WriteLn(F,dados);
 Flush(F);
 CloseFile(F);
 Memo1.Lines.Add(dados);
 Application.ProcessMessages;
 ...
  end;

 Supondo q p/ dados passei a sequencia de 1 a 100 e vou mostrando na
  tela a medida q vou gravando, tipo:
  1
  2
  3
  4
  ...
Supondo q reset a maquina quando em 50, quando abro o arquivo texto
  soh tem 47 registros.

O SO usado nas maquinas eh Windows 2000 ou XP.

Qualquer dica serah super bem vinda.

  Obrigado a todos

  William Rocha





   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.10.10/419 - Release Date: 15/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] evento show

[Logos]

pois e, fiz o teste tambem neste evento. ele executa antes do form abrir, e 
depois do form abrir. por isso nao to usando ele.
  - Original Message - 
  From: Fabiano Frizzo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 2:33 PM
  Subject: Re: [delphi-br] evento show


  no OnActivate ele é executado a hora que o form ja foi aberto
- Original Message - 
From: Francisco - Mol 
To: delphi-br@yahoogrupos.com.br 
Sent: Wednesday, August 16, 2006 1:56 PM
Subject: [delphi-br] evento show


pessoal, tenho um processo que executo no evento onshow do form, assim que 
o processo termina o form e aberto, teria como executar o processo depois que o 
form abrir?


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

 

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

   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.10.10/419 - Release Date: 15/08/2006


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



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

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

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

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

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

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

 

Re: [delphi-br] Transação IBX x DBX

[Logos]

tenta assim:
if sqlconnection.InTransaction  then showmessage('trasacao aberta');
  - Original Message - 
  From: fabio_giro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 10:02 AM
  Subject: [delphi-br] Transação IBX x DBX


  Usando D7 + FB 1.5.2 . Sei que quando se faz algum acesso ao banco é
  aberta uma transação. Usando query+datasetprovider+clientdataset. Se
  uso IBX, faço o seguinte:
ClientDataSet2.close;
ClientDataSet2.Open;
if IBQuery1.Transaction.InTransaction then
 begin
   showmessage('aberta');   <-- sempre passa aqui
   IBQuery1.Transaction.Commit;
 end
else
   showmessage('fechada');

  Mas se usar DBX, como saber se a transação está aberta ou fechada?
ClientDataSet1.close;
ClientDataSet1.Open;
if SQLQuery1. ???
  E se usar SQLQuery1.ExecSql? 

  Obrigado.







   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.405 / Virus Database: 268.10.10/419 - Release Date: 15/08/2006


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



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

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

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

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

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

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

 

[delphi-br] definicao campos clientdataset em tempo de programacao

[Logos]

amigos, tenho um clientdataset que defino os campos em tempo de execucao do 
programa. esta tudo certinho, a unica coisa que nao consegui definir foi a 
propriedade displayformat do campo. alguem poderia me dar uma força?
segue um pedaco do codigo fonte:

  gmov.FieldDefs.Clear;
  gmov.FieldDefs.Add('Mes',ftstring,3,false);
  sql.first;
  while not sql.eof do begin
 if rd2.ItemIndex=0 then 
Campo1:='S-'+strzero(sql.fieldbyname('ano').AsString,4)
 else
Campo1:='V-'+strzero(sql.fieldbyname('ano').AsString,4);
 gmov.FieldDefs.add(campo1, ftfloat,0, false);
 sql.Next;
  end;
  gmov.CreateDataSet;


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



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

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

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

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

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

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

 

[delphi-br] formula fortes

[Logos]

pessoal to precisando criar uma formula no fortes que pegue o total de um item 
vendido, e divida pelo total de todos os itens vendidos... para dar o % de 
participacao.

item a 50 % 22,72 
item b 100 % 45,45
item c 70 % 31,81 
totl 220 

mas como pegar o total 220, sem ter terminado de imprimir? ja que ele vai 
somando linha a linha e so no final do relatorio que tem o total. e possivel 
fazer isso no relatorio sem ter que somar direto no banco? 
obrigado...


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



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

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

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

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

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

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

 

Re: [delphi-br] Re: [DELPHI-Total] Arquivo INI para abrir conexao Firebird/Delphi

[Logos]

eu uso meu proprio arquivo
procedure TDmdados.Openbd(cnn: TSQLConnection; Ini: TMemIniFile);
var
  Config: TMemIniFile;
  Arq: TFileName;
begin
  Arq := ExtractFilePath(ParamStr(0))+'CONFIG\BD.INI';
  if Assigned(Ini) or FileExists(Arq) then begin
 if Assigned(Ini) then
Config := Ini
 else
Config := TMemIniFile.Create(Arq);
 with cnn do
try
   if Connected then Close;
   ConnectionName := nomeestacao;
   DriverName := Config.ReadString(ConnectionName, 'DriverName', 
DriverName);
   GetDriverFunc := Config.ReadString(ConnectionName, 
'GetDriverFunc', GetDriverFunc);
   LibraryName := Config.ReadString(ConnectionName, 'LibraryName', 
LibraryName);
   VendorLib := Config.ReadString(ConnectionName, 'VendorLib', 
VendorLib);
   LoginPrompt := False;
   KeepConnection := True;
   LoadParamsOnConnect := False;
   LoadParamsFromIniFile(Config.FileName);
finally
   if not Assigned(Ini) then Config.Free;
end;
 end;
 cnn.Open;
end;


procedure TDmdados.DataModuleCreate(Sender: TObject);
var
   ArqIni : TmeminiFile;
   Texto:string;
begin
   bd.close;
   bd.LoadParamsOnConnect:=false;
   ArqIni := 
TmeminiFile.Create(ExtractFilePath(ParamStr(0))+'CONFIG\BD.INI');
   texto:=arqini.ReadString(nomeestacao, 'Database', '');
   if texto='' then begin
  FrmServidor:=TfrmServidor.create(self);
  FrmServidor.showmodal;
  if frmservidor.tag=5 then application.Terminate;
   end;
   openbd(bd,arqini);
end;


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



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

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

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

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

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

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

 

Re: [delphi-br] asynchronous socket error 10053

[Logos]

mas o cliente socket ja faz isso com o servidor... atraves de thread...
  - Original Message - 
  From: Desenvolvimento (Anderson) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, May 12, 2006 8:44 AM
  Subject: Re: [delphi-br] asynchronous socket error 10053


  crie um protocolo com controles de de envio/recebimento usando o checksum...
  assim, não se perde no protocolo.
    - Original Message - 
    From: Logos 
    To: delphi-br@yahoogrupos.com.br 
    Sent: Thursday, May 11, 2006 8:43 PM
    Subject: [delphi-br] asynchronous socket error 10053


    galera fiz um programa que transfere dados via socket, mas no servidor as vezes fica aparecendo esta mensagem: 
    asynchronous socket error 10053



    alguem teria alguma dica.




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






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





  Yahoo! Grupos, um serviço oferecido por: 
    PUBLICIDADE
  
 


  --
    Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/
    
  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]
    
  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



    __ Informação do NOD32 IMON 1.1533 (20060512) __

    Esta mensagem foi verificada pelo NOD32 sistema antivírus
    http://www.eset.com.br



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



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





    Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE
    
   


--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
  
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
  
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 




--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.392 / Virus Database: 268.5.6/337 - Release Date: 11/05/2006


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










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

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

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






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] asynchronous socket error 10053

[Logos]

galera fiz um programa que transfere dados via socket, mas no servidor as vezes fica aparecendo esta mensagem: 
asynchronous socket error 10053



alguem teria alguma dica.




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










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

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

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






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.