[delphi-br] Quick Report - Juntar 2 relatórios

[Alessandro]

Bom dia! Tenho 2 relatórios no meu sistema e gostaria de juntá-los em 1 único 
relatório. Tentei usar o componente QRComposite mas não deu certo.
Alguém já fez isto? Poderiam me passar algumas dicas?
Obrigado


  

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]

[delphi-br] Juntar relatórios

[Alessandro]

Boa tarde! 
Tenho um relat.em Quick Report já rodando no sistema. Neste relatório tenho 
banda Title, GroupHeader, Detail, GroupFooter, Summary e PageFooter.
Mas agora preciso imprimir dados de uma tabela neste mesmo relatório após a 
banda Summary. Alguém já fez algo parecido?
Tentei fazer com o componente QRCompositeReport do Quick Report, mas não estou 
conseguindo. Se alguém puder ajudar, ficarei muito grato.

Obrigado


  

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]

[delphi-br] Dúvida IDE Delphi 2006

[Alessandro]

Dúvida que não consigo descobrir, e que eu não gosto.


No Delphi 2006 qdo.abro um projeto, num módulo qualquer, tem lá um SQLQUERY, 
dou um duplo clique abre-se o FIELDEDITOR do componente. Pois bem, crio os 
campos dentro do FieldEditor, logo em seguido pressiono F12 para ir para o 
código do projeto, e esta caixa do FieldEditor fica sobre o código. Alguém sabe 
da propriedade que habilita ou desabilita isto? Tem algo a ver com GExperts, 
pois tenho instalado isto no Delphi 2006.

O que eu quero é que se pressionar o F12 o FieldEditor ou qualquer outra caixa 
de diálogo (tela de parâmetros do SQLQuery, ClientDataSet...) fique atrás do 
código ou tela do projeto. Conseguindo voltar para estas caixas de diálogo pela 
opção Windows do Delphi.

É que troquei de computador e neste ocorre este problema, no micro antigo isto 
não acontecia. Já verifiquei as propriedades em Tools-Options, e não consigo 
mudar isto.

Espero que alguém possa me ajudar, obrigado a todos.
Alessandro


  

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]

[delphi-br] Campo Blob

[Alessandro]

Bom dia! Tenho um cadastro mestre-detalhe, em FB 1.5 com dbexpress. Tenho um 
campo Blob na tabela detalhe, entro com a informação em um campo DBMEMO. Ao 
salvar está dando o erro:
 
Project S087.EXE raised exception class EDatabaseError with message 'Database 
Server Error: Incorrect values within SQLDA structure'.

Alguém passou por isto? Utilizo a ligação NESTED DATASET

Alessandro


  

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]

[delphi-br] Abrir o mesmo Form várias vezes

[Alessandro Araujo]

Amigos,

Sou novo na lista e tenho uma dúvida. Gostaria de saber como faço para abrir 
várias instancias do mesmo form. Tenho uma janela que precisa abrir um número 
indeterminado de uma janela filha. Agradeço a ajuda antecipadamente. 

Valeu


  

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]

Re: [delphi-br] Timestamp

[Alessandro Magno]

O programinha mixuruca é o Nasajon hahahahahh...

E é timestamp mesmo.. horrível.
Paradox a base de dados... o formato aparece dd/mm/ hh:mm, mas 
parece que tem outra coisa.

Fiz Datetimetostr(bancocampo.value)
Deu: 21/02/2009 12:22:43
OU
floattostr(bancocampo.value)
Deu: 38432,515775463

Alisson escreveu:
>
>
> Chave com tipo Timestamp? Que horror! Eu só uso chaves do tipo 
> Integer. Mas
> vamos lá:
>
> Como você está mandando esses dados para o sistema mixurica? São vários
> registros em lotes e você gera a chave no momento de enviar? Se for 
> assim é
> bem possível gerar erros. Não sei como é no Paradox, mas pelo menos no
> Firebird, o tipo Timestamp tem o seguinte formato: "dd/mm/ hh:mm".
> Portanto só dá pra incluir um registro a cada minuto.
>
> __
> Faça ligações para outros computadores com o novo Yahoo! Messenger
> http://br.beta.messenger.yahoo.com/ 
>
> 

[delphi-br] Timestamp

[Alessandro Magno]

Galera,

Na minha empresa tem um programinha mixuruca feito em Delphi e Paradox.
E eu tenho que pegar dados da minha base Mysql e jogar nele.

Só que , não sei porque, a chave da tabela é timestamp.

E quando eu gravo nela, eu jogo "now()" para o campo. Mas dá violação de
chave. Parece que tem milissegundos também, ou algo assim.

Alguém já fez algo assim ?? poderia me dar uma dica ?? De como usar 
timestamp como chave primária.

[delphi-br] Campo Chave Timestamp

[Alessandro Magno]

Galera,

Na minha empresa tem um programinha mixuruca feito em Delphi e Paradox.  
E eu tenho que pegar dados da minha base Mysql e jogar nele.

Só que , não sei porque, a chave da tabela é timestamp.

E quando eu gravo nela, eu jogo "now()" para o campo. Mas dá violação de 
chave. Parece que tem milissegundos também, ou algo assim.

Alguém já fez algo assim ??  poderia me dar uma dica ??

[delphi-br] Boleto Bancário

[Alessandro Magno]

Galera,

Tendo uma conta de pessoa física no banco, eu consigo gerar boleto 
bancário em meu nome ou somente pessoas jurídicas???

[delphi-br] Gerar Vetor Dinâmico

[Alessandro Dias]

Boa Noite

 

Meu nome é Alessandro, iniciante em Delphi.

Gostaria de uma ajuda de vcs se possível.

 

Como faço para gerar números aleatórios que não se repitam.

Abaixo a procedure que fiz.

Estou fazendo alguns exercícios no Delphi, pois estou iniciando e no meu
programa gero um vetor dinâmico em um Edit e tudo bem,

Só que gostaria que esses números fossem aleatórios e não repetidos.

 

procedure Gera(var v:TArray;k:Integer);

var i : Integer;

begin

  for i := 1 to k do

  begin

SetLength(v,Length(v)+1);

v[i]:=Random(k);

  end;

end;

 

Desde já agradeço



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

[delphi-br] 1 Vaga em aberto

[Alessandro Roberto de Oliveira]

Analista Programador Delphi Sr

Empresa Contratante: Stefanini IT Solutions

 Profissional com esperiencia em progamação em Delphi 5 e 7.
Ferramentas de relatório - RAVE
Banco Dados SQL SERVER

Local de trabalho Zona Leste / SP
Forma de contratação PJ

Faixa Salarial: À COMBINAR
Cidade: SAO PAULO-SP
Quantidade de vaga(s): 2
Data do Anúncio: 16/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=37252058787aa25f67d526db942f919c&fromAccess=1267

---


CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=main&fromAccess=1267

[delphi-br] 3 Vagas em aberto

[Alessandro Roberto de Oliveira]

Programador Delphi e ASP Jr.

Empresa Contratante: Cast Informática S.A.

 Superior Completo ou Cursando em TI.

Irá atuar com desenvolvimento de sistemas em delphi e asp ** é obrigatório 
experiência nas duas linguagens - delphi e asp.

Gentileza encaminhar currículo atualizado.

Faixa Salarial: ATÉ R$ 1.000,00
Cidade: BRASILIA-DF
Quantidade de vaga(s): 2
Data do Anúncio: 12/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=8e23c74a0b2781b7d47744d0ca013913&fromAccess=1267

---


Analista Delphi

Empresa Contratante: Cast Informática S.A.

 Experiência pleno em desenvolvimento de sistemas WEB e Desktop, 3 camadas, 
criação de componentees e serviços Windows e levantamento de requisitos. 
dompinio: Java,Asp, Delphi, java script, Coldfunsion, UML 2.0, banco de dados 
oracle e SQL Server. 

Desejável certificação Delphi.
 



Faixa Salarial: À COMBINAR
Cidade: BRASILIA-DF
Quantidade de vaga(s): 2
Data do Anúncio: 12/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=10c8b0e04cb9de6494a84f2af9e59d55&fromAccess=1267

---


Analista de Sistemas Delphi

Empresa Contratante: H2M

 Sólidos conhecimentos em analise Delphi 
Atuação com banco de dados SQL Server 
Superior Completo em áreas afins 
Desejável conhecimento em Delphi a partir da versão 5 

Local: Lapa
Contratação PJ ou CLT Flex

 


Faixa Salarial: À COMBINAR
Cidade: SAO PAULO-SP
Quantidade de vaga(s): 1
Data do Anúncio: 12/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=2f165dc3bf83040513ee594704271bbc&fromAccess=1267

---


CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=main&fromAccess=1267

[delphi-br] 1 Vaga em aberto

[Alessandro Roberto de Oliveira]

ANALISTA DESENVOLVEDOR DELPHI

Empresa Contratante: Squadra

 Formação de nível superior completa na área de informática ou afins com, 
Proficiência em desenvolvimento e manutenção de sistemas em Delphi n-camadas e 
cliente servidor com SQL Server; 
Conhecimentos Desejáveis: .NET e UML.



Faixa Salarial: À COMBINAR
Cidade: BELO HORIZONTE-MG
Quantidade de vaga(s): 1
Data do Anúncio: 11/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=f0e26265cb1495258669f8dae6531ed3&fromAccess=1267

---


CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=main&fromAccess=1267

[delphi-br] Estagiário Delphi (BELO HORIZONTE-MG)

[Alessandro Roberto de Oliveira]

Estagiário Delphi

Empresa Contratante: AIX Sistemas S/A

 pré-requisito: estar cursando faculdade na área de TI ou curso técnico 
informática. Conhecimento em programação Delphi, lógica de programação, 
orientação a objetos, Banco de dados SQL.
Atividades a serem desenvolvidas: Elaboração de programas de computador na 
linguagem Delphi e/ou elaboração de análise de sistemas. 
Oferecemos: bolsa de estágio no valor de R$ 600,00 com possibilidade de 
aumento, vale-transporte e lanche.
horário de trabalho: 6 hs diárias.


Faixa Salarial: À COMBINAR
Cidade: BELO HORIZONTE-MG
Quantidade de vaga(s): 1
Data do Anúncio: 06/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=93c6c63f6e7884b11fc4aa3cfb11375c&fromAccess=1267

---
CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=main&fromAccess=1267

[delphi-br] Analista Programador Delphi (SAO PAULO-SP)

[Alessandro Roberto de Oliveira]

Analista Programador Delphi

Empresa Contratante: H2M

   Sólidos conhecimentos em programação Delphi Atuação com banco de dados SQL 
Server Superior Completo em áreas afins Desejável conhecimento em Delphi versão 
7 



Faixa Salarial: À COMBINAR
Cidade: SAO PAULO-SP
Quantidade de vaga(s): 1
Data do Anúncio: 05/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=1145e5efb9dbf2e86c05bbad7cbca67e&fromAccess=1267

---
CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=main&fromAccess=1267

[delphi-br] Desenvolvedor Asp e Delphi (BELO HORIZONTE-MG)

[Alessandro Roberto de Oliveira]

Desenvolvedor Asp e Delphi

Empresa Contratante: HCSComp Computadores e Serviços

 Requisitos:
Experiência em manutenção de Intranets e websites.

Programação Web.

Ampla experiência nas linguagens ASP / DELPHI

Ampla experiência em Banco de dados SQL Server 2000 e 2005 e Oracle.

Experiência em Analise de sistemas será um diferencial.
Tempo de contratação: inicialmente 6 meses com possibilidade de expensão.




Faixa Salarial: À COMBINAR
Cidade: BELO HORIZONTE-MG
Quantidade de vaga(s): 1
Data do Anúncio: 05/02/2009

ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: 

http://www.ceviu.com.br/vaga/?view=vgext&vg=adf33adf73add840dd381a11fcdfd294&fromAccess=1267

---
CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA.
 ACESSE: http://www.ceviu.com.br/index.php?view=main&fromAccess=1267

[delphi-br] Vaga para Programador Delphi - Brasília DF

[Alessandro Alves]

Empresa de médio porte do ramo gráfico contrata programador Delphi Júnior com 
EXPERIÊNCIA COMPROVADA e conhecimentos de PHP e banco de dados relacionais. Os 
interessandos devem enviar o curriculum atualizado para o e-mail 
rhi...@oppus.eti.br com o Assunto: Programador Delphi. A faixa salarial varia 
de R$ 1.000,00 a R$ 2.000,00 . A vaga destina-se apenas a Brasília-DF. 
Curriculuns de outros estados serão descartados. 


  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]

[delphi-br] Re: nfe

[Alessandro da Silva Souza]

Boa noite, 

 Jancarlos qual seu e-mail? Gostaria de saber mais sobre o 
projeto Desenvolvido em .net que envia XML. Meu e-mail é 
[EMAIL PROTECTED]

Obrigado.

--- Em delphi-br@yahoogrupos.com.br, "Jancarlos Martins" 
<[EMAIL PROTECTED]> escreveu
>
> Ja existe uma solucao open-source, desenvolvida em .Net que envia 
XML,
> valida e certifica, a unica coisa que tem q desenvolver e o xml.
> 
> entre em contato em pvt.. ate mais..
> 
> 
> 
> 2008/10/19 fabricio mata de castro <[EMAIL PROTECTED]>:
> > Tenho a solução para nfe em modo console quem quiser entre em 
contato pelo
> > email [EMAIL PROTECTED] funciona com qualquer linguagem.
> >
> > falar c/ fabricio
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>

[delphi-br] Oportunidade Programador Delphi - Brasília / DF

[Alessandro Alves - Yahoo]

Oportunidade para programador Delphi 7 com conhecimentos de SQL Server 2000
(criação de triggers, stored procedures e etc).

 

Curriculos com pretensão salarial para o e-mail: [EMAIL PROTECTED]

 

Obrigado!!! 



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

[delphi-br] Oportunidade Profissional - Brasília/DF

[Alessandro Alves - Yahoo]

Empresa de grande porte situada em Brasília-DF seleciona: 

 

Profissional com ensino médio e sólidos conhecimentos em desenvolvimento de
sistemas utilizando Delphi 7 e experiência em criação e utilização de
consultas complexas, functions e stored procedures no banco de dados SQL
Server 2000 (programação T-SQL) . 

 

Conhecimentos na linguagem clipper serão bem vindos, aliados à experiência
OBRIGATÓRIA em delphi. 

 

Buscamos um profissional competente, extremamente comprometido com prazos,
com qualidade e vontade de trabalhar em equipe e enfrentar desafios. 

 

Terá oportunidade de trabalhar com Microsiga, PHP e outras tecnologias
utilizadas na empresa. 

 

Daremos preferência para pessoas que estejam disponíveis para início
imediato. 

 

Só serão considerados currículos dentro do perfil solicitado e COM PRETENSÃO
SALARIAL. 

 

A modalidade de contratação é PJ ou poderá ser por "Associação" e o salário
varia de acordo com a experiência/formação.

 

Os currículos COM PRETENSÃO SALARIAL devem ser enviados para o e-mail:
[EMAIL PROTECTED]

 

Os candidatos que enviarem resposta para a lista, serão desclassificados.

 

Obrigado!!!



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

RES: [delphi-br] Re: Mais uma dúvida Importante !

[Alessandro Alves - Yahoo]

Victor,

 

Eof = End-of-file

 

Portanto, se não é o fim do arquivo Next (vai pro próximo registro).

 

Abraço!

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de victor_scampini
Enviada em: quarta-feira, 24 de setembro de 2008 07:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Mais uma dúvida Importante !

 

Ok amigo, vou tentar eof...Mais você pode me explicar porque se 
possível ?...Obrigado desde já !

Abraço !

 



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

[delphi-br] Delphi Tour.

[Alessandro Pichiteli]

Parabéns Andreano, mandou bem no evento Delphi tour.

Delphi 2009 ficou fera.

Um abraço.



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

RES: [delphi-br] Prova Certificação Delphi

[Alessandro Pichiteli]

Cara eu tenho uma apostila preparatória para certificação, porém não tenho
scanner senão mandava pra você.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de futurodelphi
Enviada em: quinta-feira, 28 de agosto de 2008 10:52
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Prova Certificação Delphi

 

Pessoal, boa tarde...

Vou precisar fazer a prova de certificação aqui para o meu novo
emprego e tenho que passar..

Aí, para as pessoas que já fizeram a prova, gostaria de saber se vocês
teriam o material, dicas sobre a prova, coisas que possam ajudar pois
tenho 30 dias para estudar e passar...

Já trabalho com Delphi a 5 anos, então, não é que tenho que começar do
zero. É só o fato de que tenho que passar mesmo.

Portanto, conto com a ajuda de quem puder aí.. Mandem os materiais,
vídeos, simulados, o que puderem em PVT pra mim...

Brigadão...

Guilherme

 

__ Information from ESET Smart Security, version of virus signature
database 3325 (20080804) __

The message was checked by ESET Smart Security.

http://www.eset.com



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

Re: [delphi-br] Retornar numero de meses entre duas datas

[Alessandro DUARTE de Moraes]

Tem uma Unit chamada DateUtils que tem várias funções para manipulação de datas.
Podes utilizar a função IncMonth da seguinte forma:

procedure ContaMesesEntreDatas(DataInicial, DataFinal: TDate) : integer;
var DataAuxiliar : TDate;
begin
NroDeMeses := 0;
DataAuxiliar := DataInicial;
while IncMonth(DataAuxiliar,1)http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Antonio Mateus 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 21, 2008 3:28 PM
  Subject: [delphi-br] Retornar numero de meses entre duas datas


  Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma
  inicial e outra final, gostaria que o programa me retornasse o numero de
  meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a
  mesma me retorna valores totalmente fora da realidade, se alguem puder me
  ajudar eu ficarei muito agradecido !

  -- 
  Antonio Mateus
  Estudante de Sistemas de Informação

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,48adb3fc84571742216817 


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

RES: [delphi-br] Sum(item)

[Alessandro Pichiteli]

Amigo geralmente na query q está este select vai aparecer os fiels   F1,F2. 

Daí vc pode pegar assim:

 

Edit1.text  := query1.fieldbyname(‘F1’).asstring;

 

Espero tem ajudado.

Um abraço.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Bollasette
Enviada em: quarta-feira, 20 de agosto de 2008 23:00
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Sum(item)

 

Select Sum(BcITEM),Sum(VR_ITEM)
>From ITENS
Where Codigo>5
Group by Aliquota
Order By Aliquota

Olá, saudações a todos.
Meus amigos, como posso 'pegar' o reultado da soma no código acima ?

[ ]sss
Henrique
www.guardalivro.cnt.br

 

__ Information from ESET Smart Security, version of virus signature
database 3325 (20080804) __

The message was checked by ESET Smart Security.

http://www.eset.com



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

RES: [delphi-br] Sum(item)

[Alessandro Pichiteli]

Amigo quando vc utiliza apenas funções no select vc não precisa utilizar o
group by.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Bollasette
Enviada em: quarta-feira, 20 de agosto de 2008 23:00
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Sum(item)

 

Select Sum(BcITEM),Sum(VR_ITEM)
>From ITENS
Where Codigo>5
Group by Aliquota
Order By Aliquota

Olá, saudações a todos.
Meus amigos, como posso 'pegar' o reultado da soma no código acima ?

[ ]sss
Henrique
www.guardalivro.cnt.br

 

__ Information from ESET Smart Security, version of virus signature
database 3325 (20080804) __

The message was checked by ESET Smart Security.

http://www.eset.com



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

RES: [delphi-br] Quickreport Duvidas

[Alessandro Pichiteli]

Galera obrigado pela ajuda mais já resolvi.

Eu criei um group com subdetail para cada tabela e deu certinho.

Mesmo assim obrigado pela ajuda.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 13 de agosto de 2008 09:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Quickreport Duvidas

 

Vejo duas formas de fazer.
Uma seria usar um select semelhante a esse:
SELECT CAMPO1, CAMPO2 FROM TABELA1
UNION ALL

SELECT CAMPO1, CAMPO2 FROM TABELA2
UNION ALL
SELECT CAMPO1, CAMPO2 FROM TABELA3

A outra forma seria fazer 3 Quicks distintos e usar o componente QrComposite
para concatenar os relstório. Isso é mais usado quando os relstório que se
deseja contatenar são completamente diferentes.
Luciano Calenzani Simões

- Mensagem original 
De: "[EMAIL PROTECTED]  "
<[EMAIL PROTECTED]  >
Para: delphi-br@yahoogrupos.com.br  
Enviadas: Quarta-feira, 13 de Agosto de 2008 8:28:15
Assunto: [delphi-br] Quickreport Duvidas

Bom dia a todos, trabalho com Delphi 5 e uso o quickreport nativo do 
proprio delphi 5.
Estou com a seguinte duvida por não tenho experiencia com quickreport:

Queria um relatorio neste modelo:

quero listar 3 querys em um relatorio , exemplo:

Titulo - Tabela 1
dados
dados
dados
dados
dados
dados

Titulo - Tabela 2
dados
dados
dados
dados
dados
dados

Titulo - Tabela 3
dados
dados
dados
dados
dados
dados
dados

Por favor, serei grato pela ajuda, um abraço a todos.

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

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

 

__ Information from ESET Smart Security, version of virus signature
database 3325 (20080804) __

The message was checked by ESET Smart Security.

http://www.eset.com



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

[delphi-br] Quickreport Duvidas

[alessandro]

Bom dia a todos, trabalho com Delphi 5 e uso o quickreport nativo do  
proprio delphi 5.
Estou com a seguinte duvida por não tenho experiencia com quickreport:

Queria um relatorio neste modelo:

quero listar 3 querys em um relatorio , exemplo:

Titulo - Tabela 1
dados
dados
dados
dados
dados
dados

Titulo - Tabela 2
dados
dados
dados
dados
dados
dados

Titulo - Tabela 3
dados
dados
dados
dados
dados
dados
dados

Por favor, serei grato pela ajuda, um abraço a todos.

Re: [delphi-br] Rotina Sql

[Alessandro DUARTE de Moraes]

Charles, creio que teu problema é conceitual.
Há duas formas de fazeres o que desejas:
1) Usar duas Querys(não Table). A primeira Query usarás para retornar os 
registros que precisam ser atualizados, ORDER BY pela data. A segunda irá 
fazer, para cada registro da primeira query, um UPDATE para atualizar os 
valores. Mas creio que dessa forma será mais demorado e mais pesado para o 
banco de dados.
2) Qual banco estás utilizando? Fiz um caso similar em Firebird para 
atualização da quantidade e o custo médio do estoque a cada lançamento, e 
utilizei Stored Procedure ativada por Trigger. Funciona que é uma beleza, e 
como está dentro do Banco de Dados é rápida e satisfaz plenamente.

Estude sobre Stored Procedures ... vale a pena.

Espero ter ajudado.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: HNS Informática 
  To: Delphi Br 
  Sent: Wednesday, July 23, 2008 1:46 PM
  Subject: [delphi-br] Rotina Sql


  Pessoal, possuo uma tabela de Caixa que possue os seguintes campos
  Data HIstorico Historicod Complemento, Entrada Saída e Saldo

  ela tem 14.000 registros deste inicio de 2006.
  Cada vez que faço um lançamento, ela tem que atualizar o saldo da data do 
lançamento endiante, ou seja, tem que aceitar fazer lançamento do mes 
corrente Porem estou com dificuldades para fazer a rotina de atualização do 
saldo em sql, ai usei uma query e uma table... no meu sistema antigo com 
paradoz e table funcionava perfeitamente, mas agora que tenho que fazer em sql, 
ja que a table não ordena por data, complicou... segue abaixo a rotina, se 
alguem puder melhorar ela ou uma forma melhor de fazer agradeço

  procedure tfrmcaixa.calculasaldo;
  var valor : currency;
  begin
  tbcaixa.refresh;
  if querycaixa.recordcount = 1 then
  begin
  tbcaixa.locate('Registro',querycaixa['Registro'],[]);
  tbcaixa.edit;
  tbcaixa['Saldo'] := querycaixa['Entrada'] - querycaixa['Saida'];
  tbcaixa.post;
  querycaixa.refresh;
  label5.caption := 'SALDO: '+formatfloat('###,##0.00',querycaixa['Saldo']);
  end
  else
  begin
  querycaixa.prior;
  if (querycaixa['Saldo'] = null) or (querycaixa.bof) then
  begin
  tbcaixa.locate('Registro',querycaixa['Registro'],[]);
  tbcaixa.edit;
  tbcaixa['Saldo'] := querycaixa['Entrada'] - querycaixa['Saida'];
  tbcaixa.post;
  querycaixa.refresh;
  end;
  valor := querycaixa['Saldo'];
  querycaixa.next;
  while not querycaixa.eof do
  begin
  tbcaixa.locate('Registro',querycaixa['Registro'],[]);
  tbcaixa.edit;
  tbcaixa['Saldo'] := valor-querycaixa['Saida']+querycaixa['Entrada'];
  tbcaixa.post;
  querycaixa.refresh;
  valor := querycaixa['Saldo'];
  querycaixa.next;
  end;
  end;
  label100.caption := 'SALDO: '+formatfloat('###,##0.00',querycaixa['Saldo']);

  Att

  Charles A. Chiodi
  HNS Informática

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,48878ecd452791121010416 


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

Re: [delphi-br] Criar um botao auto executavel

[Alessandro DUARTE de Moraes]

Bem, como os outros já comentaram, creio ser sem sentido ter um botão, já que o 
usuário nem sabe que ele existe, quanto mais clicar nele ...
Mas, não vou entrar no mérito da questão ... no OnCreate do Form invoque o 
método Click do botão, assim:

NomeDoBotao.Click;


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Felipe Milagres 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 22, 2008 8:40 AM
  Subject: Re: [delphi-br] Criar um botao auto executavel


  tipo, 
   
  é o seguinte
   
  eu fiz uma aplicação usando um botao en um form que quando apertado vai para 
outro form (Form2.ShowModal;) 
   
  porem esse aplicativo que estou fazendo, o usuario nem saberá que ele existe, 
so sabe o que ele faz ... ou seja, ja que eu tenho um botao, eu precisaria que 
ele fosse ativado quando o aplicativo fosse axecutado .
   
  entendeu ???
   
  []s,
   
  Felipe Milagres

  --- Em ter, 22/7/08, Alessandro DUARTE de Moraes <[EMAIL PROTECTED]> escreveu:

  De: Alessandro DUARTE de Moraes <[EMAIL PROTECTED]>
  Assunto: Re: [delphi-br] Criar um botao auto executavel
  Para: delphi-br@yahoogrupos.com.br
  Data: Terça-feira, 22 de Julho de 2008, 8:05

  O que queres dizer com "um botão auto executável"?
  Explique bem detalhadamente sua necessidade.

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacas arg.com.br
  (53) 3233-7118
  - Original Message - 
  From: Felipe Milagres 
  To: [EMAIL PROTECTED] os.com.br 
  Sent: Monday, July 21, 2008 8:41 PM
  Subject: [delphi-br] Criar um botao auto executavel

  oi,

  estou precisando de fazer um botao que se auto execute ...

  porem nao sei como fazer isso 

  att,

  Felipe Milagres

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

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

   - - 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como N�O-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] net 

  Chave de Identifica��o: 54568,4885be2423982 5399315076 

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

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como N�O-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identifica��o: 54568,4885d9cf239822275112643 


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

Re: [delphi-br] Criar um botao auto executavel

[Alessandro DUARTE de Moraes]

O que queres dizer com "um botão auto executável"?
Explique bem detalhadamente sua necessidade.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Felipe Milagres 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 21, 2008 8:41 PM
  Subject: [delphi-br] Criar um botao auto executavel


  oi,
   
  estou precisando de fazer um botao que se auto execute ...
   
  porem nao sei como fazer isso 
   
   
  att,
   
  Felipe Milagres

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como N�O-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identifica��o: 54568,4885be24239825399315076 


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

Re: [delphi-br] Confira meu perfil no Facebook

[Alessandro DUARTE de Moraes]

Francamente ... passível de bloqueio no grupo.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Marco Eli da Silva 
  To: delphi-br 
  Sent: Monday, July 21, 2008 3:18 PM
  Subject: [delphi-br] Confira meu perfil no Facebook



  Criei um perfil no Facebook com minhas fotos, vídeos e eventos e quero 
adicionar-lhe como amigo para que você possa vê-los. Primeiro, você precisa 
cadastrar-se no Facebook! Uma vez cadastrado, você também pode criar seu 
próprio perfil.

  Atenciosamente,
  Marco

  Aqui está o link:
  http://www.facebook.com/p.php?i=1357764846&k=ZVBZYW6S4X2M5BL1QDYTTV&r&v=2

  ___
  Este e-mail contém materiais promocionais. Se você não deseja receber futuros 
emails comerciais do Facebook, por favor clique no link abaixo. As agência do 
Facebook estão localizadas em 156 University Ave., Palo Alto, CA 94301
  http://www.facebook.com/o.php?u=1080066852&k=83ed89

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como N�O-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identifica��o: 54568,4884d2f2531625604213909 


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

Re: [delphi-br] Agrupamento Semanal

[Alessandro DUARTE de Moraes]

Buenos, isso só se resolve escrevendo função auxiliar para o banco de dados. 
Qual banco que estás utilizando?
Mas alguns bancos já possuem a solução: no mysql podes agrupar utilizando a 
função WEEK(DATA_REFERENCIA) que funciona.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: henrique_filet 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 17, 2008 11:30 AM
  Subject: [delphi-br] Agrupamento Semanal


  Bom dia galera...

  Vou expor o probleminha que estou enfrentando aqui e espero contar com
  a ajuda de vcs... Segte: Tem um relatório no meu sistema que exibo
  dados AGRUPADOS POR SEMANA baseado no período informado pelo usuário.
  A lógica que tenho implementado hoje estava funcionando bem até
  ocorrer a situação ocorrida. Meu select retorna os dados DIA A DIA sem
  agrupamento nenhum, daí, no delphi, eu faço o tratamento para agrupar.
  Faço um DayOfWeek na data retornado pelo select verificando se o
  retorno deste DayOfWeek é = 2 (Segunda-Feira), se for, realizo a
  quebra (o agrupamento pela Semana). O problema ocorreu que, no período
  solicitado pelo usuário, 17/04/2008 à 30/04/2008, não houve registros
  nenhum nos dias 20 e 21/04 (domingo e segunda-feira) daí a lógica
  existente falhou e não agrupou... Mesmo tendo mudado a semana. Abaixo
  segue como deveria ter sido o agrupamento:

  17/04/2008 à 20/04/2008
  21/04/2008 à 27/04/2008
  28/04/2008 à 30/04/2008

  Porém, como não houve registros nos dias 20 e 21, o agrupamento ficou
  assim:

  17/04/2008 à 27/04/2008
  28/04/2008 à 30/04/2008

  Algum de vocês poderiam me ajudar a encontrar uma solução para estas
  situações???

  Obrigado e conto com vossa ajuda.

  Sérgio



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,487fb635542742047117581 


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

Re: [delphi-br] Como acessar arquivos num disco compartilhado na rede?

[Alessandro DUARTE de Moraes]

Já tive algumas dificuldades quando o servidor é XP e a estação é 98.
Resolvi dando um "net use F: \\SERVIDOR\COMPARTILHAMENTO /yes" (onde F é a 
letra do drive).
Mas teoricamente não haveria motivos para dar problemas ... coisas de windows :)

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Eduardo Silva dos Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 15, 2008 10:20 PM
  Subject: Re: [delphi-br] Como acessar arquivos num disco compartilhado na 
rede?


  A princípio não mudou nada, verifique os compartilhamentos, as permissões e
  se a rede está ok.

  poste mais detalhes.

  2008/7/15 Carlos Negrão <[EMAIL PROTECTED]>:

  > Tenho um sistema aqui que deixa fotos e um arquivo de configuração
  > global no servidor, fora do banco de dados.
  > Com o servidor usando Windows 98, tudo funciona perfeitamente, mas
  > se usar Windows XP, parece não conseguir abrir nem o arquivo de
  > configuração (do tipo Ini), nem as fotos.
  > Houve alguma mudança na forma como arquivos são compartilhados do
  > win98 pro XP?
  > Alguém tem alguma idéia de como contornar isso?
  >
  > 
  >

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,487d4cc9612611769378534 


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

Re: [delphi-br] Dica de um banco de dados em um únic o arquivo, sem servidor?

[Alessandro DUARTE de Moraes]

Buenos, tem o meledeto MS Access (MDB).

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 14, 2008 2:22 PM
  Subject: [delphi-br] Dica de um banco de dados em um único arquivo, sem 
servidor?


  Olá amigos, alguém poderia me indicar um banco de dados, que utiliza apenas
  um arquivo, e não necessita de servidor? Sei que o firebird tem o embeded,
  mas tenho que levar a DLL e tals.. queria um, com o mesmo poder dele, porem
  sem as dlls e tals.. existe algum?

  Obrigado.

  []s

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,487b8b6d516981070295079 


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

Re: [delphi-br] Criar função

[Alessandro DUARTE de Moraes]

Vai no www.torry.net que tem uma série de componentes que fazem o que precisas.

http://www.torry.net/pages.php?id=307

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: Luciano Calenzani Simões 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 11, 2008 9:01 AM
  Subject: Res: [delphi-br] Criar função


  O "^" é Potência.

  Luciano Calenzani Simões

  - Mensagem original 
  De: Sandro Ricardo <[EMAIL PROTECTED]>
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Sexta-feira, 11 de Julho de 2008 8:58:08
  Assunto: Re: [delphi-br] Criar função

  Olá 'xará',

  É bem tranquilo fazer esta função, só não entendi o '^' da fórmula...

  Abraços
  Sandro Ricardo 

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,48774c23446091861215523 


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

Re: [delphi-br] Re: Listar nomes de objetos de um Form

[Alessandro DUARTE de Moraes]

Sim, pode ser usado, mas para isso vamos ter que testar se o componente em 
questão é um TControl (ou descendente de TControl).
O código ficaria assim:

for i:=0 to NomeDoFormulario.ComponentCount-1 do
begin
  if Components[i] is TControl then
  begin
Memo1.Add(Components[i].Name+' - Tem ENABLED');
  end
  else
  begin
Memo1.Add(Components[i].Name+' - não tem enabled');
  end;
end;

No caso de querer utilizar o enabled, terias que fazer um typecast, dessa 
forma:  TControl(Componentes[i]).Enabled := True;

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: ricshark01 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 08, 2008 8:52 AM
  Subject: [delphi-br] Re: Listar nomes de objetos de um Form


  Aproveitando esse código, ou seja, usando Components[i].name tentei 
  verificar se existe a propriedade Enabled para habilitar ou 
  desabilitar o componente necessário e não encontrei essa propriedade.

  Este código poderia ser aproveitado para fazer isso ou tem outra 
  forma para habilitar ou desabilitar os componentes do Form?

  Grato,

  Ricardo.

  --- Em delphi-br@yahoogrupos.com.br, "Alessandro DUARTE de Moraes" 
  <[EMAIL PROTECTED]> escreveu
  >
  > 
  > for i:=0 to NomeDoFormulario.ComponentCount-1 do
  > begin
  > Memo1.Add(Components[i].Name+' - '+Components[i].ClassName+' -
  '+Components[i].Parent.Name);
  > end;
  > 
  > Coloquei no Memo1 o nome do componente, a classe dele e o nome 
  do "pai" dele.
  > Onde usei NomeDoFormulario, você pode usar Self caso for o mesmo 
  form atual.
  > 
  > 
  > Alessandro DUARTE de Moraes
  > A.C. Santa Casa do Rio Grande.
  > http://www.santacasarg.com.br
  > (53) 3233-7118
  > - Original Message - 
  > From: ricshark01 
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Monday, July 07, 2008 10:14 AM
  > Subject: [delphi-br] Listar nomes de objetos de um Form
  > 
  > 
  > Bom dia Galera,
  > 
  > Por gentileza, alguém poderia me informar como eu consigo listar 
  em um 
  > Memo,por exemplo, o nome de todos os objetos de um Form.
  > 
  > Na verdade, preciso saber disso para poder habilitar/desabilitar 
  os 
  > objetos conforme o usuário ter ou não acesso as funções daquele 
  objeto. 
  > Esses acessos estarão cadastrados em uma tabela do meu banco de 
  dados.
  > 
  > Grato pela atenção,
  > 
  > Ricardo.
  > 
  > 
  > 
  > 
  > -- 
  > E-mail Seguro Vetorial.net 
  > 
  > Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  > encaminhe para [EMAIL PROTECTED] 
  > 
  > Chave de Identificação: 54568,487216a6199241451621240 
  > 
  > 
  > [As partes desta mensagem que não continham texto foram removidas]
  >



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,487354eb637863768813542 


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

Re: [delphi-br] Onde tá o erro nesse ShellExecute?

[Alessandro DUARTE de Moraes]

Creio que precisas colocar todo o path para executar o regedit.exe: 
"c:\windows\regedit.exe".
Funciona com o command /c porque usando assim ele busca no path.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: silvaburro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 07, 2008 11:58 PM
  Subject: [delphi-br] Onde tá o erro nesse ShellExecute?


  var
  i : integer;
  begin
  i := ShellExecute(0,Nil,'regedit.exe',PChar('/E ' +
  ExpandFileName(PastaDesk)),PChar(SysWinDir),SW_HIDE);

  if i = 0 then
  begin
  RemoveRestricoes := True;
  ShowMessage('Backup criado com sucesso!');
  end
  else
  ShowMessage('Não foi possível criar um backup correto do "Registro do
  Windows"');
  end;

  Só dá a segunda mensagem e não cria o backup de jeito nenhum. Já
  pesquisei na internet e só encontro para salvar uma chave e nunca o
  regedit inteiro, essa foi a forma que encontrei no pau. Se colocar
  command.com /c dá certo se eu colocar o path em c:\ (acho que é por
  causa dos nomes longos). Estou pegando a pasta do Desktop + o nome do
  arquivo na variável PastaDesk.

  Ajudem por favor

  Silva B. Uri de Rodrigues
  [EMAIL PROTECTED]

  P.S. - Desculpem o e-mail, mas a porcaria do Yahoo só disponibilizava
  esse e eu precisava entrar neste grupo.



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4873464d935967215643955 


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

Re: [delphi-br] Listar nomes de objetos de um Form

[Alessandro DUARTE de Moraes]

for i:=0 to NomeDoFormulario.ComponentCount-1 do
begin
  Memo1.Add(Components[i].Name+' - '+Components[i].ClassName+' - 
'+Components[i].Parent.Name);
end;

Coloquei no Memo1 o nome do componente, a classe dele e o nome do "pai" dele.
Onde usei NomeDoFormulario, você pode usar Self caso for o mesmo form atual.


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
  - Original Message - 
  From: ricshark01 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 07, 2008 10:14 AM
  Subject: [delphi-br] Listar nomes de objetos de um Form


  Bom dia Galera,

  Por gentileza, alguém poderia me informar como eu consigo listar em um 
  Memo,por exemplo, o nome de todos os objetos de um Form.

  Na verdade, preciso saber disso para poder habilitar/desabilitar os 
  objetos conforme o usuário ter ou não acesso as funções daquele objeto. 
  Esses acessos estarão cadastrados em uma tabela do meu banco de dados.

  Grato pela atenção,

  Ricardo.



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,487216a6199241451621240 


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

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

[Alessandro Falanque]

..


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


Tente ler o rodapé das mensagens!

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



  

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

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

[Alessandro Falanque]

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

Obrigado!!



  

[delphi-br] Rad Studio 2007 erro em Webcontrols

[Alessandro da Silva Souza]

Boa noite, 

Ao tentar inserir o componente Multview do Webcontrol em uma página 
aspx o Rad Studio informa um erro: Error Creating Control : O 
tipo 'system.web.ui.webcontrols.multiview não tem uma propriedade 
pública denominada style. Podem me ajudar por favor, se alguém ja teve 
este problema.

Re: [delphi-br] Pegar Nº de Série do Processador

[Alessandro DUARTE de Moraes]

Bom e velho Google ... procurei por: serial number cpu

creio que este artigo que retornou resolve:
http://www.delphitricks.com/source-code/systeminfo/retrieve_cpu_information.html

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Leandro Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 25, 2008 8:00 AM
  Subject: [delphi-br] Pegar Nº de Série do Processador


  Bom dia Amigos

  Gostaria de saber se alguem tem alguma rotina para pega o nº de série 
  do processador do micro.

  Obrigado.

  Leandro Santos



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,48622582976623225916562 


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

Re: [delphi-br] Editor igual do delphi

[Alessandro DUARTE de Moraes]

Queres dizer o "Code Editor"?
Tem um componente que era da RALib, que agora faz parte da JediVCL que faz o 
serviço! Não lembro do nome dele, mas o "ícone" do componente é uma folha 
branco com um "PAS" por sobre.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Jean Barreiros 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 06, 2008 5:28 PM
  Subject: [delphi-br] Editor igual do delphi


  Olá pessoal,
  gostaria de saber se alguém sabe como criar um editor igual o do delphi?
   Jean Barreiros
  Programador/Web-Designer
  Delphi, C++, PHP, JavaScript
  FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
  msn: [EMAIL PROTECTED]
  e-mail: [EMAIL PROTECTED]

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
  http://br.mail.yahoo.com/

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como N�O-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identifica��o: 54568,48499e00509158789625666 


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

Re: RES: [delphi-br] Gravar e visualizar imagem do banco de dados

[Alessandro DUARTE de Moraes]

Este é o texto da discussão anterior que enviei. Para mais informações procure 
a thread "Grava imagens no Banco Interbase/Firebir"  ... essa minha mensagem 
foi postada dia 14/05/2008.
Aqui sugiro que as imagens sejam gravadas no próprio banco de dados. Indico 
sempre que seja utilizada a técnica de armazenar as imagens em uma tabela 
dedicada para isso. Assim, qualquer tabela que precise de imagens apenas terá 
um vínculo com a tabela de imagens.



Bem, mas para te ajudar mesmo, sugiro que trabalhes com vou mostrar. Para 
auxiliar nessa tarefa, criei duas funções, assim para todos os casos que 
tiverem imagens sempre elas. Neste caso uso os componentes da IBX, mas pode ser 
usado como exemplo para migrar para outros componentes (por isso é bom usar 
funções ...). Vale observar que trato aqui tanto para campos BLOB que receberão 
imagens ou textos.

procedure LeCampoBlob(Query: TIBQuery; Campo: string; Propriedade: TPersistent);
var TempStream : TStream;
begin
TempStream := Query.CreateBlobStream(Query.FieldByName(Campo),bmRead);
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.LoadFromStream(TempStream);
end else begin
TStrings(Propriedade).Clear;
TStrings(Propriedade).LoadFromStream(TempStream);
end;
TempStream.Free;
end;

procedure GravaCampoBlob(Query: TIBQuery; Parametro: string; Propriedade: 
TPersistent);
var TempStream : TMemoryStream;
begin
TempStream := TMemoryStream.Create;
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end else begin
TStrings(Propriedade).SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end;
TempStream.Free;
end;

A utilização fica assim:

ps: utilizar abaixo que a imagem estará numa variável chamada IMAGEM

1) Para inserir uma imagem no banco de dados use o seguinte esquema 
QInsert.SQL.Text := 'INSERT INTO tabela (codigo,nome,foto) VALUES 
(:codigo,:nome;:foto)';
QInsert.SQL.ParamByName('codigo').AsString := Edit1.Text;
QInsert.SQL.ParamByName('nome').AsString := Edit2.Text;
GravaCampoBlob(QInsert,'foto',IMAGEM);
QInsert.ExecSQL;

2) Para ler uma imagem do banco ...
QSelect.SQL.Text := 'SELECT nome,foto FROM tabela WHERE codigo=:codigo';
QSelect.SQL.ParamByName('codigo').AsString := Edit1.Text;
QSelect.Open;
Edit2.Text := QSelect.FieldByName('nome').AsString;
LeCampoBlob(QSelect,'foto',IMAGEM);
QSelect.Close;

Depois faça ...
COMPONENTE_IMAGE.Picture.BitMap.Assign(IMAGEM);

é mais ou menos isso ... adptei essas funções da minha classe de persistência 
... 

========

Espero que isso te ajude.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Carlos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, May 20, 2008 6:32 PM
  Subject: Re: RES: [delphi-br] Gravar e visualizar imagem do banco de dados


  Me desculpe a insistência, mas é que nunca precisei efetuar um 
  cadastro com foto, e que precisa-se ser exibido em um sistema em rede,
  mas como assim colocar a imagem em um caminho de rede comum?
  Sem querer ser abusado, o colega poderia ser um pouco mais específico?
  Quanto a sugestão do colega "Alessandro DUARTE de Moraes" compreendo 
  que alguns assuntos são maçantes, mas antes de mais nada, explico-lhe 
  que procurei na lista por assuntos relacionados, mas nada que pudesse 
  me ajudar, procurei no google também.
  Agradeço de antecipadamente por qualquer ajuda!
  Carlos

  --- Em delphi-br@yahoogrupos.com.br, "Davi Eduardo Borges Wall" 
  <[EMAIL PROTECTED]> escreveu
  >
  > Basta colocar a imagem em um caminho de rede comum para todas as 
  maquinas
  > 
  > 
  > 
  > De: delphi-br@yahoogrupos.com.br [mailto:delphi-
  [EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes
  > Enviada em: segunda-feira, 19 de maio de 2008 18:01
  > Para: delphi-br@yahoogrupos.com.br
  > Assunto: Re: [delphi-br] Gravar e visualizar imagem do banco de 
  dados
  > 
  > 
  > 
  > Este assunto foi discutido na semana passada. Sugiro que você dê 
  uma olhada pois foram abordados vários casos.
  > 
  > Alessandro DUARTE de Moraes
  > A.C. Santa Casa do Rio Grande.
  > http://www.santacasarg.com.br
  > 
  > - Original Message - 
  > From: Carlos 
  > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%
  40yahoogrupos.com.br> 
  > Sent: Monday, May 19, 2008 4:57 PM
  > Subject: [delphi-br] Gravar e visualizar imagem do banco de dados
  > 
  > Boa tarde a todos!!
  > Solicito ajuda aos colegas com mais este problema:
  > Tem um sistema que captura uma foto com o caminho do banco de dados 
  e 

Re: [delphi-br] Gravar e visualizar imagem do banco de dados

[Alessandro DUARTE de Moraes]

Este assunto foi discutido na semana passada. Sugiro que você dê uma olhada 
pois foram abordados vários casos.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Carlos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, May 19, 2008 4:57 PM
  Subject: [delphi-br] Gravar e visualizar imagem do banco de dados


  Boa tarde a todos!!
  Solicito ajuda aos colegas com mais este problema:
  Tem um sistema que captura uma foto com o caminho do banco de dados e 
  apresenta para o usuário. Até ai tudo bem, mas o problema é que este 
  sistema é usado na rede, e caso o usuário tente visualizar a imagem 
  em uma máquina diferente de onde estão as imagens, ocorre um erro 
  porque ele não encontra o caminho.
  Alguém poderia me dar uma ajuda neste sentido, com um tutorial, ou 
  link...por favor...
  Uso DBExpress, MySql 5.0, Delphi 7.

  //Este é o código para exibir a imagem
  dmCadastro.cdsFotos.Close;
  dmCadastro.cdsFotos.Params[0].Value :=
  dmCadastro.cdsEfetivorf.Value;
  dmCadastro.cdsFotos.Open;
  if not (dmCadastro.cdsFotos.IsEmpty) then
  imgFoto.Picture.LoadFromFile(dmCadastro.cdsFotosfoto.Value)
  else
  imgFoto.Picture := nil;

  //Este é o código que salva a imagem
  if dlgOpenPicFoto.Execute then
  begin
  dmCadastro.cdsFotos.Insert;
  dmCadastro.cdsFotosrf.Value :=
  dmCadastro.cdsEfetivorf.Value;
  imgFoto.Picture.LoadFromFile(dlgOpenPicFoto.FileName);
  dmCadastro.cdsFotos.FieldByName('Foto').AsString :=
  dlgOpenPicFoto.FileName;
  dmCadastro.cdsFotos.Post;
  end;

  Agradeço antecipadamente a atenção dispensada.
  att
  Carlos



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4831dc66542791418011894 


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

Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir

[Alessandro DUARTE de Moraes]

Vou me meter na conversa outra vez :)

O Bruno pode até dar o parecer sobre isto: eu sempre uso apenas uma tabela do 
banco exclusivamente para armazenar imagens, e as outras tabelas que 
precisariam de imagens (pessoa, imóvel, ...) faço uma ou mais referências à 
tabela de imagens.
Creio que isso poderia ajudar tb no caso de um problema de corrupção no banco.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Bruno Lichot 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, May 14, 2008 3:42 PM
  Subject: RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir


  Em 5 anos usando imagens no banco, e bases especificas de imagem começando em 
10gb, eu nunca tive corrupção de banco de dados em nenhum cliente, mas meu 
banco em termos de hardware e sofwtrae está sempre bem cuidado.

  Inclusive tenho alguns casos grandes em FireBird que funcionam a mais de 4 
anos perfeitamente.

  Abs

  BL

  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Alcistemas Informática
  Sent: quarta-feira, 14 de maio de 2008 15:07
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir

  Bruno, desculpe entrar no tópico.

  Tenho um projeto com 90.000 imagens para por isso em banco de dados,
  quanto a desempenho, não vejo problema algum, é só tomar alguns cuidados nos 
selects e etc.. epronto.

  O que me preocupa é em caso se corromper o banco de dados,
  isso poderia dificultar ainda mais o processo de recuperação do banco de 
dados ?

  Alcione Guimarães
  (11)9515-8707

  - Original Message -
  From: Bruno Lichot
  To: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
  Sent: Tuesday, May 13, 2008 5:31 PM
  Subject: RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir

  Meus sistemas e este exemplo estão preparados para trabalhar somente em rede, 
e com distribuição geográfica.

  Meus sistema trabalham com persistência de imagens sempre no banco, e a 
maioria são ERPs de missão crítica. E sempre em redes e maioria com 
distribuição geográfica através de vpn, link dedicado e internet, sendo que a 
maioria é pela internet :D

  Abs

  BL

  From: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br> 
[mailto:delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>] On 
Behalf Of Ricardo Cabral
  Sent: terça-feira, 13 de maio de 2008 17:22
  To: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
  Subject: RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir

  Bruno,

  E se o sistema for em rede, será se o banco não ficaria muito lento?

  Bruno Lichot <[EMAIL 
PROTECTED]<mailto:bruno.lichot%40codegear.com><mailto:bruno.lichot%40codegear.com>>
 escreveu:
  No meu link de downloads gratuitos(HTTP://cc.codegear.com/author/795118), no 
primeiro exemplo, no cadastro de cliente eu trabalho com fotos dos clientes.

  E está funcional e otimizado a forma de se trabalhar com persistência no 
banco de imagens.

  Eu apenas recomendaria, que no caso de produção, não use a mesma tabela de 
clientes para armazenar a foto, mas que crie uma tabela clientes foto, não 
somente pela melhora do armazenamento, mas também pela organização e dificulta 
que algum estagiário desavisado ou programador inexperiente aplique um select * 
na tabela de clientes e trafegue aquele montão de fotos desnecessariamente :D.

  Sobre pesar no banco, olha, é claro que bancos de dados com imagens o fazem 
crescer mais, mas o fato do banco ficar lento, está mais relacionado com a sua 
construção, manutenção e configuração do que conter fotos ou não. Um banco de 
dados sem fotos corre os mesmos riscos de ser lento.

  Abs

  BL

  From: 
delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br><mailto:delphi-br%40yahoogrupos.com.br>
 
[mailto:delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br><mailto:delphi-br%40yahoogrupos.com.br>]
 On Behalf Of rafaelpinto19
  Sent: terça-feira, 6 de maio de 2008 19:17
  To: 
delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br><mailto:delphi-br%40yahoogrupos.com.br>
  Subject: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir

  Alessandro, Ricardo e Bruno e aos demais membros do Grupo, quero
  agradecer por tentarem me expilcar e ajudar a resolver este problema,
  Estou em fase de aprendizagem ainda. Eu tentei um código, mas não deu
  certo. Mas perece q eu estou no caminho certo. No Primeiro momento eu
  até pensei que consegui gravar a imagen capturada, pensei em ter
  conseguindo resolver o problema. Sempre quando faço uma consulta para
  retornar a foto da pessoa resgitrada no Sistema, sempre aparece a foto
  da "última" imagem capturada. Ou seja...se eu registrei João, Maria e
  José respectivamente e capturei a foto de cada um 

Re: [delphi-br] Seria isso um Bug no Delphi?

[Alessandro DUARTE de Moraes]

Cara, tô vendo muita gente falar de "bug no Delphi" ... seguinte, uma coisa é 
ter um bug na "ferramenta" de desenvolvimento, isto é, a IDE do Delphi ... 
outra coisa é falar da linguagem, compilador. Creio que quem tem reclamado de 
bugs no "DELPHI" nunca usou o MS Visual Basic como eu tive que uma vez engolir 
(graças a Deus foi por apenas 4 meses, o que pareceu uma verdadeira eternidade).
A IDE do Delphi até pode ter alguns bugs ... componentes até podem ter bugs 
(para isso basta colocar a mão na massa e resolver - como fiz com alguns 
componentes da Indy que não estavam se comportando adequadamente). Mas a 
linguagem Delphi - bom e velho Object Pascal - nesta eu não vejo problema 
algum, exceto casos de gerencimento de memória, que ainda é algo nebuloso no 
Windows.

Francamente, se o sistema de controla a luz fosse desenvolvido em Delphi, creio 
que seria mais fácil prever um APAGÃO hehehehe

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, May 13, 2008 4:53 PM
  Subject: Re: [delphi-br] Seria isso um Bug no Delphi?


  Bom, se tiver um sistema que controle a luz, e este sistema for desenvolvido
  em delphi, é bem provável..

  []s

  2008/5/13 <[EMAIL PROTECTED]>:

  > Não é João, é que gato-escaldado-tem-medo-de-agua-fria.
  > Então, de tanto bug, ja encontrado e que acabam acompanhando novas
  > versões, se a luz da sala pisca o culpado é o BUG do DELPHI heheheh
  >
  > []s
  >
  > Luiz Escobar - Analista/Desenvolvedor:
  > WEB - HTML/JavaScript/PHP/MySQL
  > WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
  > SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
  > HARBOUR --
  > Borland C++ 5.5.1 (32 bit)
  > Harbour Devel build 1.1-1 Intl.
  > xHarbour Compile build 1.1.0 (Simplex)
  > Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31
  > --
  >
  > From: Joao Morais
  > Sent: Tuesday, May 13, 2008 4:36 PM
  >
  > To: delphi-br@yahoogrupos.com.br 
  > Subject: Re: [delphi-br] Seria isso um Bug no Delphi?
  >
  > Fellipe Henrique wrote:
  > > Olá amigos, Tenho um FormBasico, que nele, tenho as Units que declarei,
  > > quando herdo um Form dele, teoricamente, as Units não deveriam ir
  > também?
  > >
  > > Melhor explicando... tenho uma função na unit uFuncoes no FrmBasico,
  > > inclui no uses a uFuncoes, crio um outro form herdado dele, e quero usar
  > a
  > > função novamente, eis que dá erro na compilação, sou obrigado a
  > "redeclarar"
  > > a unit uFuncoes.
  > >
  > > Se estou herdando, não deveria vir tudo?
  >
  > Não. Como diz o filósofo:
  > "uma coisa é uma coisa, outra coisa é outra coisa."
  >
  > E btw que mania vocês têm de falar -- tudo é um possível bug do Delphi.
  >
  > --
  > Joao Morais
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

  Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br.

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4829f1ae981041622916136 


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

Re: [delphi-br] ON/OFF TOPIC

[Alessandro DUARTE de Moraes]

Sim ... um exemplo é a ZeosLib (para acesso ao Mysql, Firebird, ...) mas é 
claro que o componente tem que ter uma versão para FreePascal.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: [EMAIL PROTECTED] 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, May 08, 2008 12:14 PM
  Subject: [delphi-br] ON/OFF TOPIC


  No Lazarus (FreePascal) , posso usar componentes de terceiros ?

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,482318c1767149480442451 


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

Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir

[Alessandro DUARTE de Moraes]

Teu problema para recuperar a imagem está na linha em negrito que coloquei 
abaixo:

procedure TProcFoto.DBGrid1DblClick(Sender: TObject);
begin
  Principal.Edit1.Text := Query1.fieldbyname('CODIGO').AsString;
  Principal.Edit2.Text := Query1.fieldbyname('NOME').AsString;
  Principal.imgFoto.Picture.Bitmap.LoadFromFile(Principal.Camera1.FichierImage);
  close;
end;

Neste código estás pegando a imagem do arquivo e não do banco de dados.


Bem, mas para te ajudar mesmo, sugiro que trabalhes com vou mostrar. Para 
auxiliar nessa tarefa, criei duas funções, assim para todos os casos que 
tiverem imagens sempre elas. Neste caso uso os componentes da IBX, mas pode ser 
usado como exemplo para migrar para outros componentes (por isso é bom usar 
funções ...). Vale observar que trato aqui tanto para campos BLOB que receberão 
imagens ou textos.

procedure LeCampoBlob(Query: TIBQuery; Campo: string; Propriedade: TPersistent);
var TempStream : TStream;
begin
  TempStream := Query.CreateBlobStream(Query.FieldByName(Campo),bmRead);
  if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.LoadFromStream(TempStream);
  end else begin
TStrings(Propriedade).Clear;
TStrings(Propriedade).LoadFromStream(TempStream);
  end;
  TempStream.Free;
end;

procedure GravaCampoBlob(Query: TIBQuery; Parametro: string; Propriedade: 
TPersistent);
var TempStream : TMemoryStream;
begin
  TempStream := TMemoryStream.Create;
  if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
  end else begin
TStrings(Propriedade).SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
  end;
  TempStream.Free;
end;

A utilização fica assim:

ps: utilizar abaixo que a imagem estará numa variável chamada IMAGEM

1) Para inserir uma imagem no banco de dados use o seguinte esquema 
QInsert.SQL.Text := 'INSERT INTO tabela (codigo,nome,foto) VALUES 
(:codigo,:nome;:foto)';
QInsert.SQL.ParamByName('codigo').AsString := Edit1.Text;
QInsert.SQL.ParamByName('nome').AsString := Edit2.Text;
GravaCampoBlob(QInsert,'foto',IMAGEM);
QInsert.ExecSQL;

2) Para ler uma imagem do banco ...
QSelect.SQL.Text := 'SELECT nome,foto FROM tabela WHERE codigo=:codigo';
QSelect.SQL.ParamByName('codigo').AsString := Edit1.Text;
QSelect.Open;
Edit2.Text := QSelect.FieldByName('nome').AsString;
LeCampoBlob(QSelect,'foto',IMAGEM);
QSelect.Close;


Depois faça ...
COMPONENTE_IMAGE.Picture.BitMap.Assign(IMAGEM);


é mais ou menos isso ... adptei essas funções da minha classe de persistência 
... 

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: rafaelpinto19 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, May 06, 2008 7:16 PM
  Subject: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir


  Alessandro, Ricardo e Bruno e aos demais membros do Grupo, quero
  agradecer por tentarem me expilcar e ajudar a resolver este problema,
  Estou em fase de aprendizagem ainda. Eu tentei um código, mas não deu
  certo. Mas perece q eu estou no caminho certo. No Primeiro momento eu
  até pensei que consegui gravar a imagen capturada, pensei em ter
  conseguindo resolver o problema. Sempre quando faço uma consulta para
  retornar a foto da pessoa resgitrada no Sistema, sempre aparece a foto
  da "última" imagem capturada. Ou seja...se eu registrei João, Maria e
  José respectivamente e capturei a foto de cada um deles, mesmo eu
  consultando o João, sempre me rotorna a imagem do José, por ter sido o
  "último" quem o sistema capturou a imagem. Postei esse meu código para
  ver onde eu estou errando e ver se vcs conseguem me ajudar a resolver
  este problema.

  procedure TPrincipal.BtnGravarClick(Sender: TObject);

  begin
  //imgFoto.Visible:= True;
  imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('insert into VISITA(CODIGO,NOME,FOTO) values
  (:CODIGO,:NOME,:FOTO)');

  Query.ParamByName('FOTO').LoadFromFile(Camera1.FichierImage,ftBlob);
  //:= imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
  Query.ParamByName('CODIGO').AsString := Edit1.Text;
  Query.ParamByName('NOME').AsString := Edit2.Text;
  Query.ExecSQL;
  Query.Transaction.Commit;
  Query.Transaction.Active := true;
  end.

  Onde: 

  . imgFoto = TImage(Image), é o 6º componente da palheta Aditional no
  Delphi e responsável pela visualização de imagens, fotos e etc.
  . Camera1 =TCamera(Câmera), É o único componente da palheta Yves e é
  responsável pela visualização de imagens de uma Webcam ou Câmeras
  digitais. Nela conseguimos fazer a devidas e necessárias capturas. 

  e esse é o código que eu uso na para visualizar

Re: [delphi-br] Gravar imagens no Banco Interbase/Firebir

[Alessandro DUARTE de Moraes]

Essa discussão é bem relevante, então cito alguns pontos a favor:

1) Para acessos remotos, isto é, o servidor está em uma localidade e o cliente 
em outra, não vejo uma forma mais coerente do que ter a imagem tb no banco de 
dados
2) Menos "gambiarra" qdo for executar uma select para relatórios ...

Para completar, sugiro que seja criada uma tabela no banco que seja dedicada a 
armazenar imagens, apenas com 2 campos: id INTEGER e imagem BLOB
e nas tabelas que são necessárias ter uma ou mais imagens basta colocar campos 
referenciando ao id desta tabela de imagens.

Tive experiências traumáticas com as imagens em uma pasta ... mas uma solução 
bem elaborada pode dar certo, exceto no caso do item 1 que citei acima.

Abraços,

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Ricardo Cabral 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, May 05, 2008 2:02 PM
  Subject: RE: [delphi-br] Gravar imagens no Banco Interbase/Firebir


  Bruno,

  Gravando no banco não deixaria o mesmo muito "pesado" ?



  Bruno Lichot <[EMAIL PROTECTED]> escreveu:
  Eu prefiro gravar imagens no banco, é mais rápido de trabalhar e no meu modo 
de ver mais seguro também.

  Abs

  BL

  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Ricardo Cabral
  Sent: segunda-feira, 5 de maio de 2008 13:34
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Gravar imagens no Banco Interbase/Firebir

  Acho que seria mais interessante gravar somento o caminho da imagem no BD e 
gravar a imagem numa pasta.

  rafaelpinto19 <[EMAIL PROTECTED]<mailto:rafaelpinto%40cdsol.com.br>> escreveu:

  Olá galera,

  Alguém poderia me explicar como gravar imagens no Banco de
  dados pelo delphi, Estou usandon o componente Tcamera para Visualizar
  a imagem pela webcam e o componente TImage para Capturar. Agora salvar
  a imagem no Banco eu nnão sei ainda. Se tive rum rotina ou um código
  simples. Eu vou agradecer bastante. Obrigado pela atenção!!!

  Abraços,

  Ricardo Cabral

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!

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

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

  Abraços,

  Ricardo Cabral

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,481f3db9196851913172569 


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

Re: [delphi-br] Gerador de Relatorios..

[Alessandro DUARTE de Moraes]

Sugiro o FastReport, que inclusive tem uma versão Free que é muito boa.

www.fast-report.com

Eu utilizo a versão Free já faz tempo e não tenho do que me queixar.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Vinicius da Silva Pinto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 29, 2008 1:12 PM
  Subject: [delphi-br] Gerador de Relatorios..


  Salve a todos...
  Alguem poderia me indicar um gerador de relatorios que seja similar ao
  ReportBuilder,
  onde eu posso comprar, se é free ou não...
  pois estou tendo dificuldade de comprar o mesmo com o representante aqui no
  Brasil.
  É para ser utilizado com D7 e FB, não estou conseguindo tirar muito proveito
  do Rave.

  Agradeço qualquer dica e sugestão...

  Vinicius.
  Tel (21) 8816-2404



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4817513c952341644335774 


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

Re: [delphi-br] query

[Alessandro DUARTE de Moraes]

Então queres que retorne valores que não se relacionam numa mesma query?

Buenos, talvez seja isso então:


SELECT '01' as CODIGO, desc AS NOME, vlr AS VALOR FROM tabela1
WHERE condição1
UNION
SELECT '02' as CODIGO, nome AS NOME, vlr_final AS VALOR FROM tabela2
WHERE condição2


Isso seria uma forma de unir 2 querys em uma só. Mas para isso os nomes das 
colunas precisam ser os mesmos, por isso utilizei o AS ...


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Eduardo Oliveira silva 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 22, 2008 1:45 PM
  Subject: Re: [delphi-br] query


  è isso mesmo, mais se eu tiver uma query1 e uma query2.
  são tabelas diferentes.

  Em 01/05/08, Alcistemas Informática <[EMAIL PROTECTED]> escreveu:
  >
  > até pode,
  >
  > porém a query não pode ter campos adicionados nela.
  >
  > segundo antes de usar a query tem que limpa-la.
  > ex:
  >
  > var
  >
  > grupo_cli:integer;
  >
  > begin
  >
  > query1.close;
  > query1.sql.clear;
  > query1.sql.add('select * from clientes');
  > query1.open;
  >
  > grupo_cli := query1.fieldbyname('GRUPO').value;
  >
  > EditCodigo.text := query1.fieldbyname('codigo').text;
  > EditNome.text := query1.fieldbyname('Nome').text;
  >
  > query1.close;
  > query1.sql.clear;
  > query1.sql.add('select descricao from grupos_de_clientes where codigo
  > =:busca');
  > query1.parameters.parambyname('busca').value := grupo_cli;
  > query1.open;
  >
  > EditGrupo.text := query1.fieldbyname('descricao').text;
  >
  > se for algo parecido está aí..
  >
  > - Original Message -
  > From: Eduardo Oliveira silva
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Tuesday, April 22, 2008 10:11 AM
  > Subject: [delphi-br] query
  >
  > Pessoa. Eu posso usar duas query em uma só função.
  > ex.
  > no meu formulário tem um botão que pesquisa um campo e joga o
  > resultado em algumas label.
  >
  > uso uma adoquery para fazer isso. Posso usar mais uma para buscar
  > dados em uma outra tabela que não se relaciona, como ficaria o código.
  > Já tentei mais sempre dá erro.
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,480e1b18223227374815427 


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

Re: [delphi-br] query

[Alessandro DUARTE de Moraes]

Pelo que entendi queres executar 2 query's, por que segundo o que disseste não 
há relacionamentos entre uma e a outra.
Se você faz isso ao pressionar um botão, então execute uma query, pegue os 
resultados e depois execute a outra ... simples assim.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Eduardo Oliveira silva 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 22, 2008 10:11 AM
  Subject: [delphi-br] query


  Pessoa. Eu posso usar duas query em uma só função.
  ex.
  no meu formulário tem um botão que pesquisa um campo e joga o
  resultado em algumas label.

  uso uma adoquery para fazer isso. Posso usar mais uma para buscar
  dados em uma outra tabela que não se relaciona, como ficaria o código.
  Já tentei mais sempre dá erro.


   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,480deefe162185532659233 


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

Re: [delphi-br] Campos incompatíveis.

[Alessandro DUARTE de Moraes]

Qual método de acesso (componente) estás utilizando?

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Pedro Henrique 
  To: Pedro Henrique 
  Sent: Friday, April 11, 2008 4:28 PM
  Subject: [delphi-br] Campos incompatíveis.


  Boa tarde, 

  eu trabalho com dois bancos, Firebird 1.5 e Sql Server 2005.
  Hoje estava testando algumas rotinas convertidadas para o Delphi 2007 e me
  deparei com este erro: TYPE MISMATCH FOR FIELD 'DESCRIÇÃO', EXPECTING:
  STRING ACTUAL: WIDESTRING, eu estava acessando o sistema pelo Sql Server, e
  no Firebird ele traz todos os campos varchar como TString e no Sql ele traz
  como TWildString, como faço para o delphi tratar os dois da mesma forma?

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ffbcdd851921247820763 


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

Re: [delphi-br] <<< Nível Master vai enc arar? >>>

[Alessandro DUARTE de Moraes]

Se estás utilizando herança para os forms MDI Child então não será difícil. No 
"pai" dos Child ...
crie duas variaveis no private: Altura, Largura : integer;
escreva no OnShow: Altura := Heigth; Largura := Width;
escreva no OnResize: Width := Largura; Altura := Heigth;

Isso garantirá que mesmo permitindo o redimensionamento, não será possível 
mudar o tamanho ...

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Juliano Silva - Yahoo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 07, 2008 8:52 AM
  Subject: [delphi-br] <<< Nível Master vai encarar? >>>


  Boa tarde pessoal

  Estou com o seguinte problema, tenho uma aplicação MDI, não posso deixar
  que os Forms filhos sejam redimencionados, para isso tenho que deixar os
  Forms com a propriedade BorderStyle = bsSingle, no entanto o sistema não
  pode ter este tipo de borda (o único que ví que consegue bloquear o
  redimencionamento do Form em aplicações MDI), o sistema tem que ter bordas
  do tipo bsDialog agora o meu problema, com a borda BSDialog é possível
  redimencionar o Form, tenho que bloquear isso... estou tentando no momento
  mas sem sucesso, alguem pode me ajudar?

  att.

  Juliano Silva


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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47fa0afe897591736616566 


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

Re: [delphi-br] [OOF-TOPIC]

[Alessandro DUARTE de Moraes]

Caraca, para isso terias que efetuar alguns cálculos referentes a ano bissexto.

Não vele tentar mostra dentro do Excel? Daí tu podes colocar o seguinte:

celula A1: informar a data inicial - formato Data
celula B1: informa a data final - formato Data
celula A2: =A1 (fórmula) - formato Numérico
celula B2: =B1 (fórmula) - formato Numérico

Daí podes fazer B2-A2 ... podes explicar que as datas no Excel começam em 
01/01/1900, isto é, o número 1 corresponde a 01/01/1900, o 2 seria 02/01/1900 e 
assim por diante.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Luciano Topolniak 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, April 03, 2008 10:26 AM
  Subject: [delphi-br] [OOF-TOPIC]


  Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de
  vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas
  datas para alguns usuários do sistema.

  21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que
  retorne facilmente o número de dias existentes entre essas duas datas?

  Lembrando mais uma vez pessoal, é na caneta, nada de programação. 

  Obrigado pela atenção.

  []'s

  Topolniak.

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de Adjalma Costa
  Enviada em: quinta-feira, 3 de abril de 2008 08:16
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Delphi com Excel

  Amigos da lista,

  Estou exportando dados para planilhas do Excel, usando os componentes
  "tExcelApplication" E "ExcelWorksheet".

  Gostaria de saber como fazer para enviar células mescladas.

  Se alguém puder me ajudar ficarei muito grato.

  sds
  Adjalma

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
  armazenamento! 

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

  __ Informação do NOD32 IMON 1928 (20061219) __

  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]



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47f4ead9912477643768508 


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

Re: [delphi-br] Ajuda em select

[Alessandro DUARTE de Moraes]

Outra dica para achar mais fácil os prováveis repetidos:

select
  cliente.dt_nascimento,
  SUBSTRING(cliente.nome FROM 1 FOR 5) AS nome5,
  count(*) as qtd
from cliente
group by 1,2
having count(*)>1
order by 3 desc


Dessa forma vc vai agrupar além da data de nascimento, também pela inicial do 
nome (5 primeiro caracteres). Para evitar que dois clientes que tenham a mesma 
data de nascimento com nomes completamente diferentes não entrem na jogada. 
Esse testa ajuda em casos como este:

1) ALESSANDRO DUARTE DE MORAES - 29/06/1973
2) ALESSANDRO D. DE MORAES - 29/06/1973
3) FULANO DE TAL - 26/06/1973

nesse caso o 1 e o 2 seriam agrupados juntos e o 3 separado.

Espero ter ajudado.


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, April 03, 2008 10:13 AM
  Subject: RE: [delphi-br] Ajuda em select



  Quando se usa a cláusula IN com uma consulta SQL, a mesma deve retornar 
apenas uma coluna, e vc está retornando duas. Ao invés de IN, tente usar EXISTS.
  Sds.

  

  To: delphi-br@yahoogrupos.com.br
  From: [EMAIL PROTECTED]
  Date: Thu, 3 Apr 2008 10:00:57 -0300
  Subject: [delphi-br] Ajuda em select

  Pessoal,

  Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir
  clientes repetidos nesta tabela. Através do select abaixo trago as
  possívies ocorrências que provavelmente estão repetidos.

  select cliente.dt_nascimento, count(cliente.id_cliente)
  from cliente
  group by cliente.dt_nascimento
  having count(cliente.id_cliente)> 1
  order by count(cliente.id_cliente)

  Necessito de um outro select para listar os nomes e fazer uma
  conferência e excluir os repedidos de fato, algo do tipo:

  select cliente.nome from cliente
  where cliente.dt_nascimento in (select cliente.dt_nascimento,
  count(cliente.id_cliente)
  from cliente
  group by cliente.dt_nascimento
  having count(cliente.id_cliente)> 1
  order by count(cliente.id_cliente))

  Mais é exibida a seguinte mensagem de erro:

  Invalid token.
  Dynamic SQL Error.
  SQL error code = -104.
  Invalid command.
  count of column list and variable list do not match.

  Agradeço antecipadamente a ajuda dos colegas.
  Um forte abraço,

  Odail

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

   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47f4d865618711731228608 


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

Re: [delphi-br] Re: Capturar comandos do Dos

[Alessandro DUARTE de Moraes]

CARACA!!! Já faz um bom tempo que tava procurando por isso ... é bem possível 
que não estava sabendo procurar (hahahahaha).
Vou testar ... muito bom mesmo, valeu Walter!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Walter Chagas (Yahoo) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 01, 2008 3:55 PM
  Subject: [delphi-br] Re: Capturar comandos do Dos


  Minha gente,

  Pesquisando na seção de arquivos da lista sobre como capturar a saída 
  do console e jogá-lo em um Memo, me deparei com esta thread já antiga 
  sobre o assunto. E, pesquisando por aí encontrei estas três perolas 
  DA HORA pra ninguem colocar defeito:

  http://www.delphi3000.com/articles/article_2112.asp

  http://www.delphi3000.com/articles/article_2298.asp

  http://www.delphi3000.com/articles/article_3361.asp

  E antes que alguém fale, FUNCIONAM!

  []s

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

  --- Em delphi-br@yahoogrupos.com.br, "Leandro Carbonera" 
  <[EMAIL PROTECTED]> escreveu
  >
  > E ai galera
  > 
  > Alguem sabe se é possivel capturar o resultado de um comando de DOS 
  e joga-lo num memo como por exemplo você executar via delphi um 
  comando do tipo Winexec('dir',sh_Shownormal) e jogar o resultado num 
  memo
  > 
  > [As partes desta mensagem que não continham texto foram removidas]
  >



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47f28542605551696283040 


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

Re: [delphi-br] Componentes - Posicionamento de TImage

[Alessandro DUARTE de Moraes]

1) te aconselho a tirar o "LogoPJ.Parent := Self;" de dentro AtualizarLogotipos 
... não DEVE ser necessário;
2) Tente atribuir a imagem utilizando LogoPJ.Picture.Assign( Picture )

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Paulo Jorge 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 28, 2008 4:17 PM
  Subject: [delphi-br] Componentes - Posicionamento de TImage


  Criei um componente para, dentre outras funções, exibir os logotipos
  da empresa. Acontece que o logotipo LogoPJ (Timage) não fica
  posicionado corretamente quando em runtime. Em design time está perfeito.
  Constatei que o Parent a ele atribuído durante a fase de design, se
  perde durante a execução, tornando-se nulo. Uma vez sem parent, perde
  a referência de posicionamento. Como resolver isso?

  Segue o código:

  unit PJSet;

  interface

  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs,
  ExtCtrls, stdctrls, IniFiles, dbtables, ShellAPI, ComCtrls;

  type
  TPJLogo = (atPJPequeno, atPJNormal, atPJGrande, atPJNenhum);

  type
  TPJSet = class(TPanel)
  private
  { Private declarations }
  sDelphiAtivo : boolean;
  sMContasPresente: boolean;
  sMContasExeName : string;
  sEmiteEtiqueta, sMultiplaInstancia : boolean;
  sServidor, sRegistrado : boolean;
  sLogotipoTela, sLogotipoImp, sLogotipoEtiq : string;
  sUsuario, sComplemento,sUsuAtual, sNivelUsuAtual : string;
  LogoTela, LogoPJ : TImage;
  PanelClient, PanelRight, PanelLogoPJ : TPanel;

  protected
  { Protected declarations }

  public
  { Public declarations }
  {sobregravando o método Create}
  constructor Create(AOwner: TComponent); override;
  //destructor Destroy; override;
  function ConfigurarSistema : boolean;
  function ConfigurarLogotipo : boolean;
  function ConfigurarTituloRelatorio: boolean;
  function ExecutarArquivo(const NomeDoArquivo, Parametros,
  DiretorioPadrao: string;
  ModoDeExibicao: Integer): THandle;
  procedure VerificarUsuario;
  procedure AtualizarLogotipos;
  procedure VerificarSistemas;
  property LogotipoTela : string read sLogotipoTela write sLogotipoTela;
  property LogotipoImp : string read sLogotipoImp write sLogotipoImp;
  property LogotipoEtiq : string read sLogotipoEtiq write sLogotipoEtiq;
  property UsuarioAtual : string read sUsuAtual write sUsuAtual;
  property NivelUsuarioAtual : string read sNivelUsuAtual write
  sNivelUsuAtual;
  property MContasPresente : boolean read sMContasPresente write
  sMContasPresente;
  property MContasExeName : string read sMContasExeName write
  sMContasExeName;
  property DelphiAtivo : boolean read sDelphiAtivo write sDelphiAtivo;

  published
  { Published declarations }
  property _Servidor : boolean read sServidor write sServidor;
  property _Usuario : string read sUsuario write sUsuario;
  property _Complemento : string read sComplemento write sComplemento ;
  property _Registrado : boolean read sRegistrado write sRegistrado;
  property _EmiteEtiqueta : boolean read sEmiteEtiqueta write
  sEmiteEtiqueta;
  property _MultiplaInstancia : boolean read sMultiplaInstancia
  write sMultiplaInstancia;
  end;


  procedure Register;

  implementation
  {$R PJSET.RES}

  Uses MTitcfg, MLogocfg, PJConfig;

  function TPJSet.ExecutarArquivo(const NomeDoArquivo, Parametros,
  DiretorioPadrao: string;
  ModoDeExibicao: Integer): THandle;
  //Parâmetro 1 - Arquivo;
  //Parâmetro 2 - Parâmetros;
  //Parâmetro 3 - Diretório Default;
  //Parâmetro 5 - Estado da Janela;
  var
  zFileName, zParams, zDir: array[0..149] of Char;
  begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
  StrPCopy(zFileName, NomeDoArquivo), StrPCopy(zParams, Parametros),
  StrPCopy(zDir, DiretorioPadrao), ModoDeExibicao);
  end;

  function TPJSet.ConfigurarLogotipo : boolean;
  begin
  if _Registrado then
  begin
  Application.CreateForm(TFormLogotipos, FormLogotipos);

  if not _EmiteEtiqueta then
  begin
  FormLogotipos.ComboBox1.Items.Delete(2);
  FormLogotipos.GroupBox3.Visible := False;
  FormLogotipos.BitBtnOK.Top := 190;
  FormLogotipos.BitBtnCancel.Top := 190;
  FormLogotipos.Height := 250;
  end;

  FormLogotipos.ShowModal;
  if FormLogotipos.ModalResult = mrOK then
  begin
  Result := True;
  end
  else
  Result := False;
  FormLogotipos.Free;
  end
  else
  begin
  MessageDlg('Somente usuários registrados podem alterar essa
  configuração. '+
  'Veja como registrar esse Sistema no item de menu
  "Ajuda/Registrar".', mtWarning,
  [mbOk], 0);
  Result := False;
  end;
  end;

  function TPJSet.ConfigurarSistema: boolean;
  begin
  if _Registrado then
  begin
  Application.CreateForm(TFormPJConfig,FormPJConfig);
  FormPJConfig.ShowModal;
  if FormPJConfig.ModalResult = mrOK then
  begin
  Result := True;
  end
  else
  Result := False;
  FormPJConfig.Free;
  end
  else
  begin
  MessageDlg('Somente usuários registrados podem alterar essa
  configu

Re: [delphi-br] Organizar arquivos

[Alessandro DUARTE de Moraes]

Sim, podes. A única restrição é que Units (*.pas) e Forms (*.dfm ou *.xfm) irão 
ficar no mesmo diretório.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Edmilson Pontes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 28, 2008 1:03 PM
  Subject: [delphi-br] Organizar arquivos


  Colegas,
  Então não tem como configurar para que cada tipo de arquivo fique numa
  pasta?

  Edmilson Pontes

  Em 27/03/08, Joao Morais <[EMAIL PROTECTED]> escreveu:
  >
  > Jackson Gomes - Tools&Comps wrote:
  > > Outros .PAS e demais arquivos podem ficar em diretórios diferentes, mas
  > tem que
  > > estar no search path do projeto ou no global.
  >
  > Apenas se os arquivos não fazem parte do projeto.
  >
  > --
  > Joao Morais
  >
  > 
  >

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ed1952596582308070739 


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

Re: [delphi-br] Como criar um property somente leitura?

[Alessandro DUARTE de Moraes]

Olha direito ... basta a property não ter o write, que foi o que o Jackson te 
mostrou

property QUALQUERNOME: string READ GetQUALQUERNOME;  // sem WRITE ...

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 27, 2008 4:09 PM
  Subject: Re: [delphi-br] Como criar um property somente leitura?


  Olá amigo Jackson, o que eu quero é criar uma propriedade ReadOnly e não uma
  propriedade chamada SomenteLeitura! :o)

  []s

  Em 27/03/08, Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]>
  escreveu:
  >
  >
  > > Olá amigos, como eu crio um Property, somente leitura em minha classe?
  >
  > public
  > property SoLeitura: String read GetSoLeitura;
  > end;
  >
  > Jackson Gomes
  > Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
  > Web Site: http://www.toolsandcomps.com
  > Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
  > e-mail: [EMAIL PROTECTED] 
  > Fone: 27 3389 1138 - 8811 0324
  > --
  > Devhost - Webhost para desenvolvedores Borland
  > http://www.devhost.com.br
  > [EMAIL PROTECTED] 
  >
  > 
  >

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ebf1de332496391796914 


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

Re: [delphi-br] Adicionar evento a um componente

[Alessandro DUARTE de Moraes]

Crie um procedure como o mesmo escopo do evento desejado. Depois basta associar.

Exemplo:

TForm1 = class(TForm)
  Button1: TButton;
  procedure FormCreate(Sender: TObject);
public
  procedure MeuClickDoBotao(Sender:TObject);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := MeuClickDoBotao;
end;

procedure TForm1.MeuClickDoBotao(Sender:TObject);
begin
// código
end;


Aqui criei um procedure para ser executado no click do botão, e atribui ele 
manualmente no FormCreate.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Alcistemas Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 27, 2008 11:25 AM
  Subject: [delphi-br] Adicionar evento a um componente


  Como faço para adicionar via código, eventos a um componente..

  ex:

  function imprime_grid(Grid :TDBGrid):String;
  var
  RV : TRvSystem;
  begin
  RV := TRvSystem.Create(Application);

  /// A QUI PRECISO ADICIONAR O EVENTO ONPRINT.. ALGUNS CÓDIGOS DO COMPONENTE 
RV (Tipo Rave Reports)
  /// pois é nele que se escreve o código a ser impresso no relatório

  RV.Execute;
  end;

  Alcione Guimarães
  e-mail: [EMAIL PROTECTED]
  Cel: 11-9515-8707
  SIP VOIP: 3301040
  SKYPE: alcistemas
  msn: [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ebdf7e339411565664877 


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

Re: [delphi-br] O porque desse erro: Ambiguous overloaded call to 'Localizar' ?

[Alessandro DUARTE de Moraes]

É simples amigo, as duas funções possuem o primeiro parâmetro integer e o 
segundo string ... como o compilador vai saber qual das duas deve chamar???

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 27, 2008 2:32 PM
  Subject: [delphi-br] O porque desse erro: Ambiguous overloaded call to 
'Localizar' ?


  Olá amigos, tenho as seguintes funções:

  function Localizar(vArea: integer; vValorLocalizar: string; const
  vExibeResult: Boolean = False): Boolean; overload;
  function Localizar(Area: integer; const SQL: string = ''; const
  CampoLocalizar: string = ''; const ValorLocalizar: string = ''; const
  ExibeResult: Boolean = False): Boolean; overload;

  Quando vou usar a função:

  Localizar(0, (Sender as TJvDBComboEdit).Text);

  ou seja, o primeiro localizar, aparece o seguinte erro: Ambiguous overloaded
  call to 'Localizar'.
  Como assim ambiguidade, sendo que dei um overload nas funcoes?

  []s

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ebda30439431138012623 


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

Re: [delphi-br] array no firebird

[Alessandro DUARTE de Moraes]

Me diga por que dizes: "Estou tendo que trabalhar com tipo array ...".
Sinceramente, nunca vi aplicação de array que não possa ser resolvida com uma 
boa estrutura Entidade Relacionamento, isto é, uma tabela "mãe" e uma "filha".
Explica melhor tua necessidade.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Evaldo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 27, 2008 8:31 AM
  Subject: [delphi-br] array no firebird


  Olá a todos,
  Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada 
sobre.
  No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas 
duvidas:

  * È seguro trabalhar com array?
  * Porque é tão pouco utilizado?
  * Quais componentes do delphi o suportam?

  Grato a quem tiver a disponibilidade de responder. 
  --
  Atenciosamente:
  Evaldo Avelar Marques
  Programador Junior
  Debian GNU/Linux.
  [EMAIL PROTECTED] Belo Horizonte/MG Brazil

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
  http://br.mail.yahoo.com/

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como N�O-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identifica��o: 54568,47eb858f339414716226009 


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

Re: [delphi-br] Como saber se existe um atalho no desktop, caso nao exista criar um?

[Alessandro DUARTE de Moraes]

Pô pessoal, que preguiça de pensar hein ... 

Nunca precisei fazer esse tipo de teste, mas para não dizer que não tenho boa 
vontade aí vai o código.
Nesse exemplo verifico se existe o atalho para o "Notepad" no desktop.

obs: caso não fique claro, o evento abaixo é de um botão que coloquei num form 
... lol

procedure TForm1.Button1Click(Sender: TObject);
var MyReg : TRegIniFile;
Directory : string;
begin
  MyReg := 
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
  Directory := MyReg.ReadString ('Shell Folders','Desktop','');
  MyReg.Free;
  if FileExists(Directory + '\Notepad.lnk') then begin
ShowMessage('existe');
  end else begin
ShowMessage('não existe');
  end;
end;

E acho que tu não leu o que eu coloquei no final do meu post anterior:
"Para verificar se já existe o atalho basta abrir o registro na chave que
 aparece no exemplo e ver se já existe a entrada."


Como já disse outras vezes, prefiro sempre incentivar o "pensamento" ao invés 
de dar o "peixe na mão".
Não me leve a mal cara, mas essa era muito fácil de resolver.


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 26, 2008 10:24 AM
  Subject: Re: [delphi-br] Como saber se existe um atalho no desktop, caso nao 
exista criar um?


  Bom Alessandro, acho que voce não entendeu a minha mensagem..

  "Olá amigos, preciso verificar se existe um atalho no desktop para meu
  programa, caso nao exista criar um. Bom, já tenho a função pra criar, o
  problema está em saber se existe ou não o atalho."

  O que eu não estou conseguindo fazer, é como descobrir se o atalho já foi
  criado, para que eu não fique criando ele toda hora..

  []s

  Em 26/03/08, Alessandro DUARTE de Moraes <[EMAIL PROTECTED]>
  escreveu:
  >
  > Mais uma vez o Google resolve. Procure por "delphi criar atalho"
  >
  > Uma das soluções aparece assim:
  >
  > //Coloque essas units na seção implementation :
  > uses ShlObj, ActiveX,ComObj, Registry; //Por último, crie uma procedure
  > que faça o trabalho:
  >
  > procedure CreateShortcut (FileName, Parameters, InitialDir, ShortcutName,
  > ShortcutFolder : String);
  > var
  > MyObject : IUnknown;
  > MySLink : IShellLink;
  > MyPFile : IPersistFile;
  > Directory : String;
  > WFileName : WideString;
  > MyReg : TRegIniFile;
  > begin
  > MyObject := CreateComObject(CLSID_ShellLink);
  > MySLink := MyObject as IShellLink;
  > MyPFile := MyObject as IPersistFile;
  > with MySLink do
  > begin
  > SetArguments(Parameters);
  > SetPath(PChar(FileName));
  > SetWorkingDirectory(PChar(InitialDir));
  > end;
  > MyReg := TRegIniFile.Create
  > ('Software\MicroSoft\Windows\CurrentVersion\Explorer');
  > Directory := MyReg.ReadString ('Shell Folders','Desktop','');
  > WFileName := Directory + '\' + ShortcutName + '.lnk';
  > MyPFile.Save (PWChar (WFileName), False);
  > MyReg.Free;
  > end;
  >
  > Para verificar se já existe o atalho basta abrir o registro na chave que
  > aparece no exemplo e ver se já existe a entrada.
  >
  > Alessandro DUARTE de Moraes
  > A.C. Santa Casa do Rio Grande.
  > http://www.santacasarg.com.br
  >
  >
  > - Original Message -
  > From: Fellipe Henrique
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Wednesday, March 26, 2008 9:14 AM
  > Subject: [delphi-br] Como saber se existe um atalho no desktop, caso nao
  > exista criar um?
  >
  > Olá amigos, preciso verificar se existe um atalho no desktop para meu
  > programa, caso nao exista criar um. Bom, já tenho a função pra criar, o
  > problema está em sabe se existe ou não o atalho.
  >
  > Alguem poderia me ajudar?
  >
  > Desde já agradeço
  >
  > []s
  >
  > --
  > _
  > T.·.F.·.A.·.
  > Fellipe Henrique
  > [EMAIL PROTECTED] 
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > --
  > E-mail Seguro Vetorial.net
  >
  > Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
  > encaminhe para [EMAIL PROTECTED] 
  >
  > Chave de Identificação: 54568,47ea3ea6129279797615144
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ea5b48137831318817097 


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

Re: [delphi-br] Como saber se existe um atalho no desktop, caso nao exista criar um?

[Alessandro DUARTE de Moraes]

Mais uma vez o Google resolve. Procure por "delphi criar atalho"

Uma das soluções aparece assim:

//Coloque essas units na seção implementation :
uses ShlObj, ActiveX,ComObj, Registry; //Por último, crie uma procedure que 
faça o trabalho:

procedure CreateShortcut (FileName, Parameters, InitialDir, ShortcutName, 
ShortcutFolder : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(Parameters);
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg := 
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end; 

Para verificar se já existe o atalho basta abrir o registro na chave que 
aparece no exemplo e ver se já existe a entrada.


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 26, 2008 9:14 AM
  Subject: [delphi-br] Como saber se existe um atalho no desktop, caso nao 
exista criar um?


  Olá amigos, preciso verificar se existe um atalho no desktop para meu
  programa, caso nao exista criar um. Bom, já tenho a função pra criar, o
  problema está em sabe se existe ou não o atalho.

  Alguem poderia me ajudar?

  Desde já agradeço

  []s

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ea3ea6129279797615144 


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

Re: [delphi-br] Re: Problemas com Sistema compilado

[Alessandro DUARTE de Moraes]

Galera, por incrível que pareça uma vez resolvi isso pedindo para ver o 
relatório do erro. Quando aparece aquela tele que ocorreu um erro blablabla ... 
peça para detalhar, vai olhando ... vai haver alguma coisa mostrando qual o 
problema. No meu caso era a falta de uma dll como o Daniel comentou.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Daniel Bastos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 25, 2008 1:35 PM
  Subject: Re: [delphi-br] Re: Problemas com Sistema compilado


  Já ocorreu isso com falta de dll no meu sistema ..
  como a midas ...

  Em 24/03/08, Tux Wi-FI <[EMAIL PROTECTED]> escreveu:
  >
  > É 32bits... Windows XP PRO SP2
  >
  > Em 24/03/08, walthersonbrunno<[EMAIL 
PROTECTED]>
  > escreveu:
  > > Vc tá rodando em 64 ou 32 bites?
  > > Pq conforme post anterior isso tem tuuudo aver.
  > > e dá pau mesmo.!
  > >
  > > --- Em delphi-br@yahoogrupos.com.br ,
  > "Tux Wi-FI" <[EMAIL PROTECTED]>
  > > escreveu
  > > >
  > > > Saudações,
  > > >
  > > > Todo sistema, por mais simples que seja, que tento "rodar" em outra
  > > > maquina diferente da minha, simplesmente não funciona.
  > > >
  > > > Tenho um Dual core 2 duo.
  > > >
  > > >
  > > > Uso Delphi-7.
  > > >
  > > >
  > > > Alguma sugestão?
  > > >
  > > >
  > > >
  > > > --
  > > > []´s
  > > >
  > > > CeBoLaRk
  > > > http://www.tuxwifi.com.br
  > > > msn: [EMAIL PROTECTED]
  > > >
  > >
  > >
  > >
  > > 
  > >
  > > --
  > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
  > >
  > >
  > >
  > >
  >
  > --
  > []´s
  >
  > CeBoLaRk
  > http://www.tuxwifi.com.br
  > msn: [EMAIL PROTECTED] 
  > 
  >

  -- 
  Abs
  Daniel A. Bastos

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47e930fd993457558169461 


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

Re: [delphi-br] Problemas com Sistema compilado

[Alessandro DUARTE de Moraes]

Seja mais explícito ... o que não funciona?
Que erro dá?

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Tux Wi-FI 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, March 24, 2008 9:21 AM
  Subject: [delphi-br] Problemas com Sistema compilado


  Saudações,

  Todo sistema, por mais simples que seja, que tento "rodar" em outra
  maquina diferente da minha, simplesmente não funciona.

  Tenho um Dual core 2 duo.

  Uso Delphi-7.

  Alguma sugestão?

  -- 
  []´s

  CeBoLaRk
  http://www.tuxwifi.com.br
  msn: [EMAIL PROTECTED]


   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47e7ab8a694173533815398 


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

Re: [delphi-br] Firebird para DBF

[Alessandro DUARTE de Moraes]

Buenos, tirando a questão de não ter nada haver com "Firebird para DBF" ... Tu 
tens um TextFile e queres gerar um arquivo.txt ... TextFile é um arquivo TXT 

Você sabe o que é um TextFile? é um tipo de dados para manipular arquivos ...
Sinceramente, abre um outro tópico e explique melhor o teu problema.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: tetraetila® 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, March 14, 2008 12:22 AM
  Subject: Re: [delphi-br] Firebird para DBF


  Olá Pessoal!

  Gostaria de uma ajuda de vocês! Tenho um programa que faz uma captura de 
dados e retorna uma variável do tipo PChar / PAnsiChar - Preciso capturar estes 
dados e transformar em um arquivo de texto e não estou conseguindo.. Vejam 
abaixo: 

  CTemplate:PAnsiChar //(Já existe como global no programa e recebe os dados 
após uma captura de dados para Biometria.

  var
  X:TextFile;
  S:String;
  begin
  StrPas(CTemplate); // Tentativa de conversão em Texto.
  S:=CTemplate;
  ReWrite(X,'retorno.txt'); //preciso gravar neste arquivo .txt
  WriteLn(X,S); //Dá erro !
  CloseFile(X)
  end;

  A variável CTemplate é a que eu preciso capturar o valor e gravar em um 
arquivo de texto e não estou conseguindo. Quando eu dou um ShowMessage(S) ele 
me mostra um pouco do conteúdo mas não consigo capturar e gravar como texto. 
Como eu faço para saber o tamanho de CTemplate em bytes depois que ela recebe 
os dados? Se puderem me ajudar agradeço, estou voltando para o Delphi depois de 
alguns anos parado por força maior. Obrigado!

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d9ef79263134351514839 


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

Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x

[Alessandro DUARTE de Moraes]

Sobre a questão do ZeoLib com problemas:
pessoal, tenho usado a ZeosLib para projetos com Firebird e Mysql sem 
problemas. Talvez seja porque trabalho fazendo com que cada tabela do banco de 
dados tenha uma classe desenvolvida para fazer inserção, alteração e exclusão. 
Isto é, faço sempre comandos SQL para estas operações. Talvez o problema possa 
ter ocorrido utilizando ClientDataSet (lembro, há muito tempo atráz que tinha 
um problema, mas não era especificamente da ZeosLib e sim do clientDataSet, 
tempos depois saiu até uma atualização do ClientDataSet que se não me falha a 
memória havia resolvido essa pendência).
Espero ter contribuido!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 13, 2008 10:45 PM
  Subject: Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x


  bom, o Zeos e o UIB, são gratuitos, porém tive muitos problemas com os dois,
  não me lembro direito qual foi, mas eu tive que acabar fazendo com IBX,
  porque os mantenedores dos componentes não arrumaram o problema a tempo, e
  com isso o prazo do sistema estava esgotando, por isso, prefiro mais os
  componentes pagos...

  Já o DBExpress, até o delphi 7 é compatível, mas não é pra firebird, ou
  seja, não posso desenvolver algo, e ficar preso no Delphi 7, porque no 2007,
  já não é compatível...

  O IBO, quando procurei saber dele, as informacoes que obtive foram otimas,
  realmente muito bom, porém do jeito dele, pra se usar os descedente de
  TDataSet, até o próprio autor disse que ao utilizar o TDataSet, não
  aproveitaria o potencial do IBO.

  Por isso, atualmente estou limitando à apenas o próprio IBX (Que também está
  deixando de ficar compativel com firebird) o FibPlus e o IBDAC (estes dois
  totalmente compatíveis com qualquer versão do Firebird.

  []s

  Em 13/03/08, Vitor Redes <[EMAIL PROTECTED]> escreveu:
  >
  > Não é o DBExpress que é unidirecional, é o componente TSQLQuery,
  > como todos os outros componentes "TQuery's" da vida... o TSimpleDataSet
  > (não
  > recomendável) não é unidirecional. Nem os Table's...
  >
  > Eu tive alguns problemas com a ZeosLib quando fiz alguns testes,
  > mas os testes não foram tão insistentes então não posso falar mal, é um
  > projeto sério que vale a pena conhecer tb, o UIB é outro, como já
  > indicaram.
  >
  > --
  >
  > Vitor Luiz Redes
  >
  > --
  >
  > Bureau & Redsystem Software
  >
  > [EMAIL PROTECTED] 
  >
  > _
  >
  > De: delphi-br@yahoogrupos.com.br  [mailto:
  > delphi-br@yahoogrupos.com.br ] Em
  > nome de Alisson
  > Enviada em: quinta-feira, 13 de março de 2008 16:24
  > Para: delphi-br@yahoogrupos.com.br 
  > Assunto: Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x
  >
  > Eu uso o DbExpress e acho muito bom. Tem um detalhe, ele é unidirecional,
  > você tem que usar ClientDataset para poder percorrer os registros.
  >
  > ___
  > Yahoo! Mail - Sempre a melhor opção para você!
  > Experimente já e veja as novidades.
  > http://br.yahoo. <http://br.yahoo.com/mailbeta/tudonovo/>
  > com/mailbeta/tudonovo/
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d9d955221361924616883 


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

Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x

[Alessandro DUARTE de Moraes]

Que tal ZeosLib? é compatível com Firebird 1.0, 1.5 e 2.0, além de outros 
bancos como Mysql, PostGreSQL, MSSql, Oracle, Sybase ... e é Free.
Uso e recomendo.

http://sourceforge.net/projects/zeoslib/

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 13, 2008 4:20 PM
  Subject: Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x


  Boa tarde!

  * FibPlus e IBDAC, na minha opinião.
  * DBXpress e IBX já apresentam algumas incompatibilidades com o FB2 segundo 
alguns (poucos) relatos

  Atte,
  Ricardo

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d97e91841861151016789 


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

Re: [delphi-br] Migrar sistema Delphi

[Alessandro DUARTE de Moraes]

Você não leu direito o que eu escrevi companheiro ... Olha direitinho que tá lá 
Mysql 5(Linux) ... eu nem falei de Windows meu velho.

Além do mais, creio que não estás muito fora dos testes feitos recentemente, 
onde o "Rubinho" dos bancos de dados free é o PostGreSQL, e de melhor 
performance é o Mysql. É claro que estou falando de Linux ... onde já se viu 
falar de banco de dados no Windows. :D Pro Windows ninguém ganha do SQL Server.

Dá uma olhadinha no Summary deste link 
http://2bits.com/articles/benchmarking-postgresql-vs-mysql-performance-using-drupal-5x.html
Esse é mais detalhado: http://fornax.sk/mate/Download/result-mysql,pg.html

E não vem querer mostrar benchmarks comprados ... estes aqui são testes feitos 
sem partidarismo.

Para Windows o melhor free é o Firebird, mas é necessário que o projeto do 
banco (chaves) seja bem feito, caso contrário ele pesa muito em querys com 
muitos resultados.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 11, 2008 2:29 PM
  Subject: Re: [delphi-br] Migrar sistema Delphi


  Hein!?! Carroção? Vixi amigo, então o pessoal utiliza errado.. porque já foi
  provado por A+B, que em se tratando de Aplicações Desktop MySQL leva surra
  de muitos bancos...

  Minha opinião:

  Sistema entre Baixo e Médio Porte -> Firebird. Médio e Grande Porte ->
  PostgreSQL.

  Nada de MySQL...

  []s

  Em 11/03/08, Alessandro DUARTE de Moraes <[EMAIL PROTECTED]>
  escreveu:
  >
  > Recomendo Mysql. PostGreSQL eu acho muito carroção, além de ter algumas
  > definições estranhas (como rodar um tal de Vacum para reorganizar as
  > tabela/índices). Aqui na empresa trabalhamos com Mysql 5(Linux) com tabelas
  > InnoDB e estamos muito satisfeitos. Temos um software de terceiros que roda
  > com PostGreSQL, e nossos usuários reclamam da lentidão, comparado com nossos
  > sistemas. Antes de trabalhar aqui, trabalhava em outra empresa que utilizava
  > sistemas com PostGreSQL e era a mesma história ... lentidão.
  > Num trabalho free lance que faço, utilizo o Firebird, e também gosto
  > bastante, mas para trabalho com Web nada como o Mysql.
  >
  > Alessandro DUARTE de Moraes
  > A.C. Santa Casa do Rio Grande.
  > http://www.santacasarg.com.br
  >
  > - Original Message -
  > From: Gerson Machado
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Tuesday, March 11, 2008 11:50 AM
  > Subject: Re: [delphi-br] Migrar sistema Delphi
  >
  > Sinceramente, eu mudaria para Sql Server.
  > Boa sorte.
  >
  > rodrigofernandosantos <[EMAIL PROTECTED] >
  > escreveu:
  > Pessoal, bom dia
  >
  > Tenho um sistema em Delphi 6 com banco Interbase, preciso migrar para
  > plataforma web com banco de dados Mysql, o que vocês recomendam.
  >
  > Atte,
  > Rodrigo
  >
  > -
  > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
  > armazenamento!
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > --
  > E-mail Seguro Vetorial.net
  >
  > Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
  > encaminhe para [EMAIL PROTECTED] 
  >
  > Chave de Identificação: 54568,47d69c5b648961220817889
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d6c184714046947611305 


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

Re: [delphi-br] Migrar sistema Delphi

[Alessandro DUARTE de Moraes]

Recomendo Mysql. PostGreSQL eu acho muito carroção, além de ter algumas 
definições estranhas (como rodar um tal de Vacum para reorganizar as 
tabela/índices). Aqui na empresa trabalhamos com Mysql 5(Linux) com tabelas 
InnoDB e estamos muito satisfeitos. Temos um software de terceiros que roda com 
PostGreSQL, e nossos usuários reclamam da lentidão, comparado com nossos 
sistemas. Antes de trabalhar aqui, trabalhava em outra empresa que utilizava 
sistemas com PostGreSQL e era a mesma história ... lentidão.
Num trabalho free lance que faço, utilizo o Firebird, e também gosto bastante, 
mas para trabalho com Web nada como o Mysql.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Gerson Machado 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 11, 2008 11:50 AM
  Subject: Re: [delphi-br] Migrar sistema Delphi


  Sinceramente, eu mudaria para Sql Server.
  Boa sorte.

  rodrigofernandosantos <[EMAIL PROTECTED]> escreveu:
  Pessoal, bom dia

  Tenho um sistema em Delphi 6 com banco Interbase, preciso migrar para
  plataforma web com banco de dados Mysql, o que vocês recomendam.

  Atte,
  Rodrigo

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d69c5b648961220817889 


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

Re: [delphi-br] erro em tempo de execução

[Alessandro DUARTE de Moraes]

Desde a última vez que tu conseguiste compilar o programa e funcionar ok, 
reinstalasses o Delphi ... isso tá com cara de bpl com problema. Reinstala o 
pacote de atualização do IBX.
Pois pelo que entendi, debugando funciona bem, mas se executar o EXE dá 
problema. Sempre que tenho algo parecido revejo minhas bpls.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Ricardo Mendes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 11, 2008 8:35 AM
  Subject: Re: [delphi-br] erro em tempo de execução


  Eu uso o Firebird 1.5, meu acesso é via admin, no IBExpert funciona as SQL 
sem problemas, as tabelas estão corretas todas em maiusculas.
  No IBExpert está todas as tabelas funcionando, no meu DataModule eu faço as 
ligações das tabelasconsigo ver todos os campos, na hora de compílar 
compila sem erro, dando esse erro somente em tempo de execução

  Ricardo Mendes
  Departamento de Informática
  Tel. (41) 2109-7736
  E-mail: [EMAIL PROTECTED] 
  Site: www.totalsat.com.br 

  - Original Message - 
  From: Alessandro DUARTE de Moraes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 11, 2008 8:09 AM
  Subject: Re: [delphi-br] erro em tempo de execução

  Qual versão do Firebird? Os componentes IBX do Delphi só rodam bem com o 
Firebird até 1.5 ... o Firebird 2.0 não é compatível.
  Vê também se não é permissão do usuário, para isso faz a conexão usando o 
ADMIN. Usa o IBExpert para executar a tua query, exatamente como está no 
programa. Tenta ver se não é o nome da tabela em Maiúsculas ... sei lá ... 

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacasarg.com..br

  - Original Message - 
  From: Ricardo Mendes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, March 10, 2008 10:48 PM
  Subject: [delphi-br] erro em tempo de execução

  Galera, estou com o seguinte problema
  meu projeto estava normal
  só que eu tentei abrir o projeto para realizar alterações e agora qdo eu 
tempo compilar ele passa sem erros, porém em tempo de execução ele da a 
seguinte mensagem.
  Mesmo eu tento incluido e excluido a tabela configurações, recriada umas 4 
vezes, mas qdo mando abrir o menu principal ele da erro.

  Projeto Odontoclinic.exe raised exception class EIBInterBaseError with 
message 'Dynamic SQL Error.
  SQL error code = -204
  Table unknown
  CONFIGURACOES
  At line 1, column 15' . Process stopped. Use Step or Run to continue.

  Uso D7, Firebird, Uso a paleta do Interbase para comunicação com BD

  fico no aguardo...

  Ricardo Mendes

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

  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d5e5c9630601918818723 

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47d66eea648961664316913 


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

Re: [delphi-br] Mudança de diretório.

[Alessandro DUARTE de Moraes]

Isso realmente pode acontecer com o OpenDialog quando se seleciona o arquivo de 
outro diretório.
Faz assim:

if FileExists(ExtractFilePath(Application.ExeName)+'Imagem.bmp') then 

Isso garante que estás abrindo o bmp do diretório do exe

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Celio Bernardo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 05, 2008 1:15 PM
  Subject: [delphi-br] Mudança de diretório.


  Amigos, coisa estranha aqui.

  Tenho uma rotina que verifica a existência de arquivo .bmp que fica junto ao 
executável, para imprimi-lo usando: if FileExists('Imagem.bmp') then

  Acontece q qdo leio dados de outro arquivo (.txt ) em outro diretório usando 
o OpenDialog o aplicativo passa a verificar a existência do .bmp neste 
diretório onde li o arquivo .txt (ou outro qualquer) e acusa falta do mesmo. 
Fiz um teste simples colocando cópia do arquivo .bmp ( com visual diferente ) 
no diretório onde se encontra o .txt e passou tudo bem, porém imprimiu o aquivo 
do diretorio certo, o dele. Pedi para mostrar o diretorio corrente com o 
extractfiledir() e está normal.
  Já mandei um Application.ProcessMessages e nada;
  Agora, após ler o arquivo .txt de outro diretório, leio em seguida qualquer 
arquivo do diretório da aplicação, corre tudo normal.
  Que bicho pode ser isso? Parece qe o Exe se sente virtualmente no último 
diretório que acessou?

  Agradeço pela gentileza.

  Célio.

  -
  Célio Bernardo de Lima
  Diretor de Projetos e Novas Tecnologias
  siatech.com.br 
  -

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47cec9d9285381002461653 


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

Re: [delphi-br] Ata de Resultados

[Alessandro DUARTE de Moraes]

Você tem certeza que leu o que eu escrevi
Cara, o que queres fazer é um CrossTab ... tem uma outra Thread que fala sobre 
isso. A solução que te passei é uma forma de não precisar fazer o CrossTab.
Le e interpreta o que te passei anteriormente ... eu já fiz algo similar ao que 
tu precisas utilizando essa técnica que te mandei.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Ralp Alves Bezerra 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 05, 2008 10:30 AM
  Subject: Re: [delphi-br] Ata de Resultados


  Esta é a questão! como faria esta seleção para que tudo fique em uma 
  unica linha a cada aluno?

  Abraços.

  Alessandro DUARTE de Moraes escreveu:
  > Ok, então vc pode partir para uma SQL simples, usando apenas a tabela que 
tens ...
  >
  > Alessandro DUARTE de Moraes
  > A.C. Santa Casa do Rio Grande.
  > http://www.santacasarg.com.br
  >
  > - Original Message - 
  > From: Ralp Alves Bezerra 
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Wednesday, March 05, 2008 8:56 AM
  > Subject: Re: [delphi-br] Ata de Resultados
  >
  >
  > Caro Duarte,
  >
  > No meu caso todas as informações estão contidas na mesma tabela, sendo 
  > que para cada materia, nota, etc, o nome do aluno se repete.
  >
  > A pesquisa teria que ser feita em apenas uma tabela que contém todos os 
  > dados necessários.
  >
  > Abraços.
  >
  > Alessandro DUARTE de Moraes escreveu:
  > > Cara, pelo que entendi estás precisando é um resultado final com as 
colunas:
  > > NomeDoAluno, NotaMateria1, NotaMateria2, ...
  > >
  > > Bem, uma forma prática no teu caso é o conceito de Group By no 
FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de 
todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos 
os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue 
lendo, caso contrário me avisa que daí a query precisa ser diferente da 
proposta.
  > > Buenos, a query seria mais ou menos assim:
  > >
  > > SELECT aluno.nome, materia.nome, avaliacao.nota
  > > FROM aluno
  > > LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id)
  > > LEFT JOIN materia ON (materia.id=avaliacao.materia_id)
  > > WHERE avaliacao.ano=2007 and avaliacao.mes=10
  > > ORDER BY aluno.nome, materia.nome
  > >
  > > Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento 
por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas 
de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então 
crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer 
coisa que a gente quiser).
  > > Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não 
imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as 
caixas de texto do rodapé com o valor das notas.
  > >
  > > Creio que isso resolve.
  > >
  > > Alessandro DUARTE de Moraes
  > > A.C. Santa Casa do Rio Grande.
  > > http://www.santacasarg.com.br
  > >
  > > - Original Message - 
  > > From: Ralp Alves Bezerra 
  > > To: Delphi BR 
  > > Sent: Tuesday, March 04, 2008 6:29 PM
  > > Subject: [delphi-br] Ata de Resultados
  > >
  > >
  > > Nobres Colegas,
  > >
  > > Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver 
  > > uma dúvida que me ocorre:
  > >
  > > Tenho um sistema em paradox para administração escolar rodando, estou 
  > > precisando gerar a ata de resultados finais para o mesmo, porém, estou 
  > > com um problema que ainda não consegui resolver.
  > >
  > > Tenho uma tabela onde ficam registradas todas as informações de notas e 
  > > matérias do alunos.
  > >
  > > Ex.:
  > >
  > > Nome Matéria Nota
  > > -
  > > Maria da silva Portugues 10
  > > Maria da Silva Matemática 08
  > > Maria da Silva Inglês 09
  > > Maria da Silva Física 08
  > >
  > > e assim por diante com todos os alunos da turma. Se existirem 10 
  > > matérias o nome do aluno se repete as mesmas 10 vezes.
  > >
  > > Como faria para gerar uma segunda tabela ou outra maneira de poder gerar 
  > > ata de resultados finais com o tipo de tabela que possuo?
  > >
  > > Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a 
  > > dica poderia ser também em QR se caso fosse mais prático.
  > >
  > > Desde já agradeço a ajuda.
  > >
  > > Abraços.
  > >
  > > Ralp Alves Bezerra
  > >
  > >
  > > 
  > > 

Re: [delphi-br] Ata de Resultados

[Alessandro DUARTE de Moraes]

Ok, então vc pode partir para uma SQL simples, usando apenas a tabela que tens 
...

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Ralp Alves Bezerra 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 05, 2008 8:56 AM
  Subject: Re: [delphi-br] Ata de Resultados


  Caro Duarte,

  No meu caso todas as informações estão contidas na mesma tabela, sendo 
  que para cada materia, nota, etc, o nome do aluno se repete.

  A pesquisa teria que ser feita em apenas uma tabela que contém todos os 
  dados necessários.

  Abraços.

  Alessandro DUARTE de Moraes escreveu:
  > Cara, pelo que entendi estás precisando é um resultado final com as colunas:
  > NomeDoAluno, NotaMateria1, NotaMateria2, ...
  >
  > Bem, uma forma prática no teu caso é o conceito de Group By no 
FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de 
todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos 
os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue 
lendo, caso contrário me avisa que daí a query precisa ser diferente da 
proposta.
  > Buenos, a query seria mais ou menos assim:
  >
  > SELECT aluno.nome, materia.nome, avaliacao.nota
  > FROM aluno
  > LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id)
  > LEFT JOIN materia ON (materia.id=avaliacao.materia_id)
  > WHERE avaliacao.ano=2007 and avaliacao.mes=10
  > ORDER BY aluno.nome, materia.nome
  >
  > Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por 
aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de 
todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 
10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer 
coisa que a gente quiser).
  > Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não 
imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as 
caixas de texto do rodapé com o valor das notas.
  >
  > Creio que isso resolve.
  >
  > Alessandro DUARTE de Moraes
  > A.C. Santa Casa do Rio Grande.
  > http://www.santacasarg.com.br
  >
  > - Original Message - 
  > From: Ralp Alves Bezerra 
  > To: Delphi BR 
  > Sent: Tuesday, March 04, 2008 6:29 PM
  > Subject: [delphi-br] Ata de Resultados
  >
  >
  > Nobres Colegas,
  >
  > Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver 
  > uma dúvida que me ocorre:
  >
  > Tenho um sistema em paradox para administração escolar rodando, estou 
  > precisando gerar a ata de resultados finais para o mesmo, porém, estou 
  > com um problema que ainda não consegui resolver.
  >
  > Tenho uma tabela onde ficam registradas todas as informações de notas e 
  > matérias do alunos.
  >
  > Ex.:
  >
  > Nome Matéria Nota
  > -
  > Maria da silva Portugues 10
  > Maria da Silva Matemática 08
  > Maria da Silva Inglês 09
  > Maria da Silva Física 08
  >
  > e assim por diante com todos os alunos da turma. Se existirem 10 
  > matérias o nome do aluno se repete as mesmas 10 vezes.
  >
  > Como faria para gerar uma segunda tabela ou outra maneira de poder gerar 
  > ata de resultados finais com o tipo de tabela que possuo?
  >
  > Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a 
  > dica poderia ser também em QR se caso fosse mais prático.
  >
  > Desde já agradeço a ajuda.
  >
  > Abraços.
  >
  > Ralp Alves Bezerra
  >
  >
  > 
  > -- 
  > E-mail Seguro Vetorial.net 
  >
  > Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  > encaminhe para [EMAIL PROTECTED] 
  >
  > Chave de Identificação: 54568,47cdbf4713481480512716 
  >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  >
  >
  > 


   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ce8f66190531624252042 


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

Re: [delphi-br] Ata de Resultados

[Alessandro DUARTE de Moraes]

Cara, pelo que entendi estás precisando é um resultado final com as colunas:
NomeDoAluno, NotaMateria1, NotaMateria2, ...

Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. 
Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos 
com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata 
possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário 
me avisa que daí a query precisa ser diferente da proposta.
Buenos, a query seria mais ou menos assim:

SELECT aluno.nome, materia.nome, avaliacao.nota
FROM aluno
LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id)
LEFT JOIN materia ON (materia.id=avaliacao.materia_id)
WHERE avaliacao.ano=2007 and avaliacao.mes=10
ORDER BY aluno.nome, materia.nome

Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por 
aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de 
todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 
10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer 
coisa que a gente quiser).
Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime 
nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de 
texto do rodapé com o valor das notas.

Creio que isso resolve.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Ralp Alves Bezerra 
  To: Delphi BR 
  Sent: Tuesday, March 04, 2008 6:29 PM
  Subject: [delphi-br] Ata de Resultados


  Nobres Colegas,

  Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver 
  uma dúvida que me ocorre:

  Tenho um sistema em paradox para administração escolar rodando, estou 
  precisando gerar a ata de resultados finais para o mesmo, porém, estou 
  com um problema que ainda não consegui resolver.

  Tenho uma tabela onde ficam registradas todas as informações de notas e 
  matérias do alunos.

  Ex.:

  Nome Matéria Nota
  -
  Maria da silva Portugues 10
  Maria da Silva Matemática 08
  Maria da Silva Inglês 09
  Maria da Silva Física 08

  e assim por diante com todos os alunos da turma. Se existirem 10 
  matérias o nome do aluno se repete as mesmas 10 vezes.

  Como faria para gerar uma segunda tabela ou outra maneira de poder gerar 
  ata de resultados finais com o tipo de tabela que possuo?

  Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a 
  dica poderia ser também em QR se caso fosse mais prático.

  Desde já agradeço a ajuda.

  Abraços.

  Ralp Alves Bezerra


   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47cdbf4713481480512716 


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

Re: [delphi-br] RE: Tabela de cidades brasileiras

[Alessandro DUARTE de Moraes]

O pessoal, sou partidário de "ensinar a pescar" do que "entregar o peixe".
No início dessa discussão dei todos os passos para obter os dados oficiais, 
isto é, IBGE, inclusive mandei até o link.
O que mais seria preciso além dessa dica?

Se ficar mandando esses scripts prontos, daqui ha alguns dias vem um "zé" e diz 
que a cidade que ele precisa não está no script ...

Vamos manter o alto nível da lista e sempre indicar o caminho das pedras!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Gerhard Roger Nack 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, February 29, 2008 4:34 PM
  Subject: RES: [delphi-br] RE: Tabela de cidades brasileiras


  Um email de mais de 500k de texto ?

  Podia ao menos ter posto o script no FILES da lista e não mandado no email ...

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson 
Costa Resende
  Enviada em: sexta-feira, 29 de fevereiro de 2008 13:30
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] RE: Tabela de cidades brasileiras

  Eu, muitas vezes falo: "Venha a nós o vosso reino". 
  Mas também falo: "Seja feita a vossa vontade". Pra
  comprovar isso estou enviando o script para a criação
  da tabela e inclusão dos dados em um banco Firebird. 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47c85e4c894402188212582 


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

[delphi-br] Vaga para Programador Delphi com sólidos conhecimentos d e Firebird - APENAS PARA O DISTRITO FEDERAL

[.:: Alessandro Alves ::.]

 

Vaga para Programador Delphi com sólidos conhecimentos de Firebird.

 

Requisitos INDISPENSÁVEIS:

 

- 2º grau completo ou superior

- 1 ano de experiência com Delphi 7

- Conhecimentos de OOP

- 1 ano de experiência com Banco de Dados Firebird

- Experiência com programação PSQL (Linguagem procedural do Firebird)

- Dedicação integral em horário comercial

 

Experiência em Desenvolvimento com PHP será um diferencial considerado!

 

A Empresa oferece:

 

- Salário compatível com o mercado de trabalho

- Transporte

- Alimentação

- Treinamentos

- Plano de Saúde

 

Vaga destinada APENAS a candidatos residentes e domiciliados no Distrito
Federal.

 

Enviar Curriculum Vitae COM pretensão salarial para :
[EMAIL PROTECTED]  

 

ATENÇÃO: 

 

Curriculum sem pretensão salarial serão descartados.

Candidatos de outros estados serão descartados.

Curriculum enviado para a lista serão descartados.

Curriculum enviado para o remetente dessa mensagem serão
descartados.

 

Boa Sorte a todos!!!

 



 

 



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

Re: [delphi-br] Minutos da Hora!!!

[Alessandro DUARTE de Moraes]

Você já viu se o fields[3].AsString está retornando o horário corretamente?
Caso sim, então é um problema da máscara no MaskEdit. Geralmente isso acontece 
por causa do ":", para testar, faz um teste tirando a máscara.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Guilherme Alves 
  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] 
  Sent: Friday, February 08, 2008 2:21 PM
  Subject: [delphi-br] Minutos da Hora!!!



  Olá amigos

  Estou com uma dúvida "tosca".
  Eu insiro normalmente um registro novo na minha tabela. O campo que está me 
dando trabalho é do tipo time, e o registro grava normalmente (inclusive no 
banco de dados, o horário fica registrado por exemplo: 14:18), mas quando vou 
mostrar os dados, ele só me mostra 14:00 (os minutos não mostram).
  Este campo é um MaskEdit usando a forma: !90:00;1;_
  Tenho uma procedure que se chama 'mostraosdados'.
  Está assim:


  begin
  with datamodule.sql1 do
  begin
  .. 
  maskedit_hora.text:=fields[3].AsString;
  
  end;

  Espero uma ajuda. Agradeço!

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47acc060768321299919858 


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

Re: [delphi-br] Projetos CLX

[Alessandro DUARTE de Moraes]

Olha, hoje tenho o mesmo sistema rodando em Windows (Delphi 7) e Linux (Kylix 
3). Funciona bem, mas ... como o Kylix 3 foi desenvolvido num "olhando" um 
kernel antigo do Linux, nas novas distribuições a gente leva uma pequena surra 
para fazer o sistema funcionar. Depois disso é tranquilo. Particularmente 
prefiro os usuários utilizando o Linux ao Windows. Dá muito menos problemas, 
pois os CURIOSOS não ficam alterando as configurações do sistema operacional.

Mas se estás estudando Java, segue por este caminho. Se não inciaste nada 
ainda, dá uma olhada no dotNet + Mono (Linux) ... pode ser uma boa escolha!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Gladson Reis 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, February 07, 2008 4:58 PM
  Subject: Re: [delphi-br] Projetos CLX


  legal
  vcs tem softwares rodando em linux ?
  eu pensei ate em migrar meu sistema de gestao pra java

  - Original Message - 
  From: "Alessandro DUARTE de Moraes" <[EMAIL PROTECTED]>
  To: 
  Sent: Thursday, February 07, 2008 2:56 PM
  Subject: Re: [delphi-br] Projetos CLX

  Usamos apenas 1 (um) componente que não é de "fábrica". Este componente é um 
  componente personalizado para entrada de dados. Nele temos alguns parâmetros 
  que modificam a funcionalidade: TipoDado (que pode ser Numérico, Moeda, 
  Protocolo, Código, Data, Hora, Alfabético, Alfanumérico, MesAno, ... enfim 
  peculiaridades nossas). Também desenvolvemos neste componente alguns eventos 
  novos, dessa forma conseguimos fazer com que nossa necessidade seja 
  contemplada.

  Abraços!

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacasarg.com.br

  - Original Message - 
  From: Gladson Reis
  To: delphi-br@yahoogrupos.com.br
  Sent: Thursday, February 07, 2008 9:47 AM
  Subject: Re: [delphi-br] Projetos CLX

  Legal, fico feliz !!!
  precisar d algo conte comigo.

  vcs usam que componentes ?
  ( nao sendo da borland )

  ----- Original Message - 
  From: "Alessandro DUARTE de Moraes" <[EMAIL PROTECTED]>
  To: 
  Sent: Thursday, February 07, 2008 8:13 AM
  Subject: Re: [delphi-br] Projetos CLX

  Olha, uma vez nascido é difícil morrer :)
  Aqui na empresa usamos a CLX por causa do Kylix 3.
  Geralmente não aparece nada de novo para CLX, então temos que produzir as
  nossas necessidades.
  Sobrevivemos.

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacasarg.com..br

  - Original Message - 
  From: Gladson Reis
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, February 06, 2008 11:51 PM
  Subject: [delphi-br] Projetos CLX

  Alguem ainda faz novos projetos usando esta tecnologia ?

  Como anda isso ?

  Achei que tinha morrido !!!

  Atenciosamente,

  Gladson Reis
  Stones Tecnologia Ltda
  www.stonestecnologia.com.br
  msn/skype : [EMAIL PROTECTED]
  (31) 9704.5193 (31) 3361.8192

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

  -- 
  E-mail Seguro Vetorial.net

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
  encaminhe para [EMAIL PROTECTED]

  Chave de Identificação: 54568,47aad55a562696868280619

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

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

  Links do Yahoo! Grupos

  __ Informação do NOD32 IMON 2855 (20080207) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br

  -- 
  E-mail Seguro Vetorial.net

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
  encaminhe para [EMAIL PROTECTED]

  Chave de Identificação: 54568,47aaf70a285181987619587

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

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

  Links do Yahoo! Grupos

  __ Informação do NOD32 IMON 2856 (20080207) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ab5829365771323270807 


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

Re: [delphi-br] Projetos CLX

[Alessandro DUARTE de Moraes]

Usamos apenas 1 (um) componente que não é de "fábrica". Este componente é um 
componente personalizado para entrada de dados. Nele temos alguns parâmetros 
que modificam a funcionalidade: TipoDado (que pode ser Numérico, Moeda, 
Protocolo, Código, Data, Hora, Alfabético, Alfanumérico, MesAno, ... enfim 
peculiaridades nossas). Também desenvolvemos neste componente alguns eventos 
novos, dessa forma conseguimos fazer com que nossa necessidade seja contemplada.

Abraços!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Gladson Reis 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, February 07, 2008 9:47 AM
  Subject: Re: [delphi-br] Projetos CLX


  Legal, fico feliz !!!
  precisar d algo conte comigo.

  vcs usam que componentes ?
  ( nao sendo da borland )

  - Original Message - 
  From: "Alessandro DUARTE de Moraes" <[EMAIL PROTECTED]>
  To: 
  Sent: Thursday, February 07, 2008 8:13 AM
  Subject: Re: [delphi-br] Projetos CLX

  Olha, uma vez nascido é difícil morrer :)
  Aqui na empresa usamos a CLX por causa do Kylix 3.
  Geralmente não aparece nada de novo para CLX, então temos que produzir as 
  nossas necessidades.
  Sobrevivemos.

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacasarg.com.br

  - Original Message - 
  From: Gladson Reis
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, February 06, 2008 11:51 PM
  Subject: [delphi-br] Projetos CLX

  Alguem ainda faz novos projetos usando esta tecnologia ?

  Como anda isso ?

  Achei que tinha morrido !!!

  Atenciosamente,

  Gladson Reis
  Stones Tecnologia Ltda
  www.stonestecnologia.com.br
  msn/skype : [EMAIL PROTECTED]
  (31) 9704.5193 (31) 3361.8192

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

  -- 
  E-mail Seguro Vetorial.net

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
  encaminhe para [EMAIL PROTECTED]

  Chave de Identificação: 54568,47aad55a562696868280619

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

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

  Links do Yahoo! Grupos

  __ Informação do NOD32 IMON 2855 (20080207) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47aaf70a285181987619587 


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

Re: [delphi-br] Projetos CLX

[Alessandro DUARTE de Moraes]

Olha, uma vez nascido é difícil morrer :)
Aqui na empresa usamos a CLX por causa do Kylix 3.
Geralmente não aparece nada de novo para CLX, então temos que produzir as 
nossas necessidades.
Sobrevivemos.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Gladson Reis 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, February 06, 2008 11:51 PM
  Subject: [delphi-br] Projetos CLX


  Alguem ainda faz novos projetos usando esta tecnologia ? 

  Como anda isso ?

  Achei que tinha morrido !!!

  Atenciosamente,

  Gladson Reis
  Stones Tecnologia Ltda
  www.stonestecnologia.com.br
  msn/skype : [EMAIL PROTECTED]
  (31) 9704.5193 (31) 3361.8192

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47aad55a562696868280619 


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

Re: [delphi-br] Form de Login - urgente

[Alessandro DUARTE de Moraes]

Se o código do teu projeto está igual ao que postasse, então estás primeiro 
executando o FormPrincipal ... o comentário que colocasse não tem sentido ...
Eu uso diferente, crio um form a parte (o login) e chamo ele "na marra", se o 
ModalResult for diferente de mrOK então executo um Application.Terminate ao 
invés de Application.Run.
Isso funciona!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Guilherme Alves 
  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] 
  Sent: Monday, January 28, 2008 2:13 PM
  Subject: [delphi-br] Form de Login - urgente


  Olá galera

  Quando eu precisava fazer um form de login antes do usuário poder utilizar o 
sistema, eu fazia assim (no Delphi 7)
  FormPrincipal = form tipo MDIform
  FormLogin = form tipo normal
  No momento de inicializar eu fazia assim:

  begin
  Application.Initialize;
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  //inicializa primeiro o form de login//
  Application.CreateForm(TFormLogin, FormLogin);
  Application.CreateForm(TDataModule, DataModule);
  Application.Run;
  end.

  Agora, estou tentando fazer a mesma coisa no Delphi 2007 e não estou 
conseguindo. O que pode ser?
  Lembrando que estou utilizando também para o formprincipal o MDIForm (pai), 
mas o login como form normal, pois funcionava corretamente no Delphi 7 não 
sei porque no Delhpi 2007 não funciona. Simplesmente ele não abre, abre direto 
o FormPrincipal.

  No aguardo, Valeu, Guilherme Alves


  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,479e0512415984065212688 


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

Re: [delphi-br] Duvida ADOQuery

[Alessandro DUARTE de Moraes]

Seguinte, alguns bancos de dados (mysql por exemplo) aceito fazer o que estás 
fazendo, mas nem todos ...

Está colocando o valor entre aspas, e isso para alguns bancos não é um inteiro, 
e por isso dá erro.
Hoje teu código está assim:

ADOQuery1.sql.add('SELECT* FROM Cliente WHERE nome = " ' +edit1.text+' " ' );

e deve ficar assim para não dar erro:

ADOQuery1.sql.add('SELECT* FROM Cliente WHERE nome = ' +edit1.text );


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Thiago Pereira Menzani 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, January 12, 2008 10:33 AM
  Subject: [delphi-br] Duvida ADOQuery


  Ola pessoal

  Como faço uma consulta no AdoQuery comparando campo inteiro?

  Com string funciona assim
  ADOQuery1.sql.add('SELECT* FROM Cliente WHERE nome = " ' +edit1.text+' " ' );

  Mas, em vez do campo "nome" eu colocar um campo inteiro da erro de dados 
incompativeis

  OBRIGADO

  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4788bd52205561606220622 


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

Re: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?

[Alessandro DUARTE de Moraes]

Minha última interferência nessa thread:

1) O melhor realmente é fazer um acordo amigável, como já foi falado esses 
caras devem ter mais clientes, então vale a pena negociar. Comprar os fontes 
pode ser uma saída amigavelmente interessante, mas lembro que só é obrigatória 
a compra dos fontes desde que o contrato mencione isso, caso contrário eles são 
obrigados a "entregar" os fontes sem custo algum. Mas, como eu disse, bom é ser 
"amigável".
2) Caso essa negociação não seja possível, pode entrar com uma ação judicial 
sim ... a empresa acaba, mas o responsável por ela creio não ter morrido, então 
ele é que responderá o processo.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Vitor Redes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, January 10, 2008 11:10 AM
  Subject: RES: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?


  Que ação?

  Gente, os caras estão fechando as portas!!!

  O melhor caminho é negociar os fontes, assim você poderá
  contratar alguém, ou outra empresa, para dar o suporte necessário, talvez
  até algum programador da própria empresa.

  Do que adianta mover uma ação contra uma empresa que
  supostamente decretou falência? Só pra terminar de enterrar?

  A melhor forma de resolver esse tipo de embate continua sendo a
  conversa.

  Os caras devem estar com a cabeça fervendo e uma porrada de
  problemas para resolver, ter um cliente fazendo exigências só piora as
  coisas, se todo mundo agir "na boa" as coisas se resolvem na boa, pressão só
  gera stress e uma hora o cara manda todo mundo ir pescar mesmo... daí só na
  justiça, e olhe lá.

  Vitor.

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de Enio - listas
  Enviada em: quinta-feira, 10 de janeiro de 2008 10:01
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?

  Esses caras devem ter mais clientes, vcs podem pensar em uma ação
  conjunta.

  []s, 
  Enio José

  -Mensagem original-
  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 Luis Lopes
  Enviada em: quinta-feira, 10 de janeiro de 2008 08:38
  Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
  Assunto: Res: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?

  Se o caso eh como vc está dizendo, eles são obrigados a fornecer,
  gratuitamente, os fontes do sistema, bem como toda a documentação do
  mesmo. Nem precisa de um contrato assinado. Contratos verbais também
  valem, desde que existam provas. Se existirem provas de que vocês
  compraram os direitos de uso do sistema deles e/ou contrataram os
  serviços deles...
  Isso eh causa ganha. 

  Luis Alberto P. Lopes
  Desenvolvimento de Sistemas
  Belo Horizonte - Minas Gerais

  - Mensagem original 
  De: Junior mailto:red.mosquito%40uol.com.br> uol.com.br>
  Para: lista-delphi@ <mailto:lista-delphi%40yahoogrupos.com.br>
  yahoogrupos.com.br; [EMAIL PROTECTED]
  <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
  Enviadas: Quinta-feira, 10 de Janeiro de 2008 9:05:22
  Assunto: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?

  Embora OFF, o caso é muito sério.

  A softwarehouse que nos presta serviço chegou pra gente hoje e disse
  que
  quebrou e vai fechar as portas.

  Assim, sem mais nem menos. Simplesmente falou que a partir de 2ª.feira
  próxima não atenderá mais nínguem.

  Temos acesso total ao SQLServer para geração de novos
  programas/relatórios,
  porém não temos os fontes do sistema desta softwarehouse.

  E agora ? E se der uma dor de barriga na semana que vem ? Estamos
  "presos" a
  digníssima referida empresa !!!.

  Minha pergunta é:

  Alguém que já tenha passado por isso sabe alguma Lei (ou coisa do
  gênero)
  que nos proteja por um determinado tempo ? ou que "obrigue" a
  software
  house, mesmo na forma da pessoa física do dono/desenvolvedor, a ainda
  nos
  prestar serviço por "X" dias ?

  Pergunto isso pois já tentamos um acordo "cordeal" hoje cedo com a
  referida
  e ela por sua vez foi irredundante. ("vou fechar e tchau !").

  Estamos desesperados pelo volume de informações deste sistema.

  Agradeço desde já toda ajuda

  Junior

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

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

  Links do Yahoo! Grupos

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
  armazenamento!
  http://br.mail. <http://br.mail. <http://br.mail.yahoo.com/> yahoo.com/>
  yahoo.com/

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

  [As partes desta mensagem que n

Re: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?

[Alessandro DUARTE de Moraes]

Olha Junior, é o seguinte: tendo um contrato firmado, a empresa é responsável 
por dar o suporte e "atualizações". Sendo assim, a empresa não estará mais 
cumprindo esse contrato, então ela é obrigada a fornecer os fontes.
Como já foi dito, um advogado com experiência resolve isso ... qualquer juiz da 
ganho de causa aos clientes desta empresa.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Junior 
  To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
  Sent: Thursday, January 10, 2008 9:05 AM
  Subject: [delphi-br] [OFF-TOPIC] Abandonaram o barco. E agora ?


  Embora OFF, o caso é muito sério.

  A softwarehouse que nos presta serviço chegou pra gente hoje e disse que
  quebrou e vai fechar as portas.

  Assim, sem mais nem menos. Simplesmente falou que a partir de 2ª.feira
  próxima não atenderá mais nínguem.

  Temos acesso total ao SQLServer para geração de novos programas/relatórios,
  porém não temos os fontes do sistema desta softwarehouse.

  E agora ? E se der uma dor de barriga na semana que vem ? Estamos "presos" a
  digníssima referida empresa !!!.

  Minha pergunta é:

  Alguém que já tenha passado por isso sabe alguma Lei (ou coisa do gênero)
  que nos proteja por um determinado tempo ? ou que "obrigue" a software
  house, mesmo na forma da pessoa física do dono/desenvolvedor, a ainda nos
  prestar serviço por "X" dias ?

  Pergunto isso pois já tentamos um acordo "cordeal" hoje cedo com a referida
  e ela por sua vez foi irredundante. ("vou fechar e tchau !").

  Estamos desesperados pelo volume de informações deste sistema.

  Agradeço desde já toda ajuda

  Junior

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4785fc05660388085573735 


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

Re: [delphi-br] [MEIO-OFF] Validação de licenças de Uso (+/- aluguel por data)

[Alessandro DUARTE de Moraes]

Para uma empresa que trabalhei, o soft tb era alugado, e coube a mim fazer o 
sistema de segurança.
Buenos, aqui vai a sequência de passos que adotei:

1) Defini uma chave no registro do Windows, que é criada na instalação do 
software e uso o NOME DA EMPRESA (onde as letras são codificadas para gerar um 
"grande" número) + DATA DE INSTALAÇÃO + SERIAL DO HD LOCAL para criar a chave 
de instalação.
2) Com essa chave de instalação o cliente solicita uma chave de uso, que é 
fornecida pelo suporte (empresa dona do software). A partir desse momento tb 
gravo no registro a última chave de uso (que será fornecida mensalmente junto 
com a NF de cobrança), a última data e hora de utilização do sistema (essa é 
gravada ao entrar e ao sair do programa).
3) Cada chave de uso, contém no seu código criptografado a data até quando o 
sistema irá funcionar - sugiro 30 dias + 10 dias para casos de problemas de 
compensação do pagamento do boleto ...

Nem preciso dizer que tudo isso é criptografado né ...
Esse método funciona até hoje muito bem, e até onde sei nunca descobriu-se caso 
de pirataria.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Marcos Bernardo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, January 09, 2008 3:55 PM
  Subject: [delphi-br] [MEIO-OFF] Validação de licenças de Uso (+/- aluguel por 
data)


  Salve senhores boa tarde...

  Estamos com um projeto para criar um pacote de software
  e a empresa aqui me pediu para criarmos algumas formas de
  travamento e segurança.. ok!

  Minha duvida é... como vcs fazem (caso alguem tenha isso no seus sistemas)
  para liberar o uso do software, que no caso aqui seria como um aluguel
  a pessoa não pagou não usa... heheh

  Pensamos em Datas (Data do sistema < data ultimmo acesso) = TRAVAR

  Mas não estou sentido firmeza.. hehehe
  e atualização destas licenças???

  Gostaria Opnião de vcs ... caso alguem utiliza alguma solução parecida

  Muito obrigado e espero ter sido claro.. hehe

  abraço!

  Marcos Bernardo

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47850b2b305111932667699 


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

Re: [delphi-br] KnowLedge

[Alessandro DUARTE de Moraes]

Ok, tb uso essas artimanhas as vezes, só quiz comentar o problema pois tal 
teste (campo IS NULL) pode ser utilizado não apenas para retornar uma select 
null, e sim para filtrar alguma informação ...
Enfim, quiz informar para quem não sabe (como eu não sabia), que o "IS NULL" 
não é o mesmo que "=NULL".

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 08, 2008 10:17 AM
  Subject: RES: [delphi-br] KnowLedge


  Cara para retonar um select null... faça WHERE 1=2

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
Alessandro DUARTE de Moraes
  Enviada em: terça-feira, 8 de janeiro de 2008 10:04
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] KnowLedge

  Ae pessoal, para ninguém sofrer o que eu sofri ...

  Seguinte, sempre aprendi que para retornar apenas o MetaData de uma tabela, 
isto é, uma query apenas com a definições de uma tabela sem linha alguma, 
bastava eu fazer uma SELECT com a cláusula WHERE campochave IS NULL..
  Estou utilizando Mysql 5 e a ZeosLib 6.6.1-beta.
  Pois bem, ontem descobrimos que isso não funcionava logo após uma inclusão no 
banco!?!? A query utilizada retornava uma linha aleatória ... coisa de maluco 
...
  SOLUÇÃO: ao invés de fazer "campochave IS NULL" alterei para "campochave=NULL"

  Creio que isso seja um bug do Mysql.
  Abraços a todos.

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacasarg.com.br

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

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4783756c985021901747706 


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

[delphi-br] KnowLedge

[Alessandro DUARTE de Moraes]

Ae pessoal, para ninguém sofrer o que eu sofri ...

Seguinte, sempre aprendi que para retornar apenas o MetaData de uma tabela, 
isto é, uma query apenas com a definições de uma tabela sem linha alguma, 
bastava eu fazer uma SELECT com a cláusula WHERE campochave IS NULL.
Estou utilizando Mysql 5 e a ZeosLib 6.6.1-beta.
Pois bem, ontem descobrimos que isso não funcionava logo após uma inclusão no 
banco!?!? A query utilizada retornava uma linha aleatória ... coisa de maluco 
...
SOLUÇÃO: ao invés de fazer "campochave IS NULL" alterei para "campochave=NULL"

Creio que isso seja um bug do Mysql.
Abraços a todos.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br


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

Re: [delphi-br] Caracter '#0' Como descobrir essa coisa

[Alessandro DUARTE de Moraes]

Buenos, esse #0 até onde eu sei seria o NULL - chr(0) ...

Podes usar o StringReplace assim:

StringReplace(string,#0,'',[rfReplaceAll]);
ou
StringReplace(string,Chr(0),'',[rfReplaceAll]);

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Rodrigo Mota 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, January 07, 2008 1:53 PM
  Subject: [delphi-br] Caracter '#0' Como descobrir essa coisa


  Boa tarde,

  Tenho um sistema de exportação de registros..
  quando cai no campo obervacao...da erro pois a qry não aceita esse 
maledeto
  '

  conteudo do campo observacao
  ' Não cotar ''#0'' 12.11.07'

  -> esse '#0' que esta dificil de tirarnão sei q caracter e esse chr(??)
  quando são os que eu conheço dou um stringreplace...

  alguma dica?

  att,

  Rodrigo Mota.


   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47824ba3677661117811037 


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

Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

[Alessandro DUARTE de Moraes]

Hahaha! Seguinte, morei um tempo em Brusque/SC e a minha esposa trabalhava numa 
empresa que usava o sistema desses caras, e uma vez ajudei a fazer um suporte 
on-line. Mas nem lembro o nome da empresa pra dizer a verdade ...

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 28, 2007 1:08 PM
  Subject: RES: [delphi-br] OFF-TOPIC - Dicionário de Dados


  Pera aí, Quais caras de Blumenau? RS...

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
Alessandro DUARTE de Moraes
  Enviada em: sexta-feira, 28 de dezembro de 2007 15:03
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

  Blz, é bem isso mesmo! Já até pensei em desenvolver algo similar, mas está 
com prioridade baixa ... talvez agora eu encare a "peleia".
  Sobre a questão de Scripts, eu uso bastante o que vem com a JediVCL, que era 
a antiga RALib. É pascal, permite inclusive criar formulários, ... bem 
interessante, aconcelho a todos dar uma olhada. Uma vez vi uns caras de 
Blumenau com um programa em que todos os relatórios eram feitos em QuickReport 
(isso já faz bastante tempo), e esses forms eram carregados em tempo de 
execução, utilizando esse recurso. Dessa forma eles faziam relatório 
personalizados. Eu ainda não utilizei esse recurso, mas acho que é uma boa 
saída.

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacasarg.com.br

  - Original Message - 
  From: Elazar Dornelles Ceza 
  To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  Sent: Friday, December 28, 2007 12:43 PM
  Subject: Res: [delphi-br] OFF-TOPIC - Dicionário de Dados

  Alessandro

  Boa tarde, algum tempo atraz eu estava procurando alguma coisa e tambem 
encontrei isso no habil, 
  ele tem uma guia pra cada janela chamada 'Controles do usuario', onde 
qualquer um pode entrar e criar
  campos, dbedit, comobocom base em outras tabelas, consultas...de maneira 
bem fácil, e olhe que 
  para o usuário isto é uma mão na roda, ja que o habil tem um gerenciador de 
relatórios, ficando bem fácil para o cliente
  poder criar suas 'relações personalizadas'.

  - Mensagem original 
  De: Alessandro DUARTE de Moraes <[EMAIL PROTECTED] 
<mailto:duarte%40santacasarg.com.br> >
  Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  Enviadas: Sexta-feira, 28 de Dezembro de 2007 8:09:39
  Assunto: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

  Tô acompanhando essa thread, e agora acho que chegou ao ponto. O Hábil, 
sistema bem conhecido, possui um esquema semelhante a esse que o Andreano 
citou, mas tb não me aprofundei muito.
  Se formos por essa linha de raciocínio eu estou dentro da equipe!

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacas arg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: [EMAIL PROTECTED] os.com.br 
  Sent: Thursday, December 27, 2007 9:52 PM
  Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

  Deixa eu ver se entendi... isso seria realmente para criar uma tela
  automática, ou outra coisa? Porque se for, tem que seguir realmente o que o
  Andreano disse... e um bom embasamento é o proprio Delphi.. o dicionario
  teria que ter a maioria das propriedades, caption, height, width, taborder,
  formatmask, editmask e etc..

  Quanto ao script, a um tempo eu pesquisei sobre isso, e cheguei a conclusão
  de que: o script não substitui o sistema compilado, voce não consegue fazer
  muita coisa, somente mesmo coisas simples.. pra se ter uma idéia, voce
  consegue acesso a dados (IBX, DBX e etc), mas é muito ruim, bom pelo menos
  na época que eu pesquisei... . Na época tinha chegado a conclusão de usar
  mini-EXEs... como a Inprise (Sim, era Inprise na época :o) ) não permitia, e
  ainda não permite (me corrija se estiver errado) que se distribua o
  compilador e fontes do delphi (vcl e afins), estava vendo a compatibilidade
  de integrar o então recém iniciado Lázarus... mas por falta de motivação
  ($$) deixei este projeto de lado..

  Mas, estou atento a esta thread!

  []s
  Fellipe H.

  Em 27/12/07, Andreano Lanusse  escreveu:
  >
  > O primeiro ponto é definir as objetivos que o dicionário de dados terá
  > que atender.
  >
  > Por exemplo:
  >
  > - Características dos campos nas telas( label, dbedit, dbgrid, etc..):
  >
  > o Caption
  >
  > o Hints
  >
  > o Orderm
  >
  > - Obrigatoriedade dos campos
  >
  > - Valor default
  >
  > - Características de menu
  >
  > - Etc...
  >
  > Com isso definido, ai sim pode se começar a pensar em implementação, se
  > começaram a implementer antes, vai ter um trabalhão la na frente pra
  > arru

Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

[Alessandro DUARTE de Moraes]

Blz, é bem isso mesmo! Já até pensei em desenvolver algo similar, mas está com 
prioridade baixa ... talvez agora eu encare a "peleia".
Sobre a questão de Scripts, eu uso bastante o que vem com a JediVCL, que era a 
antiga RALib. É pascal, permite inclusive criar formulários, ... bem 
interessante, aconcelho a todos dar uma olhada. Uma vez vi uns caras de 
Blumenau com um programa em que todos os relatórios eram feitos em QuickReport 
(isso já faz bastante tempo), e esses forms eram carregados em tempo de 
execução, utilizando esse recurso. Dessa forma eles faziam relatório 
personalizados. Eu ainda não utilizei esse recurso, mas acho que é uma boa 
saída.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Elazar Dornelles Ceza 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 28, 2007 12:43 PM
  Subject: Res: [delphi-br] OFF-TOPIC - Dicionário de Dados


  Alessandro

  Boa tarde, algum tempo atraz eu estava procurando alguma coisa e tambem 
encontrei isso no habil, 
  ele tem uma guia pra cada janela chamada 'Controles do usuario', onde 
qualquer um pode entrar e criar
  campos, dbedit, comobocom base em outras tabelas, consultas...de maneira 
bem fácil, e olhe que 
  para o usuário isto é uma mão na roda, ja que o habil tem um gerenciador de 
relatórios, ficando bem fácil para o cliente
  poder criar suas 'relações personalizadas'.

  - Mensagem original 
  De: Alessandro DUARTE de Moraes <[EMAIL PROTECTED]>
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Sexta-feira, 28 de Dezembro de 2007 8:09:39
  Assunto: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

  Tô acompanhando essa thread, e agora acho que chegou ao ponto. O Hábil, 
sistema bem conhecido, possui um esquema semelhante a esse que o Andreano 
citou, mas tb não me aprofundei muito.
  Se formos por essa linha de raciocínio eu estou dentro da equipe!

  Alessandro DUARTE de Moraes
  A.C. Santa Casa do Rio Grande.
  http://www.santacas arg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: [EMAIL PROTECTED] os.com.br 
  Sent: Thursday, December 27, 2007 9:52 PM
  Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

  Deixa eu ver se entendi... isso seria realmente para criar uma tela
  automática, ou outra coisa? Porque se for, tem que seguir realmente o que o
  Andreano disse... e um bom embasamento é o proprio Delphi.. o dicionario
  teria que ter a maioria das propriedades, caption, height, width, taborder,
  formatmask, editmask e etc..

  Quanto ao script, a um tempo eu pesquisei sobre isso, e cheguei a conclusão
  de que: o script não substitui o sistema compilado, voce não consegue fazer
  muita coisa, somente mesmo coisas simples.. pra se ter uma idéia, voce
  consegue acesso a dados (IBX, DBX e etc), mas é muito ruim, bom pelo menos
  na época que eu pesquisei... . Na época tinha chegado a conclusão de usar
  mini-EXEs... como a Inprise (Sim, era Inprise na época :o) ) não permitia, e
  ainda não permite (me corrija se estiver errado) que se distribua o
  compilador e fontes do delphi (vcl e afins), estava vendo a compatibilidade
  de integrar o então recém iniciado Lázarus... mas por falta de motivação
  ($$) deixei este projeto de lado..

  Mas, estou atento a esta thread!

  []s
  Fellipe H.

  Em 27/12/07, Andreano Lanusse  escreveu:
  >
  > O primeiro ponto é definir as objetivos que o dicionário de dados terá
  > que atender.
  >
  > Por exemplo:
  >
  > - Características dos campos nas telas( label, dbedit, dbgrid, etc..):
  >
  > o Caption
  >
  > o Hints
  >
  > o Orderm
  >
  > - Obrigatoriedade dos campos
  >
  > - Valor default
  >
  > - Características de menu
  >
  > - Etc...
  >
  > Com isso definido, ai sim pode se começar a pensar em implementação, se
  > começaram a implementer antes, vai ter um trabalhão la na frente pra
  > arrumar.
  >
  > []'s
  >
  > Andreano Lanusse
  > CodeGear Product Line Manager & Evangelist Leader Latin America
  >
  > Blog: http://blogs. codegear. com/andreanolanu sse
  >
  > Exemplos: http://cc.codegear. com/Author/ 38483
  >
  >  _ _ __
  >
  >
   _ _ ___
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED] com

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

   - - 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] net 

  Chave de Identificação: 54568,477448b611624 9542571743 

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

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
  http://br.mail.yahoo.com/

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

Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

[Alessandro DUARTE de Moraes]

Tô acompanhando essa thread, e agora acho que chegou ao ponto. O Hábil, sistema 
bem conhecido, possui um esquema semelhante a esse que o Andreano citou, mas tb 
não me aprofundei muito.
Se formos por essa linha de raciocínio eu estou dentro da equipe!

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, December 27, 2007 9:52 PM
  Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados


  Deixa eu ver se entendi... isso seria realmente para criar uma tela
  automática, ou outra coisa? Porque se for, tem que seguir realmente o que o
  Andreano disse... e um bom embasamento é o proprio Delphi.. o dicionario
  teria que ter a maioria das propriedades, caption, height, width, taborder,
  formatmask, editmask e etc..

  Quanto ao script, a um tempo eu pesquisei sobre isso, e cheguei a conclusão
  de que: o script não substitui o sistema compilado, voce não consegue fazer
  muita coisa, somente mesmo coisas simples.. pra se ter uma idéia, voce
  consegue acesso a dados (IBX, DBX e etc), mas é muito ruim, bom pelo menos
  na época que eu pesquisei Na época tinha chegado a conclusão de usar
  mini-EXEs... como a Inprise (Sim, era Inprise na época :o) ) não permitia, e
  ainda não permite (me corrija se estiver errado) que se distribua o
  compilador e fontes do delphi (vcl e afins), estava vendo a compatibilidade
  de integrar o então recém iniciado Lázarus... mas por falta de motivação
  ($$) deixei este projeto de lado..

  Mas, estou atento a esta thread!

  []s
  Fellipe H.

  Em 27/12/07, Andreano Lanusse <[EMAIL PROTECTED]> escreveu:
  >
  > O primeiro ponto é definir as objetivos que o dicionário de dados terá
  > que atender.
  >
  > Por exemplo:
  >
  > - Características dos campos nas telas( label, dbedit, dbgrid, etc..):
  >
  > o Caption
  >
  > o Hints
  >
  > o Orderm
  >
  > - Obrigatoriedade dos campos
  >
  > - Valor default
  >
  > - Características de menu
  >
  > - Etc...
  >
  > Com isso definido, ai sim pode se começar a pensar em implementação, se
  > começaram a implementer antes, vai ter um trabalhão la na frente pra
  > arrumar.
  >
  > []'s
  >
  > Andreano Lanusse
  > CodeGear Product Line Manager & Evangelist Leader Latin America
  >
  > Blog: http://blogs.codegear.com/andreanolanusse
  >
  > Exemplos: http://cc.codegear.com/Author/38483
  >
  > 
  >
  >
  _
  T.·.F.·.A.·.
  Fellipe Henrique
  [EMAIL PROTECTED]

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,477448b6116249542571743 


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

Re: [delphi-br] Erro ao clicar em um componente dentro do form...

[Alessandro DUARTE de Moraes]

Pelo que vi este problema é na JediVCL. Qual versão do Delphi estás utilizando?
Sugiro que remova (desinstale) a JediVCL e baixe novamente do site a versão 
compatível com o teu Delphi.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: edersonecris 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, December 27, 2007 12:01 PM
  Subject: [delphi-br] Erro ao clicar em um componente dentro do form...


  Pessoal estou recebendo o erro " Access violation at address 20db1908 in 
  module 'designide100.bpl'. Read of address .
  Esse erro ocorre sempre que clico em qualquer componente do meu 
  formulário. Já procurei no google a maioria das explicações esta em 
  inglês e o pouco que consegui entender, parece que não é o meu caso.
  Alguém tem alguma idéia de como resolver isso?
  Grato

  -- 
  Éderson Cassiano Bologna
  [EMAIL PROTECTED]
  sKYPE: edersoncassiano
  MSN: [EMAIL PROTECTED]
  www.microtechshop.com



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4773be6715689813473502 


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

Re: [delphi-br] O que ha de errado com este código ?

[Alessandro DUARTE de Moraes]

Cara, seguinte:

Em primeiro lugar, quando tu faz ExecSQL não pode usar Open, isto é, comandos 
INSERT, UPDATE, DELETE só devem ser feito com ExecSQL. O Open só deve ser 
utilizado para SELECT. Sendo assim o Close só se faz necessário quando o Open 
for chamado.
Buenos, as várias gravações estão acontecendo por que estás dando um Open e 
depois ExecSQL.
dm2.vendas.open;
dm2.vendas.ExecSql;
dm2.ZTMERCADO.Commit;
dm2.vendas.sql.clear;
dm2.vendas.close;

Revisa o teu fonte e segue a regra que te passei que não tem erro.


Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: bene20032004 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, December 26, 2007 9:25 PM
  Subject: [delphi-br] O que ha de errado com este código ?


  Pessoal, o que ha de errado neste codigo porque quando tento jogar 
  os dados de uma tabela para outra ele grava 3 vezes o mesmo item.
  Zero a tabela tempo6 coloco só um item e mesmo assim ele grava 3 
  vezes...
  Estou usando o mysql 4.0 com o zeus ...
  Se alguém me ajudar eu agradeço... 
  dm2.qtempo6.open;
  dm2.qtempo6.First;
  while not (dm2.qtempo6.Eof) do
  begin
  dm2.QSAIDA.Close;
  dm2.QSAIDA.sql.Clear;
  dm2.QSAIDA.SQl.Add('Select max(codigo) as codigo from 
  saida');
  dm2.QSAIDA.Open;
  dm2.qsaida.open;
  dm2.Qsaida.Last;

  if dm2.qsaida.FieldByName('codigo').asString='' then
  begin
  rcodigo2:='1';
  end
  else
  begin
  rcodigo2:=strzero(inttostr(strToint
  (dm2.qsaida.FieldByName('codigo').asString)+1),5);
  end;
  dm2.vendas.Close;
  dm2.vendas.Sql.Add('insert into ');
  dm2.vendas.Sql.Add('saida( unitario, qtdade, produto, 
  descricao, data, codigo, pedido, tipo, cliente) ');
  dm2.vendas.Sql.Add('values
  ( :unitario, :qtdade, :produto, :descricao, :data, :codigo, :pedido, 
  :tipo, :cliente)');

  dm2.vendas.ParamByName('unitario').Value := 
  dm2.QTEMPO6.FieldByName('unitario').Value;
  dm2.vendas.ParamByName('qtdade').Value := 
  dm2.QTEMPO6.FieldByName('qtdade').Value;
  dm2.vendas.ParamByName('produto').AsString := 
  dm2.QTEMPO6.FieldByName('produto').AsString;
  dm2.vendas.ParamByName('descricao').AsString := 
  dm2.QTEMPO6.FieldByName('descricao').AsString;
  dm2.vendas.ParamByName('data').AsDateTime := now;
  dm2.vendas.ParamByName('codigo').AsString := rcodigo2;
  dm2.vendas.ParamByName('pedido').AsString := rcodigo3;
  dm2.vendas.ParamByName('tipo').value := 
  dm2.QTEMPO6.FieldByName('tipo').value;
  if compra.value-pago.value > 0 then
  begin
  dm2.vendas.ParamByName('cliente').AsString := 
  clico.text;
  end
  else
  begin
  dm2.vendas.ParamByName
  ('cliente').AsString := '00466';
  end;
  dm2.vendas.open;
  dm2.vendas.ExecSql;
  dm2.ZTMERCADO.Commit;
  dm2.vendas.sql.clear;
  dm2.vendas.close;
  if dm2.QTEMPO6.FieldByName('produto').AsString<>'01' then
  begin
  dm2.qproduto.close;
  dm2.qproduto.sql.clear;
  dm2.qproduto.sql.text:='Select codigo,estoque from 
  produto where codigo = '+QuotedStr(dm2.QTEMPO6.FieldByName
  ('produto').AsString)+' order by codigo';
  dm2.qproduto.open;
  if not dm2.qproduto.IsEmpty then
  begin
  dm2.qproduto.edit;
  dm2.qproduto.FieldByName
  ('estoque').Value:=dm2.qproduto.FieldByName('estoque').Value-
  dm2.QTEMPO6.FieldByName('qtdade').Value;
  dm2.qproduto.post;
  end;
  end;
  dm2.qsaida.close;
  dm2.qtempo6.Next;
  end;
  end;



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,4772f1b4688681927728686 


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

[delphi-br] [OFF] descobrir senha de arquivo Excel

[Alessandro DUARTE de Moraes]

Galera, uma querida usuária colocou senha numa planilha de análise de custos 
(que ela tem que apresentar para o diretor) e esqueceu a senha :(
Tentei achar na net algum software free, mas não tive sucesso. Alguém tem 
alguma dica?

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br


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

Re: [delphi-br] Alterar tamanho do form em tempo de execução

[Alessandro DUARTE de Moraes]

Tenta usando o evento OnResize do Form. Eu uso assim e dá certo, em conjunto 
com a propriedade Align.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original Message - 
  From: Carlos Negrão 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, December 17, 2007 6:18 PM
  Subject: [delphi-br] Alterar tamanho do form em tempo de execução


  Alguém tem um tutorial explicando passo a passo como fazer para que o
  tamanho e posição dos componentes se ajustem quando se altera o
  tamanho do form em tempo de execução, usando Delphi 5?
  Eu tentei usando as propriedades align (para os componetes que a tem)
  e constraints, mas não está dando certo. Os componentes dos cantos
  esquerdo e direito em uma linha parecem ir para os lugares certos, mas
  os do meio se sobrepôem.
  Já procurei aqui na lista e no google mas não achei.



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47670737877621072517642 


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