[delphi-br] OFF - Fontes Sistema Ged

[silvano_monteiro]

Desculpe pelo off topic , mas a quem possa interessar estou vendendo 
os Fontes de um Ged(Gerenciamento Eletrônico de Documentos) 
O Sistema foi desenvolvido em Delphi 7 + Firebird 2.0
Tem como recursos Tratamento de Imagens e conversao por OCR (Extrair 
texto de Imagens),etc

Se alguem se interessar me contate pelo email : [EMAIL PROTECTED] 
que eu mando uma apresentação

Agradeço antecipadamente a compreensão do Grupo.

Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP

[Eduardo Silva dos Santos]

Olpa Bollasette, eu uso o RdPrint4 no WinXP e nunca tive problemas, creio
que o caso deve ser outro...

vc pode fazer um pequeno projeto que reproduza o problema e me enviar pra eu
fazer um teste aqui?



Em 06/03/08, Bollasette <[EMAIL PROTECTED]> escreveu:
>
>   Vamos lá,,, são 00:30 do dia seguinte
> passei mais de 6hs nas duas máquinas.
> Baixei o RDprint 4 trial e o instalei no D5 na máquina
> do WIN98.
> Compilei o programa e utilizei o InnoSetup para
> instalá-lo na máquina do WINXP.
> Instalei a matricial CITIZEN GSX-190 no WINXP
> instalei o programa e rodei
> e o problema continua.
>
> ACESS VIOLATION AT ADRESS 0059640B IN MODULE "EMISSOR_NF.EXE"
> READ OF ADDRESS 
>
> obrigado a todos
>
> zzz...zzz...
>
> - Original Message -
> From: Thales (Shubacca) - Tebo Software
> To: delphi-br@yahoogrupos.com.br 
> Sent: Wednesday, March 05, 2008 8:55 PM
> Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
>
> Eu utilizo um opensource chamado vdoprint q roda normal.
>
> https://sourceforge.net/projects/vdo/
>
> falow
>
> Em 05/03/08, Bollasette <[EMAIL PROTECTED]>
> escreveu:
> >
> > Ok,,, vou baixar então,,,
> >
> >
> > - Original Message -
> > From: Eduardo Silva dos Santos
> > To: delphi-br@yahoogrupos.com.br 
> >  ;
> > [EMAIL PROTECTED] 
> > Sent: Wednesday, March 05, 2008 8:29 PM
> > Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
> >
> > Rapaz ta difícil heim.. vc não precisa mudar de Delphi, o RDPrint 4 pode
> > ser
> > instalado no Delphi5.
> >
> > vai no site dos caras, baixa o trial, faz um teste.. se der tudo certo,
> > faz
> > o upgrade, vc ainda vai ter desconto por ser
> > usuário registrado..
> >
> > Em 05/03/08, Bollasette <[EMAIL PROTECTED]
> >
> > escreveu:
> > >
> > > Olá Leonardo,,,
> > >
> > > Não,,, Apenas instalei o D5 com RdPrint 2.1
> > > no WINXP e fiz o teste e compilei sem problemas
> > > mas na hora de imprimir o problema cotinua.
> > > O fabricante com certeza vai querer me
> > > empurrar para uma versão mais recente
> > > do componente e no momento não estou
> > > interessado por causa do preço de uma
> > > atualização do Delphi.
> > > Vou ver se encontro algum componente
> > > free para instalar no D5 e refazer os códigos,
> > > quem sabe roda no WINXP para um cliente.
> > >
> > > Tks
> > >
> > > - Original Message -
> > > From: Leonardo Quinino
> > > To: delphi-br@yahoogrupos.com.br 
> > > 
> > > Sent: Wednesday, March 05, 2008 4:34 PM
> > > Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
> > >
> > > Que tal tentar migrar somente a versão do RDPRINT ?
> > >
> > > Já conversou sobre isso com o fabricante ?
> > >
> > > Em 05/03/08, bollasette <[EMAIL PROTECTED]
> 
> > >
> > > escreveu:
> > > >
> > > > Boa tarde a todos do Grupo...
> > > >
> > > > Tenho um aplicativo que desenvolvi em D5 e Win98
> > > > porém o mesmo instalado no WinXP não imprime utilizando
> > > > o componente RDPRINT 2.1. (ACESS VIOLATION)
> > > > Entrei em contato por email com desenvolvedor do
> > > > componente situado em MARÍLIA,SP e o mesmo me
> > > > retornou afirmando que dá suporte somente para
> > > > o RDPRINT 4.0
> > > >
> > > > Alguém jah passou por isso ?
> > > > Terei que migrar para outro DELPHI ?
> > > >
> > > > Desde jah antecipo agradecimentos pela colaboração
> > > >
> > > > Bolasete (donisete)
> > > >
> > > >
> > > >
> > >
> > > --
> > > Leonardo Quinino
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > > --
> > >
> > > No virus found in this incoming message.
> > > Checked by AVG Free Edition.
> > > Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date:
> > 03-03-2008
> > > 00:00
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]  <
> eduardo.drd%40gmail.com>
> > Site: http://www.drdsistemas.com/
> > ...
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > --
> >
> > No virus found in this incoming message.
> > Checked by AVG Free Edition.
> > Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date:
> 03-03-2008
> > 00:00
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Thales Eduardo Barros de Oliveira
> Desenvolvedor Delphi / Firebird
> Emails:
> [EMAIL PROTECTED]  (GoogleTalk)
> [EMAIL PROTECTED]  (MSN)
> Blog:
> http://tebosoftware.blogspot.com/
>
> "Tente ser uma pessoa de valor, não de sucesso"
> Albert Einstein
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
>
> No virus found in this incoming message.
> Chec

Re: [delphi-br] Componente RDPRINT 2.1 não imprime n o XP

[Bollasette]

Vamos lá,,, são 00:30 do dia seguinte
passei mais de 6hs nas duas máquinas.
Baixei o RDprint 4 trial e o instalei no D5 na máquina
do WIN98.
Compilei o programa e utilizei o InnoSetup para
instalá-lo na máquina do WINXP.
Instalei a matricial CITIZEN GSX-190 no WINXP
instalei o programa e rodei
e o problema continua.

ACESS VIOLATION AT ADRESS 0059640B IN MODULE "EMISSOR_NF.EXE"
READ OF ADDRESS 

obrigado a todos

zzz...zzz...



  - Original Message - 
  From: Thales (Shubacca) - Tebo Software 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 05, 2008 8:55 PM
  Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP


  Eu utilizo um opensource chamado vdoprint q roda normal.

  https://sourceforge.net/projects/vdo/

  falow

  Em 05/03/08, Bollasette <[EMAIL PROTECTED]> escreveu:
  >
  > Ok,,, vou baixar então,,,
  >
  >
  > - Original Message -
  > From: Eduardo Silva dos Santos
  > To: delphi-br@yahoogrupos.com.br  ;
  > [EMAIL PROTECTED] 
  > Sent: Wednesday, March 05, 2008 8:29 PM
  > Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
  >
  > Rapaz ta difícil heim.. vc não precisa mudar de Delphi, o RDPrint 4 pode
  > ser
  > instalado no Delphi5.
  >
  > vai no site dos caras, baixa o trial, faz um teste.. se der tudo certo,
  > faz
  > o upgrade, vc ainda vai ter desconto por ser
  > usuário registrado..
  >
  > Em 05/03/08, Bollasette <[EMAIL PROTECTED]>
  > escreveu:
  > >
  > > Olá Leonardo,,,
  > >
  > > Não,,, Apenas instalei o D5 com RdPrint 2.1
  > > no WINXP e fiz o teste e compilei sem problemas
  > > mas na hora de imprimir o problema cotinua.
  > > O fabricante com certeza vai querer me
  > > empurrar para uma versão mais recente
  > > do componente e no momento não estou
  > > interessado por causa do preço de uma
  > > atualização do Delphi.
  > > Vou ver se encontro algum componente
  > > free para instalar no D5 e refazer os códigos,
  > > quem sabe roda no WINXP para um cliente.
  > >
  > > Tks
  > >
  > > - Original Message -
  > > From: Leonardo Quinino
  > > To: delphi-br@yahoogrupos.com.br 

  > > Sent: Wednesday, March 05, 2008 4:34 PM
  > > Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
  > >
  > > Que tal tentar migrar somente a versão do RDPRINT ?
  > >
  > > Já conversou sobre isso com o fabricante ?
  > >
  > > Em 05/03/08, bollasette <[EMAIL PROTECTED]
  > >
  > > escreveu:
  > > >
  > > > Boa tarde a todos do Grupo...
  > > >
  > > > Tenho um aplicativo que desenvolvi em D5 e Win98
  > > > porém o mesmo instalado no WinXP não imprime utilizando
  > > > o componente RDPRINT 2.1. (ACESS VIOLATION)
  > > > Entrei em contato por email com desenvolvedor do
  > > > componente situado em MARÍLIA,SP e o mesmo me
  > > > retornou afirmando que dá suporte somente para
  > > > o RDPRINT 4.0
  > > >
  > > > Alguém jah passou por isso ?
  > > > Terei que migrar para outro DELPHI ?
  > > >
  > > > Desde jah antecipo agradecimentos pela colaboração
  > > >
  > > > Bolasete (donisete)
  > > >
  > > >
  > > >
  > >
  > > --
  > > Leonardo Quinino
  > >
  > > [As partes desta mensagem que não continham texto foram removidas]
  > >
  > > --
  > >
  > > No virus found in this incoming message.
  > > Checked by AVG Free Edition.
  > > Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date:
  > 03-03-2008
  > > 00:00
  > >
  > > [As partes desta mensagem que não continham texto foram removidas]
  > >
  > >
  > >
  >
  > --
  > ...
  > Eduardo Silva dos Santos
  > DRD Sistemas.
  > (27) 3218-4201
  > MSN: [EMAIL PROTECTED] 
  > Site: http://www.drdsistemas.com/
  > ...
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > --
  >
  > No virus found in this incoming message.
  > Checked by AVG Free Edition.
  > Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008
  > 00:00
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Thales Eduardo Barros de Oliveira
  Desenvolvedor Delphi / Firebird
  Emails:
  [EMAIL PROTECTED] (GoogleTalk)
  [EMAIL PROTECTED] (MSN)
  Blog:
  http://tebosoftware.blogspot.com/

  "Tente ser uma pessoa de valor, não de sucesso"
  Albert Einstein

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008 
00:00


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

RE: [delphi-br] Visualizar arquivos TIF, PDFl

[Ricardo César Cardoso]

Boa noite,

E para PDF vai ter que importar o ActiveX que a Adobe fornece. Pelo menos é o 
que diz este artigo:

[ http://delphi.about.com/cs/howto/ht/htpdf.htm ]

Atte,
Ricardo.

Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: 
  
 O Delphi tem suporte nativo pro JPG. Pra TIFF, tem que ter um componente de 
terceiros que permita o uso de TIF com TImage. Boa sorte. Sds.
 
 
 
 To: delphi-br@yahoogrupos.com.br
 From: [EMAIL PROTECTED]
 Date: Wed, 5 Mar 2008 22:44:53 -0300
 Subject: Re: [delphi-br] Visualizar arquivos TIF, PDFl
 
 JPG ( e acho que TIF tambem) não precisa de nada alem do que já existe no
 Delphi. Veja o help.
 
 Edison
 - Original Message -
 From: "Antonio A N Machado" <[EMAIL PROTECTED]>
 To: 
 Sent: Wednesday, March 05, 2008 10:13 PM
 Subject: [delphi-br] Visualizar arquivos TIF, PDFl
 
 Alguem conhece algum componente capaz de exibir arquivos TIF,JPG e em
 especial PDF , pode ser inclusive componente pago.
 
 Obrigado
 
 --
 < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM>
 
 Links do Yahoo! Grupos
 
 __
 Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live 
Search Maps!
 http://www.livemaps.com.br/index.aspx?tr=true
 
 _



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

RE: [delphi-br] Visualizar arquivos TIF, PDFl

[Rubem Nascimento da Rocha]

O Delphi tem suporte nativo pro JPG. Pra TIFF, tem que ter um componente de 
terceiros que permita o uso de TIF com TImage. Boa sorte. Sds.





To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 5 Mar 2008 22:44:53 -0300
Subject: Re: [delphi-br] Visualizar arquivos TIF, PDFl







JPG ( e acho que TIF tambem) não precisa de nada alem do que já existe no
Delphi. Veja o help.

Edison
- Original Message -
From: "Antonio A N Machado" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, March 05, 2008 10:13 PM
Subject: [delphi-br] Visualizar arquivos TIF, PDFl

Alguem conhece algum componente capaz de exibir arquivos TIF,JPG e em
especial PDF , pode ser inclusive componente pago.

Obrigado

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

Links do Yahoo! Grupos









_
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live 
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true

Re: [delphi-br] Visualizar arquivos TIF, PDFl

[Edison DRP]

JPG ( e acho que TIF tambem) não precisa de nada alem do que já existe no
Delphi.  Veja o help.

Edison
- Original Message - 
From: "Antonio A N Machado" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, March 05, 2008 10:13 PM
Subject: [delphi-br] Visualizar arquivos TIF, PDFl


Alguem conhece algum componente capaz de exibir arquivos TIF,JPG e em
especial PDF , pode ser inclusive componente pago.

Obrigado



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

Links do Yahoo! Grupos

[delphi-br] Visualizar arquivos TIF, PDFl

[Antonio A N Machado]

Alguem conhece algum componente capaz de exibir arquivos TIF,JPG e em 
especial PDF , pode ser inclusive componente pago.

Obrigado

Re: RES: [delphi-br] Fazer o Delphi Visualizar arquivos Mhtml

[Anderson F. de Rossi]

Então , Fazer o webBrowser carregar um doc html blz , já consegui.
Mas um mhtml com imagens ..não 
O Vitor , vc ainda tem o código q vc usou ? vc conseguiu carregat mhtml 
com imagnes ?

Vitor Redes escreveu:
>
> Uma vez eu fiz um helpzinho tosco e salvei em mhtml, funcionou
> normal no TWebBrowser, com navigate mesmo.
>
> --
>
> Vitor Luiz Redes
>
> --
>
> Bureau & Redsystem Software
>
> [EMAIL PROTECTED] 
>
> _
>
> De: delphi-br@yahoogrupos.com.br 
>  
> [mailto:delphi-br@yahoogrupos.com.br 
> ] Em
> nome de arossi75
> Enviada em: terça-feira, 4 de março de 2008 13:31
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] Fazer o Delphi Visualizar arquivos Mhtml
>
> Pessoal boa tarde.
>
> Alguém já fez , ou sabe como, fazer com que o Delphi exiba arquivos
> do formato mhtml usando o TWebBrowser ?
>
> Obrigado a todos.
>
> []s
>
> Anderson. F. de Rossi
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP

[Thales (Shubacca) - Tebo Software]

Eu utilizo um opensource chamado vdoprint q roda normal.

https://sourceforge.net/projects/vdo/

falow

Em 05/03/08, Bollasette <[EMAIL PROTECTED]> escreveu:
>
>   Ok,,, vou baixar então,,,
>
>
> - Original Message -
> From: Eduardo Silva dos Santos
> To: delphi-br@yahoogrupos.com.br  ;
> [EMAIL PROTECTED] 
> Sent: Wednesday, March 05, 2008 8:29 PM
> Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
>
> Rapaz ta difícil heim.. vc não precisa mudar de Delphi, o RDPrint 4 pode
> ser
> instalado no Delphi5.
>
> vai no site dos caras, baixa o trial, faz um teste.. se der tudo certo,
> faz
> o upgrade, vc ainda vai ter desconto por ser
> usuário registrado..
>
> Em 05/03/08, Bollasette <[EMAIL PROTECTED]>
> escreveu:
> >
> > Olá Leonardo,,,
> >
> > Não,,, Apenas instalei o D5 com RdPrint 2.1
> > no WINXP e fiz o teste e compilei sem problemas
> > mas na hora de imprimir o problema cotinua.
> > O fabricante com certeza vai querer me
> > empurrar para uma versão mais recente
> > do componente e no momento não estou
> > interessado por causa do preço de uma
> > atualização do Delphi.
> > Vou ver se encontro algum componente
> > free para instalar no D5 e refazer os códigos,
> > quem sabe roda no WINXP para um cliente.
> >
> > Tks
> >
> > - Original Message -
> > From: Leonardo Quinino
> > To: delphi-br@yahoogrupos.com.br 
> > 
> > Sent: Wednesday, March 05, 2008 4:34 PM
> > Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
> >
> > Que tal tentar migrar somente a versão do RDPRINT ?
> >
> > Já conversou sobre isso com o fabricante ?
> >
> > Em 05/03/08, bollasette <[EMAIL PROTECTED]
> >
> > escreveu:
> > >
> > > Boa tarde a todos do Grupo...
> > >
> > > Tenho um aplicativo que desenvolvi em D5 e Win98
> > > porém o mesmo instalado no WinXP não imprime utilizando
> > > o componente RDPRINT 2.1. (ACESS VIOLATION)
> > > Entrei em contato por email com desenvolvedor do
> > > componente situado em MARÍLIA,SP e o mesmo me
> > > retornou afirmando que dá suporte somente para
> > > o RDPRINT 4.0
> > >
> > > Alguém jah passou por isso ?
> > > Terei que migrar para outro DELPHI ?
> > >
> > > Desde jah antecipo agradecimentos pela colaboração
> > >
> > > Bolasete (donisete)
> > >
> > >
> > >
> >
> > --
> > Leonardo Quinino
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > --
> >
> > No virus found in this incoming message.
> > Checked by AVG Free Edition.
> > Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date:
> 03-03-2008
> > 00:00
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/
> ...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008
> 00:00
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird
Emails:
[EMAIL PROTECTED] (GoogleTalk)
[EMAIL PROTECTED] (MSN)
Blog:
http://tebosoftware.blogspot.com/

"Tente ser uma pessoa de valor, não de sucesso"
Albert Einstein


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

Re: [delphi-br] Componente RDPRINT 2.1 não imprime n o XP

[Bollasette]

Ok,,, vou baixar então,,,


  - Original Message - 
  From: Eduardo Silva dos Santos 
  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] 
  Sent: Wednesday, March 05, 2008 8:29 PM
  Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP


  Rapaz ta difícil heim.. vc não precisa mudar de Delphi, o RDPrint 4 pode ser
  instalado no Delphi5.

  vai no site dos caras, baixa o trial, faz um teste.. se der tudo certo, faz
  o upgrade, vc ainda vai ter desconto por ser
  usuário registrado..

  Em 05/03/08, Bollasette <[EMAIL PROTECTED]> escreveu:
  >
  > Olá Leonardo,,,
  >
  > Não,,, Apenas instalei o D5 com RdPrint 2.1
  > no WINXP e fiz o teste e compilei sem problemas
  > mas na hora de imprimir o problema cotinua.
  > O fabricante com certeza vai querer me
  > empurrar para uma versão mais recente
  > do componente e no momento não estou
  > interessado por causa do preço de uma
  > atualização do Delphi.
  > Vou ver se encontro algum componente
  > free para instalar no D5 e refazer os códigos,
  > quem sabe roda no WINXP para um cliente.
  >
  > Tks
  >
  > - Original Message -
  > From: Leonardo Quinino
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Wednesday, March 05, 2008 4:34 PM
  > Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
  >
  > Que tal tentar migrar somente a versão do RDPRINT ?
  >
  > Já conversou sobre isso com o fabricante ?
  >
  > Em 05/03/08, bollasette <[EMAIL PROTECTED]>
  > escreveu:
  > >
  > > Boa tarde a todos do Grupo...
  > >
  > > Tenho um aplicativo que desenvolvi em D5 e Win98
  > > porém o mesmo instalado no WinXP não imprime utilizando
  > > o componente RDPRINT 2.1. (ACESS VIOLATION)
  > > Entrei em contato por email com desenvolvedor do
  > > componente situado em MARÍLIA,SP e o mesmo me
  > > retornou afirmando que dá suporte somente para
  > > o RDPRINT 4.0
  > >
  > > Alguém jah passou por isso ?
  > > Terei que migrar para outro DELPHI ?
  > >
  > > Desde jah antecipo agradecimentos pela colaboração
  > >
  > > Bolasete (donisete)
  > >
  > >
  > >
  >
  > --
  > Leonardo Quinino
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > --
  >
  > No virus found in this incoming message.
  > Checked by AVG Free Edition.
  > Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008
  > 00:00
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

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

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008 
00:00


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

Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP

[Eduardo Silva dos Santos]

Rapaz ta difícil heim.. vc não precisa mudar de Delphi, o RDPrint 4 pode ser
instalado no Delphi5.

vai no site dos caras, baixa o trial, faz um teste.. se der tudo certo, faz
o upgrade, vc ainda vai ter desconto por ser
usuário registrado..


Em 05/03/08, Bollasette <[EMAIL PROTECTED]> escreveu:
>
>   Olá Leonardo,,,
>
> Não,,, Apenas instalei o D5 com RdPrint 2.1
> no WINXP e fiz o teste e compilei sem problemas
> mas na hora de imprimir o problema cotinua.
> O fabricante com certeza vai querer me
> empurrar para uma versão mais recente
> do componente e no momento não estou
> interessado por causa do preço de uma
> atualização do Delphi.
> Vou ver se encontro algum componente
> free para instalar no D5 e refazer os códigos,
> quem sabe roda no WINXP para um cliente.
>
> Tks
>
> - Original Message -
> From: Leonardo Quinino
> To: delphi-br@yahoogrupos.com.br 
> Sent: Wednesday, March 05, 2008 4:34 PM
> Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
>
> Que tal tentar migrar somente a versão do RDPRINT ?
>
> Já conversou sobre isso com o fabricante ?
>
> Em 05/03/08, bollasette <[EMAIL PROTECTED]>
> escreveu:
> >
> > Boa tarde a todos do Grupo...
> >
> > Tenho um aplicativo que desenvolvi em D5 e Win98
> > porém o mesmo instalado no WinXP não imprime utilizando
> > o componente RDPRINT 2.1. (ACESS VIOLATION)
> > Entrei em contato por email com desenvolvedor do
> > componente situado em MARÍLIA,SP e o mesmo me
> > retornou afirmando que dá suporte somente para
> > o RDPRINT 4.0
> >
> > Alguém jah passou por isso ?
> > Terei que migrar para outro DELPHI ?
> >
> > Desde jah antecipo agradecimentos pela colaboração
> >
> > Bolasete (donisete)
> >
> >
> >
>
> --
> Leonardo Quinino
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008
> 00:00
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



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


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

Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP

[Marcio Pires]

Boa noite,

 Utilizo o Print-Fast 2.2 componente semelhante com algumas funções a mais ,
já faz alguns anos e nunca tive problema com xp ele também é pago R$250,00
e voce pode adquirir um demo no site www.ncs.com.br.
Também são disponibilizado os fontes na versão paga.

Márcio




2008/3/5 bollasette <[EMAIL PROTECTED]>:

>   Boa tarde a todos do Grupo...
>
> Tenho um aplicativo que desenvolvi em D5 e Win98
> porém o mesmo instalado no WinXP não imprime utilizando
> o componente RDPRINT 2.1. (ACESS VIOLATION)
> Entrei em contato por email com desenvolvedor do
> componente situado em MARÍLIA,SP e o mesmo me
> retornou afirmando que dá suporte somente para
> o RDPRINT 4.0
>
> Alguém jah passou por isso ?
> Terei que migrar para outro DELPHI ?
>
> Desde jah antecipo agradecimentos pela colaboração
>
> Bolasete (donisete)
>
> 
>


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

Re: [delphi-br] Componente RDPRINT 2.1 não imprime n o XP

[Bollasette]

Olá Leonardo,,,

Não,,, Apenas instalei o D5 com RdPrint 2.1
no WINXP e fiz o teste e compilei sem problemas
mas na hora de imprimir o problema cotinua.
O fabricante com certeza vai querer me
empurrar para uma versão mais recente
do componente e no momento não estou
interessado por causa do preço de uma
atualização do Delphi.
Vou ver se encontro algum componente
free para instalar no D5 e refazer os códigos,
quem sabe roda no WINXP para um cliente.

Tks


  - Original Message - 
  From: Leonardo Quinino 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 05, 2008 4:34 PM
  Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP


  Que tal tentar migrar somente a versão do RDPRINT ?

  Já conversou sobre isso com o fabricante ?

  Em 05/03/08, bollasette <[EMAIL PROTECTED]> escreveu:
  >
  > Boa tarde a todos do Grupo...
  >
  > Tenho um aplicativo que desenvolvi em D5 e Win98
  > porém o mesmo instalado no WinXP não imprime utilizando
  > o componente RDPRINT 2.1. (ACESS VIOLATION)
  > Entrei em contato por email com desenvolvedor do
  > componente situado em MARÍLIA,SP e o mesmo me
  > retornou afirmando que dá suporte somente para
  > o RDPRINT 4.0
  >
  > Alguém jah passou por isso ?
  > Terei que migrar para outro DELPHI ?
  >
  > Desde jah antecipo agradecimentos pela colaboração
  >
  > Bolasete (donisete)
  >
  > 
  >

  -- 
  Leonardo Quinino

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



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008 
00:00


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

Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP

[Leonardo Quinino]

Que tal tentar migrar somente a versão do RDPRINT  ?


Já conversou sobre isso com o fabricante ?



Em 05/03/08, bollasette <[EMAIL PROTECTED]> escreveu:
>
>   Boa tarde a todos do Grupo...
>
> Tenho um aplicativo que desenvolvi em D5 e Win98
> porém o mesmo instalado no WinXP não imprime utilizando
> o componente RDPRINT 2.1. (ACESS VIOLATION)
> Entrei em contato por email com desenvolvedor do
> componente situado em MARÍLIA,SP e o mesmo me
> retornou afirmando que dá suporte somente para
> o RDPRINT 4.0
>
> Alguém jah passou por isso ?
> Terei que migrar para outro DELPHI ?
>
> Desde jah antecipo agradecimentos pela colaboração
>
> Bolasete (donisete)
>
>  
>



-- 
Leonardo Quinino


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

Re: [delphi-br] [COMBOBOX]

[Andre Gustavo Meister]

Cara faz assim
 no onEnter do combobox, um 'for' adicionando os funcionarios, e no onExit 
manda localizar o codigo do funcionario e insere no edit.

  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 04, 2008 3:45 PM
  Subject: RE: [delphi-br] [COMBOBOX]



  Tb acho! Pra quê ficar reinventando a roda?
  Sds.

  

  To: delphi-br@yahoogrupos.com.br
  From: [EMAIL PROTECTED]
  Date: Tue, 4 Mar 2008 09:34:55 -0300
  Subject: Re: [delphi-br] [COMBOBOX]

  LookupComboBox, não serve  

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

  - Original Message -
  From: Marcio
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, March 04, 2008 8:35 AM
  Subject: [delphi-br] [COMBOBOX]

  Olá a todos ...

  Pessoal como faco para que um combobox mostre um valor e result outro ??

  Por exemplo..
  vou carregar o combobox atravez de um Sql. (codigo,NomeFuncionario).
  O combobox devera mostrar o Nome do Funcionario, ao clickar o combobox
  um edit recebera o codigo do funcionario...

  É possivel fazer essa amarracao ???
  O combobox aceita um value e uma descricao ???

  Desculpem minha pergunta primaria ..

  Marcio.

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

  __
  Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
  http://www.amigosdomessenger.com.br/

   

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

Res: Res: [delphi-br] OFF-TOPIC / SQL Firebird 2.0 - Stored Procedures

[Andre Luis Silveria]

vc tem que ter uma variavel para armazenar a contagem:
testa aé e retorna o erro que aparecer.

SET TERM ^ ; 
CREATE PROCEDURE SP_ALTERA_ESTOQUE( 
CODLOJA INTEGER, 
CODPRODUTO INTEGER, 
QUANTIDADE INTEGER) 
AS 
DECLARE VARIABLE CONTA INTEGER;
BEGIN 
Select Count(*) 
From PRODUTOSESTOQUELOJA S 
   WHERE((PRODUTOSESTOQUELO JAS.CODLOJA = :CODLOJA AND 
  (PRODUTOSESTOQUELOJAS.CODPRODUTO = :CODPRODUTO)
into :conta;

IF (:conta > 0) THEN 
BEGIN 
UPDATE PRODUTOSESTOQUELOJA S SET PRODUTOSESTOQUELOJA S.ESTOQUE = 
PRODUTOSESTOQUELOJA S.ESTOQUE + :QUANTIDADE 
END 
ELSE 
BEGIN 
INSERT INTO PRODUTOSESTOQUELOJA S (ESTOQUE) VALUES (QUANTIDADE) 
END 
END; 
SET TERM ; ^ 

- Mensagem original 
De: Edson Cabral <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 5 de Março de 2008 17:03:47
Assunto: Res: [delphi-br] OFF-TOPIC / SQL Firebird 2.0 - Stored Procedures

  Quanto ao uso do componente para executar a Stored Procedure 
eu sei. 

A questão é que a Stored Procedure abaixo não é criada, pois dá um erro 
(possivelmente de sintaxe). 
Eu quero saber se alguém descobre que erro é esse, ou se de repente eu estou 
fazendo algo errado no corpo da stored procedure para causar o erro.

O erro do IBExpert informa a linha em que está o IF e não compila a stored 
procedure no banco. Entendeu? A SP nem sequer chega a ser criada.

Edson

- Mensagem original 
De: Ricardo César Cardoso 
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Terça-feira, 4 de Março de 2008 12:14:43
Assunto: Re: [delphi-br] OFF-TOPIC / SQL Firebird 2.0 - Stored Procedures

Bem... não sei se entendi sua pergunta, mas se vc quer fazer isso no Delphi, 
pode fazer usando o TSQLConnection (DBExpress) passando esta stored procedure. 
Cada parâmetro é acessado por um "array" Params e o índice de cada parâmetro. O 
primeiro parâmetro tem o índice 0 no "array" de parâmetros e assim por diante. 
Para criar a procedure, vc usa o método "Execute".

Acho que é isso. Se não for, detalhe melhor o problema.

Atte,
Ricardo.

Edson Cabral <[EMAIL PROTECTED] com.br> escreveu: Perdoem o off-topic, é que 
estou com certa urgência.
Quem trabalha com Stored Procedures poderá tirar essa dúvida.
 

Olá pessoal. 

Estou com uma dúvida em relação a criação de Stored Procedures no Firebird 2.0. 
Sempre que precisei usar SPs, as criei a partir do IBExpert. 
Só que agora preciso de uma stored procedure que tenho que criar na unha e 
estou meio perdido... 

Trata-se de uma stored procedure para atualizar o Estoque (campo ESTOQUE) da 
tabela PRODUTOSESTOQUELOJA S. 
Preciso passar três parâmetros: CodLoja e CodProduto, e mais a Quantidade que 
desejo incrementar o estoque. 

A SP deve verificar se o produto já existe cadastrado a partir dos parâmetros 
de entrada CodProduto e CodLoja (se achar algum registro com os campos CodLoja 
e CodProduto que confiram com os parâmetros). 
Caso exista, deve-se dar um UPDATE na tabela para atualizar o estoque somando-o 
a variável QUANTIDADE (mais um parâmetro de entrada). 

Caso não exista ainda cadastrado, deve-se dar um INSERT na tabela cadastrando o 
produto com a quantidade em estoque que passei como parâmetro QUANTIDADE. 
O código que tenho (e que não funciona, pois dá erro na criação da SP) é esse 
abaixo: 

Código: 

SET TERM ^ ; 
CREATE PROCEDURE SP_ALTERA_ESTOQUE( 
CODLOJA INTEGER, 
CODPRODUTO INTEGER, 
QUANTIDADE INTEGER) 
AS 
BEGIN 
IF (Select Count(*) From PRODUTOSESTOQUELOJA S WHERE ((PRODUTOSESTOQUELO 
JAS.CODLOJA = :CODLOJA) AND (PRODUTOSESTOQUELOJ AS.CODPRODUTO = :CODPRODUTO) > 
0) THEN 
BEGIN 
BEGIN TRANSACTION 
UPDATE PRODUTOSESTOQUELOJA S SET PRODUTOSESTOQUELOJA S.ESTOQUE = 
PRODUTOSESTOQUELOJA S.ESTOQUE + :QUANTIDADE 
COMMIT 
END 
ELSE 
BEGIN 
BEGIN TRANSACTION 
INSERT INTO PRODUTOSESTOQUELOJA S (ESTOQUE) VALUES (QUANTIDADE) 
COMMIT 
END 
END; 
SET TERM ; ^ 

Obrigado a todos. 
Edson 

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]

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

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]



  











  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]

Re: [delphi-br] Abrir arquivos do meu aplicativo com o aplicativo

[Ricardo César Cardoso]

Boa tarde Walter!

Extraí a dica seguinte do "Dicas e Truques de Delphi" v. 2.8 Já usei uma vez 
fazendo algumas alterações e funcionou corretamente.

399 - Programar meu aplicativo para abrir arquivos a partir do Windows Explorer
Inclua na seção uses: Registry

Problema:

Criei um editor de textos no Delphi. Agora gostaria que o Windows Explorer 
usasse este editor para abrir arquivos com a extensão .dpg e .dan. Como fazer?

Solução:

Para fazer isto será necessária a criação de algumas chaves no Registro do 
Windows. O exemplo abaixo cria todas as chaves necessárias.

- Coloque um TButton e no evento OnClick dele coloque o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.LazyWrite := false;
  { Define o nome interno (ArquivoDaniel) e uma legenda que aparecerá no 
Windows Explorer (Arquivo do Daniel) }
  Reg.OpenKey('ArquivoDaniel', true);
  Reg.WriteString('', 'Arquivo do Daniel');
  Reg.CloseKey;
{ Define o comando a ser executado quando abrir um arquivo pelo Windows 
Explorer (NomeDoExe %1). O símbolo %1 indica que o arquivo a ser aberto será 
passado como primeiro parâmetro para o aplicativo - ParamStr(1). }
  Reg.OpenKey('ArquivoDaniel\shell\open\command', true);
  Reg.WriteString('', ParamStr(0) + ' %1'); { NomeDoExe %1 }
  Reg.CloseKey;
  { Define o ícone a ser usado no Windows Explorer:
  0 - primeiro ícone do EXE
  1 - segundo ícone do EXE, etc }
  Reg.OpenKey('ArquivoDaniel\DefaultIcon', true);
  Reg.WriteString('', ParamStr(0) + ',0'); { 0 = primeiro ícone }
  Reg.CloseKey;
  { Define as extensões de arquivos que serão abertos pelo meu aplicativo }
  { *.dpg }
  Reg.OpenKey('.dpg', true);
  Reg.WriteString('', 'ArquivoDaniel');
  Reg.CloseKey;
  { *.dan }
  Reg.OpenKey('.dan', true);
  Reg.WriteString('', 'ArquivoDaniel');
  Reg.CloseKey;
  finally
  Reg.Free;
  end;
end;
- Coloque um TMemo;

- No evento OnShow do Form coloque o código abaixo:

procedure TForm1.FormShow(Sender: TObject);
begin
  { Se o primeiro parâmetro for um nome de arquivo existente... }
  if FileExists(ParamStr(1)) then
  { Carrega o conteúdo do arquivo no memo }
  Memo1.Lines.LoadFromFile(ParamStr(1));
end;
*** Para testar ***

- Execute este programa;

- Clique no botão para criar as chaves no Registro do Windows;

- Feche o programa;

- Crie alguns arquivos com as extensões .dpg e .dan;

- Vá ao Windows Explorer e procure pelos arquivos criados;

- Experimente dar um duplo-clique sobre qualquer dos arquivos com uma das 
extensões acima.

Observações

Existem outros recursos que poderão ser configurados. Porém, para começar, este 
já é um bom exemplo. 

Atte,
Ricardo.

Walter Maldonado Junior <[EMAIL PROTECTED]> escreveu:   
Pessoal, 
 
 Estou desenvolvendo um software que salva arquivos em um formato próprio. Eu
 gostaria de fazer com que o arquivo seja aberto pelo meu aplicativo quando o
 usuário clica nele no Windows. Tipo, quando vc abre um arquivo .doc o Word
 abre sozinho. Eu gostaria que quando alguém desse 2 cliques no arquivo ..xxx
 ele abrisse o meu programa e o arquivo para edição.
 
 Alguém sabe como se faz isso ou poderia me dar uma força?
 
 Muito Obrigado pela atenção
 
 Walter”
 
 Abraços
 
 [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! 

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

Res: [delphi-br] OFF-TOPIC / SQL Firebird 2.0 - Stored Procedures

[Edson Cabral]

Quanto ao uso do componente para executar a Stored Procedure eu sei. 

A questão é que a Stored Procedure abaixo não é criada, pois dá um erro 
(possivelmente de sintaxe). 
Eu quero saber se alguém descobre que erro é esse, ou se de repente eu estou 
fazendo algo errado no corpo da stored procedure para causar o erro.

O erro do IBExpert informa a linha em que está o IF e não compila a stored 
procedure no banco. Entendeu? A SP nem sequer chega a ser criada.

Edson


- Mensagem original 
De: Ricardo César Cardoso <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 4 de Março de 2008 12:14:43
Assunto: Re: [delphi-br] OFF-TOPIC / SQL Firebird 2.0 - Stored Procedures

Bem... não sei se entendi sua pergunta, mas se vc quer fazer isso no Delphi, 
pode fazer usando o TSQLConnection (DBExpress) passando esta stored procedure. 
Cada parâmetro é acessado por um "array" Params e o índice de cada parâmetro. O 
primeiro parâmetro tem o índice 0 no "array" de parâmetros e assim por diante. 
Para criar a procedure, vc usa o método "Execute".

Acho que é isso. Se não for, detalhe melhor o problema.

Atte,
Ricardo.

Edson Cabral <[EMAIL PROTECTED] com.br> escreveu: Perdoem o off-topic, é que 
estou com certa urgência.
Quem trabalha com Stored Procedures poderá tirar essa dúvida.
 

Olá pessoal. 

Estou com uma dúvida em relação a criação de Stored Procedures no Firebird 2.0. 
Sempre que precisei usar SPs, as criei a partir do IBExpert. 
Só que agora preciso de uma stored procedure que tenho que criar na unha e 
estou meio perdido... 

Trata-se de uma stored procedure para atualizar o Estoque (campo ESTOQUE) da 
tabela PRODUTOSESTOQUELOJA S. 
Preciso passar três parâmetros: CodLoja e CodProduto, e mais a Quantidade que 
desejo incrementar o estoque. 

A SP deve verificar se o produto já existe cadastrado a partir dos parâmetros 
de entrada CodProduto e CodLoja (se achar algum registro com os campos CodLoja 
e CodProduto que confiram com os parâmetros). 
Caso exista, deve-se dar um UPDATE na tabela para atualizar o estoque somando-o 
a variável QUANTIDADE (mais um parâmetro de entrada). 

Caso não exista ainda cadastrado, deve-se dar um INSERT na tabela cadastrando o 
produto com a quantidade em estoque que passei como parâmetro QUANTIDADE. 
O código que tenho (e que não funciona, pois dá erro na criação da SP) é esse 
abaixo: 

Código: 

SET TERM ^ ; 
CREATE PROCEDURE SP_ALTERA_ESTOQUE( 
CODLOJA INTEGER, 
CODPRODUTO INTEGER, 
QUANTIDADE INTEGER) 
AS 
BEGIN 
IF (Select Count(*) From PRODUTOSESTOQUELOJA S WHERE ((PRODUTOSESTOQUELO 
JAS.CODLOJA = :CODLOJA) AND (PRODUTOSESTOQUELOJ AS.CODPRODUTO = :CODPRODUTO) > 
0) THEN 
BEGIN 
BEGIN TRANSACTION 
UPDATE PRODUTOSESTOQUELOJA S SET PRODUTOSESTOQUELOJA S.ESTOQUE = 
PRODUTOSESTOQUELOJA S.ESTOQUE + :QUANTIDADE 
COMMIT 
END 
ELSE 
BEGIN 
BEGIN TRANSACTION 
INSERT INTO PRODUTOSESTOQUELOJA S (ESTOQUE) VALUES (QUANTIDADE) 
COMMIT 
END 
END; 
SET TERM ; ^ 


Obrigado a todos. 
Edson 

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]





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


 


  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]

RES: [delphi-br] Abrir arquivos do meu aplicativo com o aplicativo

[Gerhard Roger Nack]

Não lembro onde peguei essa função, mas usa ai e seja feliz.

 

De qualquer forma se tivesse procurado no Google por "Delphi File Association" 
iria achar dezenas de soluções como esta.

 

 

function RegisterAssociation(ExeName, FileExt, FileDesc: string): Boolean;

{

  ExeName   is the full path and name of the exe that will be associated with

the extention.

  FileExt   is the extension of the file to register i.e. ".txt" or ".doc".

  FileDesc  is the description of the file. i.e. "MyWordProcessor Document",

or "Text file", etc.

}

var

  FileClass: string;

begin

  Result := False;

 

  FileExt := Trim(FileExt);

  if FileExt = '' then

Exit;

 

  if FileExt[1] <> '.' then

FileExt := '.' + FileExt;

 

  FileClass := Copy(FileExt, 2, Length(FileExt)) + 'file';

 

  with TRegistry.Create do

  begin

try

  RootKey := HKEY_CLASSES_ROOT;

  if OpenKey(FileExt, True) then

  begin

 WriteString('', FileClass);

 CloseKey;

  end;

  if OpenKey(FileClass, True) then

  begin

 WriteString('', FileDesc);

 CloseKey;

  end;

  if OpenKey(FileClass+'\Shell\Open', True) then

  begin

 WriteString('', '&Open');

 CloseKey;

  end;

  if OpenKey(FileClass+'\Shell\Open\command', True) then

  begin

 WriteString('',ExeName+' "%1"'); // Registers to Application.ExeName

 CloseKey;

 Result:=True;

 

 ShChangeNotify(SHCNE_ASSOCCHANGED, 0, nil, nil);

  end;

finally

  Free;

end;

  end;

end;

 

 

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter 
Maldonado Junior
Enviada em: quarta-feira, 5 de março de 2008 14:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir arquivos do meu aplicativo com o aplicativo

 

Pessoal, 

Estou desenvolvendo um software que salva arquivos em um formato próprio. Eu
gostaria de fazer com que o arquivo seja aberto pelo meu aplicativo quando o
usuário clica nele no Windows. Tipo, quando vc abre um arquivo .doc o Word
abre sozinho. Eu gostaria que quando alguém desse 2 cliques no arquivo ..xxx
ele abrisse o meu programa e o arquivo para edição.

Alguém sabe como se faz isso ou poderia me dar uma força?

Muito Obrigado pela atenção

Walter"

Abraços

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

 



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

Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP

[Eduardo Silva dos Santos]

Vc não precisa mudar de Delphi, o problema é que o RDPrint 2.1 tem alguma
incompatibilidade com o Windows XP.

o ideal é vc fazer um upgrade no seu RDPrint para a versão mais atual. ou
usar opções free como RSPrint ou VDOPrint..
o RSPrint tem um preview bem parecido com o RDPrint..  o VDO tem um preview
não muito bom.

sugestão, se vc gosta do RDPrint faz o upgrade.



Em 05/03/08, bollasette <[EMAIL PROTECTED]> escreveu:
>
>   Boa tarde a todos do Grupo...
>
> Tenho um aplicativo que desenvolvi em D5 e Win98
> porém o mesmo instalado no WinXP não imprime utilizando
> o componente RDPRINT 2.1. (ACESS VIOLATION)
> Entrei em contato por email com desenvolvedor do
> componente situado em MARÍLIA,SP e o mesmo me
> retornou afirmando que dá suporte somente para
> o RDPRINT 4.0
>
> Alguém jah passou por isso ?
> Terei que migrar para outro DELPHI ?
>
> Desde jah antecipo agradecimentos pela colaboração
>
> Bolasete (donisete)
>
>  
>



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


[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] Abrir arquivos do meu aplicativo com o aplicativo

[Rubem Nascimento da Rocha]

Quem procura, acha!

http://www.swissdelphicenter.ch/en/showcode.php?id=178

Sds.






To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 5 Mar 2008 14:14:53 -0300
Subject: [delphi-br] Abrir arquivos do meu aplicativo com o aplicativo







Pessoal,

Estou desenvolvendo um software que salva arquivos em um formato próprio. Eu
gostaria de fazer com que o arquivo seja aberto pelo meu aplicativo quando o
usuário clica nele no Windows. Tipo, quando vc abre um arquivo .doc o Word
abre sozinho. Eu gostaria que quando alguém desse 2 cliques no arquivo ..xxx
ele abrisse o meu programa e o arquivo para edição.

Alguém sabe como se faz isso ou poderia me dar uma força?

Muito Obrigado pela atenção

Walter”

Abraços

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









_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

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

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

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

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

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

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

 

Re: [delphi-br] Ata de Resultados

[Ralp Alves Bezerra]

Obrigado Duarte vou testar a sua dica e retorno.

Abraços.

Alessandro DUARTE de Moraes escreveu:
> 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
>   > >
>   > >
>   > > 
>   > > -- 
>   > > E-mail Seguro Vetorial.net 
>   > >
>   > > Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
>   > > e

[delphi-br] Abrir arquivos do meu aplicativo com o aplicativo

[Walter Maldonado Junior]

Pessoal, 

 

Estou desenvolvendo um software que salva arquivos em um formato próprio. Eu
gostaria de fazer com que o arquivo seja aberto pelo meu aplicativo quando o
usuário clica nele no Windows. Tipo, quando vc abre um arquivo .doc o Word
abre sozinho. Eu gostaria que quando alguém desse 2 cliques no arquivo ..xxx
ele abrisse o meu programa e o arquivo para edição.

 

Alguém sabe como se faz isso ou poderia me dar uma força?

 

Muito Obrigado pela atenção

Walter”

 

Abraços



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

RES: [delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]

[Walter Maldonado Junior]

Não sei se eu entendi o que vc pergunto, mas quando eu preciso ler o
conteúdo da stringlist faço o seguinte

 

For i :=  0 to Lista.Count – 1 do

  S := Lista.Strings[i]; // é o texto de índice i

 

Espero ter ajudado

Um abraço

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Marcio
Enviada em: quarta-feira, 5 de março de 2008 11:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]

 

Amigos como faco para ler o conteudo de da lista ???

procedure TForm1.Button5Click(Sender: TObject);
var
Lista: TStringList;
N: Integer;
S: String;
I,V, Idx: Integer;
Objeto : TObject;
begin
Lista := TStringList.Create;

i := 0;
while i < 10 do
begin
s := 'Alguma Coisa' + IntToStr(i);
V := i * 1000;
Lista.AddObject(s, TObject(V));
i:= i + 1;
end;

Como Faco para ler o conteudo de uma lista 

// busca um objeto pelo identificador
N := Lista.IndexOf('Alguma Coisa3');
if N >= 0 then
Objeto := Lista.Objects[N]
else
Objeto := nil;

// atenção...
// antes de destruir a lista de string, precisa destruir os objetos!
for N := 0 to Lista.Count - 1 do
Lista.Objects[N].Free;
Lista.Free;

end; 

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

 



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

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

[Davi Eduardo Borges Wall]

Pegue o diretório do arquivo corrente utilizando  ExtractFilePath(ParamStr(0))

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Celio 
Bernardo
Enviada em: quarta-feira, 5 de março de 2008 13:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [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]

 



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

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

[Berdam]

na verdade eu acredito que ele deva gravar em alguma parte isso.

Nâo seria melhor vc por o caminho completo do arquiv??

tipo c:\teste.txt
e não somente o nome??

Celio Bernardo <[EMAIL PROTECTED]> escreveu:   
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]
 
 
 
   



Uberdam Cavaletti
Formado em Tecnologia da Informação
Pós-graduando em desenvolvimento Java.


-
http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com


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

[delphi-br] Componente RDPRINT 2.1 não imprime no XP

[bollasette]

Boa tarde a todos do Grupo...

Tenho um aplicativo que desenvolvi em D5 e Win98
porém o mesmo instalado no WinXP não imprime utilizando
o componente RDPRINT 2.1. (ACESS VIOLATION)
Entrei em contato por email com desenvolvedor do
componente situado em MARÍLIA,SP e o mesmo me 
retornou afirmando que dá suporte somente para 
o RDPRINT 4.0

Alguém jah passou por isso ?
Terei que migrar para outro DELPHI ?

Desde jah antecipo agradecimentos pela colaboração

Bolasete (donisete)

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

[Celio Bernardo]

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]

[delphi-br] Mestre/Detalhes com IBX e DbGrid

[rafaelpinto19]

 Alguém pode me dizer onde eu possa encontrar artigos, apostilas
ou tutorias que explique melhor a relação Mestre/Detalhe usando
componentes da Palheta IBX(Interbase) como é o caso do IBquery junto
com DBGrid? Estou tentando desenvolver um Formulário de Cupom com
Itens de Cupom mas não estou conseguindo. Com a Tecnologia DBX tenho
exemplos e até posso conseguir se eu insistir, mas acontece que meu
chefe trabalha com IBX e com a Tecnologia IBX não estou conseguindo.
Agradeço

RES: [delphi-br] IBOConsole nao dá commit

[Vitor Redes]

No IBExpert funciona COMMIT WORK;


--
Vitor Luiz Redes
--
Bureau & Redsystem Software
[EMAIL PROTECTED]
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Leandro
Enviada em: terça-feira, 4 de março de 2008 17:10
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] IBOConsole nao dá commit

Boa tarde,

Alguém saberia pq o IBOConsole não dá commit via comando? Tipo:

UPDATE TABELA SET ALGO = 1;
COMMIT;

Ele nao reconhece o COMMIT; (só funciona se clicar no botão de commit).

Uso fire 1.54.

obrigado,

Leandro


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



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

Links do Yahoo! Grupos

 

RES: [delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]

[Davi Eduardo Borges Wall]

Ler o conteúdo do que ?

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcio
Enviada em: quarta-feira, 5 de março de 2008 11:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]

 

Amigos como faco para ler o conteudo de da lista ???

procedure TForm1.Button5Click(Sender: TObject);
var
Lista: TStringList;
N: Integer;
S: String;
I,V, Idx: Integer;
Objeto : TObject;
begin
Lista := TStringList.Create;

i := 0;
while i < 10 do
begin
s := 'Alguma Coisa' + IntToStr(i);
V := i * 1000;
Lista.AddObject(s, TObject(V));
i:= i + 1;
end;

Como Faco para ler o conteudo de uma lista 

// busca um objeto pelo identificador
N := Lista.IndexOf('Alguma Coisa3');
if N >= 0 then
Objeto := Lista.Objects[N]
else
Objeto := nil;

// atenção...
// antes de destruir a lista de string, precisa destruir os objetos!
for N := 0 to Lista.Count - 1 do
Lista.Objects[N].Free;
Lista.Free;

end; 

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

 



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

[delphi-br] [LER O CONTEUDO DE STRINGLIST - LISTAS]

[Marcio]

Amigos como faco para ler o conteudo de da lista ???






procedure TForm1.Button5Click(Sender: TObject);
var
   Lista: TStringList;
   N: Integer;
   S: String;
   I,V, Idx: Integer;
   Objeto : TObject;
begin
   Lista := TStringList.Create;


   i := 0;
   while i < 10 do
   begin
s := 'Alguma Coisa' + IntToStr(i);
V := i * 1000;
Lista.AddObject(s, TObject(V));
i:= i + 1;
   end;


  Como Faco para ler o conteudo de uma lista 

   // busca um objeto pelo identificador
   N := Lista.IndexOf('Alguma Coisa3');
   if N >= 0 then
 Objeto := Lista.Objects[N]
   else
 Objeto := nil;

   // atenção...
   // antes de destruir a lista de string, precisa destruir os objetos!
   for N := 0 to Lista.Count - 1 do
 Lista.Objects[N].Free;
   Lista.Free;

end; 

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

RES: [delphi-br] Como funciona a transação no DBEx press ou Zeos?

[Luciano Topolniak]

Olá, bom dia. Pelos livros que tenho e pelos artigos que tenho lido e alguns
pequenos testes para validar umas informações de artigos e livros pude
constatar o seguinte. Quando a gente combina SQLConnection, SQLDataset,
DatasetProvider e ClientDataset a coisa ocorre mais ou menos assim: Quando
você coloca um “select * from tabela” no commandtext do clientdataset e
manda abrir para que ele retorne os dados, ele passa o commandtext para o
datasetprovider que faz o parser do SQL digitado e envia para o sqldataset
que abre a conexão com o banco, pesquisa as informações, retorna os dados
para o clientdaset e fecha a conexão. Quando você manda salvar
(ApplyUpdates) o mesmo acontece...abre a conexão(transação) realiza a
operação na base e fecha a conexão (transação). Você pode testar isso,
colocando este conjunto destes componentes e ativar o clientdataset,
verificar que os dados estão cacheados mostrando-os em um grid e desative a
conexão no sqlconnection e verás que os dados continuam em memória ainda que
a conexão com o banco esteja cortada. Voce poderia alterar esses dados e
aplicar as mudançase eles iriam parar no banco.

 

Aí surge o assunto de concorrência...mas é outro assunto já.

 

Bem, isso é o pouco de conceito que eu sei, se alguém tem um conceito
diferente ou mais bem “firmado”, por favor, postem.

 

[]’s

Topolniak.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fellipe Henrique
Enviada em: terça-feira, 4 de março de 2008 21:29
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

 

Olá amigos, estou acostumado nos componentes derivados do IBX, onde cada
DataSet, voce vincula à um transação, não importando em qual Form o DataSet
esteja, porém no DBExpress como no ZeosDB, a transação é iniciada a partir
da conexão, passando-se um ID. vamos a um exemplinho:

FrmVenda -> Inicia Transacao 1
Chama FrmCaixa -> Grava informações usando a Transação 1
Chama FrmContaReceber -> Grava informações usando a Transação 1
FrmVenda -> Commit na Transação 1 (Gravando os dados do Caixa e Conta a
Receber).

Minha questão é, como vincular os datasets do Caixa e Conta à Receber, na
transação iniciada no Venda? No IBX, eu só passava a propriedade
Transaction, como fica no DBX e Zeos?

Obrigado desde já.

[]s

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

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

 



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

Re: [delphi-br] Ata de Resultados

[Ralp Alves Bezerra]

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

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

[Vinicius Santos - MSI]

Felipe, deu certo aqui...
Coloquei a Properties como CheckBox e usei a Opção ImmediatePost, já tinha 
tentado esta opção para o grid inteiro, mas não funcionou, e colocando apenas 
para aquela determinada coluna, funcionou. Não usei o OnChange na coluna, mas 
acredito que funcionaria tbem, mas fica dada a dica !
Obrigado pela atenção.

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


  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 05, 2008 9:11 AM
  Subject: Re: [delphi-br] DevExpreess


  Vinicius, no Propertir da Coluna tem o OnChange, se voce setar a coluna como
  sendo um checkbox, nas propriedades vai abrir uma caixinha com o + nela, aí
  vc abrindo, vai ver as propriedades, nela tem o Onchange, nao serviria pra
  vc colocar o codigo ali nao?

  []s

  Em 05/03/08, Vinicius Santos - MSI <[EMAIL PROTECTED]> escreveu:
  >
  > Pois é Felipe, o GridMode não resolveu não...
  > Estou achando que essa funcionalidade não existe no DevExpress...ou existe
  > ?
  >
  > Vinicius dos Santos
  > Analista de Desenvolvimento Júnior
  > MSI SOLUÇÕES
  > Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
  > Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
  >
  > - Original Message -
  > From: Fellipe Henrique
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Tuesday, March 04, 2008 8:29 PM
  > Subject: Re: [delphi-br] DevExpreess
  >
  > É porque o cxGrid pega os dados em memoria, então ele nao mexe na tabela
  > propriamente dita... tem uma opção que voce habilita chama GridMode...
  > seta
  > ela pra true e veja se funciona.. acho que fica no mesmo local onde vc
  > seta
  > o datasource, esqueci o nome agora. :o)
  >
  > []s
  >
  > Em 04/03/08, Vinicius Santos - MSI <[EMAIL 
PROTECTED]>
  > escreveu:
  > >
  > > Pessoal, alguém ai usa cxGrid da DevExpress ??
  > >
  > > Meu problema é o seguinte, quando tenho um campo boolean, e
  > marco/desmarco
  > > ele, não é acionado o evento OnChange da tabela, somente quando eu dou
  > um
  > > enter, ou passo para outra coluna, é algo parecido com o SimpleClick do
  > > InfoPower, porém me parece que esse opção não existe no DevExpress...
  > >
  > > Alguém já passou por isso ?
  > >
  > > Vinicius dos Santos
  > > Analista de Desenvolvimento Júnior
  > > MSI SOLUÇÕES
  > > Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
  > > Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
  > >
  > > [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]
  >
  > [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]



   

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

Re: [delphi-br] Ata de Resultados

[Ralp Alves Bezerra]

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

RES: [delphi-br] Ata de Resultados

[Bruno Lichot]

Atenciosamente,

Bruno Lichot
Consultor Técnico de Vendas
(55 11) 2165-8032 
[EMAIL PROTECTED]

http://cc.codegear.com/author/795118
http://www.codegear.com/br

Sobre a CodeGear 
A CodeGear fornece ferramentas de desenvolvimento inovadoras e de 
alta-produtividade para uma ampla variedade de desenvolvedores de software - 
quer sejam individuais ou equipes corporativas. Os produtos da CodeGear 
capacitam os desenvolvedores a trabalhar livremente nas plataformas de sua 
preferência. Tais produtos simplificam a complexidade das tecnologias, 
permitindo que os desenvolvedores se concentrem no design da aplicação, não em 
sua infra-estrutura, e assim garantindo que o projeto seja finalizado dentro do 
prazo planejado. 



De: Alessandro DUARTE de Moraes
Enviada: qua 5/3/2008 08:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ata de Resultados


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]


 


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

Re: [delphi-br] DevExpreess

[Fellipe Henrique]

Vinicius, no Propertir da Coluna tem o OnChange, se voce setar a coluna como
sendo um checkbox, nas propriedades vai abrir uma caixinha com o + nela, aí
vc abrindo, vai ver as propriedades, nela tem o Onchange, nao serviria pra
vc colocar o codigo ali nao?

[]s

Em 05/03/08, Vinicius Santos - MSI <[EMAIL PROTECTED]> escreveu:
>
>   Pois é Felipe, o GridMode não resolveu não...
> Estou achando que essa funcionalidade não existe no DevExpress...ou existe
> ?
>
> Vinicius dos Santos
> Analista de Desenvolvimento Júnior
> MSI SOLUÇÕES
> Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
> Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
>
> - Original Message -
> From: Fellipe Henrique
> To: delphi-br@yahoogrupos.com.br 
> Sent: Tuesday, March 04, 2008 8:29 PM
> Subject: Re: [delphi-br] DevExpreess
>
> É porque o cxGrid pega os dados em memoria, então ele nao mexe na tabela
> propriamente dita... tem uma opção que voce habilita chama GridMode...
> seta
> ela pra true e veja se funciona.. acho que fica no mesmo local onde vc
> seta
> o datasource, esqueci o nome agora. :o)
>
> []s
>
> Em 04/03/08, Vinicius Santos - MSI <[EMAIL 
> PROTECTED]>
> escreveu:
> >
> > Pessoal, alguém ai usa cxGrid da DevExpress ??
> >
> > Meu problema é o seguinte, quando tenho um campo boolean, e
> marco/desmarco
> > ele, não é acionado o evento OnChange da tabela, somente quando eu dou
> um
> > enter, ou passo para outra coluna, é algo parecido com o SimpleClick do
> > InfoPower, porém me parece que esse opção não existe no DevExpress...
> >
> > Alguém já passou por isso ?
> >
> > Vinicius dos Santos
> > Analista de Desenvolvimento Júnior
> > MSI SOLUÇÕES
> > Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
> > Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
> >
> > [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]
>
> [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]

Re: [delphi-br] DevExpreess

[Vinicius Santos - MSI]

Pois é Felipe, o GridMode não resolveu não...
Estou achando que essa funcionalidade não existe no DevExpress...ou existe ?

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



  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 04, 2008 8:29 PM
  Subject: Re: [delphi-br] DevExpreess


  É porque o cxGrid pega os dados em memoria, então ele nao mexe na tabela
  propriamente dita... tem uma opção que voce habilita chama GridMode... seta
  ela pra true e veja se funciona.. acho que fica no mesmo local onde vc seta
  o datasource, esqueci o nome agora. :o)

  []s

  Em 04/03/08, Vinicius Santos - MSI <[EMAIL PROTECTED]> escreveu:
  >
  > Pessoal, alguém ai usa cxGrid da DevExpress ??
  >
  > Meu problema é o seguinte, quando tenho um campo boolean, e marco/desmarco
  > ele, não é acionado o evento OnChange da tabela, somente quando eu dou um
  > enter, ou passo para outra coluna, é algo parecido com o SimpleClick do
  > InfoPower, porém me parece que esse opção não existe no DevExpress...
  >
  > Alguém já passou por isso ?
  >
  > Vinicius dos Santos
  > Analista de Desenvolvimento Júnior
  > MSI SOLUÇÕES
  > Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
  > Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
  >
  > [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]



   

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

Re: [delphi-br] Como funciona a transação n o DBExpress ou Zeos?

[Joao Morais]

Fellipe Henrique wrote:
> Esta parte eu entendi, e entendo... o que eu queria saber é, se ao dar o
> Open no ClientDataSet ele inicia a transação, ou não. pois eu dou o
> StartTransaction somente na hora de gravar, na hora do ApplyUpdate...

O CDS faz cache em memória. Abre uma transação para ler os dados e a 
fecha em seguida. Depois abre outra transação para aplicar as alterações 
e volta a fechar. Neste cenário você não terá problemas com aplicações 
não modais.

--
Joao Morais


> 
> []s
> 
> Em 05/03/08, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
>>   Estou acompanhando esta thread e me parece que algo não está claro.
>>
>> A transação deve existir no menor espaço de tempo, ou seja, você não vai
>> colocar um starttransaction no OnShow do formulário de cadastro abobrinha.
>> Você vai sim iniciar uma transação quando o processo que vai incluir as
>> informações na tabela for disparado.
>> Enquanto o usuário estiver no form abobrinha digitando suas informações
>> nenhuma transação deve existir.
>>
>> Imagine que a transação esteja no onshow do form e o usuário vai no
>> banheiro e depois tomar cafezinho. Neste tempo todo pelo menos 1 tabela está
>> bloqueada.
>>
>> Esse tipo de tratamento tem que ser conhecido por todos os programadores
>> de banco de dados. Pois é regra básica da boa programação para Banco de
>> Dados!
>>
>> []'s
>>
>> De: delphi-br@yahoogrupos.com.br  [mailto:
>> delphi-br@yahoogrupos.com.br ] Em nome de
>> Fellipe Henrique
>> Enviada em: quarta-feira, 5 de março de 2008 08:16
>> Para: delphi-br@yahoogrupos.com.br 
>> Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?
>>
>> Mas aí que está... minha aplicação é em MDI, o que acontece demais é o
>> seguinte: o usuário clica pra incluir uma venda... e enquanto ele está
>> incluindo a venda, ele vai em outros lugares, como por exemplo: ordem de
>> serviço, cadastros e etc... o certo então seria antes do
>> Venda.ApplyUpdates,
>> eu dar um StartTransaction, e fazer tudo.. depois um Commit, assim
>> enquanto
>> ele estiver incluindo a venda, nao abriu nenhuma transação, e o que ele
>> fizer nas outras telas, não será influenciado por esta transacao da
>> venda..
>> o que me preocupou de inicio foi isso, ele só comitar os cadastros e O.S.
>> depois que comitar a Venda neste exemplo.
>>
>> []s
>>
>> Em 05/03/08, Joao Morais <[EMAIL PROTECTED]> post%40joaomorais.com.br> > escreveu:
>>> Fellipe Henrique wrote:
 Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir
>>> um
 cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
 ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom,
>> se
>>> for
 aí sim, porque a transacão é questão de milisegundos, o que não
>>> acarretará
 problemas...

 Pra entender melhor.. se eu der um StartTransaction, e tudo que eu
>> fizer
>>> em
 qualquer dataset no sistema, está vinculado nesta transação. Correto?
>>> Cada connection do Zeos possui um transaction. Então a sentença correta
>>> seria: tudo o que for feito em um connection estará implicitamente na
>>> mesma transação.
>>>
>>> --
>>> Joao Morais
>>>
>>>
>> --
>> _
>> T.·.F.·.A.·.
>> Fellipe Henrique
>> [EMAIL PROTECTED]  
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>  
>>
> 
> 
> 

Re: [delphi-br] Capturar Mensagens PostgreSQL

[José Mário Silva Guedes]

Bom dia!

Bom se você usar um RAISE EXCEPTION, a sua aplicação vai gerar um exception,
portanto bastaria proteger seu código com try except.

Não imagino como você poderia aproveitar o RAISE NOTICE e ficarei muito
feliz se isso for possível.

Por aqui eu utilizo o NOTIFY, porém só consegui tirar proveito deste recurso
6.5.1 com a classe TZPgSqlNotify.


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

Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

[Fellipe Henrique]

Vou dar uma olhada no zeos pra ver o que é o dele, e na verdade estaria
usando o PostgreSQL, vou olhar nele tbm...

Obrigado.

[]s

Em 05/03/08, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
>
>   Quando você da um open do CDS você está fazendo uma consulta no BD e
> guardando em memória.
>
> Eu acredito que isso depende do driver que você está usando. Eu soube que
> no FireBird por exemplo você só consegue fazer uma consulta dentro de uma
> transação.
> E que o driver já abre a transação para essa consulta automaticamente.
>
> Mas na pratica você não precisa abrir uma transação para efetuar uma
> consulta.
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome de
> Fellipe Henrique
> Enviada em: quarta-feira, 5 de março de 2008 08:39
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?
>
> Esta parte eu entendi, e entendo... o que eu queria saber é, se ao dar o
> Open no ClientDataSet ele inicia a transação, ou não. pois eu dou o
> StartTransaction somente na hora de gravar, na hora do ApplyUpdate...
>
> []s
>
> Em 05/03/08, Davi Eduardo Borges Wall <[EMAIL 
> PROTECTED] davi.wall%40mult.com.br> > escreveu:
> >
> > Estou acompanhando esta thread e me parece que algo não está claro.
> >
> > A transação deve existir no menor espaço de tempo, ou seja, você não vai
> > colocar um starttransaction no OnShow do formulário de cadastro
> abobrinha.
> > Você vai sim iniciar uma transação quando o processo que vai incluir as
> > informações na tabela for disparado.
> > Enquanto o usuário estiver no form abobrinha digitando suas informações
> > nenhuma transação deve existir.
> >
> > Imagine que a transação esteja no onshow do form e o usuário vai no
> > banheiro e depois tomar cafezinho. Neste tempo todo pelo menos 1 tabela
> está
> > bloqueada.
> >
> > Esse tipo de tratamento tem que ser conhecido por todos os programadores
> > de banco de dados. Pois é regra básica da boa programação para Banco de
> > Dados!
> >
> > []'s
> >
> > De: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br>  [mailto:
> > delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br> ] Em nome
> de
> > Fellipe Henrique
> > Enviada em: quarta-feira, 5 de março de 2008 08:16
> > Para: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br> 
> > Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?
> >
> > Mas aí que está... minha aplicação é em MDI, o que acontece demais é o
> > seguinte: o usuário clica pra incluir uma venda... e enquanto ele está
> > incluindo a venda, ele vai em outros lugares, como por exemplo: ordem de
> > serviço, cadastros e etc... o certo então seria antes do
> > Venda.ApplyUpdates,
> > eu dar um StartTransaction, e fazer tudo.. depois um Commit, assim
> > enquanto
> > ele estiver incluindo a venda, nao abriu nenhuma transação, e o que ele
> > fizer nas outras telas, não será influenciado por esta transacao da
> > venda..
> > o que me preocupou de inicio foi isso, ele só comitar os cadastros e O.S
> .
> > depois que comitar a Venda neste exemplo.
> >
> > []s
> >
> > Em 05/03/08, Joao Morais <[EMAIL 
> > PROTECTED] post%40joaomorais.com.br>  > post%40joaomorais.com.br> > escreveu:
> > >
> > > Fellipe Henrique wrote:
> > > > Bom Eduardo, os dois componentes usam CDS, então acredito que ao
> abrir
> > > um
> > > > cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
> > > > ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom,
> > se
> > > for
> > > > aí sim, porque a transacão é questão de milisegundos, o que não
> > > acarretará
> > > > problemas...
> > > >
> > > > Pra entender melhor.. se eu der um StartTransaction, e tudo que eu
> > fizer
> > > em
> > > > qualquer dataset no sistema, está vinculado nesta transação.
> Correto?
> > >
> > > Cada connection do Zeos possui um transaction. Então a sentença
> correta
> > > seria: tudo o que for feito em um connection estará implicitamente na
> > > mesma transação.
> > >
> > > --
> > > Joao Morais
> > >
> > >
> >
> > --
> > _
> > T.·.F.·.A.·.
> > Fellipe Henrique
> > [EMAIL PROTECTED]  
>  
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > [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]
>
> [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]

RES: [delphi-br] Como funciona a transação n o DBExpress ou Zeos?

[Davi Eduardo Borges Wall]

Quando você da um open do CDS você está fazendo uma consulta no BD e guardando 
em memória.

 

Eu acredito que isso depende do driver que você está usando. Eu soube que no 
FireBird por exemplo você só consegue fazer uma consulta dentro de uma 
transação.
E que o driver já abre a transação para essa consulta automaticamente.

 

Mas na pratica você não precisa abrir uma transação para efetuar uma consulta.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe 
Henrique
Enviada em: quarta-feira, 5 de março de 2008 08:39
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

 

Esta parte eu entendi, e entendo... o que eu queria saber é, se ao dar o
Open no ClientDataSet ele inicia a transação, ou não. pois eu dou o
StartTransaction somente na hora de gravar, na hora do ApplyUpdate...

[]s

Em 05/03/08, Davi Eduardo Borges Wall <[EMAIL PROTECTED] 
 > escreveu:
>
> Estou acompanhando esta thread e me parece que algo não está claro.
>
> A transação deve existir no menor espaço de tempo, ou seja, você não vai
> colocar um starttransaction no OnShow do formulário de cadastro abobrinha.
> Você vai sim iniciar uma transação quando o processo que vai incluir as
> informações na tabela for disparado.
> Enquanto o usuário estiver no form abobrinha digitando suas informações
> nenhuma transação deve existir.
>
> Imagine que a transação esteja no onshow do form e o usuário vai no
> banheiro e depois tomar cafezinho. Neste tempo todo pelo menos 1 tabela está
> bloqueada.
>
> Esse tipo de tratamento tem que ser conhecido por todos os programadores
> de banco de dados. Pois é regra básica da boa programação para Banco de
> Dados!
>
> []'s
>
> De: delphi-br@yahoogrupos.com.br   
>  [mailto:
> delphi-br@yahoogrupos.com.br   
> ] Em nome de
> Fellipe Henrique
> Enviada em: quarta-feira, 5 de março de 2008 08:16
> Para: delphi-br@yahoogrupos.com.br   
> 
> Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?
>
> Mas aí que está... minha aplicação é em MDI, o que acontece demais é o
> seguinte: o usuário clica pra incluir uma venda... e enquanto ele está
> incluindo a venda, ele vai em outros lugares, como por exemplo: ordem de
> serviço, cadastros e etc... o certo então seria antes do
> Venda.ApplyUpdates,
> eu dar um StartTransaction, e fazer tudo.. depois um Commit, assim
> enquanto
> ele estiver incluindo a venda, nao abriu nenhuma transação, e o que ele
> fizer nas outras telas, não será influenciado por esta transacao da
> venda..
> o que me preocupou de inicio foi isso, ele só comitar os cadastros e O.S.
> depois que comitar a Venda neste exemplo.
>
> []s
>
> Em 05/03/08, Joao Morais <[EMAIL PROTECTED]  
>  post%40joaomorais.com.br> > escreveu:
> >
> > Fellipe Henrique wrote:
> > > Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir
> > um
> > > cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
> > > ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom,
> se
> > for
> > > aí sim, porque a transacão é questão de milisegundos, o que não
> > acarretará
> > > problemas...
> > >
> > > Pra entender melhor.. se eu der um StartTransaction, e tudo que eu
> fizer
> > em
> > > qualquer dataset no sistema, está vinculado nesta transação. Correto?
> >
> > Cada connection do Zeos possui um transaction. Então a sentença correta
> > seria: tudo o que for feito em um connection estará implicitamente na
> > mesma transação.
> >
> > --
> > Joao Morais
> >
> >
>
> --
> _
> T.·.F.·.A.·.
> Fellipe Henrique
> [EMAIL PROTECTED]    
> 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [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]

 



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

Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

[Fellipe Henrique]

Esta parte eu entendi, e entendo... o que eu queria saber é, se ao dar o
Open no ClientDataSet ele inicia a transação, ou não. pois eu dou o
StartTransaction somente na hora de gravar, na hora do ApplyUpdate...

[]s

Em 05/03/08, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
>
>   Estou acompanhando esta thread e me parece que algo não está claro.
>
> A transação deve existir no menor espaço de tempo, ou seja, você não vai
> colocar um starttransaction no OnShow do formulário de cadastro abobrinha.
> Você vai sim iniciar uma transação quando o processo que vai incluir as
> informações na tabela for disparado.
> Enquanto o usuário estiver no form abobrinha digitando suas informações
> nenhuma transação deve existir.
>
> Imagine que a transação esteja no onshow do form e o usuário vai no
> banheiro e depois tomar cafezinho. Neste tempo todo pelo menos 1 tabela está
> bloqueada.
>
> Esse tipo de tratamento tem que ser conhecido por todos os programadores
> de banco de dados. Pois é regra básica da boa programação para Banco de
> Dados!
>
> []'s
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome de
> Fellipe Henrique
> Enviada em: quarta-feira, 5 de março de 2008 08:16
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?
>
> Mas aí que está... minha aplicação é em MDI, o que acontece demais é o
> seguinte: o usuário clica pra incluir uma venda... e enquanto ele está
> incluindo a venda, ele vai em outros lugares, como por exemplo: ordem de
> serviço, cadastros e etc... o certo então seria antes do
> Venda.ApplyUpdates,
> eu dar um StartTransaction, e fazer tudo.. depois um Commit, assim
> enquanto
> ele estiver incluindo a venda, nao abriu nenhuma transação, e o que ele
> fizer nas outras telas, não será influenciado por esta transacao da
> venda..
> o que me preocupou de inicio foi isso, ele só comitar os cadastros e O.S.
> depois que comitar a Venda neste exemplo.
>
> []s
>
> Em 05/03/08, Joao Morais <[EMAIL PROTECTED] post%40joaomorais.com.br> > escreveu:
> >
> > Fellipe Henrique wrote:
> > > Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir
> > um
> > > cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
> > > ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom,
> se
> > for
> > > aí sim, porque a transacão é questão de milisegundos, o que não
> > acarretará
> > > problemas...
> > >
> > > Pra entender melhor.. se eu der um StartTransaction, e tudo que eu
> fizer
> > em
> > > qualquer dataset no sistema, está vinculado nesta transação. Correto?
> >
> > Cada connection do Zeos possui um transaction. Então a sentença correta
> > seria: tudo o que for feito em um connection estará implicitamente na
> > mesma transação.
> >
> > --
> > Joao Morais
> >
> >
>
> --
> _
> T.·.F.·.A.·.
> Fellipe Henrique
> [EMAIL PROTECTED]  
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [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]

RES: [delphi-br] Como funciona a transação n o DBExpress ou Zeos?

[Davi Eduardo Borges Wall]

Estou acompanhando esta thread e me parece que algo não está claro.

 

A transação deve existir no menor espaço de tempo, ou seja, você não vai 
colocar um starttransaction no OnShow do formulário de cadastro abobrinha.
Você vai sim iniciar uma transação quando o processo que vai incluir as 
informações na tabela for disparado.
Enquanto o usuário estiver no form abobrinha digitando suas informações nenhuma 
transação deve existir.

Imagine que a transação esteja no onshow do form e o usuário vai no banheiro e 
depois tomar cafezinho. Neste tempo todo pelo menos 1 tabela está bloqueada.

 

Esse tipo de tratamento tem que ser conhecido por todos os programadores de 
banco de dados. Pois é regra básica da boa programação para Banco de Dados!

 

[]'s

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe 
Henrique
Enviada em: quarta-feira, 5 de março de 2008 08:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

 

Mas aí que está... minha aplicação é em MDI, o que acontece demais é o
seguinte: o usuário clica pra incluir uma venda... e enquanto ele está
incluindo a venda, ele vai em outros lugares, como por exemplo: ordem de
serviço, cadastros e etc... o certo então seria antes do Venda.ApplyUpdates,
eu dar um StartTransaction, e fazer tudo.. depois um Commit, assim enquanto
ele estiver incluindo a venda, nao abriu nenhuma transação, e o que ele
fizer nas outras telas, não será influenciado por esta transacao da venda..
o que me preocupou de inicio foi isso, ele só comitar os cadastros e O.S.
depois que comitar a Venda neste exemplo.

[]s

Em 05/03/08, Joao Morais <[EMAIL PROTECTED]  > 
escreveu:
>
> Fellipe Henrique wrote:
> > Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir
> um
> > cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
> > ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom, se
> for
> > aí sim, porque a transacão é questão de milisegundos, o que não
> acarretará
> > problemas...
> >
> > Pra entender melhor.. se eu der um StartTransaction, e tudo que eu fizer
> em
> > qualquer dataset no sistema, está vinculado nesta transação. Correto?
>
> Cada connection do Zeos possui um transaction. Então a sentença correta
> seria: tudo o que for feito em um connection estará implicitamente na
> mesma transação.
>
> --
> Joao Morais
> 
>

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

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

 



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

Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

[Fellipe Henrique]

Mas aí que está... minha aplicação é em MDI, o que acontece demais é o
seguinte: o usuário clica pra incluir uma venda... e enquanto ele está
incluindo a venda, ele vai em outros lugares, como por exemplo: ordem de
serviço, cadastros e etc... o certo então seria antes do Venda.ApplyUpdates,
eu dar um StartTransaction, e fazer tudo.. depois um Commit, assim enquanto
ele estiver incluindo a venda, nao abriu nenhuma transação, e o que ele
fizer nas outras telas, não será influenciado por esta transacao da venda..
o que me preocupou de inicio foi isso, ele só comitar os cadastros e O.S.
depois que comitar a Venda neste exemplo.

[]s

Em 05/03/08, Joao Morais <[EMAIL PROTECTED]> escreveu:
>
>   Fellipe Henrique wrote:
> > Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir
> um
> > cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
> > ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom, se
> for
> > aí sim, porque a transacão é questão de milisegundos, o que não
> acarretará
> > problemas...
> >
> > Pra entender melhor.. se eu der um StartTransaction, e tudo que eu fizer
> em
> > qualquer dataset no sistema, está vinculado nesta transação. Correto?
>
> Cada connection do Zeos possui um transaction. Então a sentença correta
> seria: tudo o que for feito em um connection estará implicitamente na
> mesma transação.
>
> --
> Joao Morais
>  
>



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


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

Re: [delphi-br] Caracteres de início e fim do códi go 2 de 5 intercalado?

[Manoel]

Consegui junto à documentação do banco.

Agradeço a atenção de todos.

At.

Manoel


  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 04, 2008 3:13 PM
  Subject: RE: [delphi-br] Caracteres de início e fim do código 2 de 5 
intercalado?



  Chegou ao menos a procurar tb no Google ou no AltaVista antes?
  Sds.

  

  To: delphi-br@yahoogrupos.com.br
  From: [EMAIL PROTECTED]
  Date: Tue, 4 Mar 2008 18:06:12 +
  Subject: RE: [delphi-br] Caracteres de início e fim do código 2 de 5 
intercalado?

  Procurou se informar no site da autoridade em código de barras no Brasil 
(http://www.eanbrasil.org.br)? É o local mais óbvio pra começar a procurar!

  Sds.

  

  To: delphi-br@yahoogrupos.com.br
  From: [EMAIL PROTECTED]
  Date: Tue, 4 Mar 2008 14:41:16 -0300
  Subject: [delphi-br] Caracteres de início e fim do código 2 de 5 intercalado?

  Boa tarde!

  Alguém sabe me informar quais são os caracteres de início e fim do código 2 
de 5 intercalado?

  Agradeço a atenção de todos.

  Obrigado

  Manoel

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

  __
  Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça o MSN Mobile!
  http://mobile.live.com/signup/signup2.aspx?lc=pt-br

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

   

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

Re: [delphi-br] 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] Como funciona a transação n o DBExpress ou Zeos?

[Joao Morais]

Fellipe Henrique wrote:
> Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir um
> cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
> ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom, se for
> aí sim, porque a transacão é questão de milisegundos, o que não acarretará
> problemas...
> 
> Pra entender melhor.. se eu der um StartTransaction, e tudo que eu fizer em
> qualquer dataset no sistema, está vinculado nesta transação. Correto?

Cada connection do Zeos possui um transaction. Então a sentença correta 
seria: tudo o que for feito em um connection estará implicitamente na 
mesma transação.

--
Joao Morais

Re: [delphi-br] Como funciona a transação no DBExpress ou Zeos?

[Fellipe Henrique]

Bom Eduardo, os dois componentes usam CDS, então acredito que ao abrir um
cadastro (dar um open no CDS) ele não starta a transação, e ao dar o
ApplyUpdate, aí sim que ele inicia e comita a transação, não é? bom, se for
aí sim, porque a transacão é questão de milisegundos, o que não acarretará
problemas...

Pra entender melhor.. se eu der um StartTransaction, e tudo que eu fizer em
qualquer dataset no sistema, está vinculado nesta transação. Correto?

[]s

Em 04/03/08, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
>   Veja bem, o esquema é esse, muito mais simples.. lembre-se que
> transações
> devem ser o mais curta possível..
>
> essa questão que vc passou vai depender de como esta seu cadastro de
> produtos.. de como o banco trabalha com as transações se aceita
> sub-transações, são diversos fatores a serem analisados..
>
> eu acho dessa forma muito mais simples.
>
> faz um teste ai pra ver se o esquema de sub-transação da certo.
>
> StartTransaction;
> venda...
> startTransaction;
> produto;
> Commit;
> Commit;
>
> Em 04/03/08, Fellipe Henrique <[EMAIL PROTECTED] >
> escreveu:
> >
> > Olá eduardo, estou usando a ultima versao do zeos.
> >
> > Bom, entendi direito? Inicio a transacao da conexao, e tudo que eu fizer
> > no
> > sistema, nesse meio tempo, fica na transacao aberta? ou seja, se eu
> criar
> > uma transacao na venda, e com a venda aberta, for no produto e cadastrar
> > um
> > produto, e ao gravar a venda dá erro, e é dado o rollback, o produto
> > cadastro não será salvo ? É isso mesmo? Porque se for, realmente o
> esquema
> > de transacao do IBX é bm melhor..
> >
> > []s
> >
> > Em 04/03/08, Eduardo Silva dos Santos <[EMAIL 
> > PROTECTED]
> >
> > escreveu:
> > >
> > > Olá Fellipe, qual versão do Zeos vc ta usando?
> > >
> > > até onde sei não é necessário vincular o DataSet à transação.
> Inicia-se
> > a
> > > transação no componente de conexão.. faz oq tem que ser feito e depois
> > > executa um commit;
> > >
> > > as operações feitas nesse meio tempo são feitas de forma transparente.
> > >
> > > Em 04/03/08, Fellipe Henrique <[EMAIL 
> > > PROTECTED]>
> > > escreveu:
> > >
> > > >
> > > > Olá amigos, estou acostumado nos componentes derivados do IBX, onde
> > cada
> > > > DataSet, voce vincula à um transação, não importando em qual Form o
> > > > DataSet
> > > > esteja, porém no DBExpress como no ZeosDB, a transação é iniciada a
> > > partir
> > > > da conexão, passando-se um ID. vamos a um exemplinho:
> > > >
> > > > FrmVenda -> Inicia Transacao 1
> > > > Chama FrmCaixa -> Grava informações usando a Transação 1
> > > > Chama FrmContaReceber -> Grava informações usando a Transação 1
> > > > FrmVenda -> Commit na Transação 1 (Gravando os dados do Caixa e
> Conta
> > a
> > > > Receber).
> > > >
> > > > Minha questão é, como vincular os datasets do Caixa e Conta à
> Receber,
> > > na
> > > > transação iniciada no Venda? No IBX, eu só passava a propriedade
> > > > Transaction, como fica no DBX e Zeos?
> > > >
> > > > Obrigado desde já.
> > > >
> > > > []s
> > > >
> > > > --
> > > > _
> > > > T.·.F.·.A.·.
> > > > Fellipe Henrique
> > > > [EMAIL PROTECTED]  
> 
> > 
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > > --
> > > ...
> > > Eduardo Silva dos Santos
> > > DRD Sistemas.
> > > (27) 3218-4201
> > > MSN: [EMAIL PROTECTED]  <
> eduardo.drd%40gmail.com> <
> > eduardo.drd%40gmail.com>
> > > Site: http://www.drdsistemas.com/
> > > ...
> > >
> > > [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]
> >
> >
> >
>
> --
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/
> ...
>
> [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]