Re: [trabalho] [delphi-br] backup db2

2006-06-02 Por tôpico JGodoi 



Funcionou.

Obrigado!


JGodoi
 - Original Message - 
 From: Eduardo Silva dos Santos 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Thursday, June 01, 2006 5:49 PM
 Subject: Re: [trabalho] [delphi-br] backup db2


 mostra exatamente o o seu código, pelo que vi abaixo, deixar o open dentro
 do while pode causar isso. o ideal seria:

 IBDataset1.Open;
 while not TblOrigen.Eof do begin
 IBDataset1.Insert;
 IBDataSet1NOME.AsString:=nome;
 IBDataSet1CGC.AsString:=cnpj;
 IBDataSet1.Post;
 end;
 IBDataset1.Close;
 DM1.IBTransaction1.CommitRetaining;


 tenta assim pra ver...


 Em 01/06/06, JGodoi [EMAIL PROTECTED] escreveu:
 
  Pessoal,
 
 
  Tenho um problema que persiste a algum tempo,...
  Vez ou outra tenho que importar dados de arquivos texto, dbf,
  excel,...etc. para o firebird 1.5
  O que acontece é que nunca posso importar quantidades de registros maiores
  que 800 por vez pq dá estouro de memória.
 
  Uso comando básicos dentro de um while do tipo:
 
 
  IBDataset1.Open;
  IBDataset1.Insert;
  IBDataSet1NOME.AsString:=nome;
  IBDataSet1CGC.AsString:=cnpj;
  IBDataSet1.Post;
  DM1.IBTransaction1.CommitRetaining;
 
 
 
  O que posso fazer para resolver isso ? Alguma sugestão ?
 
 
  Grato,
 
 
  JGodoi
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
  Links do Yahoo! Grupos
 
 
 
 
 
 
 
 


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


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





 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



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







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  

PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [trabalho] [delphi-br] backup db2

2006-06-01 Por tôpico JGodoi 



Pessoal,


Tenho um problema que persiste a algum tempo,...
Vez ou outra tenho que importar dados de arquivos texto, dbf, excel,...etc. para o firebird 1.5
O que acontece é que nunca posso importar quantidades de registros maiores que 800 por vez pq dá estouro de memória.

Uso comando básicos dentro de um while do tipo:


 IBDataset1.Open;
 IBDataset1.Insert;
 IBDataSet1NOME.AsString:=nome;
 IBDataSet1CGC.AsString:=cnpj;
 IBDataSet1.Post;
 DM1.IBTransaction1.CommitRetaining;



O que posso fazer para resolver isso ? Alguma sugestão ?


Grato,


JGodoi

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







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  

PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [trabalho] [delphi-br] Salvar Imagem em FireBird

2006-05-30 Por tôpico JGodoi 



Da uma olhada no site firebase:


http://www.firebase.com.br/fb/artigo.php?id=301


JGodoi



 - Original Message - 
 From: Emerson Moreno 
 To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
 Sent: Monday, May 29, 2006 5:57 PM
 Subject: [trabalho] [delphi-br] Salvar Imagem em FireBird


 Olá meu amigos eu gostaria de saber como posso salvar uma imagem jpg
 num banco de dados firebird.

 Tenho uma imagem em um TImage e gostaria de saber como posso salvar a
 mesmo em um banco de dados.

 Desde já agradeço a todos.

 -- 
 []'s

 Emerson Moreno
 O grande sábio aprende por ensinar!


 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



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







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [trabalho] [delphi-br] Versão

2006-05-26 Por tôpico JGodoi 



FUNÇÃO VERSÃO DO EXE


function VersaoExe(const FileName: string): String;

var

 VerInfoSize, VerValueSize, Dummy: Dword;

 VerInfo: Pointer;

 VerValue: PVSFixedFileInfo;

 V1, V2, V3, V4: Word;

begin

 VerInfoSize:=GetFileVersionInfoSize(PChar(FileName),Dummy);

 GetMem(VerInfo,VerInfoSize);

 GetFileVersionInfo(PChar(FileName),0,VerInfoSize,VerInfo);

 VerQueryValue(VerInfo,'',Pointer(VerValue),VerValueSize);

 with VerValue^ do

 begin

 V1:=dwFileVersionMS shr 16;

 V2:=dwFileVersionMS and $;

 V3:=dwFileVersionLS shr 16;

 V4:=dwFileVersionLS and $;

 end;

 FreeMem(VerInfo,VerInfoSize);

 VersaoEXE:=IntToStr(v1)+'.'+IntToStr(v2)+'.'+IntToStr(v3)+'.'+IntToStr(v4);

end;





COMO USAR

Labe1.caption:=VersaoEXE('velix.exe');














 - Original Message - 
 From: Luiz Henrique 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Friday, May 26, 2006 2:48 PM
 Subject: [trabalho] [delphi-br] Versão


 Pessoal,

 Como posso obter a versão do executável? Aquela que é configurada na opção 
 Project/Options/Version Info. Quero fazer uma janela que mostre essa 
 informação. Também preciso da data do executável.

 SDS

 Luiz Henrique Santos
 Coordenador de Desenvolvimento
 Brasystem Automação Comercial
 Florianópolis - Santa Catarina
 Telefone: 55 (48) 3223-3632 ramal 26
 [EMAIL PROTECTED]


 
 ___ 
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
 http://br.mobile.yahoo.com/mailalertas/ 




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



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







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [trabalho] [delphi-br] Versão

2006-05-26 Por tôpico JGodoi 



function FileDate(Arquivo: String): String;
{Retorna a data e a hora de um arquivo}
var
FHandle: integer;
begin
if not fileexists(Arquivo) then
 begin
 Result := 'Nome de Arquivo Inválido';
 end
else
 begin
 FHandle := FileOpen(Arquivo, 0);
 try
 Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
 finally
 FileClose(FHandle);
 end;
 end;
end;







 - Original Message - 
 From: Luiz Henrique 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Friday, May 26, 2006 2:48 PM
 Subject: [trabalho] [delphi-br] Versão


 Pessoal,

 Como posso obter a versão do executável? Aquela que é configurada na opção 
 Project/Options/Version Info. Quero fazer uma janela que mostre essa 
 informação. Também preciso da data do executável.

 SDS

 Luiz Henrique Santos
 Coordenador de Desenvolvimento
 Brasystem Automação Comercial
 Florianópolis - Santa Catarina
 Telefone: 55 (48) 3223-3632 ramal 26
 [EMAIL PROTECTED]


 
 ___ 
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
 http://br.mobile.yahoo.com/mailalertas/ 




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



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







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [delphi-br] instalador delphi

2006-05-16 Por tôpico JGodoi 



Inno Setup


http://www.jrsoftware.org/



JGodoi
[EMAIL PROTECTED]





--- almir cruz [EMAIL PROTECTED] escreveu:


-
olá!
Alguem conhece algum instalador de aplicativos delphi
melhor que o RDINSTALL1.7??


 
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço,
alertas de e-mail no celular e anti-spam realmente
eficaz. 

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM 

http://br.groups.yahoo.com/group/delphi-br/messages



 
 Yahoo! Grupos, um serviço oferecido
por: PUBLICIDADE
var lrec_target=_top;var lrec_URL=new
Array();lrec_URL[1]=http://br.ard.yahoo.com/SIG=12f4gcheo/M=396559.7942981.9411631.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147750084/A=3672775/R=0/id=flashurl/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs;var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1);var
lrec_altURL=http://br.ard.yahoo.com/SIG=12f4gcheo/M=396559.7942981.9411631.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147750084/A=3672775/R=1/id=altimg/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs;var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dimension5150.gif;var
lrec_width=300;var lrec_height=250; 
 
 
-
Links do Yahoo! Grupos

 Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
 Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
 
 O uso que você faz do Yahoo! Grupos está sujeito
aos Termos do Serviço do Yahoo!.




  
___ 
Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e ganhe prêmios de hora em hora! 
http://br.yahoo.com/artilheirodacopa/






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Listar Arquivos

2006-05-11 Por tôpico JGodoi 



Observação: mensagem anexa encaminhada.Pessoal,

Estou prescisando listar em um memo os arquivos de um
diretorio, incuindo os sub diretorios.

Tentei desenvolver e pesquisei mas não encontrei uma
função que funcione com os subdiretorios.

Alguem que já tenha feito isso poderia me ajudar me
enviando um exemplo ou uma função que retorne o path
completo dos arquivos de um dir e subdirs?

Grato

JGodoi
[EMAIL PROTECTED]




  



  
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/

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







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Fw: Bd sem Alias

2005-03-30 Por tôpico JGodoi 


- Original Message - 
From: JGodoi 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, March 29, 2005 6:17 PM
Subject: Bd sem Alias


Pessoal,

Já ví nos post anteriores e num encontrei uma dica que pudesse me ajudar.

Tenho que importar dados de tabelas DB e DBF espalhadas por vários micros pela 
rede. as de DBF resolvi com o comp Tdbf, porem com as tabelas DB do Paradox eu 
não sei como conectar sem usar alguma conf. fixa no micro, tipo alias e ter que 
instalar o BDE.
Seria inconsebível ter que instalar o BDE e criar alias para quase todos os 
micros da rede toda vez que for instalar o sistema em um micro.


Estou querendo fazer como o TDBF escolho a tabela e conecta...pronto sem nehuma 
conf.

Aguem pode me ajudar


Valeu,


JGodoi
[EMAIL PROTECTED]


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] [OFF-TOPIC] - Cadastro de PJ

2004-12-27 Por tôpico JGodoi 


Pessoal,

Estamos desenvolvendo um novo sistema em D7+FB e presisamos sanear o cadastro 
de Clientes Pessoa Jurídica da Empresa.  Gostaria de saber se vcs sabem de 
algum orgão ou empresa que disponibiliza ou vende um cadastro de PJ.

Grato,

JGodoi
[EMAIL PROTECTED]



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Download de Arquivo

2004-09-27 Por tôpico JGodoi 
Pessoal, 

Tenho um sistema rodando em alguns clientes e gostaria de fazer um  sis de atualização 
automática para facilitar  a distribuição de uma nova versão.

Estava pensando em montar um segundo executável que é acionado somente quando uma nova 
versão estiver disponivel.

Quando ele for acionado ele baixa a nova versão do executável principal e substitui o 
existente.

O que eu gostaria é de uma dica por onde começar. qual componente eu uso para faezer 
download da net ?
Alguem tem algum exemplo pra passar ?

Valeu,

JGodoi
[EMAIL PROTECTED]

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Download de Arquivo

2004-09-27 Por tôpico JGodoi 



Pessoal, 

Tenho um sistema rodando em alguns clientes e gostaria de fazer um  sis de atualização 
automática para facilitar  a distribuição de uma nova versão.

Estava pensando em montar um segundo executável que é acionado somente quando uma nova 
versão estiver disponivel.

Quando ele for acionado ele baixa a nova versão do executável principal e substitui o 
existente.

O que eu gostaria é de uma dica por onde começar. qual componente eu uso para faezer 
download da net ?
Alguem tem algum exemplo pra passar ?

Valeu,

JGodoi
[EMAIL PROTECTED]

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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