[delphi-br] A aparência e a fé de Mauricinho e Patricinha

2009-10-16 Por tôpico omar l m rosa
...
gastaram o dinheiro de sua ALIMENTAÇÃO para pagar os passaportes, 
e por suas palavras, 
diante de toda igreja, 
passaram 15 dias comendo nêgo deitado
...

Leia todo o artigo em  http://omarEsandra.blogspot.com

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   omarlmr...@hotmail.com

JESUS é fantástico, 
os cristãos são fantásticos,
a igreja é fantástica!
Se não concordas, 
necessitas de UM AVIVAMENTO na tua vida!

 

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



Re: [delphi-br] Localizar no DFM

2009-08-27 Por tôpico omar l m rosa
Instala o GExperts

tem um greep para pesquisar inclusive no dfm.


Sou blogueiro, e daí? http://omarEsandra.blogspot.com
º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: Bruno Stort 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 27, 2009 4:37 PM
  Subject: [delphi-br] Localizar no DFM




  Preciso localizar palavras específicas dentro dos .DFM

  No localizar do delphi procura somente no .PAS.

  Arrumei um programinha que acha, mais não localiza dentro de alguns .DFM
  maior loucura.

  Alguem sabe como procurar através do próprio delphi ou através de algum
  programa específico?

  [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] Aplicações com Delphi e Firebird e m Windows 2008 Server

2009-07-27 Por tôpico omar l m rosa
HI!

Tem que desabilitar o sistema de segurança do w2008 que não roda programas 
desconhecidos (não lembro o nome).
Tem que dar direitos de execução, leitura e gravação em pastas e e também no 
registro, de acordo com a utilização do programa.

No mais não tive problema nenhum.

Bai!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: Juliana 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 24, 2009 11:16 PM
  Subject: [delphi-br] Aplicações com Delphi e Firebird em Windows 2008 Server


Olá, boa noite!

  Tenho aplicações cliente-servidor que foram desenvolvidas em Delphi 2007 e 
Firebird 2.0, e rodam no servidor com Windows 2003 Server.
  Gostaria de saber se os mesmos funcionariam corretamente com o Windows 2008 
Server, ou se é preciso fazer algum ajuste/configuração.
  Alguém já passou por isto?

  Obrigada
  Juliana

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

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



  

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



Re: [delphi-br] Problemas quando aplicativo roda do windows server 2003

2009-07-24 Por tôpico omar l m rosa
Usa esta unit em anexo no .dpr, ve se resolve...

leia mais em 
http://www.codexterity.com



º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: Leonardo Quinino 
  To: delphi-br@yahoogrupos.com.br ; delphitodel...@yahoogrupos.com.br ; 
delphi_soprogramado...@yahoogrupos.com.br ; delphi-oop...@yahoogrupos.com.br 
  Sent: Friday, July 24, 2009 9:16 AM
  Subject: [delphi-br] Problemas quando aplicativo roda do windows server 2003


Tenho um cliente com problemas, e estou tentando ajudar.

  Na rede, com 6 maquinas cliente xp, e 1 server 2003.

  nos xp roda que é uma beleza o programa o banco de dados é firebird e esta'
  no server 2003.

  o bicho pego é quando tenta rodar no server 2003. simplesmente, o negocio dá
  um erro, 216 at 00404A36, rodei o debug , procurei o erro, que mostrou uma
  sequencia de erro no arquivo system.

  numa pequena função que libera algo da memória.

  no arquivo delphi7\source\rtl\system.pas

  procedure TObject.Free;
  begin
  if Self  nil then
  Destroy; = ///erro aqui
  end;

  Como resolver essa pedencia, o negocio mais complicado que achei seria
  encontrar o endereço do erro, agora que achei , o negócio na prática está
  meio obscuro.

  Alguem já passou por isso, numa maquina roda o negocio e outra náo, no meu
  caso aqui é muito especifico,, xp roda, w2003, nao roda.

  -- 
  Leonardo Quinino

  [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] Passar parametro para aplicação

2009-07-03 Por tôpico omar l m rosa
tente apertar f1 no delphi busque por Command line utilities

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: Vinicius 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 03, 2009 8:47 AM
  Subject: [delphi-br] Passar parametro para aplicação





  Bom dia a todos, alguem pode me dizer como faço para passar um parâmetro
  para uma aplicação em Delphi7?

  Estou fazendo um programa para enviar um email, este programa será executado
  a partir de um arquivo de lot (.bat) e quero passar o valor que esta em uma
  variável de ambiente, deu pra vc entenderem??

  Tipo assim: aplicação.exe %1

  Já deu uma vasculhada no Google, mais só achei passagem de parâmetros dentro
  de aplicações.

  Obrigado



  

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



Re: [delphi-br] Componente para compactar

2009-06-25 Por tôpico omar l m rosa
delphi zip

http://www.geocities.com/SiliconValley/Network/2114/zipbeta.html
   
http://www.delphizip.net/index.html

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: Rafael Jorge 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 25, 2009 11:59 AM
  Subject: Re: [delphi-br] Componente para compactar





  gz eu nao sei.. mas tem um que gera zip...
  nao sei se internamente sao a mesma coisa..
  mas procura na ter o zipmaster.
  ele é open
  t+

  2009/6/25 Fernando de Laurentiis laurent...@uol.com.br

  
  
   Bom dia, povo!!
   Alguém aí conhece algum componente q compacte para delphi 5 q gere gz?
   E q seja de grátis ??
  
   []'sss
   
  

  -- 
  _
  Rafael jorge alves
  Desenvolvedor/analista
  Ativa Soluções em TI.
  Recife - PE

  [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] Dúvida com Zeos

2009-06-16 Por tôpico omar l m rosa
HI!

Só para aumentar suas dúvidas

Estou enfrentando problemas com Zeos desde a versao 6.4.4

Voltei para a 6.2.2.rc 

Ex: a) parse de SQL, nome de tabela com delimitador [ ]  não eceita edição 
fic a read only como se fosse uma view...
  b) campos identity vez que outra nao retornam novo valor à aplicacao...
  c) lentidão ao abrir o dataset

Bai!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: Leonardo Quinino 
  To: delphi-br@yahoogrupos.com.br ; delphitodel...@yahoogrupos.com.br ; 
delphi_soprogramado...@yahoogrupos.com.br 
  Sent: Tuesday, June 16, 2009 9:47 AM
  Subject: [delphi-br] Dúvida com Zeos





  Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1
  Tive duas dúvidas.

  1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra
  no componente, DBEDIT 6,00

  2) não conseguir rodar o seguinte select...

  select sum( cast( quantidade * valor_unitario as numeric( 18, 2 ) ) ) as
  Total from ITENS_VENDAS
  WHERE ID_INTERNO = '5578'

  Coloquei o mesmo select, num ClientDataSet + SQLQuery e roda beleza.

  Isso é algo da natureza do ZEOS ?

  -- 
  Leonardo Quinino

  [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] Re: Reiniciar micro na rede

2009-04-08 Por tôpico omar l m rosa
command: shutdown -r -f -m \\nomedamaquina

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br
 
  - Original Message - 
  From: galvao_em 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, April 08, 2009 1:35 PM
  Subject: [delphi-br] Re: Reiniciar micro na rede


  Alguém pode me ajudar com esta dúvida??

  --- Em delphi-br@yahoogrupos.com.br, galvao_em galvao...@... escreveu
  
   Olá, gostaria de saber como faço para atrevés do meu programa 
desligar/reiniciar micros na rede, fiz um formulário onde consigo pegar o nome 
de todos os micros que estão na rede, agora preciso conseguir 
desligar/reiniciar eles. Alguma idéia?
  


  

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



[delphi-br] Aplicativo delphi 7 não roda no windows server 2008

2009-03-18 Por tôpico omar l m rosa
HI!
Não sei se já veiculou este assunto, pois não tenho acesso ao site da lista por 
estar bloqueado no firewall.

Já liberei as permissões na pasta de execução, no registro, compatibilidade, 
execução como administrador, e não está rolando!

Só mostra uma mensagem workflow has stopped working

Uso delphi 7, firebird 2.01, jedi, ...

Bai!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br


  - Original Message - 
  From: Bruno Lichot 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 18, 2009 9:47 AM
  Subject: RE: [delphi-br] Vídeos do delp´hi 2009


  Site do produto:
  http://www.codegear.com/br/products/delphi/win32 
  http://www.codegear.com/br/products/radstudio 

  Por que migrar do Delphi 7 para o Delphi 2009:
  http://dn.codegear.com/br/article/39230 

  No Developer Network tem o maior e mais completo conteúdo Delphi do mundo e 
completamente gratuito:
  http://dn.codegear.com/br 

  Link de Vídeos em Português:
  http://dn.codegear.com/article/37460 
  http://cc.codegear.com/coderage 
  http://dn.codegear.com/article/39129 

  Central de Documentação:
  HTTP://docs.codegear.com 

  Meu link de downloads gratuitos:
  http://cc.codegear.com/author/795118 

  Central de Código:
  http://cc.codegear.com 

  Central de Qualidade:
  http://qc.codegear.com

  From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On 
Behalf Of berdam
  Sent: terça-feira, 17 de março de 2009 23:10
  To: delphi-br@yahoogrupos.com.br
  Subject: [delphi-br] Vídeos do delp´hi 2009

  Galera, tinha uns vídeos disponíveis para visualização porque migrar 
  para delphi 2009, mas não consegui achar, eles estavam visíveis na 
  internet sem a necessidade de se registrar no site.

  Alguém tem esses links??

  Obrigado

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


  

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



Re: [delphi-br] alguém sabe como compactar arquivos contidos em uma pasta? algum componente?

2009-03-18 Por tôpico omar l m rosa
http://www.delphizip.org/


  - Original Message - 
  From: guimaraesrodrigo23 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 18, 2009 2:21 PM
  Subject: [delphi-br] alguém sabe como compactar arquivos contidos em uma 
pasta? algum componente?


  alguém sabe como compactar arquivos contidos em uma pasta? 
  terei uma pasta com todos os arquivos com extensao .jpg
  quero compactar todos eles em um unico arquivo e COM SENHA.

  detalhe: fiz isso usando os comandos do winrar, mas ele fica aparecendo 
aquela janela do dos, portanto não serve.

  se alguém puder ajudar. abraço


  

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



Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?

2009-02-19 Por tôpico omar l m rosa
Hi!

O pulso elátrico de uma porta serial não tem potência para acionar uma catraca.

Deverá existir um circuito isolador entre a porta e a catraca.

Pesquise por RS-232 (também conhecido por EIA RS-232C ou V.24) 


  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, February 19, 2009 3:44 PM
  Subject: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?


  Vixe então acho que falei besteira la atras heheheheh, 
  Mas vivendo e aprendendo
  Mas garanto que na parelala, vc acende um LED com facilidade
  []s

  Luiz Escobar

  From: Leonardo Moreira Alves 
  Sent: Wednesday, February 18, 2009 9:17 PM
  To: delphi-br@yahoogrupos.com.br 
  Subject: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?

  Viu pessoal na Saida Serial você não tem 5V, e 
  sim 12V e -12V vc precisa de um conversor serial para trabalhar com 5V

  Sugiro a utilização da Porta Paralela, é mais 
  fácil e mais simples... além de que tem 5V.

  Abraços

  At 11:18 18/2/2009, you wrote:

  Use WriteFile pois a porta COM (Serial) é 
  interpretada como um arquivo, veja um bom exemplo no link abaixo:
  
  [ 
  
http://www.swissdelphicenter.ch/torry/printcode.php?id=841http://www.swissdelphicenter.ch/torry/printcode.php?id=841
 
  ]
  
  []'s
  Ricardo.
  
  __
  
  Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
  
  --- Em qua, 18/2/09, Fellipe Henrique 
  mailto:fellipeh%40gmail.comfelli...@gmail.com escreveu:
  De: Fellipe Henrique mailto:fellipeh%40gmail.comfelli...@gmail.com
  Assunto: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
  Para: mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br
  Data: Quarta-feira, 18 de Fevereiro de 2009, 11:08
  
  hum... to usando essa função pra abrir a porta
  
  function AbrirPorta(NomePort a:String) :boolean;
  begin
  hCom := CreateFile(
  PChar(NomePorta) ,
  GENERIC_READ or GENERIC_WRITE,
  0, //Dispositivos COM abertos com acesso exclusivo.
  nil, //Sem atributos de segurança.
  OPEN_EXISTING, //deve usar OPEN_EXISTING
  0, //Entrada e saída sem ovelap.
  0 //Deve ser NULL para COM.
  );
  if(hCom = INVALID_HANDLE_ VALUE) then //Se houve algum erro ao abrir a
  porta.
  result := false
  else
  result:= true;
  end;
  
  Como faria pra enviar algo por ela? Seria a mesma coisa que na LPT1?
  WriteLn?
  
  []s
  
  2009/2/18 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br
Na verdade é só vc enviar uma informação qualquer pela porta serial. É
que o pessoal de eletrônica geralmente pensa tudo na base do 0 ou 5 volts.
   
Precisei fazer algo parecido um tempo atrás e penei até entender esse
mandar 5v pela serial, quando na verdade era só mandar qualquer coisa
(literalmente) pra serial.
   
Isso aí é simples. Basta abrir a porta e enviar qualquer coisa pra ela.
   
[]'s
Ricardo.
   
 _ _ _ _ _ _
   
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 
   
--- Em qua, 18/2/09, Fellipe Henrique 
   felli...@gmail. comfellipeh%40gmail. com
escreveu:
   
   
Vixi...bom, eu preciso enviar um pulso pela porta serial pra abrir uma
catraca... o rapaz da catraca falou que teria 
   que ser um pulso de 5 volts...
agora fiquei encucado.. será que é só abrir a porta e pronto?
O problema é que não tenho a catraca aqui, só mesmo um cabo, com um led...
diz o cara que se acender o led vai funcionar... hehe
   
[]s
   
2009/2/18 Luiz Escobar esco...@megasistem a .com.br
   
 Se vc enviar um pulso de 5 volts da serial vai queimar ela

 O que vc realmente precisa ???

 Luiz Escobar

 From: Fellipe Henrique
 Sent: Wednesday, February 18, 2009 11:30 AM
 To: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
 Subject: [delphi-br] Como enviar um pulso de 5 volts pela serial?


 Amigos, preciso enviar um pulso de 5 volts para a porta serial, nunca 
fiz
 isso, alguem tem idéia de como fazer?

 []s

 --
  _ _ ___
 T.·.F.·.A.·.
 Fellipe Henrique
 Blog: www.digitumsoft. com.br/blogs/ fellipeh
  - - - - - -
 CAMPANHA POR UMA INTERNET SEGURA
 Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
 mensagens use SEMPRE o Cco (cópia oculta).
 Assim TODOS os endereços estarão preservados. E, claro, antes de
encaminhar
 um e-mail, delete todas as informações que apareçam no corpo do e-mail e
 que
 possam ser usadas por hackers.
  # # #

   
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscahttp://br.maisbusca dos.yahoo. com
   
   
  --
  _
  T.·.F.·.A.·.
  Fellipe 

[delphi-br] ZeosLib

2009-02-16 Por tôpico omar l m rosa
HI!
Atualizei a versão da Zeos lib para 6.4.1 e toda vez que faço um build do 
projeto, toda a Zeoslib é recompilada!

Como evitar que um pacote seja recompilado?


grato!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br

 
 

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



[delphi-br] problema com select --------- era: Transferir toda configu ração do Delphi 6 e 7 para outra maquina/windows...

2009-02-03 Por tôpico omar l m rosa

  - Original Message - 
  From: omar l m rosa 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, February 03, 2009 9:14 AM
  Subject: Re: [delphi-br] Transferir toda configuração do Delphi 6 e 7 para 
outra maquina/windows...


  acho que deveria ser assim:

  SELECT B.CDITEM, C.DESCRICAO, SUM(B.VALOR) AS TOTAL

  FROM PEDIDOS A, 
  JOIN SERVICOS B
  ON B.CDPEDIDO = A.CDPEDIDO

  JOIN TABSERVICO C
  ON C.CDITEM = B.CDITEM

  WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES 

  GROUP BY B.CDITEM, C.DESCRICAO

  --

  º.·´¯`·. º.·´¯`·. º.·´¯`·.
  Omar L. M. Rosa
  º.·´¯`·. º.·´¯`·. º.·´¯`·.
  o...@conesul.inf.br

  - Original Message - 
  From: Vinicius da Silva Pinto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, February 02, 2009 8:31 PM
  Subject: RES: [delphi-br] Transferir toda configuração do Delphi 6 e 7 para 
outra maquina/windows...

  Boa tarde a todos, gostaria de uma ajuDa com uma query entre tres tabelas e
  estou tendo alguns problemas, na verdade, estou meio enrolado...

  Tabela1
  CDPEDIDO DATAPEDIDO (outros campos)
  1 25/01/2009
  2 25/01/2009
  

  Tabela2
  CDPEDIDO CDITEM (outros campos)
  1 1
  1 5
  1 6
  2 1
  2 5
  

  Tabela3
  CDITEM DESCRICAO
  1 MESA
  2 CADEIRA
  3 LUMINARIA
  4 TELEFONE
  5 ESTOJO
  6 QQ

  Gostaria de um resultado que me desse o total de Itens vendidos em um
  7725determinado mes

  CDITEM DESCRICAO TOTAL
  1 MESA 2
  5 ESTOJO 2
  6 QQ 1

  O select que estou usando esta assim:

  SELECT B.CDITEM, C.DESCRICAO, B.VALOR AS TOTAL
  FROM PEDIDOS A, 

  (SELECT CDITEM, SUM(VALOR) FROM SERVICOS GROUP BY CDITEM) B,

  TABSERVICO C,

  WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES AND B.CDPEDIDO = A.CDPEDIDO AND
  C.CDITEM = B.CDITEM
  GROUP BY CDITEM DESCRICAO

  Já tentei assim, mais tbm não dá certo:

  Uso Delphi7 e InterBase.

  Agradeço antecipadamente qq ajuda.

  Vinicius

  [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] Transferir toda configuração do De lphi 6 e 7 para outra maquina/windows...

2009-02-03 Por tôpico omar l m rosa
acho que deveria ser assim:


SELECT B.CDITEM, C.DESCRICAO, SUM(B.VALOR) AS TOTAL

FROM PEDIDOS A, 
JOIN SERVICOS B
 ON B.CDPEDIDO = A.CDPEDIDO

JOIN TABSERVICO C
ON C.CDITEM = B.CDITEM


WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES 

GROUP BY B.CDITEM, C.DESCRICAO





º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br



  - Original Message - 
  From: Vinicius da Silva Pinto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, February 02, 2009 8:31 PM
  Subject: RES: [delphi-br] Transferir toda configuração do Delphi 6 e 7 para 
outra maquina/windows...


  Boa tarde a todos, gostaria de uma ajuDa com uma query entre tres tabelas e
  estou tendo alguns problemas, na verdade, estou meio enrolado...

  Tabela1
  CDPEDIDO DATAPEDIDO (outros campos)
  1 25/01/2009
  2 25/01/2009
  

  Tabela2
  CDPEDIDO CDITEM (outros campos)
  1 1
  1 5
  1 6
  2 1
  2 5
  

  Tabela3
  CDITEM DESCRICAO
  1 MESA
  2 CADEIRA
  3 LUMINARIA
  4 TELEFONE
  5 ESTOJO
  6 QQ

  Gostaria de um resultado que me desse o total de Itens vendidos em um
  7725determinado mes

  CDITEM DESCRICAO TOTAL
  1 MESA 2
  5 ESTOJO 2
  6 QQ 1

  O select que estou usando esta assim:

  SELECT B.CDITEM, C.DESCRICAO, B.VALOR AS TOTAL
  FROM PEDIDOS A, 

  (SELECT CDITEM, SUM(VALOR) FROM SERVICOS GROUP BY CDITEM) B,


  TABSERVICO C,


  WHERE EXTRACT(MONTH FROM DATAPEDITO) = :MES AND B.CDPEDIDO = A.CDPEDIDO AND
  C.CDITEM = B.CDITEM
  GROUP BY CDITEM DESCRICAO

  Já tentei assim, mais tbm não dá certo:

  Uso Delphi7 e InterBase.

  Agradeço antecipadamente qq ajuda.

  Vinicius



   

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



Re: Res...: [delphi-br] Saber qual controle está ati vo - TMemmo

2009-01-12 Por tôpico omar l m rosa

as propriedades activepage e activepageindex não servem?


  - Original Message - 
  From: Silvio Clécio 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, January 11, 2009 10:27 PM
  Subject: Res...: [delphi-br] Saber qual controle está ativo - TMemmo


  Olá pessoal,

  Cara, eu fiz um teste aqui e foi sem problemas, rode o EXE do demo:

  [http://geocities.yahoo.com.br/silvioprog/teste_com_pagectrl.zip] (Está com o 
source).

  Se não der certo meu velho, eu nem sei como te ajudar :| .
  
  []'s, Silvio Clécio
  ---
  Linux User: #481900
  Skype: silvioprog
  ICQ: 432519902
  E-mail, Y! Messenger: silviop...@yahoo.com.br
  Gmail, GTalk: silviop...@gmail.com
  Hotmail, MSN: silviop...@hotmail.com
  BlogSpot: http://silvioclecio.blogspot.com/
  BlogSite: http://silvioprog.blogspot.com/
  °oO| Seja livre, use Linux! |Oo°

  
  De: Carlos gcm3...@yahoo.com.br
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Domingo, 11 de Janeiro de 2009 21:09:24
  Assunto: Re: Res...: [delphi-br] Saber qual controle está ativo - TMemmo

  Boa noite meus camaradas!!
  Realmente a rotina:
  for I := 0 to ComponentCount - 1 do
  begin
  if (Components[ I] is TMemo) then
  if (Components[ I] as TMemo).Parent. Visible then

  quase que funciona, mas...sempre existe um mas...
  Deixe eu explicar melhor, quem sabe assim alguém possa me ajudar
  melhor, ou dar uma luz para o caminho das pedras...e não é falta de
  pesquisar não...
  tenho um PageControl, onde em tempo de execução, permito que o usuário
  crie TabSheet, e nestes TabSheet um TMemo.
  Então, numa situação possível(embora improvável), tenho 10 TabSheet
  criadas, sendo que o foco está na TabSheet nº 5; eu quero que que ao
  clicar em um botão ou algum outro controle, capturar qual controle
  está ativo, ou seja, qual TabSheet está ativa, e consequentemente qual
  TMemo, e assim capturar o texto que está neste TMemo.

  O que acontece, quando uso a rotina acima é que ele me dá sempre o
  texto do 1º TMemo, e eu não tô conseguindo assimilar de que forma
  poderei fazer isto...

  Agradeço antecipadamente a ajuda de todos.
  Fraterno abraço,
  Carlos 

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

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



   

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



[delphi-br] Feliz Natal - poeminha De Omar pra você

2008-12-23 Por tôpico omar l m rosa
Ola!

Eu sou o Omar!

Pensava nos meus pensamentos que era rico, abastado, cheio de sabedoria... 
mas, quando me ví através da Palavra do Senhor, me descobri pobre, cego e nú!
Mas, por causa do amor com que Êle me amou, 
me trouxe para o Seu reino, me resgatou, 
para o reino do Filho do Seu amor, Jesus.
E mais... me colocou num lugar espaçoso, 
e me deu Paz, 
e me vestiu com vestes de louvor, 
e me honrou, 
e me amou, 
e me ... tudo.
Eu o Exalto, agora e sempre, por tudo que fez e fará por mim!
Para isto acontecer, are necessário um menino nascer!
Homem se tornar, e por mim morrer!
Morreu a minha morte, para que eu vivesse a Sua vida!
Que mistério, que alegria! Jesus nasceu! 
Na Sua morte os céus se fecharam, 
mas no Seu Natal os céus se abriram, 
Anjos cantaram, e declararam as maravilhas de Deus!

É o meu desejo para todos vocês: Cantemos, declaremos as maravilhas de Deus!
O resto vem ao natural (quiz dizer: espiritual)..

Feliz Natal 2008!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br



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



Re: ...Res: [delphi-br] Calendário Multi-Seleção

2008-12-22 Por tôpico omar l m rosa
HI!

Eu utilizo a agenda do jedi.

tenta compilar o demo da agenda... no diretorio jvcl\exemplos


º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   o...@conesul.inf.br



  - Original Message - 
  From: Marx Gentil 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, December 22, 2008 4:38 PM
  Subject: Res: ...Res: [delphi-br] Calendário Multi-Seleção


  Pessoal, olha eu aqui novamente. Graças a vcs eu consegui instalar os 
componentes, porém, na paleta JV TimeFrameWork, tem um componente chamado 
JVTFMonths que é justamente o que eu preciso para resolver o meu problema. A 
bronca agora é que não consigo fazer nada com ele porque tovas as vezes que o 
coloco num FORM dá o erro: Access Violation at Address... e olhe que instalei 
os componentes em dois notbooks de forma diferente a apareceu o mesmo erro. 

  Se alguém já passou por este problema com o JEDI por favor me ajudem.

  Obrigado!

  
  De: Silvio Clécio silviop...@yahoo.com.br
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Sexta-feira, 19 de Dezembro de 2008 14:22:44
  Assunto: ...Res: [delphi-br] Calendário Multi-Seleção

  Olá pessoal,

  Ricardo, valeu pela força :)

  Marx, quando você instalar as updates, pode dar sem medo um Shif+Del nas 
pastas jcl e jvcl, descompacte uma nova cópia do *.zip dessas pastas, e, 
pelo amor de Deus, não use o clean.bat, uma vez tive a surpresa de todos os 
paths do Delphi serem apagados, a minha sorte foi que o Delphi salva uma cópia 
dos paths.

  Vá tb na pasta bpl do Delphi (com ele fechado) e exclua os Jv*.bpl, 
resumindo, começe do 0 (zero), eu já tive alguns problemas na instalação do 
JVCL no D7 e só resolveu assim.
   _ _ __
  []'s, Silvio Clécio
  Contatos/Blog
  Skype: silvioprog
  E-mail, Yahoo! Messenger: silviop...@yahoo. com.br
  Gmail, Google Talk: silviop...@gmail. com
  Hotmail, MSN: silvio_prog@ hotmail.com
  BlogSpot: http://silvioclecio .blogspot. com/

   _ _ __
  De: Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br
  Para: delphi...@yahoogrup os.com.br
  Enviadas: Sexta-feira, 19 de Dezembro de 2008 12:29:28
  Assunto: Re: Res: Res: Res: Res: [delphi-br] Calendário Multi-Seleção

  Marx, os links para download do Update 2 estão ativos sim. Tenta um desses 
dois links:

  * [ http://dn.codegear. com/article/ 28405 ]
  * [ http://dn.codegear. com/article/ 38607 ]

  Recomendo que baixe todas as atualizações disponíveis para o Delphi 6. Quando 
eu usava o Delphi 6 lembro que cheguei a instalar todas as atualizações. O 
desempenho melhorou e muito.

  []'s
  Ricardo. 

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

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

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

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



   

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



Re: [delphi-br] Essa é Nova!!! - Delphi para DVD - Só por diletantismo

2008-12-10 Por tôpico omar l m rosa
HI!

Acho que tem que saber como é a estrutura dos arquivos VOB, IFO, etc.

Depois construir os arquivos de acordo, salvar no dvd e fim.

Uma pequena pesquisa no gúgel vob file structure  dvd format definition 
deve retornar algo

Bai!
omar


  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, December 10, 2008 2:18 PM
  Subject: Re: [delphi-br] Essa é Nova!!! - Delphi para DVD - Só por 
diletantismo


  Coutinho,

  Cara, ou eu não entendi o que tu quer fazer, ou sei lá...

  Concordo contigo e com o que o Ricardo falou, a thread que tu abriu não é
  off.

  Se eu entendi direito, tu quer digamos que transformar um exe do delphi em
  menu de um DVD, correto? Bem, concordo com o Ricardo, são 'plataformas'
  diferentes, e não vai rolar.

  Mas pergunto novamente: pq você não utiliza um programa específico de edição
  de vídeos?

  []
  Andrei

  2008/12/10 Coutinho - Yahoo [EMAIL PROTECTED]

   Acho que não consegui passar minha dúvida direito.
   Não creio que esta thread seja OFF-TOPIC..., estou falando de
   programação em Delphi. Só não é para Banco de Dados.
   Bem, eu tenho o HandBrake para gerar os AVIs. Ok até aí.. ótimo...
   coloco os AVIs no DVD e meu DVD toca, pois ele toca Divx, AVI, MPeg, etc...
   Mas eu quero fazer um programa que rode no DVD... É possivel?
   Se outros profissionais criam os arquivos IFO para serem os menus do
   DVD, porquê não conseguiremos nós?
   Estou apenas perguntando se algum dos distintos colegas tem literatura,
   ou conhecimento, para que ao invés de usar de terceiros, possamos criar
   um menu que chame os mpegs, ou avi's que estão no dvd e os faça rodar no
   dvd.
   Não quero transformar os avis e mpegs em .vob...
   Usar o menu do próprio aparelho, é fácil... Isso já faço.
   Coloco cerca de 8 filmes de uns 700Kb no dvd de 8.5 Gb e tudo bem...
  
   Estou querendo (não re-inventar a roda), mas fazer minha roda ao invés
   de usar a dos outros...
  
   Alguém tem como me ajudar nessa empreitada?
  
   Abraços a todos...
  
   Emanuel Coutinho
  
  
   Andrei Luís escreveu:
   
Coutinho,
   
Será que vale a pena reinventar a roda? O que você quer é um editor de
dvd,
tá cheio de programas assim. Eu uso o Pinnacle, que veio junto com a
   placa
de captura que comprei. No Windows mesmo tem o MovieMaker.
   
Outra detalhe: não sei qto você vai pagar as mídias DL, aqui na minha
cidade
(Novo Hamburgo - RS), as mídias de 4Gb estão custando em torno de R$
   1,00,
enquanto as DL estão pelo menos uns R$ 8,00. Se quer economizar em mídia,
compre duas mídias normais ao inves de 1 DL.
   
[]
Andrei
  

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

2008-12-02 Por tôpico omar l m rosa
HI!
Eu uso desde 2001.

É muito bom, nunca me deu problema.
Acho que o pessoal tem dificuldades em configurar, pois é meio chato. as 
velocidades de banda larga também elimina a necessidade de usar-lo.

Eu uso por segurança no acesso às bases de dados de meus clientes, pois coloco 
o tunel em qualquer porta e qualquer tentativa de acesso dá em nada.

Mas já usei até mais de uma porta dentro do mesmo túnel, redirecionando para 
mais de um servidor, etc...


º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]





  - Original Message - 
  From: valdir 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, December 02, 2008 8:34 AM
  Subject: Re: [delphi-br] Off - Zebedee


  Bom dia,
  Será que alguém usa mesmo esse Zebedee? Pelo que está me parecendo não é 
muito usado. Já pesquisei em inúmeros locais na net. Os poucos artigos ou 
postos que encontrei dizem a mesma coisa e não esclarecem muito sobre a 
configuração. Pelo menos não sobre possíveis erros na conexão.
  Seguindo a lógica: se é free, está há bastante tempo no mercado e não é 
usado...Nesse caso, faço outra pergunta: qual o problema dele? Me pareceu tão 
prático e simples? 

  Obrigado
  Valdir

  - Original Message - 
  From: Silvio Clécio 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, December 01, 2008 8:14 PM
  Subject: Res: [delphi-br] Off - Zebedee

  Olá pessoal,

  Um xará teve a mesma dúvida:

  
(http://mail.firebase.com.br/pipermail/lista_firebase.com.br/2005-October/021070.html)
  
  []'s, Silvio Clécio
  Contatos/Blog
  Skype: silvioprog
  E-mail, Yahoo! Messenger: [EMAIL PROTECTED]
  Gmail, Google Talk: [EMAIL PROTECTED]
  Hotmail, MSN: [EMAIL PROTECTED]
  BlogSpot: http://silvioclecio.blogspot.com/

  
  
   Olá,
  
   Alguém aí usa o Zebedee?
   Estou testando essa opção de conexão, mas não consigo realizar um
   teste completo. No terminal, quanto tento acessar o banco de dados no
   serivodr, dá mensagem ERROR - can't connect to 189.31.41.203 port
   11965
  
   Meu IP na net: 189.31.41.203
   IP local do micro servidor Firebird 2.0: 192.168.1.102
   A porta 3051 está liberada no terminal (cliente)
   As portas 11965 e 3050 estão liberadas no servidor
   Minha net é conectado por um roteador e a porta 11965 está
   redirecionada para o IP 192.168.1.102 no modem
   A string de conexão que uso é localhost/3051: C:\MeuPrograma\ Dados.fdb
  
   Os parâmetros de configuração do Zebedee são:
  
   server.zbd
   detached true # mostrar (true) ou ocultar (false) mensagens
   server true
   ipmode tcp # cumunicação por tcp, udp ou both
   compression zlib:9 # nível da compressão
   keylength 256 # tamanho (wm bits) máximo das chaves de criptografia
   do blowfish
   keygenlevel 2 # nível de segurança nas chaves privadas (entre 0 e 2)
   redirect none # desliga os redirecionamentos
   target localhost:3050 # destino, IP:porta
  
   client.zbd
   detached false
   server false
   ipmode tcp
   compression zlib:9
   keylength 256
   keygenlevel 2
   maxbufsize 16383
   listenip localhost
   serverhost 189.31.41.203 # ip/dns do servidor
   tunnel 3051:localhost: 3050
  
   Onde posso estar errando?
   Obrigado.
  
   Valdir Dill
  
    - - - - - -
  
   No virus found in this incoming message.
   Checked by AVG - http://www.avg. com
   Version: 8.0.176 / Virus Database: 270.9.12/1822 - Release Date: 1/12/2008
   08:23
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  Leonardo Quinino 

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

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

  --

  No virus found in this incoming message.
  Checked by AVG - http://www.avg.com 
  Version: 8.0.176 / Virus Database: 270.9.12/1823 - Release Date: 1/12/2008 
19:59

  [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] Interligar Matriz e filial

2008-11-27 Por tôpico omar l m rosa
HI!

Pode criar um túnel entre elas com o ZEBEDEE e acessar a base de dados 
remotamente sem mexer no bacalhau.
compactado, criptografado, funciona beleza.
Multiplica a velocidade de conexão por 10 .





  - Original Message - 
  From: Leandro - Grupos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, November 27, 2008 8:13 AM
  Subject: [delphi-br] Interligar Matriz e filial


  E ai pessoal blz

  Tenho um cliente que possui 2 lojas uma em cada cidade e ele gostaria de 
interligar elas para que ambas pudessem acessar o mesmo banco de dados. Andei 
lendo alguma coisa sobre SOAP na revista clubedelphi, alguem conhece alguma 
outra forma de fazer isso ou algum material que possa me auxiliar

  Abraço...

  Leandro Carbonera
  (54) 3343-3623 / 9977-1266
  [EMAIL PROTECTED]
  www.sigmatecnologia.com.br 

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



   

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



[delphi-br] OFF +- Quero comprar o Delphi

2008-11-19 Por tôpico omar l m rosa
HI!

Onde se compra o Delphi no Brasil?

Consultei uma revenda grande de porto alegre e a resposta foi:

No momento, não temos fornecedor para Delphiaparentemente não há 
distribuidor mais no Brasilacho que este produto já foi.


EH???


º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]

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



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

2008-11-19 Por tôpico omar l m rosa
Thank´s a lot!


º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]



  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 19, 2008 10:01 AM
  Subject: Re: [delphi-br] OFF +- Quero comprar o Delphi


  Em Porto Alegre procure pela Aquasoft, que é parceiro Borland, ministra
  cursos oficiais e vende produtos: www.aquasoft.com.br

  Ou como outros colegas mencionaram, borlandshop e fone.

  []
  Andrei

  2008/11/19 omar l m rosa [EMAIL PROTECTED]

   HI!
  
   Onde se compra o Delphi no Brasil?
  
   Consultei uma revenda grande de porto alegre e a resposta foi:
  
   No momento, não temos fornecedor para Delphiaparentemente não há
   distribuidor mais no Brasilacho que este produto já foi.
  
  
   EH???
  
  
   º.·´¯`·. º.·´¯`·. º.·´¯`·.
   Omar L. M. Rosa
   º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [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] SQL com Union - Ordem Inversa não Fu nciona

2008-11-12 Por tôpico omar l m rosa
a sintaxe correta seria algo como:

select status, data, count(*) qtd, sum(total) total
from 
(
select  status, data, 1 qtd,  total from pedidos
where status = 1

union all

select status, data, 1 qtd, total from pedidos
where status = 3
 )

group by 1,2
order by 4 desc

---

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]






  - Original Message - 
  From: valdirdill 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 12, 2008 4:33 PM
  Subject: [delphi-br] SQL com Union - Ordem Inversa não Funciona


  Quero fazer uma consulta que apresente os maiores compradores. A SQL 
  abaixo funciona certinho. Porém, quero que seja listado na ordem 
  inversa, iniciando do maior TOTAL_VENDIDO e terminado no menor. Ao 
  listar normal (iniciando no menor, funciona direitinho), mas se eu 
  acrescentar um 'DESC' no ORDER BY, não faz efeito. 
  Por gentileza, analise o SQL e me ajude com alguma dica. 

  SELECT CLIENTES.CODIGO, CLIENTES.NOME AS NOME_CLIENTE, 
  CAST(SUM(VENDAMESTRE.TOTALVENDA) AS FLOAT) AS TOTAL_VENDIDO FROM 
  VENDAMESTRE INNER JOIN CLIENTES ON 
  (VENDAMESTRE.CLIENTE=CLIENTES.CODIGO) 
  GROUP BY 1, 2 
  UNION ALL 
  SELECT CLIENTES.CODIGO, CLIENTES.NOME AS NOME_CLIENTE, 
  CAST(SUM(SERVICOMESTRE.TOTALFINAL) AS FLOAT) AS TOTAL_VENDIDO FROM 
  SERVICOMESTRE INNER JOIN CLIENTES ON 
  (SERVICOMESTRE.CLIENTE=CLIENTES.CODIGO) 

  GROUP BY 1, 2 

  ORDER BY 3 //tanto faz qual dessas duas linhas eu 
  ORDER BY 3 DESC //colocar no SQL. Ambas darão a mesma ordem. 

  Tá tudo certinho, o único problema é que, estranhamente o DESC não 
  faz efeito no order By. 

  Obrigado.



   

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



[delphi-br] No argument for format '%s'

2008-09-15 Por tôpico omar l m rosa
hi!

Uso d7, ibo, FB 2.1

Quando há um componente referenciando um campo não existente no dataset, 
recebo esta mensagem.

É um a mão de obra saber quem é o campo.

Parece ser um bug do Delphi, ao montar a msg de erro da exception.

Alguém já topou com este erro?

Como resolver?

Bai!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]



Re: [delphi-br] Ajuda plsql

2008-09-15 Por tôpico omar l m rosa
deste jeito o comando for não está completo...

Faz ansim:
..
declare wsql varchar(4000);
..
begin 
IF (:VTIPO='RETORNA') THEN
   WSQL = 'SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ';
ELSE IF (:VTIPO='AVANCA') THEN
   WSQL = 'SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ORDER BY GRUPO';

FOR 

EXECUTE STATEMENT WSQL

INTO :RCODIGO,:RNOME
DO BEGIN
 SUSPEND;
EXIT;
END





  - Original Message - 
  From: pena_rs 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, September 15, 2008 12:33 PM
  Subject: [delphi-br] Ajuda plsql


  boa tarde pessoal, sou novato em delphi, estou precisando de uma
  maozinha, seguinte:

  begin 
  IF (:VTIPO='RETORNA') THEN
  BEGIN
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME 
  DO BEGIN
  SUSPEND;
  EXIT;
  END
  END
  ELSE IF (:VTIPO='AVANCA') THEN
  BEGIN
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ORDER BY GRUPO
  INTO :RCODIGO,:RNOME
  DO BEGIN
  SUSPEND;
  EXIT;
  END

  AQUI ESTA A PARTE DO CODIGO QUE ESTA FUNCIONANDO, SO QUE QUERIA FAZER
  UM OUTRO TESTE MAS NAO CONSIGO FAZER, DA ERRO, E COMO DISSE SOU NOVATO
  E NAO CONSIGO DESCOBRIR ONDE ESTOU ERRANDO
  begin 
  IF (:VTIPO='RETORNA') THEN
  BEGIN
  if (:VORDEM = 1) then
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
  ORDER BY GRUPO DESC INTO :RCODIGO,:RNOME
  else
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
  ORDER BY CODIGO DESC INTO :RCODIGO,:RNOME
  end if
  DO BEGIN
  SUSPEND;
  EXIT;
  END
  END

  como viram quero apenas colocar um if, para testar se a ordem é por
  codigo ou alfabetica



   

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



Re: [delphi-br] Paradox em rede

2008-08-22 Por tôpico omar l m rosa
HI!
Abandone esta idéia!
Você vai perder os fios de cabelo de sua cabeça!

Sem muito acesso vai tdo bem. É só estressar a base paradoidox que vai tudo pro 
brejo
Use alguma base de dados SQL!

Bai!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]



  - Original Message - 
  From: Omar Marques 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 22, 2008 11:03 AM
  Subject: [delphi-br] Paradox em rede



  Salve Delphianos

  Gostaria de saber quais seriam as orientações básicas para colocar um base 
Paradox em rede.

  Estou tentando, mas quando vou rodar a aplicação na máquina Cliente dá erro:

  Network Initialization Error

  Quais seriam os parâmetros no servidor (local share, caminho do alias, etc) e 
os parâmetros nas estações clientes. ??

  Abraço a todos.

   Omar M. HaddadAnalista de Sistemas 

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

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



   

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



Re: RES: [delphi-br] Aplicativo tipo MSN

2008-07-31 Por tôpico omar l m rosa
HI!
tem no jedi 

TJvDesktopAlert


Bai

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]



  - Original Message - 
  From: Marcos Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 31, 2008 9:40 AM
  Subject: Re: RES: [delphi-br] Aplicativo tipo MSN


  Charles,

  Tem um site que tem um componente que faz isso. Mas nao sei se é pago!!! Da 
uma olhada la e depois diga para a gente o que achou!

  http://www.elivaldo.com.br/

  Att,

  Marcos A. Ferreira
  São Paulo - SP
  +55 1183376968

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

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

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

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de HNS Informática
  Enviada em: terça-feira, 29 de julho de 2008 15:57
  Para: Delphi Br
  Assunto: [delphi-br] Aplicativo tipo MSN

  Alguém sabe me dizer se existe algum componente que faz com que a aplicação
  Delphi (Delphi5) minimize na tela no canto inferior direito, tipo MSN, e que
  abra janelinha de mensagens pequena embaixo tipo como no msn quando alguém
  entra online? para fazer propaganda de produtos, etc?

  abraços
  Charles A. Chiodi 


  [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 ZEOSDBO-6.6.2-rc

2008-07-28 Por tôpico omar l m rosa
HI!
Utilizo desde o tempo que não era DBO.

O único problema é que trabalha no modo síncrono, ou seja, bloqueia a aplicação 
durante a execução do SQL, nem criando threads.

Se alguém souber como fazer para não travar a aplicação, agradeço.

Bai!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]



  - Original Message - 
  From: Emilio Córdova (gmail) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, July 26, 2008 10:31 PM
  Subject: Re: [delphi-br] Componente ZEOSDBO-6.6.2-rc


  Noite,

  Eu utilizo o Zeos a 2 anos com mysql e sql server e até hoje nunca tive 
problemas, tenho clientes rodando sistemas de 1 até 20 maquinas em D7 + Zeos + 
Mysql/Sql Server e em todos eles o zeos é o 6.6.2-rc.
  Sempre que tem atualização eu instalo, recompilo o sistema e distribuo.

  Atenciosamente, 

  --
  Emilio Córdova 
  [EMAIL PROTECTED]
  [EMAIL PROTECTED] 
  [EMAIL PROTECTED] 
  (41) 8823-8835 

  From: shadowcorreia 
  Sent: Saturday, July 26, 2008 3:21 PM
  To: delphi-br@yahoogrupos.com.br 
  Subject: [delphi-br] Componente ZEOSDBO-6.6.2-rc

  Olá pessoal estou iniciando o Desenvolvimento de um aplicativo para o
  meu TCC e gostaria de saber, se alguém está ou ja usou a versão
  ZEOSDBO-6.6.2-rc do Zeus, quero saber se está confiável não tem nenhum
  bug.

  Fico no Aguardo

  [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] Duvida Firebird + DBExpress

2007-11-05 Por tôpico omar l m rosa
commit!!!

º.·´¯`·. º.·´¯`·. º.·´¯`·.
 Omar L. M. Rosa
º.·´¯`·. º.·´¯`·. º.·´¯`·.
   [EMAIL PROTECTED]


  - Original Message - 
  From: Samuel M. Basso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 05, 2007 2:16 PM
  Subject: Re: [delphi-br] Duvida Firebird + DBExpress


  Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara
  acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro
  novamente por exemplo nao efetuou as alteracoes que eu fiz.

  
   Em 05/11/07, Luciano Angelini [EMAIL PROTECTED] escreveu:
   
Boa Tarde Samuel .
   
Olha aki eu uso assim 
   
nos botões:
Gravar:
CDSCadCliente.Post ;
Excluir:
CDSCadCliente.Delete;
Alterar:
CDSCadCliente.Edit ;
   
e nos eventos do ClientDataSet ...
   
AfterCancel:
CDSCadCliente.CancelUpdates ;
   
AfterDelete e AfterPost:
CDSCadCliente.ApplyUpdates(0) ;
   
Espero ter ajudado !!!
   
Luciano Angelini
Prefeitura de Lupionópolis-Pr
   
Samuel M. Basso escreveu:
   

 Boa Tarde!

 Tenho o seguinte problema, estou fazendo um sistema de solicitacoes
coisa
 simples para praticar com dbexpress e tenho um problema que ao gravar
e
 excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona
vai
 pro banco de dados mas qdo altero ou excluo nao funciona continua como
   
 tava
 antes.

 --
 Atenciosamente,

 Samuel M. Basso
 Tel: (54) 3452-9126
 Cel: (54) 8135-3723
 E-mail: [EMAIL PROTECTED] samuelbasso%40gmail.com 
mailto:samuelbasso%40gmail.com

 MSN: [EMAIL PROTECTED] samuelbasso%40gmail.com 
mailto:samuelbasso%40gmail.com


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


   

   
  
  
  
   --
   Atenciosamente,
  
   Samuel M. Basso
   Tel: (54) 3452-9126
   Cel: (54) 8135-3723
   E-mail: [EMAIL PROTECTED]
   MSN: [EMAIL PROTECTED]

  -- 
  Atenciosamente,

  Samuel M. Basso
  Tel: (54) 3452-9126
  Cel: (54) 8135-3723
  E-mail: [EMAIL PROTECTED]
  MSN: [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] Comando VB similar no Delphi.

2007-08-04 Por tôpico omar l m rosa
hi!

usa o componente  FileListBox  deixa invisivel no form.
para ver se existe arquivo use fileexists()
  - Original Message - 
  From: Rodrigo de Moura 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 03, 2007 9:53 AM
  Subject: [delphi-br] Comando VB similar no Delphi.


  Bom dia Pessoal,

  Existe na Delphi Language um comando similar ao Dir$ do VB?

  Estou convertendo um sistema em VB para Delphi e me deparei com esse
  comando.

  Segundo o que pesquisei na net, Dir$ retorna o exato nome do arquivo, se
  existir,

  ou um nulo, se não existir. E mesmo passando o nome parcial do arquivo ele
  retorna o nome exato do mesmo.

  abaixo segue um trecho do código:

  s = Dir$(UserId  \  PED*.Txt)

  Essa linha retorna com base no nome parcial (PED*.Txt) o nome completo
  (PED20070308_158795.txt).

  Inclusive, se houver mais de um arquivo PED*.Txt no diretório ele pega por
  meio de um laço os arquivos e joga num array, assim:

  While Not oIsEmpty(s)

  ArrayAdd v, s

  s = Dir$ (aqui joga em s o nome completo do próximo arquivo, se houver)

  Wend

  Sei que posso fazer do jeito tradicional que seria colocar um opendialog e
  por meio dele pegar

  o(s) arquivo(s) um a um, mas devido grande número de arquivos o modo
  descrito acima é a melhor

  forma pois os usuários clicam no botão uma vez e importa todos os arquivos
  que houverem no diretório.

  É isso ae, qualquer ajuda será bem vinda!!

  Rodrigo de Moura

  [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] algúem sabe usar XML em memória?

2007-08-01 Por tôpico omar l m rosa
Do help do delphi:

property XMLData: Represents the data of the client dataset in XML.


TXMLDocument represents an XML document.

bai
omar



  - Original Message - 
  From: André Trombetone 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 01, 2007 3:54 PM
  Subject: Re: [delphi-br] algúem sabe usar XML em memória?


  Puts caras, Tambem estou tendo o mesmo problema!
  Ja revirei a Net tendando achar alguma solução e não consgui nada!

  Em 08/05/07, Alberto [EMAIL PROTECTED] escreveu:
  
   Vou explicar melhor:
  
   No Flex, crio um cara mais ou menos assim (supondo um cadastro de bancos):
   DadosEnvio := BAN_CODIGO28/BAN_CODIGO BAN_NOMEBRADESCO/BAN_NOME
   Envio essa string para o WebService.
   Lá faço o seguinte:
  
   Var
   abyte : array of byte;
   XMLFILE : Stream;
   Begin
   DadosEnvio := '?xml version=1.0 encoding=UTF-8?' +DadosEnvio;
   abyte := System.Text.Encoding.UTF8.GetBytes(sStr);
   XMLFILE := System.IO.MemoryStream.Create(abyte);
   DataSet1.ReadXml(XMLFILE);
  
   Pronto, já posso trabalhar com o DataSet.
   A pergunta é a seguinte, tem como eu trabalhar com esse XML na memória?
   Acessando os nodes e tudo mais?
   Ou tem uma maneira mais fácil de fazer isso?
  
   Obrigado.
  
  
   - Original Message -
   From: Adriano Santos
   To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   Sent: Monday, May 07, 2007 6:37 PM
   Subject: Re: [delphi-br] algúem sabe usar XML em memória?
  
   Você vai gerar localmente o xml e enviar para o servidor webservice?
   Num entendi direito.
  
   Adriano Santos
   Desenvolvedor Delphi desde 1998. Professor e programador PHP.
   Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
  
   Colunista e Comissão Editorial da revista ClubeDelphi.
   Respondam minhas enquetes:
   Qual banco você utiliza?
   Qual Delphi você utiliza?
   Blog: http://www.delphitodelphi.blogspot.com
  
   Alberto respondeu:
   
Olá delphianos
   
Tenho um sistema desenvolvido em Flex Builder que consome webservices
desenvolvidos em Delphi.NET.
Estou precisando enviar para o WebService um XML.
Já faço isso em alguns casos, mas estou sempre dependendo de um
DataSet, gostaria de saber se alguém sabe usar um XML em memória
(lembre-se que estou em um servidor e não tem como usar tabelas
temporárias).
   
[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.467 / Virus Database: 269.6.2/787 - Release Date: 3/5/2007
   14:11
   
  
   --
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  Att
  André Luiz Trombetone
  (19) 8111-8557
  MSN [EMAIL PROTECTED]
  http://www.jrscomputacao.inf.br/andre

  [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] Fução IF (Equivalente a do Cli pper)

2007-07-23 Por tôpico omar l m rosa
Unit

MathStrUtils

Category

miscellaneous routines

Delphi syntax:

function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer = 
0): Integer; overload;

function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64 = 0): 
Int64; overload;
function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double = 
0.0): Double; overload;
function IfThen(AValue: Boolean; const ATrue: string; const AFalse: string = 
''): string; overload;



  - Original Message - 
  From: Adjalma Costa 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 20, 2007 11:06 AM
  Subject: RE: [delphi-br] Fução IF (Equivalente a do Clipper)


  Entrei na unit Math mas não encontrei a função citada.

  sds
  Adjalma

  Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:

  Função IIf() da unit Math.
  Sds.

  To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 19 Jul 2007 17:51:28 
-0300Subject: [delphi-br] Fução IF (Equivalente a do Clipper)

  Alô grupo,Vocês sabem me informar se no Pascal (Delphi) tem uma função 
equivalente a função IF do clipper?sdsAdjalmaFlickr agora em português. Você 
cria, todo mundo vê. Saiba mais.[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

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

  Flickr agora em português. Você cria, todo mundo vê. Saiba mais.

  [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] off topic (mostrar campos pulados)

2007-07-16 Por tôpico omar l m rosa
. retorna todos os numeros não encontrados

  while (numero_ate  numero) do
  begin
  if (not exists (select null from ve se existe)) then
  begin  
  suspend;
  end
  numero = numero + 1;
  end


  - Original Message - 
  From: Cleiton 
  To: Delhpi 
  Sent: Monday, July 16, 2007 5:17 PM
  Subject: [delphi-br] off topic (mostrar campos pulados)


  Pessoal...

  Suponha uma tabela de 100 registros. Nesses 100 registros eu tenho 6 
registros que foram pulados.

  Por exemplo...

  registro 1;
  registro 2;
  registro 3;

  registro 5;

  Tem alguma forma de fazer um select de mostrar a sequencia desses registros 
que foram pulados?

  Eu uso MySql 4.1

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



   

  __ Informação do NOD32 IMON 2400 (20070716) __

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


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



[delphi-br] OFF - Base de dados publica de CEP, e outros - Infor mações iniciais - Última msg

2007-07-12 Por tôpico omar l m rosa
Projeto no source-forge: 

https://sourceforge.net/projects/bdbrasil/

Monitor do forum de discussão:  

https://sourceforge.net/forum/forum.php?forum_id=714843f_feedback=1

Não serão mais postadas informações nesta lista. 

Por favor, quem se interessar em participar no projeto, inscreva-se na Lista de 
discussão via email: 

https://sourceforge.net/mailarchive/forum.php?forum_name=bdbrasil-projeto

Grato!
omar

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



[delphi-br] OFF Base de dados de CEP publica

2007-07-11 Por tôpico omar l m rosa
Dentro da idéia de criar uma base de CEPs publica, foi criado o projeto Base de 
Dados Municípios Brasileiros no SourceForge

https://sourceforge.net/projects/bdbrasil

Também criamos a lista de discussão [EMAIL PROTECTED]

para montarmos das necessidades de cada participante.

Convocamos os interessados em participar a se cadadastrar na lista.

Bai!
omar



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



Re: [delphi-br] Re: Problemas Breakpoints

2007-07-06 Por tôpico omar l m rosa
Tentou copiar somente os .pas, .dfm e .dpr para um nova pasta e recompilar?

Se é só neste programa que não funciona os breakpoints, é porque alguma opção 
está desligada...
verifica também se não tem diretivas de compilação nos fontes que impeçam o 
debug.
Procura no help por Delphi compiler directives

Bai
omar


  - Original Message - 
  From: Carlos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 05, 2007 8:48 PM
  Subject: [delphi-br] Re: Problemas Breakpoints


  Vou falar o que me aconteceu hoje, não sei se é o seu caso.
  Considero isto um bug do Delphi7.
  Inventei de mexer nas configurações do Delphi, mas para conhecer, e
  não alterei quase nada.
  Mas no Editor Options - Key Mappings, na janela Key Mappings
  Modules tirei o foco da opção Default (não altei mais nada),e o
  BreakPoint não funcionou mais.
  Com muito custo é que, revisando os passos, cheguei a esta parte e
  voltei o foco para a opção anterior e o BreakPoint voltou a funcionar.
  Espero que te auxilie.
  Fraterno abraço.
  Carlos

  --- Em delphi-br@yahoogrupos.com.br, Jumper [EMAIL PROTECTED] escreveu
  
   Pelo que vc falou a solução seria apagar o arquivo com extensão cgf.
   
   ex.: Nome_do_projeto.cfg
   
   
   Em 20/06/07, Marlon Tiedt [EMAIL PROTECTED] escreveu:
   
Apaga todos os arquivos do com o mesmo nome do DPR deve funcionar.
- Original Message -
From: Clayton Yahoo
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Wednesday, June 20, 2007 5:12 PM
Subject: Re: [delphi-br] Problemas Breakpoints
   
Kra... uma vez eu mudei a configuração de compilação e deu essa merda.
Verifique no menu Project/Options/Compiler.
   
- Original Message -
From: Joao Morais
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Wednesday, June 20, 2007 2:48 PM
Subject: Re: [delphi-br] Problemas Breakpoints
   
lucaoliveira7 wrote:
 Pessoal,

 Já postei aqui neste grupo porém ninguém tem uma solução
  plausível. Já
 procurei e vários grupos e na internet e nada achei. Peço mais
  uma vez
 a atenção de vcs.
 Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como
  aconteceu, mas
 os breakpoints pararam de funcionar em um único programa. Estou
 utilizando VCLSkin, é a única coisa que me lembro de ter feito e
  depois
 parado de funcionar o breakpoint, só que msm retirando a VCLSkin o
 problema continua.

 Já deletei todas as DCU´s e recompilei tudo
 Não é problema de configuração do Delphi, uma vez que se abrir qq
 programa o breakpoint volta a funcionar.
   
Project | Options | Compiler | Debug Information
   
--
Joao Morais
   
 Então estou sem opções. E todos sabem que sem os breakpoints a
 depuração de erros se torna lenta e suscetível a mais erros, pq
  estou
 depurando com showmessages.

 Grato.




   
[As partes desta mensagem que não continham texto foram removidas]
   
--
   
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.472 / Virus Database: 269.9.1/857 - Release Date:
  20/6/2007
14:18
   
[As partes desta mensagem que não continham texto foram removidas]
   

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



   

  __ Informação do NOD32 IMON 2380 (20070705) __

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


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



Re: RES: [delphi-br] Consulta de CEP

2007-07-05 Por tôpico omar l m rosa
Porque não criar um projeto no source-forge, por exemplo de uma base pública de 
ceps, e outras informações?
Por exemplo, podemos construir um robô que busque em qualquer site as 
informações dos cep´s, 
Disponibilizar uma estrutura sempre atualizada...
Outras tabelas interessantes também...

Lançada a idéia...

Omar

  - Original Message - 
  From: Adriano Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 05, 2007 11:53 AM
  Subject: Re: RES: [delphi-br] Consulta de CEP


  Gerhard,

  ...estes são protegidos por direitos autorais, patentes, registro no INPI...
  É o que quis dizer. Precisa ver o contrato de compra e venda da base de 
  dados dos correios quando você efetua a compra. Se estiver claro no 
  contrato que não é possível a reprodução, cópia e etc etc etc isso é 
  considerado pirataria, simples.

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

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

  Gerhard Roger Nack respondeu:
  
   Se eu comprar o Guia de CEP Digital direto do correio e contratar 
   alguns estagiários para redigitar esta informação???
  
   ou
  
   Se quiser comprar o guia de ceps em papel (isso ainda existe ???) e 
   quiser passar um OCR nele???
  
   ou
  
   Se utilizar o WebService (que já saiu do ar) e salvar todos os 
   resultados consultados???
  
   ou
  
   Se passar um OCR no resultado das consultas do site do correio???
  
   E todas as alternativas acima são viáveis, depende unicamente do $ 
   disponível e da importância desta informação para seu negócio. Claro 
   que se tiver dinheiro sobrando, compra logo a base do correio por +/- 
   R$ 4.000 e pronto.
  
   E além do mais, nenhuma das alternativas acima pode ser considerada 
   pirataria. Ainda mais em se tratando do CEP, uma informação pública.
  
   Ou vão querer cobrar royalty sobre a utilização do CEP???
  
   E diferentemente do email de outro colega, no caso de antivírus, 
   jogos, ou outros programas de computador, etc., estes são protegidos 
   por direitos autorais, patentes, registro no INPI, etc., muito 
   diferente do CEP que é uma informação PUBLICA que visa unicamente 
   FACILITAR o trabalho do próprio correio. E ainda cobram caro por esta 
   informação ...
  
   E continuo indicando o site www.gsesoft.com como alternativa legal e 
   barata.
  
   [ ] s
  
   Gerhard Roger Nack
  
   [EMAIL PROTECTED] mailto:ginho%40mult.com.br
  
   De: delphi-br@yahoogrupos.com.br 
   mailto:delphi-br%40yahoogrupos.com.br 
   [mailto:delphi-br@yahoogrupos.com.br 
   mailto:delphi-br%40yahoogrupos.com.br] Em nome de Fabio Campigotto
   Enviada em: quarta-feira, 4 de julho de 2007 17:00
   Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
   Assunto: Re: [delphi-br] Consulta de CEP
  
   Pessoal,
   É bem mais complicado que vcs estão comentando.
   Se alguem tiver interesse, tenho o email de uma pessoa para contato 
   dos Correios
  
   Ja fizemos inumeras importações para clientes, mas estes sempre 
   compram as informações dos correios.
   E ate onde sei, nenhuma informação de CEP pode ser comecializada, nem 
   duplicadas, nem vendidas sem o concentimento dos Correios.
  
   E como ja vi alguns comentarios.
   Posso ter digitado minha propria base.
  
   Sim, me digam que digitou 200.000 registros de cep de ruas do Brasil, 
   e tambem onde conseguiu, na lista amarela?
  
   - Original Message -
   From: Adriano Santos
   To: delphi-br@yahoogrupos.com.br 
   mailto:delphi-br%40yahoogrupos.com.br 
   mailto:delphi-br%40yahoogrupos.com.br
   Sent: Wednesday, July 04, 2007 4:20 PM
   Subject: Re: [delphi-br] Consulta de CEP
  
   Isso concordo. É o caso que aconteceu aqui outro dia em relação ao
   RDPrint por exemplo. Lembram-se que alguém estava querendo vender o
   componente por R$ 50,00 reais, sendo que o componente comprado
   diretamente com a Deltress custa, R$ 200,00 se não me engano? Então, é
   justamente o que eu quis dizer.
  
   O cara pode ter clonado a base dos correios e vende por um preço menor
   ou mesmo quis ganhar o dinheiro (R$ 4.000,00 reais) de volta vendendo a
   base. 20 vendas já ganha o valor de volta.
  
   -- 
   Adriano Santos
   Desenvolvedor Delphi desde 1998. Professor e programador PHP.
   Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
  
   Colunista e Comissão Editorial da revista ClubeDelphi.
   http://www.delphitodelphi.blogspot.com 
   http://www.delphitodelphi.blogspot.com
  
   Ricardo César Cardoso respondeu:
   
Tudo bem que seja pirataria a base estar no e-mule ou onde quer que
esteja. Mas e quanto a revender as informações como num site que foi
citado anteriormente? O que garante que a empresa não pode ter usado
esta mesma base de dados e está vendendo pra outras pessoas?
   
Olhando o 

Re: RES: [delphi-br] Consulta de CEP

2007-07-05 Por tôpico omar l m rosa
Criei um projeto no Source-forge - Aguardando publicação

  Descriptive name:  
  Public description: Base de dados com dados públicos referente aos 
municípios do Brasil, como CEP, prefixos telefônicos, coordenadas geográficas, 
dados macro-econômicos, população, etc... Com respectivos componentes de acesso 
à base de dados, como webservices, e VCL 
   Characters in public description - max of 255 chars (Requires 
JavaScript)  
  Trove categorization: a.. License :: OSI-Approved Open Source :: GNU 
General Public License (GPL) 
  a.. Intended Audience :: by End-User Class :: Developers 
  a.. Development Status :: 1 - Planning 
  a.. Topic :: Other/Nonlisted Topic 
  a.. Programming Language :: Delphi/Kylix 
  a.. Operating System :: Grouping and Descriptive Categories :: All 32-bit 
MS Windows (95/98/NT/2000/XP) 
  a.. User Interface :: Graphical :: Win32 (MS Windows) 
  a.. Translations :: Brazilian Portuguese 
  a.. Database Environment :: Network-based DBMS :: Firebird/InterBase 
   
 
  Registration description: The intention of the project is shape, create 
and to keep the data of a public database. This database will be populated with 
public data of the country of Brazil and its cities. The considered initial 
objectives are: 1) The Brazilian postal code, 2) the prefix of DDD, 3) the 
prefix of Cellular, 4) geographic localization for digital maps, 5) 
Estatisticas of the population, as the amount, feminine masculine ratio, the 
GIP, number of voters, etc... They will be developed initially in components of 
Delphi VCL to have access the database shaped, and later in other languages, 
and operational systems, as webservices, .net, php, in accordance with the 
necessity of the group of collaborators. 
  - Original Message - 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 05, 2007 4:45 PM
  Subject: Re: RES: [delphi-br] Consulta de CEP


  e zonas... rsss ( norte, sul, leste, oste )

  - Original Message - 
  From: Flávio S F Martins 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 05, 2007 4:36 PM
  Subject: Re: RES: [delphi-br] Consulta de CEP

  Ótima idéia , podemos acrescentar prefixos telefonicos de cidades 

  - Original Message - 
  From: omar l m rosa 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 05, 2007 2:55 PM
  Subject: Re: RES: [delphi-br] Consulta de CEP

  Porque não criar um projeto no source-forge, por exemplo de uma base pública 
de ceps, e outras informações?
  Por exemplo, podemos construir um robô que busque em qualquer site as 
informações dos cep´s, 
  Disponibilizar uma estrutura sempre atualizada...
  Outras tabelas interessantes também...

  Lançada a idéia...

  Omar

  - Original Message - 
  From: Adriano Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 05, 2007 11:53 AM
  Subject: Re: RES: [delphi-br] Consulta de CEP

  Gerhard,

  ...estes são protegidos por direitos autorais, patentes, registro no INPI...
  É o que quis dizer. Precisa ver o contrato de compra e venda da base de 
  dados dos correios quando você efetua a compra. Se estiver claro no 
  contrato que não é possível a reprodução, cópia e etc etc etc isso é 
  considerado pirataria, simples.

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

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

  Gerhard Roger Nack respondeu:
  
   Se eu comprar o Guia de CEP Digital direto do correio e contratar 
   alguns estagiários para redigitar esta informação???
  
   ou
  
   Se quiser comprar o guia de ceps em papel (isso ainda existe ???) e 
   quiser passar um OCR nele???
  
   ou
  
   Se utilizar o WebService (que já saiu do ar) e salvar todos os 
   resultados consultados???
  
   ou
  
   Se passar um OCR no resultado das consultas do site do correio???
  
   E todas as alternativas acima são viáveis, depende unicamente do $ 
   disponível e da importância desta informação para seu negócio. Claro 
   que se tiver dinheiro sobrando, compra logo a base do correio por +/- 
   R$ 4.000 e pronto.
  
   E além do mais, nenhuma das alternativas acima pode ser considerada 
   pirataria. Ainda mais em se tratando do CEP, uma informação pública.
  
   Ou vão querer cobrar royalty sobre a utilização do CEP???
  
   E diferentemente do email de outro colega, no caso de antivírus, 
   jogos, ou outros programas de computador, etc., estes são protegidos 
   por direitos autorais, patentes, registro no INPI, etc., muito 
   diferente do CEP que é uma informação PUBLICA que visa unicamente 
   FACILITAR o trabalho do próprio correio. E ainda cobram caro por esta 
   informação ...
  
   E continuo indicando o site www.gsesoft.com como alternativa legal e 
   barata.
  
   [ ] s
  
   Gerhard Roger Nack

[delphi-br] Nova interface de gráficos para o Delphi...

2007-06-26 Por tôpico omar l m rosa
Um cliente me perguntou se tenho conhecimento de nova interface de gráficosd 
para o Delphi...
alguém conhece?

que possibilite algo como:





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



Re: [delphi-br] Nova interface de gráficos para o De lphi...

2007-06-26 Por tôpico omar l m rosa
Coloquei na área de arquivos os gráficos que me mandaram de exemplo.
Possuem um efeito de sombra e arredondamento suave...

Alguém conhece que set de componentes faz isto?

Grato.
omar


  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 26, 2007 6:34 PM
  Subject: RE: [delphi-br] Nova interface de gráficos para o Delphi...



  Peça para o seu cliente explicar o que ele quer dizer com 'nova interface de 
gráficos do Delphi'. Essa sentença abre margem para inúmeras interpretações. 
Sds.

  To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 28 Jun 2007 15:29:19 
+Subject: [delphi-br] Nova interface de gráficos para o Delphi...

  Um cliente me perguntou se tenho conhecimento de nova interface de gráficosd 
para o Delphi...alguém conhece?que possibilite algo como:[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

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



   

  __ Informação do NOD32 IMON 2355 (20070626) __

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


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



Re: [delphi-br] Comp3 do Cobol para Numero

2007-06-20 Por tôpico omar l m rosa
É fácil:

No decimal compactado cada dígito é representado por quatro bits, sendo que o 
semi-byte de mais baixa ordem contém o sinal, em hexa CAFE para positivo e os 
demais para negativo.

Ex hexa: 05 00 0F = 5.000 positivo
 12 34 5D = -12345

Faz uma rotina que converte binario para hexa (inttoHex) isola cada caractere, 
e trata o último semibyte.

Barbada!
Bai!


  - Original Message - 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 19, 2007 2:24 PM
  Subject: [delphi-br] Comp3 do Cobol para Numero


  Bom dia,

  Alguem tem alguma função Delphi que converte valor compactado do Cobol para 
valor numerico?

  Gerei txt´s das tabelas para importar no meu sistema, mas alguns campos estao 
compactados.

  Obrigado,

  Leandro

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



   

  __ Informação do NOD32 IMON 2339 (20070619) __

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


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



Re: [delphi-br] XML no Delphi 7

2007-06-19 Por tôpico omar l m rosa
Estuda o componete clientdataset. Faze direto isso dai...

  - Original Message - 
  From: Mônica Pagno 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, June 18, 2007 1:40 PM
  Subject: [delphi-br] XML no Delphi 7


  Bom dia!

  Quero fazer dois programas se comunicarem entre si através de aruqivos 
  XML no Delphi 7. Da seguinte forma, uma programa vai gerar um arquivo 
  XML e o outro vai ler. Alguém pode me ajudar???

  Obrigada!



   

  __ Informação do NOD32 IMON 2338 (20070619) __

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


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



Re: [delphi-br] Re: Como dar ping em um Site?

2007-06-16 Por tôpico omar l m rosa
mas o ping só verifica se o ip é alcançável...

Para saber se um site está no ar, tem que usar o dns para saber se existe a URL
e fazer uma chamada http 'GET na url para ver se retorna alguma coisa...

Também pode tentar abrir a porta 80 da url com o telnet... se conectar é porque 
está aberta...

Bai!
omar

  - Original Message - 
  From: crassh_over 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 15, 2007 8:02 PM
  Subject: [delphi-br] Re: Como dar ping em um Site?


  --- Em delphi-br@yahoogrupos.com.br, Gabriel Herdt 
  [EMAIL PROTECTED] escreveu
  
   Amigos bruxos do delphi,
   Vocês por acaso sabem como dar um ping em um site e pegar o retorno, 
   com finalidade de saber se o site esta online?
   
   Utilizo Delhi 2005
  

  eu utilizaria o componente da barra Indy IdIcmpClient, essa é do 
  Delphi 7, não sei se tem no Delphi 2005 mas provavelmente tem como 
  instalar, procure pelo Pacote Indy 7

  ae é só digitar IdIcmpClient.host:= edit.text; 
  IdIcmpClient.ping;
  sendo q edit.text vc pode colocar o ip ou o endereço..senaum me engano 
  da...ae vc tem q pesquisar sobre o retorno do ping pois naum me lembro 
  bem...



   

  __ Informação do NOD32 IMON 2334 (20070615) __

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


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



Re: [delphi-br] QReport + erro *.jpeg

2007-06-15 Por tôpico omar l m rosa
coloca jpeg cláusula uses da interface unit;

unit xxx
interface;

uses xx...xxx..., jpeg;

bai!
omar

  - Original Message - 
  From: chmereha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 15, 2007 6:02 PM
  Subject: [delphi-br] QReport + erro *.jpeg


  Boa Tarde estou querendo add uma image de banco e no componente 
  QRDBImage está dando erro de Bitmap is not valid ,
  Alguem pode me ajudar , Já add Jpeg na uses e num funcionou!!

  Obrigado,



   

  __ Informação do NOD32 IMON 2334 (20070615) __

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


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