Re: [delphi-br] Re: Leitor digital

2009-06-26 Por tôpico Ricardo César Cardoso
Já vi os dois funcionando, mas de acordo com um colega meu que trabalha com 
esse tipo de leitor para locadoras de vídeo e ele para ele, mesmo mais caro o 
Nitgen ganha na robustez. 

Mas como todo produto sempre se consegue uma negociação do valor na compra em 
volumes. Se a aplicação demanda poucos leitores o leitor da MS + SDK Griaule 
parecem ser o melhor negócio. Agora se o volume for maior já dá pra pensar no 
equipamento da Nitgen.

Atte,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em qua, 24/6/09, Eduardo Silva dos Santos eduardo@gmail.com escreveu:

De: Eduardo Silva dos Santos eduardo@gmail.com
Assunto: Re: [delphi-br] Re: Leitor digital
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 24 de Junho de 2009, 22:24
















  
  Eu não conheço o Nitgem, dizem que é excelente..  o SDK da Griaule custa

90,00 a licença por máquina e funciona com vários leitores.



O Nitgem se nao me engano custa uns 500,00 Leitor + SDK



2009/6/24 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br







 Mas... prefira o Nitgen. Pelo menos na hora o modelo de licenciamento da

 SDK é mais barato que o da Griaule.



 []'s

 Ricardo.



 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.



 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor

 compreendida.



 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!



 --- Em ter, 23/6/09, Vinicius Climaco vinicl...@hotmail. 
 comviniclima%40hotmai l.com

 escreveu:



 De: Vinicius Climaco vinicl...@hotmail. com viniclima%40hotmai l.com

 Assunto: RE: [delphi-br] Re: Leitor digital

 Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br

 Data: Terça-feira, 23 de Junho de 2009, 18:35





 leitor microsoft não esta descontinuado, mto pelo contrário garantia de 3

 anos.



 Att,



 Vinícius Climaco.



 Analista Desenvolvedor



 To: delphi...@yahoogrup os.com.br



 From: frgr...@gmail. com



 Date: Tue, 23 Jun 2009 19:20:07 +



 Subject: [delphi-br] Re: Leitor digital



 Boa tarde.



 Pelo que percebi o leitor, já descontinuado, da microsoft não vem com um

 SDK, necessário para implantação no meu sistema. Já o nitgen hamster vem.

 Este nitgen hamster seria uma boa opção?



 --- Em delphi...@yahoogrup os.com.br, Alexandre Rodrigues

 alexandre_rodrigue s_...@...  escreveu



 



  De uma olhada nos arquivos antigos da lista, esse assunto é meio



  recorrente aqui.



 



  Fernando José Ramos Figueira da Silva escreveu:



  



  



  



   Amigos,



   Boa tarde.



  



   Preciso comprar um leitor de digital para implementar em um sistema que





   será desenvolvido.



  



   Alguém já trabalhou com algum para sugerir?



  



   abraços!!!



  



  



 































  _ _ _ _ _ _



 Deixe suas conversas mais divertidas. Baixe agora mesmo novos emoticons. É

 grátis!



 http://specials. br.msn.com/ ilovemessenger/ pacotes.aspx



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























 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]



  





-- 

 . . . . ...

Eduardo Silva dos Santos

DRD SISTEMAS

(27) 3218-4201

(27) 9961-7095

MSN: eduardo.drd@ gmail.com

Site: http://www.drdsiste mas.com.br/

 . . . . ...



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




 

  




 

















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

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



Re: [delphi-br] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Eduardo Silva dos Santos
Sua rotina ta ok, verifique se tem algum grid ligado as queries.. e outra
coisa..  faça essa importação usando transação, vai importa muito mais
rápido.

2009/6/25 Fernando Pires de Souza Filho nando_ace...@hotmail.com




 Opa,

 Sou iniciante em delphi, to com o seguinte problema:

 Tenho que importar dados de uma tabela para a outra, seus campos sao
 iguais.
 uso a seguinte logica:

 tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da
 tabela que quero importar), e colocar na outra tabela que criei, na
 qry_Destino.

 de primeiro, faco um select * pra pegar tds os campos da tabela fonte, e
 depois, faco um insert campo a campo na tabela de destino, ex:

 --
 QRY_Fonte.sql.Clear;
 QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');
 QRY_Fonte.Open;
 while Not QRY_Fonte.Eof do
 begin
 with QRY_Destino do
 begin

 sql.Clear;
 Sql.Add('Insert Into [TabelaDestino] (');
 SQL.Add('campo1, campo2, campo3');
 SQL.Add(') Values (');
 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');
 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');
 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...
 ExecSql;
 ProgressBar1.Position := ProgressBar1.Position + 1;
 Application.ProcessMessages;
 QRY_Fonte.Next;

 end;
 end;
 qry_Fonte.close;

 

 Funciona, mais ta MUIITOO lento!!!
 pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1
 Minuto.
 e tenho tabelas aqui com mais de 8.000.

 oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida de
 manipular esses dados?

 Atenciosamente
 Fernando Pires

 __
 Conheça os novos produtos Windows Live! Clique aqui.
 http://www.windowslive.com.br

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



RES: [delphi-br] Re: Catraca - 5v - Paralela

2009-06-26 Por tôpico Fernando Leal
Certo.

 

Att.:

 

Fernando Leal

 

  _  

Fernando Leal

 mailto:fcl...@unifemm.edu.br fcl...@unifemm.edu.br

Programador de Sistemas

Coordenadoria de Informática

Centro Universitário UNIFEMM

55(0xx31)2106-2114

 http://www.unifemm.edu.br/ www.unifemm.edu.br

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fernando José Ramos Figueira da Silva
Enviada em: quinta-feira, 25 de junho de 2009 10:22
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela

 






Fernando,
Bom dia.

Muito obrigado.
Outra dúvida. Eu tenho que definir um pino entre 2 e 9 certo?

abraços!

--- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br, Fernando Leal fcl...@... escreveu

 No seu caso sim, pois a catraca precisa apenas de um sinal TTL 5v. Basta
 definir qual pino ira enviar o sinal.
 
 
 
 Att.:
 
 
 
 _ 
 
 Fernando Leal
 
 mailto:fcl...@... fcl...@...
 
 Programador de Sistemas
 
 Coordenadoria de Informática
 
 Centro Universitário UNIFEMM
 
 55(0xx31)2106-2114
 
 http://www.unifemm. http://www.unifemm.edu.br/ edu.br/
www.unifemm.edu.br
 
 
 
 _ 
 
 De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
 nome de Fernando José Ramos Figueira da Silva
 Enviada em: quarta-feira, 24 de junho de 2009 14:43
 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br
 Assunto: [delphi-br] Re: Catraca - 5v - Paralela
 
 
 
 
 
 
 
 
 Fernando,
 
 Ajudou MUITTO
 
 tipo, uma simples dúvida. Eu só preciso definir um pino para o envio dos
5v?
 
 abraços
 
 --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br, fcleal@ escreveu
 
  Bom dia.
  
  Espero que te ajute, utilizei isso em um projeto em 2000 utilizando o
 componente
  TIOPort:
  
  Pino - Valor enviado decimal - Valor Binario
  2 - 1 - 0001
  3 - 2 - 0010
  4 - 4 - 0100
  5 - 8 - 1000
  6 - 16 - 0001
  7 - 32 - 0010
  8 - 64 - 0100
  9 - 128 - 1000
  
  
  Por exemplo, se eu quisesse ativar o pino 5, o IOPort.PortData recebia
8.
  
  att.:
  
  Fernando Leal
 
 
 
 
 
 
 [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] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Alisson Yahoo
Quando tiver componentes (DbGrids, Edits, etc) ligados ao datasource, 
desabilite-os  antes do loop e habilite novamente no final:

Dataset.First;
Dataset.DisableControls;
while not Dataset.Eof do
begin

Dataset.Next;
end;
Dataset.EnableControls; 

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 


Re: [delphi-br] MDO + Firebird

2009-06-26 Por tôpico Marcos Bernardo
salve colega...

isso não resolveu... tive que adicionar o path da pasta de FB no path da
maquina e ai sim funcionou

mas Obrigado pela atenção

Marcos Bernardo

2009/6/26 Paulo Coutinho pa...@prsolucoes.com



 Provavelmente vcoê tem que copiar a fbclient.dll para a pasta da aplicação.

 Deve resolver.

 2009/6/25 Marcos Bernardo xmarcos@gmail.com xmarcos.aab%40gmail.com:


 
 
  Salve lista,
 
  peguei um projeto free lance com MDO
  até ai sem problemas, instalei o mdo tudo certo
 
  mas ele esta solicitando o firebird client
  alguem sabe como solocionar este problema ???
 
  tenho o firebird instalado na minha maquina 2.0
  e utilizo o delphi 2007
 
  orbigado
 
  --
  Marcos A. de A. Bernardo
  xmarcos@gmail.com xmarcos.aab%40gmail.com
  11 - 9462-2657
  http://bagusconsultoria.wordpress.com/
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 

 --
 Atenciosamente,
 Paulo Coutinho.
 Blog: www.prsolucoes.com/blog
 Site: www.prsolucoes.com
 Msn: pa...@prsolucoes.com paulo%40prsolucoes.com

 




-- 
Marcos A. de A. Bernardo
xmarcos@gmail.com
11 - 9462-2657
http://bagusconsultoria.wordpress.com/


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



Re: [delphi-br] MDO + Firebird

2009-06-26 Por tôpico Thales (Shubacca) - Tebo Software
Coloque a fbClient.dll na pasta System32 do windows
2009/6/26 Marcos Bernardo xmarcos@gmail.com



 salve colega...

 isso não resolveu... tive que adicionar o path da pasta de FB no path da
 maquina e ai sim funcionou

 mas Obrigado pela atenção

 Marcos Bernardo

 2009/6/26 Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.com


 
 
  Provavelmente vcoê tem que copiar a fbclient.dll para a pasta da
 aplicação.
 
  Deve resolver.
 
  2009/6/25 Marcos Bernardo 
  xmarcos@gmail.comxmarcos.aab%40gmail.comxmarcos.aab%
 40gmail.com:
 
 
  
  
   Salve lista,
  
   peguei um projeto free lance com MDO
   até ai sem problemas, instalei o mdo tudo certo
  
   mas ele esta solicitando o firebird client
   alguem sabe como solocionar este problema ???
  
   tenho o firebird instalado na minha maquina 2.0
   e utilizo o delphi 2007
  
   orbigado
  
   --
   Marcos A. de A. Bernardo
   xmarcos@gmail.com xmarcos.aab%40gmail.com xmarcos.aab%
 40gmail.com
   11 - 9462-2657
   http://bagusconsultoria.wordpress.com/
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
  --
  Atenciosamente,
  Paulo Coutinho.
  Blog: www.prsolucoes.com/blog
  Site: www.prsolucoes.com
  Msn: pa...@prsolucoes.com paulo%40prsolucoes.com paulo%
 40prsolucoes.com
 
 
 

 --
 Marcos A. de A. Bernardo
 xmarcos@gmail.com xmarcos.aab%40gmail.com
 11 - 9462-2657
 http://bagusconsultoria.wordpress.com/

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

  




-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (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] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Thales (Shubacca) - Tebo Software
Assim como nosso colega Alisson disse, mas só acrescentaria um try..finally
para garantir que volte o EnableControls
try
  Dataset.First;
  Dataset.DisableControls;
  while not Dataset.Eof do
  begin

Dataset.Next;
  end;
finally
  Dataset.EnableControls;
end;

2009/6/26 Alisson Yahoo alss...@yahoo.com.br



 Quando tiver componentes (DbGrids, Edits, etc) ligados ao datasource,
 desabilite-os antes do loop e habilite novamente no final:

 Dataset.First;
 Dataset.DisableControls;
 while not Dataset.Eof do
 begin
 
 Dataset.Next;
 end;
 Dataset.EnableControls;

 __
 Faça ligações para outros computadores com o novo Yahoo! Messenger
 http://br.beta.messenger.yahoo.com/

  




-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (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]



RES: [delphi-br] Re: Catraca - 5v - Paralela

2009-06-26 Por tôpico Fernando José Ramos Figueira da Silva
Fernando,
Bom dia.

  Outra dúvida. rs..rs...

  Fiquei sabendo que a porta paralela é muito sensivel, e o envio destes 5v 
pode danificar a porta paralela ou até mesmo a placa da catraca. Isso procede?

abraços!


--- Em delphi-br@yahoogrupos.com.br, Fernando Leal fcl...@... escreveu

 Certo.
 
  
 
 Att.:
 
  
 
 Fernando Leal
 
  
 
   _  
 
 Fernando Leal
 
  mailto:fcl...@... fcl...@...
 
 Programador de Sistemas
 
 Coordenadoria de Informática
 
 Centro Universitário UNIFEMM
 
 55(0xx31)2106-2114
 
  http://www.unifemm.edu.br/ www.unifemm.edu.br
 
  
 
   _  
 
 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
 nome de Fernando José Ramos Figueira da Silva
 Enviada em: quinta-feira, 25 de junho de 2009 10:22
 Para: delphi-br@yahoogrupos.com.br
 Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela
 
  
 
 
 
 
 
 
 Fernando,
 Bom dia.
 
 Muito obrigado.
 Outra dúvida. Eu tenho que definir um pino entre 2 e 9 certo?
 
 abraços!
 
 --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br, Fernando Leal fcleal@ escreveu
 
  No seu caso sim, pois a catraca precisa apenas de um sinal TTL 5v. Basta
  definir qual pino ira enviar o sinal.
  
  
  
  Att.:
  
  
  
  _ 
  
  Fernando Leal
  
  mailto:fcleal@ fcleal@
  
  Programador de Sistemas
  
  Coordenadoria de Informática
  
  Centro Universitário UNIFEMM
  
  55(0xx31)2106-2114
  
  http://www.unifemm. http://www.unifemm.edu.br/ edu.br/
 www.unifemm.edu.br
  
  
  
  _ 
  
  De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
 [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br] Em
  nome de Fernando José Ramos Figueira da Silva
  Enviada em: quarta-feira, 24 de junho de 2009 14:43
  Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br
  Assunto: [delphi-br] Re: Catraca - 5v - Paralela
  
  
  
  
  
  
  
  
  Fernando,
  
  Ajudou MUITTO
  
  tipo, uma simples dúvida. Eu só preciso definir um pino para o envio dos
 5v?
  
  abraços
  
  --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
  os.com.br, fcleal@ escreveu
  
   Bom dia.
   
   Espero que te ajute, utilizei isso em um projeto em 2000 utilizando o
  componente
   TIOPort:
   
   Pino - Valor enviado decimal - Valor Binario
   2 - 1 - 0001
   3 - 2 - 0010
   4 - 4 - 0100
   5 - 8 - 1000
   6 - 16 - 0001
   7 - 32 - 0010
   8 - 64 - 0100
   9 - 128 - 1000
   
   
   Por exemplo, se eu quisesse ativar o pino 5, o IOPort.PortData recebia
 8.
   
   att.:
   
   Fernando Leal
  
  
  
  
  
  
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Excluir linhas de excel como delphi

2009-06-26 Por tôpico rodrigoojapa
Bom dia,

Estou com uma duvida em relação ao modo de excluir no delphi.
Tenho uma aplicação que pega dados de uma .txt e coloca em uma planilha de 
exce, mas como varia o tamanho dos valores a aplicação conta quantos valores 
tem e exclui as linhas a partir do ultimo dados.
O problema é que o tamanho da planilha quando a aplicação salca não diminui, 
enquanto que era para diminuir.Uso o seguinte comando para excluir.

Excel.WorkBook[1].Sheets[5].range[ColI + ':' + ColF].delete

E quando eu excluo no excel e salvo o tamano do arquivo diminui

O que pode ser?





RE: [delphi-br] Prob lema de Lentidão (SQL)

2009-06-26 Por tôpico Fernando Pires de Souza Filho

Pode me esplicar o que é exatamente Transação?
Valeu!!

To: delphi-br@yahoogrupos.com.br
From: eduardo@gmail.com
Date: Thu, 25 Jun 2009 21:04:03 -0300
Subject: Re: [delphi-br] Problema de Lentidão (SQL)

























  
  Sua rotina ta ok, verifique se tem algum grid ligado as queries.. e outra

coisa..  faça essa importação usando transação, vai importa muito mais

rápido.



2009/6/25 Fernando Pires de Souza Filho nando_ace...@hotmail.com









 Opa,



 Sou iniciante em delphi, to com o seguinte problema:



 Tenho que importar dados de uma tabela para a outra, seus campos sao

 iguais.

 uso a seguinte logica:



 tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da

 tabela que quero importar), e colocar na outra tabela que criei, na

 qry_Destino.



 de primeiro, faco um select * pra pegar tds os campos da tabela fonte, e

 depois, faco um insert campo a campo na tabela de destino, ex:



 --

 QRY_Fonte.sql.Clear;

 QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');

 QRY_Fonte.Open;

 while Not QRY_Fonte.Eof do

 begin

 with QRY_Destino do

 begin



 sql.Clear;

 Sql.Add('Insert Into [TabelaDestino] (');

 SQL.Add('campo1, campo2, campo3');

 SQL.Add(') Values (');

 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');

 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');

 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...

 ExecSql;

 ProgressBar1.Position := ProgressBar1.Position + 1;

 Application.ProcessMessages;

 QRY_Fonte.Next;



 end;

 end;

 qry_Fonte.close;



 



 Funciona, mais ta MUIITOO lento!!!

 pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1

 Minuto.

 e tenho tabelas aqui com mais de 8.000.



 oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida de

 manipular esses dados?



 Atenciosamente

 Fernando Pires



 __

 Conheça os novos produtos Windows Live! Clique aqui.

 http://www.windowslive.com.br



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



  





-- 

...

Eduardo Silva dos Santos

DRD SISTEMAS

(27) 3218-4201

(27) 9961-7095

MSN: eduardo@gmail.com

Site: http://www.drdsistemas.com.br/

...



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





 

  














_
Conheça os novos produtos Windows Live! Clique aqui.
http://www.windowslive.com.br

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



Re: [delphi-br] Substituir string

2009-06-26 Por tôpico Alisson Yahoo
Puxa, que mico! Eu tenho o GExpert instalado e não sabia que ele fazia isso. 
Obrigado Vinicius, e desculpe pessoal!


- Original Message - 
From: Vinicius A. Santos vinic...@msisolucoes.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 25, 2009 4:46 PM
Subject: Re: [delphi-br] Substituir string


E o GExperts ? ele tem um recurso Grep Search

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 


RE: [delphi-br] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Wilson, Stephen
Bom dia, Fernando

Poderia fazer isso em uma operacao, assim:

Insert Into TabelaDestino(Campo1,ampo2,Campo3) Select Campo1,Campo2,Campo3 
From TabelaFonte   ??

Sera muito rapido (menos que1 sec para 4000 registros em meus dados)  - talvez 
demasiado rapido para mostrar progressao com um progressbar

Atenciosamente
Steve

-Original Message-



 Opa,

 Sou iniciante em delphi, to com o seguinte problema:

 Tenho que importar dados de uma tabela para a outra, seus campos sao
 iguais.
 uso a seguinte logica:

 tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da
 tabela que quero importar), e colocar na outra tabela que criei, na
 qry_Destino.

 de primeiro, faco um select * pra pegar tds os campos da tabela fonte, e
 depois, faco um insert campo a campo na tabela de destino, ex:

 --
 QRY_Fonte.sql.Clear;
 QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');
 QRY_Fonte.Open;
 while Not QRY_Fonte.Eof do
 begin
 with QRY_Destino do
 begin

 sql.Clear;
 Sql.Add('Insert Into [TabelaDestino] (');
 SQL.Add('campo1, campo2, campo3');
 SQL.Add(') Values (');
 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');
 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');
 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...
 ExecSql;
 ProgressBar1.Position := ProgressBar1.Position + 1;
 Application.ProcessMessages;
 QRY_Fonte.Next;

 end;
 end;
 qry_Fonte.close;

 

 Funciona, mais ta MUIITOO lento!!!
 pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1
 Minuto.
 e tenho tabelas aqui com mais de 8.000.

 oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida de
 manipular esses dados?

 Atenciosamente
 Fernando Pires

 __
 Conheça os novos produtos Windows Live! Clique aqui.
 http://www.windowslive.com.br

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





***
This e-mail and any files transmitted with it are confidential. If you are not 
the intended recipient, any reading, printing, storage, disclosure, copying or 
any other action taken in respect of this e-mail is prohibited and may be 
unlawful. If you are not the intended recipient, please notify the sender 
immediately by using the reply function and then permanently delete what you 
have received.
Content of emails received by this Trust will be subject to disclosure under 
the Freedom of Information Act 2000, subject to the specified exemptions, 
including the Data Protection Act 1998 and Caldicott Guardian principles.
This footnote also confirms that, unless otherwise stated, this email message 
has been swept by Sophos Anti-virus for the presence of computer viruses.
***



[delphi-br] Re: Leitor digital

2009-06-26 Por tôpico Fernando José Ramos Figueira da Silva
Então resumindo, o da NITGEN é uma boa aquisição? até pq ja vem com o SDK!

--- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso 
ricardo_engs...@... escreveu

 Já vi os dois funcionando, mas de acordo com um colega meu que trabalha com 
 esse tipo de leitor para locadoras de vídeo e ele para ele, mesmo mais caro o 
 Nitgen ganha na robustez. 
 
 Mas como todo produto sempre se consegue uma negociação do valor na compra em 
 volumes. Se a aplicação demanda poucos leitores o leitor da MS + SDK Griaule 
 parecem ser o melhor negócio. Agora se o volume for maior já dá pra pensar no 
 equipamento da Nitgen.
 
 Atte,
 Ricardo.
 
 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
 
 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
 compreendida.
 
 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
 
 --- Em qua, 24/6/09, Eduardo Silva dos Santos eduardo@... escreveu:
 
 De: Eduardo Silva dos Santos eduardo@...
 Assunto: Re: [delphi-br] Re: Leitor digital
 Para: delphi-br@yahoogrupos.com.br
 Data: Quarta-feira, 24 de Junho de 2009, 22:24
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
   
   Eu não conheço o Nitgem, dizem que é excelente..  o SDK da Griaule custa
 
 90,00 a licença por máquina e funciona com vários leitores.
 
 
 
 O Nitgem se nao me engano custa uns 500,00 Leitor + SDK
 
 
 
 2009/6/24 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br
 
 
 
 
 
 
 
  Mas... prefira o Nitgen. Pelo menos na hora o modelo de licenciamento da
 
  SDK é mais barato que o da Griaule.
 
 
 
  []'s
 
  Ricardo.
 
 
 
  1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
 
 
 
  2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
 
  compreendida.
 
 
 
  3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
 
 
 
  --- Em ter, 23/6/09, Vinicius Climaco vinicl...@hotmail. 
  comviniclima%40hotmai l.com
 
  escreveu:
 
 
 
  De: Vinicius Climaco vinicl...@hotmail. com viniclima%40hotmai l.com
 
  Assunto: RE: [delphi-br] Re: Leitor digital
 
  Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
 
  Data: Terça-feira, 23 de Junho de 2009, 18:35
 
 
 
 
 
  leitor microsoft não esta descontinuado, mto pelo contrário garantia de 3
 
  anos.
 
 
 
  Att,
 
 
 
  Vinícius Climaco.
 
 
 
  Analista Desenvolvedor
 
 
 
  To: delphi...@yahoogrup os.com.br
 
 
 
  From: frgr...@gmail. com
 
 
 
  Date: Tue, 23 Jun 2009 19:20:07 +
 
 
 
  Subject: [delphi-br] Re: Leitor digital
 
 
 
  Boa tarde.
 
 
 
  Pelo que percebi o leitor, já descontinuado, da microsoft não vem com um
 
  SDK, necessário para implantação no meu sistema. Já o nitgen hamster vem.
 
  Este nitgen hamster seria uma boa opção?
 
 
 
  --- Em delphi...@yahoogrup os.com.br, Alexandre Rodrigues
 
  alexandre_rodrigue s_poa@  escreveu
 
 
 
  
 
 
 
   De uma olhada nos arquivos antigos da lista, esse assunto é meio
 
 
 
   recorrente aqui.
 
 
 
  
 
 
 
   Fernando José Ramos Figueira da Silva escreveu:
 
 
 
   
 
 
 
   
 
 
 
   
 
 
 
Amigos,
 
 
 
Boa tarde.
 
 
 
   
 
 
 
Preciso comprar um leitor de digital para implementar em um sistema que
 
 
 
 
 
será desenvolvido.
 
 
 
   
 
 
 
Alguém já trabalhou com algum para sugerir?
 
 
 
   
 
 
 
abraços!!!
 
 
 
   
 
 
 
   
 
 
 
  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
   _ _ _ _ _ _
 
 
 
  Deixe suas conversas mais divertidas. Baixe agora mesmo novos emoticons. É
 
  grátis!
 
 
 
  http://specials. br.msn.com/ ilovemessenger/ pacotes.aspx
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
  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]
 
 
 
   
 
 
 
 
 
 -- 
 
  . . . . ...
 
 Eduardo Silva dos Santos
 
 DRD SISTEMAS
 
 (27) 3218-4201
 
 (27) 9961-7095
 
 MSN: eduardo.drd@ gmail.com
 
 Site: http://www.drdsiste mas.com.br/
 
  . . . . ...
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
  
 
   
 
 
 
   

   
   
 
 
 
 
 
 
 
 
   
 
 
   
   
 
 
   Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: RES: [delphi-br] Como chamar esta DLL pelo Delphi?

2009-06-26 Por tôpico EmbarcaDelphi
Fez uma pesquisa pelo Google não foi? rsrsrs...
Isso mesmo, fui parar lá e baixei, pensei que era para Delphi, fiquei 
todo animado, quando abri foi uma tristeza, mas vi que havia a DLL já 
compilada aí pensei em usá-la.
Só mais um detalhe, desculpem pela frase  Alguém que intenda de C pode 
dar uma luz?, intenda não, entenda. :)


[[ Alguém da lista, por acaso, teria uma rotina para apagar também do 
navegador Firefox? ]]


Grato Rubem.


Rubem Rocha escreveu:


 Esta DLL a que você se refere, Cleanup.dll, é um projeto que está 
 hospedado
 no portal CodeProject
 (http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx). Pelo que 
 pude ver,
 essa Cleanup.dll possui uma versão em forma de componente COM. Essa 
 forma eu
 vejo que é mais fácil você usar, visto que o Delphi pode gerar uma 
 unit com
 as declarações contidas nela, bastando apenas fazer um uses e usá-la.

 Descompacte o .ZIP disponível no endereço mencionado. Depois Vá em
 ProjectImport Type Library. Ao aparecer a caixa de diálogo, clique em 
 Add.
 Ao aparecer a caixa de diálogo, vá até o local onde você descompactou o
 pacote, selecione a pasta Cleanup_DLL_COM\Release e selecione o 
 arquivo .DLL
 ou .TLB. Depois, clique em ‘Install’ ou ‘Create Unit’. A diferença desses
 botões é que o primeiro, além de gerar a unit que traduz o componente COM,
 instala ele na paleta de componentes.

 Mais uma coisa, sugiro que você leia todo o artigo do link acima 
 mencionado
 para entender como funciona essa DLL.

 Boa sorte.

 Sds.

 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 EmbarcaDelphi
 Enviada em: sexta-feira, 26 de junho de 2009 10:51
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Como chamar esta DLL pelo Delphi?

 Olá pessoal...

 Como não entendo nada de C, tenho os fontes de uma DLL escrita nesta
 linguagem que serve para apagar históricos, cookies, etc.. mas não sei
 como chamar ela no meu projeto:

 --
 __declspec( dllexport ) BOOL Delete_IECache(BOOL bDeleteCache = TRUE,
 BOOL bDeleteCacheIndex = FALSE);
 __declspec( dllexport ) BOOL Delete_IECookies(BOOL bDeleteCookies = TRUE,
 BOOL bDeleteCookiesIndex = FALSE);
 __declspec( dllexport ) HRESULT Delete_IEHistory(BOOL bDeleteHistory =
 TRUE,
 BOOL bDeleteHistoryIndex = FALSE);
 __declspec( dllexport ) void Delete_IEAddressBarHistory();
 __declspec( dllexport ) void Delete_DesktopRunHistory();
 __declspec( dllexport ) void Delete_DesktopRecentDocsHistory();
 __declspec( dllexport ) void Delete_DesktopRecycleBinContents();
 --

 Acho que é isso acima :)
 Alguém que intenda de C pode dar uma luz?
 O nome da DLL é Cleanup.dll.

 Grato.

 .

 





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: [delphi-br] Excluir linhas de excel como delphi

2009-06-26 Por tôpico fabio giro
  excel.rows[10].select;
  Excel.selection.entirerow.delete;

Espero ter ajudado.

--- Em sex, 26/6/09, rodrigoojapa rodrigooj...@hotmail.com escreveu:


De: rodrigoojapa rodrigooj...@hotmail.com
Assunto: [delphi-br] Excluir linhas de excel como delphi
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 26 de Junho de 2009, 11:14








Bom dia,

Estou com uma duvida em relação ao modo de excluir no delphi.
Tenho uma aplicação que pega dados de uma .txt e coloca em uma planilha de 
exce, mas como varia o tamanho dos valores a aplicação conta quantos valores 
tem e exclui as linhas a partir do ultimo dados.
O problema é que o tamanho da planilha quando a aplicação salca não diminui, 
enquanto que era para diminuir.Uso o seguinte comando para excluir.

Excel.WorkBook[ 1].Sheets[ 5].range[ ColI + ':' + ColF].delete

E quando eu excluo no excel e salvo o tamano do arquivo diminui

O que pode ser?

















  

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

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



[delphi-br] Código SQL

2009-06-26 Por tôpico Bruno Lepesqueur
Boa tarde pessoal!
Gostaria que me ajudassem com esse código:

select nf.*, tpgto.descTipoPgto, c.NomeCli, c.cpfcli, c.cnpjcli, c.codigocli
 co.CodigoOperNF, co.NaturezaOperNF 
from notasfiscais nf 
inner join cliforntrans c on c.CodigoCli = nf.CodigoCli
inner join codigosdeoperacaonf co on co.CodigoOperNF = nf.CodigoOperNF
inner join tipoPgto tpgto on tpgto.codigoTipoPgto = nf.codigoTipoPgto
where nf.codigotiponf = '2'
or nf.codigotiponf = '1'
order by nf.datalctoNF desc, nf.CodigoNF desc

Seguinte... ele exibe os dados que preciso, mas não sei se posso usar dessa
forma mesmo ou se tem algum padrão certo para a codificação SQL.
Qdo eu uso: o inner join sempre devemos colocar uma tabela antes dele e uma
depois. Será que tanto faz a ordem ou tem que seguir alguma regra?
Ex.:

Eu uso assim:
select nf.*, tpgto.descTipoPgto, c.NomeCli, c.cpfcli, c.cnpjcli, c.codigocli
 co.CodigoOperNF, co.NaturezaOperNF 
from notasfiscais nf 
inner join cliforntrans c on c.CodigoCli = nf.CodigoCli
?

ou assim:
select nf.*, tpgto.descTipoPgto, c.NomeCli, c.cpfcli, c.cnpjcli, c.codigocli
 co.CodigoOperNF, co.NaturezaOperNF 
from cliforntrans c 
inner join notasfiscais nf on c.CodigoCli = nf.CodigoCli
?

Estou querendo saber por causa de uns erros que estão ocorrendo em meu
sistema e acho q isso pode estar interferindo!

Um abraço a todos!

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



[delphi-br] DLL em Delphi para ser usada em C#

2009-06-26 Por tôpico José Mário Silva Guedes
Olá amigos!
Preciso dar uma força para a equipe .NET e eles estão precisando usar uma
DLL feita em Delphi 6, os quais tenho os fontes.

Eles não estão conseguindo usar e pelo que entendi tenho que compilar essa
DLL 100%  compatível.

Algum iniciado em .NET sabe do que eles estão falando?

:)

-- 
José Mário Silva Guedes
Analista Programador Delphi


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



RES: [delphi-br] DLL em Delphi para ser usada em C#

2009-06-26 Por tôpico Rubem Rocha
É possível usar DLLs Win32 no .NET, sem precisar que essas DLLs sejam do
tipo COM, padrão inclusive nativo, reconhecido pelo .NET. Tais DLLs, segundo
a filosofia .NET, são tidas como código não gerenciado. Peça pro povo que
mexe com .NET da sua equipe consultar o tópico “Consuming Unmanaged DLL
Functions” no MSDN Library do Visual Studio 2008. Lá explica como fazer
isso.

 

Boa sorte.

Sds.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de José Mário Silva Guedes
Enviada em: sexta-feira, 26 de junho de 2009 14:17
Para: Delphi BR - Grupo de Discussão
Assunto: [delphi-br] DLL em Delphi para ser usada em C#

 

Olá amigos!
Preciso dar uma força para a equipe .NET e eles estão precisando usar uma
DLL feita em Delphi 6, os quais tenho os fontes.

Eles não estão conseguindo usar e pelo que entendi tenho que compilar essa
DLL 100% compatível.

Algum iniciado em .NET sabe do que eles estão falando?

:)

-- 
José Mário Silva Guedes
Analista Programador Delphi



 



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



RES: [delphi-br] DLL em Delphi para ser usada em C#

2009-06-26 Por tôpico Sérgio T . Uetanabaro
Faço o uso e alguns cuidados são requeridos. Somente utilize os tipos
ordinários. Tipos PCHAR e derivados devem ser tratados como StringBuilder.
Abaixo está o código .net:

 

public static class Delphi32Interop

{

[DllImport(DelphiFunctions.dll, EntryPoint = DelphiTesteString,
CharSet = CharSet.Ansi)]

internal static extern StringBuilder DelphiTesteString(StringBuilder
value);

 

}

 

E a função no delphi ficaria assim:

 

 

Function DelphiTesteString(Value:PAnsiChar):PAnsiChar;stdcall;

begin

  Result := 'Teste';

end;

 

 

 

Lembrado de fazer o export  dela.

 

 

[]´s

 

 

 

 

Sérgio T. Uetanabaro
Tecnologia 
( 55 16 3515-5200 - Ribeirão Preto 
+ s...@allbras.com.br 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: sexta-feira, 26 de junho de 2009 15:33
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DLL em Delphi para ser usada em C#
Prioridade: Alta

 






É possível usar DLLs Win32 no .NET, sem precisar que essas DLLs sejam do
tipo COM, padrão inclusive nativo, reconhecido pelo .NET. Tais DLLs, segundo
a filosofia .NET, são tidas como código não gerenciado. Peça pro povo que
mexe com .NET da sua equipe consultar o tópico “Consuming Unmanaged DLL
Functions” no MSDN Library do Visual Studio 2008. Lá explica como fazer
isso.

Boa sorte.

Sds.

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 José Mário Silva Guedes
Enviada em: sexta-feira, 26 de junho de 2009 14:17
Para: Delphi BR - Grupo de Discussão
Assunto: [delphi-br] DLL em Delphi para ser usada em C#

Olá amigos!
Preciso dar uma força para a equipe .NET e eles estão precisando usar uma
DLL feita em Delphi 6, os quais tenho os fontes.

Eles não estão conseguindo usar e pelo que entendi tenho que compilar essa
DLL 100% compatível.

Algum iniciado em .NET sabe do que eles estão falando?

:)

-- 
José Mário Silva Guedes
Analista Programador Delphi

[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: Leitor digital

2009-06-26 Por tôpico Ricardo César Cardoso
Levando em consideração _apenas_ o que meu colega relatou sobre a robustez, 
sim. 

[]'s
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 26/6/09, Fernando José Ramos Figueira da Silva fra...@fiocruz.br 
escreveu:

Então resumindo, o da NITGEN é uma boa aquisição? até pq ja vem com o SDK!




 

















  

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]



RES: [delphi-br] Re: Catraca - 5v - Paralela

2009-06-26 Por tôpico Fernando Leal
Não é bem assim não.

 

Como se trata de um circuito digital TTL, qdo vc cria um equipamento para
comunicar você tem que tomar cuidado para que o sinal seja de 5V. No caso da
catraca ela já foi desenvolvida para isso!

 

Att.:

 

  _  

Fernando Leal

 mailto:fcl...@unifemm.edu.br fcl...@unifemm.edu.br

Programador de Sistemas

Coordenadoria de Informática

Centro Universitário UNIFEMM

55(0xx31)2106-2114

 http://www.unifemm.edu.br/ www.unifemm.edu.br

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fernando José Ramos Figueira da Silva
Enviada em: sexta-feira, 26 de junho de 2009 09:45
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela

 






Fernando,
Bom dia.

Outra dúvida. rs..rs...

Fiquei sabendo que a porta paralela é muito sensivel, e o envio destes 5v
pode danificar a porta paralela ou até mesmo a placa da catraca. Isso
procede?

abraços!

--- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br, Fernando Leal fcl...@... escreveu

 Certo.
 
 
 
 Att.:
 
 
 
 Fernando Leal
 
 
 
 _ 
 
 Fernando Leal
 
 mailto:fcl...@... fcl...@...
 
 Programador de Sistemas
 
 Coordenadoria de Informática
 
 Centro Universitário UNIFEMM
 
 55(0xx31)2106-2114
 
 http://www.unifemm. http://www.unifemm.edu.br/ edu.br/
www.unifemm.edu.br
 
 
 
 _ 
 
 De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
 nome de Fernando José Ramos Figueira da Silva
 Enviada em: quinta-feira, 25 de junho de 2009 10:22
 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br
 Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela
 
 
 
 
 
 
 
 
 Fernando,
 Bom dia.
 
 Muito obrigado.
 Outra dúvida. Eu tenho que definir um pino entre 2 e 9 certo?
 
 abraços!
 
 --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br, Fernando Leal fcleal@ escreveu
 
  No seu caso sim, pois a catraca precisa apenas de um sinal TTL 5v. Basta
  definir qual pino ira enviar o sinal.
  
  
  
  Att.:
  
  
  
  _ 
  
  Fernando Leal
  
  mailto:fcleal@ fcleal@
  
  Programador de Sistemas
  
  Coordenadoria de Informática
  
  Centro Universitário UNIFEMM
  
  55(0xx31)2106-2114
  
  http://www.unifemm. http://www.unifemm. http://www.unifemm.edu.br/
edu.br/ edu.br/
 www.unifemm.edu.br
  
  
  
  _ 
  
  De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br
 [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br] Em
  nome de Fernando José Ramos Figueira da Silva
  Enviada em: quarta-feira, 24 de junho de 2009 14:43
  Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br
  Assunto: [delphi-br] Re: Catraca - 5v - Paralela
  
  
  
  
  
  
  
  
  Fernando,
  
  Ajudou MUITTO
  
  tipo, uma simples dúvida. Eu só preciso definir um pino para o envio dos
 5v?
  
  abraços
  
  --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
  os.com.br, fcleal@ escreveu
  
   Bom dia.
   
   Espero que te ajute, utilizei isso em um projeto em 2000 utilizando o
  componente
   TIOPort:
   
   Pino - Valor enviado decimal - Valor Binario
   2 - 1 - 0001
   3 - 2 - 0010
   4 - 4 - 0100
   5 - 8 - 1000
   6 - 16 - 0001
   7 - 32 - 0010
   8 - 64 - 0100
   9 - 128 - 1000
   
   
   Por exemplo, se eu quisesse ativar o pino 5, o IOPort.PortData recebia
 8.
   
   att.:
   
   Fernando Leal
  
  
  
  
  
  
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]






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



[delphi-br] Como chamar esta DLL pelo Delphi? [erro]

2009-06-26 Por tôpico EmbarcaDelphi
Olá pessoal

Novamente com o mesmo tema, só que dessa vez já com o componente instalado.
O nome do componente criado: CleanupAPI1

Estou fazendo assim:

CleanupAPI1.Connect;
try
CleanupAPI1.Delete_IECache(1,1);
CleanupAPI1.Delete_IECookies(1,1);
CleanupAPI1.Delete_IEHistory(1,1);
CleanupAPI1.Delete_DesktopRunHistory;
finally
CleanupAPI1.Disconnect;
end;

Quando clico no botão, apresenta o erro na tela:

Classe não registrada

Alguém saberia o que tem de errado?
Será que a classe é de uma versão antiga, meu XP é todo atualizado e com 
SP3 etc...
Coloquei a DLL em System32 só para ver se seria a falta dela, mas, como 
eu criei a TLB eu acho que não necessita, mas...
Mesmo assim continua dando o erro.

No site não informa nada, pelo que li, meu inglês não é lá muita coisa 
mas dá para entender um pouco.

Grato por qualquer informação.


Rubem Rocha escreveu:


 Esta DLL a que você se refere, Cleanup.dll, é um projeto que está 
 hospedado
 no portal CodeProject
 (http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx). Pelo que 
 pude ver,
 essa Cleanup.dll possui uma versão em forma de componente COM. Essa 
 forma eu
 vejo que é mais fácil você usar, visto que o Delphi pode gerar uma 
 unit com
 as declarações contidas nela, bastando apenas fazer um uses e usá-la.

 Descompacte o .ZIP disponível no endereço mencionado. Depois Vá em
 ProjectImport Type Library. Ao aparecer a caixa de diálogo, clique em 
 Add.
 Ao aparecer a caixa de diálogo, vá até o local onde você descompactou o
 pacote, selecione a pasta Cleanup_DLL_COM\Release e selecione o 
 arquivo .DLL
 ou .TLB. Depois, clique em ‘Install’ ou ‘Create Unit’. A diferença desses
 botões é que o primeiro, além de gerar a unit que traduz o componente COM,
 instala ele na paleta de componentes.

 Mais uma coisa, sugiro que você leia todo o artigo do link acima 
 mencionado
 para entender como funciona essa DLL.

 Boa sorte.

 Sds.

 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 EmbarcaDelphi
 Enviada em: sexta-feira, 26 de junho de 2009 10:51
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Como chamar esta DLL pelo Delphi?

 Olá pessoal...

 Como não entendo nada de C, tenho os fontes de uma DLL escrita nesta
 linguagem que serve para apagar históricos, cookies, etc.. mas não sei
 como chamar ela no meu projeto:

 --
 __declspec( dllexport ) BOOL Delete_IECache(BOOL bDeleteCache = TRUE,
 BOOL bDeleteCacheIndex = FALSE);
 __declspec( dllexport ) BOOL Delete_IECookies(BOOL bDeleteCookies = TRUE,
 BOOL bDeleteCookiesIndex = FALSE);
 __declspec( dllexport ) HRESULT Delete_IEHistory(BOOL bDeleteHistory =
 TRUE,
 BOOL bDeleteHistoryIndex = FALSE);
 __declspec( dllexport ) void Delete_IEAddressBarHistory();
 __declspec( dllexport ) void Delete_DesktopRunHistory();
 __declspec( dllexport ) void Delete_DesktopRecentDocsHistory();
 __declspec( dllexport ) void Delete_DesktopRecycleBinContents();
 --

 Acho que é isso acima :)
 Alguém que intenda de C pode dar uma luz?
 O nome da DLL é Cleanup.dll.

 Grato.

 .

 





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




RES: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

2009-06-26 Por tôpico Rubem Rocha
O arquivo Cleanup.DLL precisa ser registrado com o utilitário
c:\windows\system32\regsvr32.exe.
Sds.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: sexta-feira, 26 de junho de 2009 15:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

Olá pessoal

Novamente com o mesmo tema, só que dessa vez já com o componente instalado.
O nome do componente criado: CleanupAPI1

Estou fazendo assim:

CleanupAPI1.Connect;
try
CleanupAPI1.Delete_IECache(1,1);
CleanupAPI1.Delete_IECookies(1,1);
CleanupAPI1.Delete_IEHistory(1,1);
CleanupAPI1.Delete_DesktopRunHistory;
finally
CleanupAPI1.Disconnect;
end;

Quando clico no botão, apresenta o erro na tela:

Classe não registrada

Alguém saberia o que tem de errado?
Será que a classe é de uma versão antiga, meu XP é todo atualizado e com 
SP3 etc...
Coloquei a DLL em System32 só para ver se seria a falta dela, mas, como 
eu criei a TLB eu acho que não necessita, mas...
Mesmo assim continua dando o erro.

No site não informa nada, pelo que li, meu inglês não é lá muita coisa 
mas dá para entender um pouco.

Grato por qualquer informação.


Rubem Rocha escreveu:


 Esta DLL a que você se refere, Cleanup.dll, é um projeto que está 
 hospedado
 no portal CodeProject
 (http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx). Pelo que 
 pude ver,
 essa Cleanup.dll possui uma versão em forma de componente COM. Essa 
 forma eu
 vejo que é mais fácil você usar, visto que o Delphi pode gerar uma 
 unit com
 as declarações contidas nela, bastando apenas fazer um uses e usá-la.

 Descompacte o .ZIP disponível no endereço mencionado. Depois Vá em
 ProjectImport Type Library. Ao aparecer a caixa de diálogo, clique em 
 Add.
 Ao aparecer a caixa de diálogo, vá até o local onde você descompactou o
 pacote, selecione a pasta Cleanup_DLL_COM\Release e selecione o 
 arquivo .DLL
 ou .TLB. Depois, clique em ‘Install’ ou ‘Create Unit’. A diferença desses
 botões é que o primeiro, além de gerar a unit que traduz o componente COM,
 instala ele na paleta de componentes.

 Mais uma coisa, sugiro que você leia todo o artigo do link acima 
 mencionado
 para entender como funciona essa DLL.

 Boa sorte.

 Sds.

 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 EmbarcaDelphi
 Enviada em: sexta-feira, 26 de junho de 2009 10:51
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Como chamar esta DLL pelo Delphi?

 Olá pessoal...

 Como não entendo nada de C, tenho os fontes de uma DLL escrita nesta
 linguagem que serve para apagar históricos, cookies, etc.. mas não sei
 como chamar ela no meu projeto:

 --
 __declspec( dllexport ) BOOL Delete_IECache(BOOL bDeleteCache = TRUE,
 BOOL bDeleteCacheIndex = FALSE);
 __declspec( dllexport ) BOOL Delete_IECookies(BOOL bDeleteCookies = TRUE,
 BOOL bDeleteCookiesIndex = FALSE);
 __declspec( dllexport ) HRESULT Delete_IEHistory(BOOL bDeleteHistory =
 TRUE,
 BOOL bDeleteHistoryIndex = FALSE);
 __declspec( dllexport ) void Delete_IEAddressBarHistory();
 __declspec( dllexport ) void Delete_DesktopRunHistory();
 __declspec( dllexport ) void Delete_DesktopRecentDocsHistory();
 __declspec( dllexport ) void Delete_DesktopRecycleBinContents();
 --

 Acho que é isso acima :)
 Alguém que intenda de C pode dar uma luz?
 O nome da DLL é Cleanup.dll.

 Grato.

 .

 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






Re: [delphi-br] DLL em Delphi para ser usada em C#

2009-06-26 Por tôpico José Mário Silva Guedes
Obrigado amigos, vou verificar com eles já.


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



Re: RES: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

2009-06-26 Por tôpico EmbarcaDelphi
Só um detalhe Rubem, como meu aplicativo vai rodar num DVD, eu posso 
registrar ele no OnCreate com a DLL no DVD e no onClose eu posso remover 
o registro, isso está correto? ou tenho de jogar a DLL em System32 
registrar e deixar a DLL lá no computador do usuário?

Pendei em fazer assim para remover o registro:

ShellExecute(Handle,
'open',
PChar('regsvr32.exe'), // -
PChar('-u cleanup.dll'), // -
nil,
SW_SHOW);

Mais ou menos isso

Pode ser ou não?


Rubem Rocha escreveu:


 O arquivo Cleanup.DLL precisa ser registrado com o utilitário
 c:\windows\system32\regsvr32.exe.
 Sds.

 -Mensagem original-
 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 EmbarcaDelphi
 Enviada em: sexta-feira, 26 de junho de 2009 15:56
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

 Olá pessoal

 Novamente com o mesmo tema, só que dessa vez já com o componente 
 instalado.
 O nome do componente criado: CleanupAPI1

 Estou fazendo assim:

 CleanupAPI1.Connect;
 try
 CleanupAPI1.Delete_IECache(1,1);
 CleanupAPI1.Delete_IECookies(1,1);
 CleanupAPI1.Delete_IEHistory(1,1);
 CleanupAPI1.Delete_DesktopRunHistory;
 finally
 CleanupAPI1.Disconnect;
 end;

 Quando clico no botão, apresenta o erro na tela:

 Classe não registrada

 Alguém saberia o que tem de errado?
 Será que a classe é de uma versão antiga, meu XP é todo atualizado e com
 SP3 etc...
 Coloquei a DLL em System32 só para ver se seria a falta dela, mas, como
 eu criei a TLB eu acho que não necessita, mas...
 Mesmo assim continua dando o erro.

 No site não informa nada, pelo que li, meu inglês não é lá muita coisa
 mas dá para entender um pouco.

 Grato por qualquer informação.

 Rubem Rocha escreveu:
 
 
  Esta DLL a que você se refere, Cleanup.dll, é um projeto que está
  hospedado
  no portal CodeProject
  (http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx
  http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx). Pelo que
  pude ver,
  essa Cleanup.dll possui uma versão em forma de componente COM. Essa
  forma eu
  vejo que é mais fácil você usar, visto que o Delphi pode gerar uma
  unit com
  as declarações contidas nela, bastando apenas fazer um uses e usá-la.
 
  Descompacte o .ZIP disponível no endereço mencionado. Depois Vá em
  ProjectImport Type Library. Ao aparecer a caixa de diálogo, clique em
  Add.
  Ao aparecer a caixa de diálogo, vá até o local onde você descompactou o
  pacote, selecione a pasta Cleanup_DLL_COM\Release e selecione o
  arquivo .DLL
  ou .TLB. Depois, clique em ‘Install’ ou ‘Create Unit’. A diferença 
 desses
  botões é que o primeiro, além de gerar a unit que traduz o 
 componente COM,
  instala ele na paleta de componentes.
 
  Mais uma coisa, sugiro que você leia todo o artigo do link acima
  mencionado
  para entender como funciona essa DLL.
 
  Boa sorte.
 
  Sds.
 
  De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.br
  [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.br] Em
  nome de EmbarcaDelphi
  Enviada em: sexta-feira, 26 de junho de 2009 10:51
  Para: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  Assunto: [delphi-br] Como chamar esta DLL pelo Delphi?
 
  Olá pessoal...
 
  Como não entendo nada de C, tenho os fontes de uma DLL escrita nesta
  linguagem que serve para apagar históricos, cookies, etc.. mas não sei
  como chamar ela no meu projeto:
 
  --
  __declspec( dllexport ) BOOL Delete_IECache(BOOL bDeleteCache = TRUE,
  BOOL bDeleteCacheIndex = FALSE);
  __declspec( dllexport ) BOOL Delete_IECookies(BOOL bDeleteCookies = 
 TRUE,
  BOOL bDeleteCookiesIndex = FALSE);
  __declspec( dllexport ) HRESULT Delete_IEHistory(BOOL bDeleteHistory =
  TRUE,
  BOOL bDeleteHistoryIndex = FALSE);
  __declspec( dllexport ) void Delete_IEAddressBarHistory();
  __declspec( dllexport ) void Delete_DesktopRunHistory();
  __declspec( dllexport ) void Delete_DesktopRecentDocsHistory();
  __declspec( dllexport ) void Delete_DesktopRecycleBinContents();
  --
 
  Acho que é isso acima :)
  Alguém que intenda de C pode dar uma luz?
  O nome da DLL é Cleanup.dll.
 
  Grato.
 
  .
 
 

 

 .

 





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
Links do 

RES: RES: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

2009-06-26 Por tôpico Rubem Rocha
A segunda opção é melhor! Não é bom manter no registro do Windows referência
de algo que não vai estar lá no computador!
Sds.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: sexta-feira, 26 de junho de 2009 16:39
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

Só um detalhe Rubem, como meu aplicativo vai rodar num DVD, eu posso 
registrar ele no OnCreate com a DLL no DVD e no onClose eu posso remover 
o registro, isso está correto? ou tenho de jogar a DLL em System32 
registrar e deixar a DLL lá no computador do usuário?

Pendei em fazer assim para remover o registro:

ShellExecute(Handle,
'open',
PChar('regsvr32.exe'), // -
PChar('-u cleanup.dll'), // -
nil,
SW_SHOW);

Mais ou menos isso

Pode ser ou não?


Rubem Rocha escreveu:


 O arquivo Cleanup.DLL precisa ser registrado com o utilitário
 c:\windows\system32\regsvr32.exe.
 Sds.

 -Mensagem original-
 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 EmbarcaDelphi
 Enviada em: sexta-feira, 26 de junho de 2009 15:56
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

 Olá pessoal

 Novamente com o mesmo tema, só que dessa vez já com o componente 
 instalado.
 O nome do componente criado: CleanupAPI1

 Estou fazendo assim:

 CleanupAPI1.Connect;
 try
 CleanupAPI1.Delete_IECache(1,1);
 CleanupAPI1.Delete_IECookies(1,1);
 CleanupAPI1.Delete_IEHistory(1,1);
 CleanupAPI1.Delete_DesktopRunHistory;
 finally
 CleanupAPI1.Disconnect;
 end;

 Quando clico no botão, apresenta o erro na tela:

 Classe não registrada

 Alguém saberia o que tem de errado?
 Será que a classe é de uma versão antiga, meu XP é todo atualizado e com
 SP3 etc...
 Coloquei a DLL em System32 só para ver se seria a falta dela, mas, como
 eu criei a TLB eu acho que não necessita, mas...
 Mesmo assim continua dando o erro.

 No site não informa nada, pelo que li, meu inglês não é lá muita coisa
 mas dá para entender um pouco.

 Grato por qualquer informação.

 Rubem Rocha escreveu:
 
 
  Esta DLL a que você se refere, Cleanup.dll, é um projeto que está
  hospedado
  no portal CodeProject
  (http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx
  http://www.codeproject.com/KB/system/Cleanup_API.aspx 
 http://www.codeproject.com/KB/system/Cleanup_API.aspx). Pelo que
  pude ver,
  essa Cleanup.dll possui uma versão em forma de componente COM. Essa
  forma eu
  vejo que é mais fácil você usar, visto que o Delphi pode gerar uma
  unit com
  as declarações contidas nela, bastando apenas fazer um uses e usá-la.
 
  Descompacte o .ZIP disponível no endereço mencionado. Depois Vá em
  ProjectImport Type Library. Ao aparecer a caixa de diálogo, clique em
  Add.
  Ao aparecer a caixa de diálogo, vá até o local onde você descompactou o
  pacote, selecione a pasta Cleanup_DLL_COM\Release e selecione o
  arquivo .DLL
  ou .TLB. Depois, clique em ‘Install’ ou ‘Create Unit’. A diferença 
 desses
  botões é que o primeiro, além de gerar a unit que traduz o 
 componente COM,
  instala ele na paleta de componentes.
 
  Mais uma coisa, sugiro que você leia todo o artigo do link acima
  mencionado
  para entender como funciona essa DLL.
 
  Boa sorte.
 
  Sds.
 
  De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.br
  [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.br] Em
  nome de EmbarcaDelphi
  Enviada em: sexta-feira, 26 de junho de 2009 10:51
  Para: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  Assunto: [delphi-br] Como chamar esta DLL pelo Delphi?
 
  Olá pessoal...
 
  Como não entendo nada de C, tenho os fontes de uma DLL escrita nesta
  linguagem que serve para apagar históricos, cookies, etc.. mas não sei
  como chamar ela no meu projeto:
 
  --
  __declspec( dllexport ) BOOL Delete_IECache(BOOL bDeleteCache = TRUE,
  BOOL bDeleteCacheIndex = FALSE);
  __declspec( dllexport ) BOOL Delete_IECookies(BOOL bDeleteCookies = 
 TRUE,
  BOOL bDeleteCookiesIndex = FALSE);
  __declspec( dllexport ) HRESULT Delete_IEHistory(BOOL bDeleteHistory =
  TRUE,
  BOOL bDeleteHistoryIndex = FALSE);
  __declspec( dllexport ) void Delete_IEAddressBarHistory();
  __declspec( dllexport ) void Delete_DesktopRunHistory();
  __declspec( dllexport ) void Delete_DesktopRecentDocsHistory();
  __declspec( dllexport ) void Delete_DesktopRecycleBinContents();
  --
 
  Acho que é isso acima :)
  Alguém que intenda de C pode dar 

[delphi-br] erro UserControl

2009-06-26 Por tôpico nillgolv
Alguém que trabalha ou trabalhou com este pacote de componente no delphi 7.
Instalei tudo correto, mas acontece um erro quando abro o datamodule de um 
fonte que baixei na net.

Ao abrir o datamodule do fonte Aplicat_UserControl, aparece estes erros:

Error reading ucMyControl.UsersFormMenuItem.
Error reading ucMyControl.LoginAutoLogon.MessageOnError
Error reading ucMyControl.ExtraRight
Error reading ucMyControl.UsersProfile.Active

Segui todo o passo da instalação do tutorial que baixei, foi tud ok, sem nenhum 
problema, adicionei os path do mesmo.
O que deve ser isto???

Aguardo uma ajuda
Grato


Re: [delphi-br] Re: Catraca - 5v - Paralela

2009-06-26 Por tôpico Leandro
ja rolou esse assunto aki na lista pesquise no historico, onde tem esse
codigo para enviar dados na porta serial..

http://www.swissdelphicenter.ch/torry/printcode.php?id=841

agora pelo q entendi a porta serial envia 12V e n sei se a amperagem enviada
ira conseguir ativar o rele da catraca, falaram q eh melhor usar a paralela
q tera os 5V q necessita.. ou usar a serial com um adaptador

RS-232 q amplifica a voltagem ou diminui n sei como ele funciona.. ou
uma interface q receba o sinal do
micro e converta em voltagem


2009/6/26 Fernando Leal fcl...@unifemm.edu.br



 Não é bem assim não.

 Como se trata de um circuito digital TTL, qdo vc cria um equipamento para
 comunicar você tem que tomar cuidado para que o sinal seja de 5V. No caso
 da
 catraca ela já foi desenvolvida para isso!

 Att.:

 _

 Fernando Leal

 mailto:fcl...@unifemm.edu.br fcleal%40unifemm.edu.br
 fcl...@unifemm.edu.br fcleal%40unifemm.edu.br

 Programador de Sistemas

 Coordenadoria de Informática

 Centro Universitário UNIFEMM

 55(0xx31)2106-2114

 http://www.unifemm.edu.br/ www.unifemm.edu.br

 _

 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 Fernando José Ramos Figueira da Silva
 Enviada em: sexta-feira, 26 de junho de 2009 09:45
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela

 Fernando,
 Bom dia.

 Outra dúvida. rs..rs...

 Fiquei sabendo que a porta paralela é muito sensivel, e o envio destes 5v
 pode danificar a porta paralela ou até mesmo a placa da catraca. Isso
 procede?

 abraços!

 --- Em delphi...@yahoogrup 
 mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
 os.com.br, Fernando Leal fcl...@... escreveu
 
  Certo.
 
 
 
  Att.:
 
 
 
  Fernando Leal
 
 
 
  _
 
  Fernando Leal
 
  mailto:fcl...@... fcl...@...
 
  Programador de Sistemas
 
  Coordenadoria de Informática
 
  Centro Universitário UNIFEMM
 
  55(0xx31)2106-2114
 
  http://www.unifemm. http://www.unifemm.edu.br/ edu.br/
 www.unifemm.edu.br
 
 
 
  _
 
  De: delphi...@yahoogrup 
  mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 os.com.br
 [mailto:delphi...@yahoogrup 
 mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
 os.com.br] Em
  nome de Fernando José Ramos Figueira da Silva
  Enviada em: quinta-feira, 25 de junho de 2009 10:22
  Para: delphi...@yahoogrup 
  mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
 os.com.br
  Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela
 
 
 
 
 
 
 
 
  Fernando,
  Bom dia.
 
  Muito obrigado.
  Outra dúvida. Eu tenho que definir um pino entre 2 e 9 certo?
 
  abraços!
 
  --- Em delphi...@yahoogrup 
  mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
  os.com.br, Fernando Leal fcleal@ escreveu
  
   No seu caso sim, pois a catraca precisa apenas de um sinal TTL 5v.
 Basta
   definir qual pino ira enviar o sinal.
  
  
  
   Att.:
  
  
  
   _
  
   Fernando Leal
  
   mailto:fcleal@ fcleal@
  
   Programador de Sistemas
  
   Coordenadoria de Informática
  
   Centro Universitário UNIFEMM
  
   55(0xx31)2106-2114
  
   http://www.unifemm. http://www.unifemm. http://www.unifemm.edu.br/
 edu.br/ edu.br/
  www.unifemm.edu.br
  
  
  
   _
  
   De: delphi...@yahoogrup 
   mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
 os.com.br
  [mailto:delphi...@yahoogrup 
  mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
  os.com.br] Em
   nome de Fernando José Ramos Figueira da Silva
   Enviada em: quarta-feira, 24 de junho de 2009 14:43
   Para: delphi...@yahoogrup 
   mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
  os.com.br
   Assunto: [delphi-br] Re: Catraca - 5v - Paralela
  
  
  
  
  
  
  
  
   Fernando,
  
   Ajudou MUITTO
  
   tipo, uma simples dúvida. Eu só preciso definir um pino para o envio
 dos
  5v?
  
   abraços
  
   --- Em delphi...@yahoogrup 
   mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
   os.com.br, fcleal@ escreveu
   
Bom dia.
   
Espero que te ajute, utilizei isso em um projeto em 2000 utilizando o
   componente
TIOPort:
   
Pino - Valor enviado decimal - Valor Binario
2 - 1 - 0001
3 - 2 - 0010
4 - 4 - 0100
5 - 8 - 1000
6 - 16 - 0001
7 - 32 - 0010
8 - 64 - 0100
9 - 128 - 1000
   
   
Por exemplo, se eu quisesse ativar o pino 5, o IOPort.PortData
 recebia
  8.
   
att.:
   
Fernando Leal
   
  
  
  
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
 
 
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 

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

  




-- 
Leandro, MuTukA


[As partes desta mensagem que não 

[delphi-br] asp.net no Delphi

2009-06-26 Por tôpico Ronaldo Marcelo Pena
Senhores,

 

Existe alguma versão do Delphi 2007 .net com o framework 2.0? Só conheço a
versão Delphi .net do 2006 que é framework 1.1.

 

Agradeço pela informação.

 

Ronaldo Pena

 

 



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



Re: [delphi-br] Como chamar esta DLL pelo Delphi? [erro]

2009-06-26 Por tôpico Eduardo Silva dos Santos
Você precisa registrar a dll, use  regsvr32 nomeDadll.dll

2009/6/26 EmbarcaDelphi embarcadel...@yahoo.com.br

 Olá pessoal

 Novamente com o mesmo tema, só que dessa vez já com o componente instalado.
 O nome do componente criado: CleanupAPI1

 Estou fazendo assim:

 CleanupAPI1.Connect;
 try
 CleanupAPI1.Delete_IECache(1,1);
 CleanupAPI1.Delete_IECookies(1,1);
 CleanupAPI1.Delete_IEHistory(1,1);
 CleanupAPI1.Delete_DesktopRunHistory;
 finally
 CleanupAPI1.Disconnect;
 end;

 Quando clico no botão, apresenta o erro na tela:

 Classe não registrada

 Alguém saberia o que tem de errado?
 Será que a classe é de uma versão antiga, meu XP é todo atualizado e com
 SP3 etc...
 Coloquei a DLL em System32 só para ver se seria a falta dela, mas, como
 eu criei a TLB eu acho que não necessita, mas...
 Mesmo assim continua dando o erro.

 No site não informa nada, pelo que li, meu inglês não é lá muita coisa
 mas dá para entender um pouco.

 Grato por qualquer informação.


 Rubem Rocha escreveu:
 
 
  Esta DLL a que você se refere, Cleanup.dll, é um projeto que está
  hospedado
  no portal CodeProject
  (http://www.codeproject.com/KB/system/Cleanup_API.aspx
  http://www.codeproject.com/KB/system/Cleanup_API.aspx). Pelo que
  pude ver,
  essa Cleanup.dll possui uma versão em forma de componente COM. Essa
  forma eu
  vejo que é mais fácil você usar, visto que o Delphi pode gerar uma
  unit com
  as declarações contidas nela, bastando apenas fazer um uses e usá-la.
 
  Descompacte o .ZIP disponível no endereço mencionado. Depois Vá em
  ProjectImport Type Library. Ao aparecer a caixa de diálogo, clique em
  Add.
  Ao aparecer a caixa de diálogo, vá até o local onde você descompactou o
  pacote, selecione a pasta Cleanup_DLL_COM\Release e selecione o
  arquivo .DLL
  ou .TLB. Depois, clique em ‘Install’ ou ‘Create Unit’. A diferença desses
  botões é que o primeiro, além de gerar a unit que traduz o componente
 COM,
  instala ele na paleta de componentes.
 
  Mais uma coisa, sugiro que você leia todo o artigo do link acima
  mencionado
  para entender como funciona essa DLL.
 
  Boa sorte.
 
  Sds.
 
  De: delphi-br@yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
 
  [mailto:delphi-br@yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br]
 Em
  nome de EmbarcaDelphi
  Enviada em: sexta-feira, 26 de junho de 2009 10:51
  Para: delphi-br@yahoogrupos.com.br mailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  Assunto: [delphi-br] Como chamar esta DLL pelo Delphi?
 
  Olá pessoal...
 
  Como não entendo nada de C, tenho os fontes de uma DLL escrita nesta
  linguagem que serve para apagar históricos, cookies, etc.. mas não sei
  como chamar ela no meu projeto:
 
  --
  __declspec( dllexport ) BOOL Delete_IECache(BOOL bDeleteCache = TRUE,
  BOOL bDeleteCacheIndex = FALSE);
  __declspec( dllexport ) BOOL Delete_IECookies(BOOL bDeleteCookies = TRUE,
  BOOL bDeleteCookiesIndex = FALSE);
  __declspec( dllexport ) HRESULT Delete_IEHistory(BOOL bDeleteHistory =
  TRUE,
  BOOL bDeleteHistoryIndex = FALSE);
  __declspec( dllexport ) void Delete_IEAddressBarHistory();
  __declspec( dllexport ) void Delete_DesktopRunHistory();
  __declspec( dllexport ) void Delete_DesktopRecentDocsHistory();
  __declspec( dllexport ) void Delete_DesktopRecycleBinContents();
  --
 
  Acho que é isso acima :)
  Alguém que intenda de C pode dar uma luz?
  O nome da DLL é Cleanup.dll.
 
  Grato.
 
  .
 
 



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




[delphi-br] Sql Stop

2009-06-26 Por tôpico Heraldo Andrade
em varios clientes meu eu tenho o sql server 2000, mas em alguns o sql fica 
stop, eu tenho que desinstalar e instala-lo novamente, mas com o tempo, depois 
de alguns meses ele voltar a ficar stop, tem alguma solução neste caso ??


  

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

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



Re: [delphi-br] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Leandro
isso soh eh possivel do a partir do mysql 5 n eh?

2009/6/26 Wilson, Stephen stephen.wil...@ipswichhospital.nhs.uk



 Bom dia, Fernando

 Poderia fazer isso em uma operacao, assim:

 Insert Into TabelaDestino(Campo1,ampo2,Campo3) Select Campo1,Campo2,Campo3
 From TabelaFonte ??

 Sera muito rapido (menos que1 sec para 4000 registros em meus dados) -
 talvez demasiado rapido para mostrar progressao com um progressbar

 Atenciosamente
 Steve


 -Original Message-
 
 
 
  Opa,
 
  Sou iniciante em delphi, to com o seguinte problema:
 
  Tenho que importar dados de uma tabela para a outra, seus campos sao
  iguais.
  uso a seguinte logica:
 
  tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da
  tabela que quero importar), e colocar na outra tabela que criei, na
  qry_Destino.
 
  de primeiro, faco um select * pra pegar tds os campos da tabela fonte, e
  depois, faco um insert campo a campo na tabela de destino, ex:
 
  --
  QRY_Fonte.sql.Clear;
  QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');
  QRY_Fonte.Open;
  while Not QRY_Fonte.Eof do
  begin
  with QRY_Destino do
  begin
 
  sql.Clear;
  Sql.Add('Insert Into [TabelaDestino] (');
  SQL.Add('campo1, campo2, campo3');
  SQL.Add(') Values (');
  SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');
  SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');
  SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...
  ExecSql;
  ProgressBar1.Position := ProgressBar1.Position + 1;
  Application.ProcessMessages;
  QRY_Fonte.Next;
 
  end;
  end;
  qry_Fonte.close;
 
  
 
  Funciona, mais ta MUIITOO lento!!!
  pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1
  Minuto.
  e tenho tabelas aqui com mais de 8.000.
 
  oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida de
  manipular esses dados?
 
  Atenciosamente
  Fernando Pires
 
  __
  Conheça os novos produtos Windows Live! Clique aqui.
  http://www.windowslive.com.br
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 9961-7095
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

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

 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 ***
 This e-mail and any files transmitted with it are confidential. If you are
 not the intended recipient, any reading, printing, storage, disclosure,
 copying or any other action taken in respect of this e-mail is prohibited
 and may be unlawful. If you are not the intended recipient, please notify
 the sender immediately by using the reply function and then permanently
 delete what you have received.
 Content of emails received by this Trust will be subject to disclosure
 under the Freedom of Information Act 2000, subject to the specified
 exemptions, including the Data Protection Act 1998 and Caldicott Guardian
 principles.
 This footnote also confirms that, unless otherwise stated, this email
 message has been swept by Sophos Anti-virus for the presence of computer
 viruses.
 ***

  




-- 
Leandro, MuTukA


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



RES: [delphi-br] Re: Catraca - 5v - Paralela

2009-06-26 Por tôpico Fernando José Ramos Figueira da Silva
Entendi

 

Então é tranquilo... uma vez que o cara fizer o cabo posso conectá-lo na
paralela normalmente?

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fernando Leal
Enviada em: sexta-feira, 26 de junho de 2009 16:49
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela

 






Não é bem assim não.

Como se trata de um circuito digital TTL, qdo vc cria um equipamento para
comunicar você tem que tomar cuidado para que o sinal seja de 5V. No caso da
catraca ela já foi desenvolvida para isso!

Att.:

_ 

Fernando Leal

mailto:fcl...@unifemm.edu.br mailto:fcleal%40unifemm.edu.br 
fcl...@unifemm.edu.br mailto:fcleal%40unifemm.edu.br 

Programador de Sistemas

Coordenadoria de Informática

Centro Universitário UNIFEMM

55(0xx31)2106-2114

http://www.unifemm.edu.br/ www.unifemm.edu.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 Fernando José Ramos Figueira da Silva
Enviada em: sexta-feira, 26 de junho de 2009 09:45
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela

Fernando,
Bom dia.

Outra dúvida. rs..rs...

Fiquei sabendo que a porta paralela é muito sensivel, e o envio destes 5v
pode danificar a porta paralela ou até mesmo a placa da catraca. Isso
procede?

abraços!

--- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br, Fernando Leal fcl...@... escreveu

 Certo.
 
 
 
 Att.:
 
 
 
 Fernando Leal
 
 
 
 _ 
 
 Fernando Leal
 
 mailto:fcl...@... fcl...@...
 
 Programador de Sistemas
 
 Coordenadoria de Informática
 
 Centro Universitário UNIFEMM
 
 55(0xx31)2106-2114
 
 http://www.unifemm. http://www.unifemm.edu.br/ edu.br/
www.unifemm.edu.br
 
 
 
 _ 
 
 De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
 nome de Fernando José Ramos Figueira da Silva
 Enviada em: quinta-feira, 25 de junho de 2009 10:22
 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br
 Assunto: RES: [delphi-br] Re: Catraca - 5v - Paralela
 
 
 
 
 
 
 
 
 Fernando,
 Bom dia.
 
 Muito obrigado.
 Outra dúvida. Eu tenho que definir um pino entre 2 e 9 certo?
 
 abraços!
 
 --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br, Fernando Leal fcleal@ escreveu
 
  No seu caso sim, pois a catraca precisa apenas de um sinal TTL 5v. Basta
  definir qual pino ira enviar o sinal.
  
  
  
  Att.:
  
  
  
  _ 
  
  Fernando Leal
  
  mailto:fcleal@ fcleal@
  
  Programador de Sistemas
  
  Coordenadoria de Informática
  
  Centro Universitário UNIFEMM
  
  55(0xx31)2106-2114
  
  http://www.unifemm. http://www.unifemm. http://www.unifemm.edu.br/
edu.br/ edu.br/
 www.unifemm.edu.br
  
  
  
  _ 
  
  De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br
 [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br] Em
  nome de Fernando José Ramos Figueira da Silva
  Enviada em: quarta-feira, 24 de junho de 2009 14:43
  Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
 os.com.br
  Assunto: [delphi-br] Re: Catraca - 5v - Paralela
  
  
  
  
  
  
  
  
  Fernando,
  
  Ajudou MUITTO
  
  tipo, uma simples dúvida. Eu só preciso definir um pino para o envio dos
 5v?
  
  abraços
  
  --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
  os.com.br, fcleal@ escreveu
  
   Bom dia.
   
   Espero que te ajute, utilizei isso em um projeto em 2000 utilizando o
  componente
   TIOPort:
   
   Pino - Valor enviado decimal - Valor Binario
   2 - 1 - 0001
   3 - 2 - 0010
   4 - 4 - 0100
   5 - 8 - 1000
   6 - 16 - 0001
   7 - 32 - 0010
   8 - 64 - 0100
   9 - 128 - 1000
   
   
   Por exemplo, se eu quisesse ativar o pino 5, o IOPort.PortData recebia
 8.
   
   att.:
   
   Fernando Leal
  
  
  
  
  
  
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]


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





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



RES: [delphi-br] Re: Leitor digital

2009-06-26 Por tôpico Fernando José Ramos Figueira da Silva
Mas... pq apenas a robustes?

O que inviabilizaria?

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: sexta-feira, 26 de junho de 2009 16:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Leitor digital

 






Levando em consideração _apenas_ o que meu colega relatou sobre a robustez,
sim. 

[]'s
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 26/6/09, Fernando José Ramos Figueira da Silva
fra...@fiocruz.br mailto:framos%40fiocruz.br  escreveu:

Então resumindo, o da NITGEN é uma boa aquisição? até pq ja vem com o SDK!










__
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] Prob lema de Lentidão (SQL)

2009-06-26 Por tôpico Fernando Pires de Souza Filho

realmente, bem melhor, menos codigo.

mas como eu faria pra me concetar ao outro banco, fora da aplicacao?
e outro problema, tenho um campo que armazena uma foto (Blob), desse jeito, 
como eu faria
para importar esse campo??

To: delphi-br@yahoogrupos.com.br
From: stephen.wil...@ipswichhospital.nhs.uk
Date: Fri, 26 Jun 2009 13:47:20 +0100
Subject: RE: [delphi-br] Problema de Lentidão (SQL)

























  
  Bom dia, Fernando



Poderia fazer isso em uma operacao, assim:



Insert Into TabelaDestino(Campo1,ampo2,Campo3) Select Campo1,Campo2,Campo3 
From TabelaFonte   ??



Sera muito rapido (menos que1 sec para 4000 registros em meus dados)  - talvez 
demasiado rapido para mostrar progressao com um progressbar



Atenciosamente

Steve



-Original Message-







 Opa,



 Sou iniciante em delphi, to com o seguinte problema:



 Tenho que importar dados de uma tabela para a outra, seus campos sao

 iguais.

 uso a seguinte logica:



 tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da

 tabela que quero importar), e colocar na outra tabela que criei, na

 qry_Destino.



 de primeiro, faco um select * pra pegar tds os campos da tabela fonte, e

 depois, faco um insert campo a campo na tabela de destino, ex:



 --

 QRY_Fonte.sql.Clear;

 QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');

 QRY_Fonte.Open;

 while Not QRY_Fonte.Eof do

 begin

 with QRY_Destino do

 begin



 sql.Clear;

 Sql.Add('Insert Into [TabelaDestino] (');

 SQL.Add('campo1, campo2, campo3');

 SQL.Add(') Values (');

 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');

 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');

 SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...

 ExecSql;

 ProgressBar1.Position := ProgressBar1.Position + 1;

 Application.ProcessMessages;

 QRY_Fonte.Next;



 end;

 end;

 qry_Fonte.close;



 



 Funciona, mais ta MUIITOO lento!!!

 pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1

 Minuto.

 e tenho tabelas aqui com mais de 8.000.



 oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida de

 manipular esses dados?



 Atenciosamente

 Fernando Pires



 __

 Conheça os novos produtos Windows Live! Clique aqui.

 http://www.windowslive.com.br



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



  





-- 

...

Eduardo Silva dos Santos

DRD SISTEMAS

(27) 3218-4201

(27) 9961-7095

MSN: eduardo@gmail.com

Site: http://www.drdsistemas.com.br/

...



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







-- 

 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



***

This e-mail and any files transmitted with it are confidential. If you are not 
the intended recipient, any reading, printing, storage, disclosure, copying or 
any other action taken in respect of this e-mail is prohibited and may be 
unlawful. If you are not the intended recipient, please notify the sender 
immediately by using the reply function and then permanently delete what you 
have received.

Content of emails received by this Trust will be subject to disclosure under 
the Freedom of Information Act 2000, subject to the specified exemptions, 
including the Data Protection Act 1998 and Caldicott Guardian principles.

This footnote also confirms that, unless otherwise stated, this email message 
has been swept by Sophos Anti-virus for the presence of computer viruses.

***





 

  














_
Novo Internet Explorer 8. Baixe agora, é grátis!
http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8

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



Re: [delphi-br] Sql Stop

2009-06-26 Por tôpico Eduardo Silva dos Santos
Da uma olhada no visualizar de eventos do Windows.. lá vai ter a indicação
de algum erro.

Na época que eu usava o SQL Server 2000, quem parava muito era o Service
Manager.. mas o banco não parava não.

2009/6/26 Heraldo Andrade heraldo_andr...@yahoo.com.br



 em varios clientes meu eu tenho o sql server 2000, mas em alguns o sql fica
 stop, eu tenho que desinstalar e instala-lo novamente, mas com o tempo,
 depois de alguns meses ele voltar a ficar stop, tem alguma solução neste
 caso ??

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Macro Substituição

2009-06-26 Por tôpico Jose Newton Araujo
Algum dos colegas se lembra do Clipper? Quem conhece um método para
macro-substituição no Delphi? (no 7).

 

Jose Newton

 

 

 



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



Re: [delphi-br] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Eduardo Silva dos Santos
Se o banco em questão for MySQL, o segredo é fazer importação sob uma
trasação, vai importar muuito rápido.

2009/6/26 Leandro mutu...@yahoo.com.br



 isso soh eh possivel do a partir do mysql 5 n eh?

 2009/6/26 Wilson, Stephen 
 stephen.wil...@ipswichhospital.nhs.ukstephen.wilson%40ipswichhospital.nhs.uk
 

 
 
  Bom dia, Fernando
 
  Poderia fazer isso em uma operacao, assim:
 
  Insert Into TabelaDestino(Campo1,ampo2,Campo3) Select
 Campo1,Campo2,Campo3
  From TabelaFonte ??
 
  Sera muito rapido (menos que1 sec para 4000 registros em meus dados) -
  talvez demasiado rapido para mostrar progressao com um progressbar
 
  Atenciosamente
  Steve
 
 
  -Original Message-
  
  
  
   Opa,
  
   Sou iniciante em delphi, to com o seguinte problema:
  
   Tenho que importar dados de uma tabela para a outra, seus campos sao
   iguais.
   uso a seguinte logica:
  
   tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da
   tabela que quero importar), e colocar na outra tabela que criei, na
   qry_Destino.
  
   de primeiro, faco um select * pra pegar tds os campos da tabela fonte,
 e
   depois, faco um insert campo a campo na tabela de destino, ex:
  
   --
   QRY_Fonte.sql.Clear;
   QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');
   QRY_Fonte.Open;
   while Not QRY_Fonte.Eof do
   begin
   with QRY_Destino do
   begin
  
   sql.Clear;
   Sql.Add('Insert Into [TabelaDestino] (');
   SQL.Add('campo1, campo2, campo3');
   SQL.Add(') Values (');
   SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');
   SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');
   SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...
   ExecSql;
   ProgressBar1.Position := ProgressBar1.Position + 1;
   Application.ProcessMessages;
   QRY_Fonte.Next;
  
   end;
   end;
   qry_Fonte.close;
  
   
  
   Funciona, mais ta MUIITOO lento!!!
   pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1
   Minuto.
   e tenho tabelas aqui com mais de 8.000.
  
   oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida
 de
   manipular esses dados?
  
   Atenciosamente
   Fernando Pires
  
   __
   Conheça os novos produtos Windows Live! Clique aqui.
   http://www.windowslive.com.br
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  --
  ...
  Eduardo Silva dos Santos
  DRD SISTEMAS
  (27) 3218-4201
  (27) 9961-7095
  MSN: eduardo@gmail.com eduardo.drd%40gmail.com eduardo.drd%
 40gmail.com
  Site: http://www.drdsistemas.com.br/
  ...
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 ***
  This e-mail and any files transmitted with it are confidential. If you
 are
  not the intended recipient, any reading, printing, storage, disclosure,
  copying or any other action taken in respect of this e-mail is prohibited
  and may be unlawful. If you are not the intended recipient, please notify
  the sender immediately by using the reply function and then permanently
  delete what you have received.
  Content of emails received by this Trust will be subject to disclosure
  under the Freedom of Information Act 2000, subject to the specified
  exemptions, including the Data Protection Act 1998 and Caldicott Guardian
  principles.
  This footnote also confirms that, unless otherwise stated, this email
  message has been swept by Sophos Anti-virus for the presence of computer
  viruses.
 
 ***
 
 
 

 --
 Leandro, MuTukA

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Problema de Lentidão (SQL)

2009-06-26 Por tôpico Eduardo Silva dos Santos
Fernando, o banco de destino é MySQL?  se for  usar Tabelas InnoDB,
implemente transação e continue fazendo da forma que você faz.

usando transação você ficará espantado com o desempenho.

2009/6/26 Fernando Pires de Souza Filho nando_ace...@hotmail.com




 realmente, bem melhor, menos codigo.

 mas como eu faria pra me concetar ao outro banco, fora da aplicacao?
 e outro problema, tenho um campo que armazena uma foto (Blob), desse jeito,
 como eu faria
 para importar esse campo??

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 From: 
 stephen.wil...@ipswichhospital.nhs.ukstephen.wilson%40ipswichhospital.nhs.uk
 Date: Fri, 26 Jun 2009 13:47:20 +0100
 Subject: RE: [delphi-br] Problema de Lentidão (SQL)


 Bom dia, Fernando

 Poderia fazer isso em uma operacao, assim:

 Insert Into TabelaDestino(Campo1,ampo2,Campo3) Select Campo1,Campo2,Campo3
 From TabelaFonte ??

 Sera muito rapido (menos que1 sec para 4000 registros em meus dados) -
 talvez demasiado rapido para mostrar progressao com um progressbar

 Atenciosamente

 Steve

 -Original Message-

 

 

 

  Opa,

 

  Sou iniciante em delphi, to com o seguinte problema:

 

  Tenho que importar dados de uma tabela para a outra, seus campos sao

  iguais.

  uso a seguinte logica:

 

  tenho duas querys no form, uma qry_fonte(de onde vou pegar os dados da

  tabela que quero importar), e colocar na outra tabela que criei, na

  qry_Destino.

 

  de primeiro, faco um select * pra pegar tds os campos da tabela fonte, e

  depois, faco um insert campo a campo na tabela de destino, ex:

 

  --

  QRY_Fonte.sql.Clear;

  QRY_Fonte.SQL.Add('Select * From [TabelaFonte]');

  QRY_Fonte.Open;

  while Not QRY_Fonte.Eof do

  begin

  with QRY_Destino do

  begin

 

  sql.Clear;

  Sql.Add('Insert Into [TabelaDestino] (');

  SQL.Add('campo1, campo2, campo3');

  SQL.Add(') Values (');

  SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo1').AsString)+',');

  SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo2').AsString)+',');

  SQL.Add(QuotedStr(QRY_Fonte.FieldByName('Campo3).AsString)+','); etc...

  ExecSql;

  ProgressBar1.Position := ProgressBar1.Position + 1;

  Application.ProcessMessages;

  QRY_Fonte.Next;

 

  end;

  end;

  qry_Fonte.close;

 

  

 

  Funciona, mais ta MUIITOO lento!!!

  pra importar 150 reg de uma tabela pra outra demora um pouco mais de 1

  Minuto.

  e tenho tabelas aqui com mais de 8.000.

 

  oq pode ta errado, e se alguem conhece uma forma melhor e mais rapida de

  manipular esses dados?

 

  Atenciosamente

  Fernando Pires

 

  __

  Conheça os novos produtos Windows Live! Clique aqui.

  http://www.windowslive.com.br

 

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

 

 

 

 --

 ...

 Eduardo Silva dos Santos

 DRD SISTEMAS

 (27) 3218-4201

 (27) 9961-7095

 MSN: eduardo@gmail.com eduardo.drd%40gmail.com

 Site: http://www.drdsistemas.com.br/

 ...

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

 

 --

  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 ***

 This e-mail and any files transmitted with it are confidential. If you are
 not the intended recipient, any reading, printing, storage, disclosure,
 copying or any other action taken in respect of this e-mail is prohibited
 and may be unlawful. If you are not the intended recipient, please notify
 the sender immediately by using the reply function and then permanently
 delete what you have received.

 Content of emails received by this Trust will be subject to disclosure
 under the Freedom of Information Act 2000, subject to the specified
 exemptions, including the Data Protection Act 1998 and Caldicott Guardian
 principles.

 This footnote also confirms that, unless otherwise stated, this email
 message has been swept by Sophos Anti-virus for the presence of computer
 viruses.

 ***










 __
 Novo Internet Explorer 8. Baixe agora, é grátis!

 http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


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