date:20050315

Com todo o respeito, Tem 56 clientes utiliando o software e só em 2 dá 
problemas...

- Original Message - 
From: Walter Alves Chagas Junior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 11, 2005 5:41 PM
Subject: RES: [delphi-br] Perda de dados

Com todo respeito, mas isto daí não tá me parecendo problema de Banco e sim
erro de lógica.

 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200

 -Mensagem original-
 De: Cristiane Campanholo [mailto:[EMAIL PROTECTED]
 Enviada em: sexta-feira, 11 de março de 2005 16:56
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Perda de dados

 Pessoal!

 Estou com um sério problema de perda de dados. Eu utilizo
 Paradox com Delphi
 4 (vou migrar, não tive tempo de procurar os componentes que
 utilizo no D4
 para o D7).

 Por exemplo: meu cliente digita contas a receber (inclui),
 depois (outro
 dia) faz o pagamento desta conta a receber (altera o
 registro). Em alguns
 casos (aleatórios), a conta a receber volta a ficar em
 aberto, como se não
 houvesse o pagamento (como se não tivesse a alterção). Note
 que, se no dia
 que foi feita a alteração o relatório for impresso, imprime
 normal, com a
 alteração correta. Alguns dias depois é que a tal conta
 aparece em aberto
 novamente. Agluém já passou por isso? Sei que Paradox não é o
 melhor banco
 de dados, mas sempre soube de perda de índices ou registros,
 mas nunca de
 perda de alterações...

 Se alguém puder me ajudar, agradeço muito.

 Cristiane Campanholo

 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

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

[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

-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

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

Re: [delphi-br] Perda de dados

Já rodei a recuperação de arquivos, recriei os índices. Uma época, neste 
cliente que tem bastante problema de perda de dados, tinha um problema de 
energia elétrica, oscilação bastante grande quando ligavam o elevador do 
prédio.

- Original Message - 
From: Rodrigo Othavio Farias [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 11, 2005 5:48 PM
Subject: Re: [delphi-br] Perda de dados

 ta com cara de pau nos arquivos, é comum esse tipo de coisa ocorrer com
 arquivo ou indice baleado, passa um programa de recuperação de tabelas
 paradox nas tuas tabelas

 []´s
 Rodrigo O. Farias
 - Original Message - 
 From: Cristiane Campanholo
 To: delphi-br@yahoogrupos.com.br
 Sent: Friday, March 11, 2005 4:55 PM
 Subject: [delphi-br] Perda de dados

 Pessoal!

 Estou com um sério problema de perda de dados. Eu utilizo Paradox com 
 Delphi
 4 (vou migrar, não tive tempo de procurar os componentes que utilizo no D4
 para o D7).

 Por exemplo: meu cliente digita contas a receber (inclui), depois (outro
 dia) faz o pagamento desta conta a receber (altera o registro). Em alguns
 casos (aleatórios), a conta a receber volta a ficar em aberto, como se não
 houvesse o pagamento (como se não tivesse a alterção). Note que, se no dia
 que foi feita a alteração o relatório for impresso, imprime normal, com a
 alteração correta. Alguns dias depois é que a tal conta aparece em aberto
 novamente. Agluém já passou por isso? Sei que Paradox não é o melhor banco
 de dados, mas sempre soube de perda de índices ou registros, mas nunca de
 perda de alterações...

 Se alguém puder me ajudar, agradeço muito.

 Cristiane Campanholo

 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

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

 Yahoo! Grupos, um serviço oferecido por:

 São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília

 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!.

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

 -- 
 No virus found in this incoming message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

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

Re: [delphi-br] Perda de dados

É verdade... Vou ter de desenvolver rotinas para provar...

- Original Message - 
From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
To: Cristiane Campanholo [EMAIL PROTECTED]; 
delphi-br@yahoogrupos.com.br
Sent: Friday, March 11, 2005 6:11 PM
Subject: Re: [delphi-br] Perda de dados

 Olá Cristiane

 Voltar uma edição não volta, mas que somem alguns registros aí somem
 mesmo, é só o cara abusar um pouco, desligando o micro que
 acontece...Agora aí pode ser programa ou fraude, o que não é tão
 incomun assim

 On 11 Mar 2005 at 16:55, Cristiane Campanholo wrote:

 Pessoal!

 Estou com um sério problema de perda de dados. Eu utilizo Paradox com
 Delphi 4 (vou migrar, não tive tempo de procurar os componentes que
 utilizo no D4 para o D7).

 Por exemplo: meu cliente digita contas a receber (inclui), depois
 (outro dia) faz o pagamento desta conta a receber (altera o registro).
 Em alguns casos (aleatórios), a conta a receber volta a ficar em
 aberto, como se não houvesse o pagamento (como se não tivesse a
 alterção). Note que, se no dia que foi feita a alteração o relatório
 for impresso, imprime normal, com a alteração correta. Alguns dias
 depois é que a tal conta aparece em aberto novamente. Agluém já passou
 por isso? Sei que Paradox não é o melhor banco de dados, mas sempre
 soube de perda de índices ou registros, mas nunca de perda de
 alterações...

 Se alguém puder me ajudar, agradeço muito.

 Cristiane Campanholo

 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

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

 Atenciosamente

 Oswaldo dos Santos Araujo
 http://www.santosaraujo.com.br
 mailto:[EMAIL PROTECTED]

 Telefones escritório: (11) 6996-1101/6994-3586
 celular: (11) 9259-4094

 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/05

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

 -- 
 No virus found in this incoming message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

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

Re: [delphi-br] Re: Perda de dados

Isto sim, é uma necessidade. Eu já tinha esta rotina no meu software, 
obrigada!

- Original Message - 
From: carlos alberto do amaral [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, March 14, 2005 2:12 PM
Subject: [delphi-br] Re: Perda de dados

Olá,

 Piradox é triste mesmo !!! :)

  Veja se isto te ajuda...  Coloque em todas as suas tabelas

procedure  formulário ou datamodule.TABLEAfterPost(DataSet: TDataSet);
begin
  // DBISaveChanges uma espécia de commit forçado 
  DBISaveChanges(TABLE.Handle);
end;

  Na uses adicionar DBIPROCS..

  Um abraço,

   Carlos

 P.S.: Já fiquei muito confuso com isto também!!!

--- Em delphi-br@yahoogrupos.com.br, Oswaldo dos Santos Araujo
[EMAIL PROTECTED] escreveu
 Olá Cristiane

 Voltar uma edição não volta, mas que somem alguns registros aí
somem
 mesmo, é só o cara abusar um pouco, desligando o micro que
 acontece...Agora aí pode ser programa ou fraude, o que não é tão
 incomun assim

 On 11 Mar 2005 at 16:55, Cristiane Campanholo wrote:

  Pessoal!

  Estou com um sério problema de perda de dados. Eu utilizo Paradox
com
  Delphi 4 (vou migrar, não tive tempo de procurar os componentes
que
  utilizo no D4 para o D7).

  Por exemplo: meu cliente digita contas a receber (inclui), depois
  (outro dia) faz o pagamento desta conta a receber (altera o
registro).
  Em alguns casos (aleatórios), a conta a receber volta a ficar em
  aberto, como se não houvesse o pagamento (como se não tivesse a
  alterção). Note que, se no dia que foi feita a alteração o
relatório
  for impresso, imprime normal, com a alteração correta. Alguns dias
  depois é que a tal conta aparece em aberto novamente. Agluém já
passou
  por isso? Sei que Paradox não é o melhor banco de dados, mas
sempre
  soube de perda de índices ou registros, mas nunca de perda de
  alterações...

  Se alguém puder me ajudar, agradeço muito.

  Cristiane Campanholo

  -- 
  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.1 - Release Date:
9/3/2005

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

 Atenciosamente

 Oswaldo dos Santos Araujo
 http://www.santosaraujo.com.br
 mailto:[EMAIL PROTECTED]

 Telefones escritório: (11) 6996-1101/6994-3586
 celular: (11) 9259-4094

 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/05

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

-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005

-- 
 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] Conversão data

2005-03-15 Por tôpico Info Desenvolvimento


Quando estou fazendo um passo a passo no delphi (F7) o delphi gera uns códigos 
para a data alguem sabe como faço para converter os códigos da data para data?

[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

Re: [delphi-br] Criptografai de senha

2005-03-15 Por tôpico Claudio H.Binaghi


Bom dia!

Já que ninguém respondeu até o momento, vou dar o meu palpite.

Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de
criptografia, exemplo:
(esta função Encripta e Desencripta dependendo do valor da Boolean Codifica)

function Tansforma(sTexto:String; bCodifica: Boolean; iChave:
Integer):String;
var I: Integer;
sTextoEncriptado:  String;
Begin
  sTextoEncriptado := '';
  if bCodifica then
for I := 1 to Length(sTexto) do
  sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado
  else
for I := 1 to Length(sTexto) do
  sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado;
  Result := sTextoEncriptado;
end;

Dever ser usada assim:

Valor_encriptado:= Tansforma(Texto,True,66);
Valor_desencriptado:= Tansforma(Texto,False,66);

Depois você grava normalmente no seu banco;

Qualquer necessidade fale.

Boa sorte.

Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075



- Original Message - 
From: Wenceslau Miranda [EMAIL PROTECTED]
To: Delphi [EMAIL PROTECTED]; Delphi no Brasil
[EMAIL PROTECTED]; Delphi-BR
delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 9:05 AM
Subject: [delphi-br] Criptografai de senha



Amigos da lista,

Mais uam vez venho recorrer a vocês.
Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do
mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a
base de dados e abrir em outro computador com a senha padrão do banco. Sendo
assim gostaria pelo menos de criptografar a senha dos usuários do sistema em
minha base de dados.
Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas.
Alguém teria uma exemplo de como isso é feito.
Desde já agradeço.




[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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005



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

Re: [delphi-br] Conversão data

2005-03-15 Por tôpico Ulisses


Bom dia!

O Básico seria: 

UmaVariavelTipoString:= DateToStr(EsseCodigoQueVoceDisse); ou 
UmaVariavelTipoString:= FormatDateTime('dd/mm/yyy',EsseCodigoQueVoceDisse);

Boa sorte.

Ulisses
  - Original Message - 
  From: Info Desenvolvimento 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 9:18 AM
  Subject: [delphi-br] Conversão data


  Quando estou fazendo um passo a passo no delphi (F7) o delphi gera uns 
códigos para a data alguem sabe como faço para converter os códigos da data 
para data?

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



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


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

Re: [delphi-br] Criptografai de senha

2005-03-15 Por tôpico Claudio H.Binaghi


Bom dia!

Já que ninguém respondeu até o momento, vou dar o meu palpite.

Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de
criptografia, exemplo:
(esta função Encripta e Desencripta dependendo do valor da Boolean Codifica)

function Tansforma(sTexto:String; bCodifica: Boolean; iChave:
Integer):String;
var I: Integer;
sTextoEncriptado:  String;
Begin
  sTextoEncriptado := '';
  if bCodifica then
for I := 1 to Length(sTexto) do
  sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado
  else
for I := 1 to Length(sTexto) do
  sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado;
  Result := sTextoEncriptado;
end;

Dever ser usada assim:

Valor_encriptado:= Tansforma(Texto,True,66);
Valor_desencriptado:= Tansforma(Texto,False,66);

Depois você grava normalmente no seu banco;

Qualquer necessidade fale.

Boa sorte.

Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075


- Original Message - 
From: Wenceslau Miranda [EMAIL PROTECTED]
To: Delphi [EMAIL PROTECTED]; Delphi no Brasil
[EMAIL PROTECTED]; Delphi-BR
delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 9:05 AM
Subject: [delphi-br] Criptografai de senha



Amigos da lista,

Mais uam vez venho recorrer a vocês.
Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do
mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a
base de dados e abrir em outro computador com a senha padrão do banco. Sendo
assim gostaria pelo menos de criptografar a senha dos usuários do sistema em
minha base de dados.
Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas.
Alguém teria uma exemplo de como isso é feito.
Desde já agradeço.




[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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005



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

Re: [delphi-br] BreakPoint não funciona

2005-03-15 Por tôpico Joao Morais


Alisson Costa Resende wrote:
 Pessoal,
 
 Estou usando o Delphi 7 e o BreakPoint parou de
 funcionar. Não aparecem aquelas bolinhas na
 margem esquerda do Editor do Delphi. Quando compilo a
 marcação vermelha do BreakPoint fica
 verde e a execução do programa não para no local
 marcado. Já tentei de tudo: dei Build no
 projeto, desinstalei e instalei o Delphi novamente e
 nada! Nâo tenho como trabalhar. Alguém tem idéia do
 que está acontecendo?

Coloque um {$D-} no cabeçalho da sua unit e certifique-se de que 
realmente existe uma chamada para o seu processo.


--
João Morais


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

Re: [delphi-br] Conversão data

2005-03-15 Por tôpico Info Desenvolvimento


Mas na hora em que o sistema está fazendo o Break Point, tem como ver qual a 
data?
Tipo o RUN - Avaluate/Modify que nos da o código que estou navegando.


[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] Controlar Licença

2005-03-15 Por tôpico easywaysistemas



Alguém tem algum exemplo ou algo qualquer referente a controle de 
licença de 
um sistema? Estou desenvolvendo um sistema que funcionara por 
assinatura 
mensal, mas ainda não sei como controlar isto? 





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

Re: [delphi-br] Janela MDI ativa

begin
  if not Frmxxx = nil then //Janela está ativa :)
  begin
  end;
end;
  - Original Message - 
  From: Rodrigo Schiavo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 7:06 AM
  Subject: [delphi-br] Janela MDI ativa

  Galera bom dia,

  Deu um branco total aqui hoje, em uma aplicação MDI como eu faço mesmo 
  pra saber qual eh o form que esta ativo?

  [ ]'s

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

Yahoo! Grupos, um serviço oferecido por: 

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  

--
  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!. 

--

  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

[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] Sobrescrendo em Stringlist

2005-03-15 Por tôpico Leandro Ferreira


Olá Pessoal,

Estou tendo um problema que acredito ser de lógica.

Tenho um arquivo texto que jogo seu conteúdo para uma stringlist e 
fazendo algumas verificações jogo algumas linhas para alguns campos edit 
e outros para campos do tipo Memo. Até ai +- blz.
   
O meu problema é que qdo vou gravar algumas linhas que não estavam no 
arquivo ele está apagando(escrevendo por cima) das linhas que já estavam 
lá.

Se alguém puder me dar uma idéia de como implementar isso, pois já estou 
ficando de cabelo branco.

Obrigado desde já pela ajuda,

-- 
Leandro Ferreira
Desenvolvedor - Tecnologia
Tel/Fax: +55 48 2106-5698
ICQ# 147470848
http://www.nexxera.com
NEXXERA Tecnologia e Serviços S.A.
Seu Ambiente Eletrônico de Negócios




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

2005-03-15 Por tôpico fabianodigital


is that your wife?


[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

Re: [delphi-br] Janela MDI ativa

Ixi...

Acho que eu troquei as bolas :/

Desculpe
  - Original Message - 
  From: Giovani - Terra 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 11:01 AM
  Subject: Re: [delphi-br] Janela MDI ativa

  begin
if not Frmxxx = nil then //Janela está ativa :)
begin
end;
  end;
- Original Message - 
From: Rodrigo Schiavo 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, March 15, 2005 7:06 AM
Subject: [delphi-br] Janela MDI ativa

Galera bom dia,

Deu um branco total aqui hoje, em uma aplicação MDI como eu faço mesmo 
pra saber qual eh o form que esta ativo?

[ ]'s

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

  Yahoo! Grupos, um serviço oferecido por: 

  São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  

  --
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!. 

  --

No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

--

  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

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

Yahoo! Grupos, um serviço oferecido por: 

--
  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!. 

--

  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

[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] Sistema Comercial Integrado com Delphi 7 - Cadastro e Estoque

2005-03-15 Por tôpico Adalberto Sousa Monteiro


Bom dia todos do grupo,
Alguem tem ou ja leu um desses livros ?
Gostaria de saber se vale a pena compra-lo ??? E se alguém tem e gostaria de 
vende-lo ?

Abraços a todos
Adalberto.

   

[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] hash MD5

2005-03-15 Por tôpico Joao Morais



Pessoal,


pegando carona na mensagem sobre criptografia, alguém sabe de alguma 
implementação publicada do hash md5 em Object Pascal (ou mesmo em C)?


Obrigado,
--
João Morais



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

RES: [delphi-br] Controlar Licença

2005-03-15 Por tôpico Rubem Rocha


Se bem me lembro, no site da revista ClubeDelphi deve ter um exemplo de 
licenciamento de aplicação. Bem simples, mas muito bom! Agora, só procurando 
lá, pq eu num lembro do endereço!

[]s

-Mensagem original-
De: easywaysistemas [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 15 de março de 2005 10:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Controlar Licença




Alguém tem algum exemplo ou algo qualquer referente a controle de 
licença de 
um sistema? Estou desenvolvendo um sistema que funcionara por 
assinatura 
mensal, mas ainda não sei como controlar isto? 





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




 




-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005
 

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005
 


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

Re: [delphi-br] Criar Banco de Dados no Sql Server

2005-03-15 Por tôpico Cleber


Ulisses wrote:

Bom dia!

Crie um script com as linhas abaixo. Esse vai ser um banco básico, sem nenhuma 
restrição.

Use Master
go
Create Database SeuBancodeDados
go
use SeuBancodeDados
GO
sp_addlogin 'SeuUsuario', 'SenhadoSeuUsuario', 'SeuBancodeDados','Português'
go
EXEC sp_adduser 'SeuUsuario', 'SeuUsuario'
GO
USE SeuBancodeDados

Boa sorte.

Ulisses
  - Original Message - 
  From: Cleber 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 11:52 AM
  Subject: [delphi-br] Criar Banco de Dados no Sql Server


  Olá Pessoal, bom dia...

  Eu preciso criar um banco de dados no Sql Server via códgio, sem nenhuma 
  interface gráfica, só código de comandos sql, e agora eu não lembro como 
  faz, alguém sabe e pode me ajudar?

  PS: Bom eu preciso pq o SQL SErver q estou usando no exato momento é o 
  MSDE 2000, Ele é um SQl Server lite, é mais para colocar um sistema 
  junto com o banco num CD, para demonstração, estas coisas, entaum Ele 
  funciona do mesmo jeito do SQL Server 2000, mas não tem nenhum tipo de 
  interface gráfica, Ok?

  Desde já, Obrigado

  Cleber.
  Analista de Sistemas - Arquiteto de Sistemas - Programador.




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



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


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



  

Muito obrigado Ulisses, eu consegui fazer, mas não deste jeito q vc me 
passou, fiz no esquema q eu mesmo apontei onde ficariam os arquivos log 
e data, bom mesmo assim muito obrigado... valeu

Cleber.
Analista de Sistemas - Arquiteto de Sistemas - Programador.




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

Re: [delphi-br] Abrir tabelas Cobol

2005-03-15 Por tôpico Leandro


Evandro

Tem como vc me enviar esse programa?

Obrigado,

Leandro

- Original Message - 
From: Evandro Aguiar Nascimento [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, March 14, 2005 5:50 PM
Subject: Re: [delphi-br] Abrir tabelas Cobol



 A Tabela sem extensão é uma tabela .dat, a outra é uma
 tabla de indice, igual aos indices do dbase, quase
 sempre, essas tabelas são protegidas por senha, então,
 acho que voce terá que saber qual a senha. Dá uma
 olhada na máquina aonde voce consegui essas tabelas,
 talvez tenha por lá algum arquivo com a extensão .cob,
 código fonte do cobol, dentro deles voce encontrará a
 senha para abir as tabelas.

 Eu tenho arui um programa que abre essas tabelas, se
 oc equiser, eu te envio, é um programa de
 demonstração.


 Evandro Aguiar Nascimento

 --- Leandro [EMAIL PROTECTED] wrote:

 -
 Um arquivo sem extensão e outro com. Ex.:

 Aracnfsp e Aracnfsp.idx

 Att,

 Leandro

 - Original Message - 
 From: plucaslazaro [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 1:27 PM
 Subject: Re: [delphi-br] Abrir tabelas Cobol



 Qual a extensao dos arquivos??
   - Original Message - 
   From: Leandro
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:16 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol


   Ok, acho que é Micro Focus... mas nao tenho o cobol
 instalado... tem
 alguma
   forma de eu rodar o
   programa cobol no windows, ou no linux, sem ter que
 instalar o cobol. Ou
   algum emulador de Cobol
   para Windows/Linux.

   Sou leigo em Cobol, por isso tais dúvidas parecem
 imbecis :(

   Obrigado,

   Leandro

   - Original Message - 
   From: plucaslazaro [EMAIL PROTECTED]
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:16 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol



   Leandro, toda tabela em cobol que eu saiba vc só
 abre usando o proprio
   cobol, veja qual a versao do cobol que foi usado q
 te mando um programa
 para
   gerar arquivo texto.

   Paulo
 - Original Message - 
 From: Leandro
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 12:03 PM
 Subject: [delphi-br] Abrir tabelas Cobol


 Olá,

 Estou precisando converter algumas tabelas do
 Cobol para
 Firebird. Tem alguma forma de eu abrí-las no
 Delphi ou algum
 programa que eu informe a tabela Cobol e ele
 converta para TXT ou
 outro formato reconhecido pelo Delphi?

 Desde já agradeço.

 Leandro





   [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











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



 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] ou
 [EMAIL PROTECTED]

 Links do Yahoo! Grupos











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



 Yahoo! Grupos, um serviço oferecido por:

function SearchComboBox() {
 if (document.form_combo.keyword.value.length==0){
 alert(Por favor, digite algo.);  return false; }else
 {  document.form_combo.action

=http://br.rd.yahoo.com/SIG=12a6dqnaq/M=264105.3931087.6562589.1588051/D=br
clubs/S=2137111264:HM/EXP=1110910626/A=2361264/R=0/SIG=11uaou2jn/*http://www
.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;
 } return true;}
   [input]
   [input][input]


 -
 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

[delphi-br] Abrir Internet Explorer ou Firefox

2005-03-15 Por tôpico Eduardo Silva ®


Galera, como eu faço para clicar em uma linha do meu dbgrid e abrir o
Internet Explorer em uma nova janela ou o Firefox e

depois da página aberta, quando clicar em outra linha (com outro endereço)
abrir em outra janela (não na mesma que já esta a

página que eu abri anteriormente).


~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



-- 
 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] Contar registros no relatório denovo!

2005-03-15 Por tôpico lyanagomes



Tentei mas não deu certo,
fiz o seguinte:

qrlabel4.caption:=query1.recordcount;

e diz q são tipos incompativeis str e int, tentei converter mas naum 
deu..





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

Re: [delphi-br] Abrir tabelas Cobol

2005-03-15 Por tôpico plucaslazaro


Leandro,  boa tarde

eu estive olhando seus arquivos que me enviou, e pelo que pude perceber sao 
tabelas contendo bastante campos, fica muito dificil vc conseguir abrir estes 
arquivos sem o lay-out pois o cobol dependendo do programador qdo se utiliza 
campos numericos costuma-se colocar o campo numerico COMP-3 que quer dizer 
compactado ficando muito dificil de abrir, vc nao tem algum backup ou mesmo 
algum lugar no micro que tenha os fontes deste sistema?

Paulo
  - Original Message - 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 1:02 PM
  Subject: Re: [delphi-br] Abrir tabelas Cobol


  Evandro

  Tem como vc me enviar esse programa?

  Obrigado,

  Leandro

  - Original Message - 
  From: Evandro Aguiar Nascimento [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br
  Sent: Monday, March 14, 2005 5:50 PM
  Subject: Re: [delphi-br] Abrir tabelas Cobol


  
   A Tabela sem extensão é uma tabela .dat, a outra é uma
   tabla de indice, igual aos indices do dbase, quase
   sempre, essas tabelas são protegidas por senha, então,
   acho que voce terá que saber qual a senha. Dá uma
   olhada na máquina aonde voce consegui essas tabelas,
   talvez tenha por lá algum arquivo com a extensão .cob,
   código fonte do cobol, dentro deles voce encontrará a
   senha para abir as tabelas.
  
   Eu tenho arui um programa que abre essas tabelas, se
   oc equiser, eu te envio, é um programa de
   demonstração.
  
  
   Evandro Aguiar Nascimento
  
   --- Leandro [EMAIL PROTECTED] wrote:
  
   -
   Um arquivo sem extensão e outro com. Ex.:
  
   Aracnfsp e Aracnfsp.idx
  
   Att,
  
   Leandro
  
   - Original Message - 
   From: plucaslazaro [EMAIL PROTECTED]
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:27 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol
  
  
  
   Qual a extensao dos arquivos??
 - Original Message - 
 From: Leandro
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 1:16 PM
 Subject: Re: [delphi-br] Abrir tabelas Cobol
  
  
 Ok, acho que é Micro Focus... mas nao tenho o cobol
   instalado... tem
   alguma
 forma de eu rodar o
 programa cobol no windows, ou no linux, sem ter que
   instalar o cobol. Ou
 algum emulador de Cobol
 para Windows/Linux.
  
 Sou leigo em Cobol, por isso tais dúvidas parecem
   imbecis :(
  
 Obrigado,
  
 Leandro
  
 - Original Message - 
 From: plucaslazaro [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 1:16 PM
 Subject: Re: [delphi-br] Abrir tabelas Cobol
  
  
  
 Leandro, toda tabela em cobol que eu saiba vc só
   abre usando o proprio
 cobol, veja qual a versao do cobol que foi usado q
   te mando um programa
   para
 gerar arquivo texto.
  
 Paulo
   - Original Message - 
   From: Leandro
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 12:03 PM
   Subject: [delphi-br] Abrir tabelas Cobol
  
  
   Olá,
  
   Estou precisando converter algumas tabelas do
   Cobol para
   Firebird. Tem alguma forma de eu abrí-las no
   Delphi ou algum
   programa que eu informe a tabela Cobol e ele
   converta para TXT ou
   outro formato reconhecido pelo Delphi?
  
   Desde já agradeço.
  
   Leandro
  
  
  
  
  
 [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
  
  
  
  
  
  
  
  
  
  
  
 -- 
  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]
  
  
  
   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:

RES: [delphi-br] Criptografai de senha

2005-03-15 Por tôpico Marcos Paulo


Se é de senha, sugiro MD5...

Para comparar, faça o md5 do input do usuario e compare com o md5 guardado..
Se forem iguais, as senhas são iguais.

Att. 


Marcos Peron

  [EMAIL PROTECTED]



-Mensagem original-
De: Claudio H.Binaghi [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 15 de março de 2005 10:37
Para: delphi-br@yahoogrupos.com.br; Delphi; Delphi no Brasil
Assunto: Re: [delphi-br] Criptografai de senha


Bom dia!

Já que ninguém respondeu até o momento, vou dar o meu palpite.

Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de
criptografia, exemplo:
(esta função Encripta e Desencripta dependendo do valor da Boolean Codifica)

function Tansforma(sTexto:String; bCodifica: Boolean; iChave:
Integer):String;
var I: Integer;
sTextoEncriptado:  String;
Begin
  sTextoEncriptado := '';
  if bCodifica then
for I := 1 to Length(sTexto) do
  sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado
  else
for I := 1 to Length(sTexto) do
  sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado;
  Result := sTextoEncriptado;
end;

Dever ser usada assim:

Valor_encriptado:= Tansforma(Texto,True,66); Valor_desencriptado:=
Tansforma(Texto,False,66);

Depois você grava normalmente no seu banco;

Qualquer necessidade fale.

Boa sorte.

Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075


- Original Message -
From: Wenceslau Miranda [EMAIL PROTECTED]
To: Delphi [EMAIL PROTECTED]; Delphi no Brasil
[EMAIL PROTECTED]; Delphi-BR
delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 9:05 AM
Subject: [delphi-br] Criptografai de senha



Amigos da lista,

Mais uam vez venho recorrer a vocês.
Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do
mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a
base de dados e abrir em outro computador com a senha padrão do banco. Sendo
assim gostaria pelo menos de criptografar a senha dos usuários do sistema em
minha base de dados.
Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas.
Alguém teria uma exemplo de como isso é feito.
Desde já agradeço.




[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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005



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




 






-- 
 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] Novo arquivo carregado em delphi-br

2005-03-15 Por tôpico delphi-br




Olá,

Esta mensagem é uma notificação para informá-lo que um novo arquivo foi 
adicionado no grupo delphi-br.

  Arquivo : /Units/md5.pas 
  Carregado por   : marcosbnu [EMAIL PROTECTED] 
  Descrição   : Unit que calcula o HASH MD5 

Você pode acessar o arquivo pela URL:

http://br.groups.yahoo.com/group/delphi-br/files/Units/md5.pas 

Para saber mais sobre compartilhamento de arquivos no grupo, leia:

http://help.yahoo.com/help/br/groups/files

Atenciosamente,

marcosbnu [EMAIL PROTECTED]
 








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

Re: [delphi-br] Contar registros no relatório denovo!

2005-03-15 Por tôpico Suporte Técnico - Henrique


qrlabel4.caption:=inttostr(query1.recordcount);
- Original Message - 
From: lyanagomes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 1:48 PM
Subject: [delphi-br] Contar registros no relatório denovo!




Tentei mas não deu certo,
fiz o seguinte:

qrlabel4.caption:=query1.recordcount;

e diz q são tipos incompativeis str e int, tentei converter mas naum
deu..





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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005




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

Re: [delphi-br] Contar registros no relatório denovo!

Você leu o que eu te enviei???

  - Original Message - 
  From: lyanagomes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 1:48 PM
  Subject: [delphi-br] Contar registros no relatório denovo!

  Tentei mas não deu certo,
  fiz o seguinte:

  qrlabel4.caption:=query1.recordcount;

  e diz q são tipos incompativeis str e int, tentei converter mas naum 
  deu..

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

Yahoo! Grupos, um serviço oferecido por: 

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  

--
  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!. 

--

  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

[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

RES: [delphi-br] Controlar Licença

2005-03-15 Por tôpico Rafael Stoever


/* 

Eu fiz um exemplo simples de controle de licença, onde utilizo criptografia
de datas p/ dificultar o acesso.

1. Primeiramente eu gravo a data inicial e final das licenças criptografadas
no banco de dados

2. E daí eu verifico se ele expirou a data.. expirando de alguma forma eu
gravo uma data criptografada lá que não existe '29/02/1991 mas lembrando..
que eu gravo até no código fonte já criptografado.. pois alguém pode abrir o
fonte algum dia.. heheheh

3. E quando expira eu utilizo um usuário LIBERAR e uma senha gerada em tempo
real para liberar uma nova data.

Ex.: HORADATASEMANA;DATAMESANO[DE LIBERACAO] isso criptografado

 

ESTA FORMA DE CONTROLE É SIMPLES PODE SER QUEBRADO facilmente!

*/

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, DateUtils;

 

type

  TForm1 = class(TForm)

function  myAbs(i: integer): Integer;

function  crypt(str:string):string;

function  decrypt(str:string):string;

procedure TravaSistemaChaveInvalida(d:string);

  private

{ Private declarations }

  public

{ Public declarations }

  end;

 

const chave = 'ABCDEFGHIJLMNOPQR123456789{}##^[EMAIL PROTECTED],;*4521021;

 

var

  Form1: TForm1;

 

//Função Simples para Criptografar String

function TForm1.crypt(str: string): string;

var

  crypted  : string;

  i,iC : integer;

begin

  crypted:='';

  for i:=1 to length(str) do begin

iC := i - length(chave);

if (ic0) then iC := i;

crypted := crypted + Chr( myAbs(Ord(str[i]) + Ord(chave[iC])));

  end;

  Result:=crypted;

end;

 

// Função Simples para Descriptografar String

function TForm1.decrypt(str: string): string;

var

  decrypted: string;

  i,iC : integer;

begin

  decrypted := '';

  for i:=1 to length(str) do begin

iC := i - length(chave);

if (ic0) then iC := i;

decrypted := decrypted + chr(myabs(ord(str[i]) - ord(chave[iC])));

  end;

  Result := decrypted;

end;

 

function TForm1.myAbs(i: integer): Integer;

begin

  if (i  255) then Result := i - 255

  else Result := i;

end;

 

// Acertando a Data

procedure AcertaPadraoData;

const

  arrShortDayNames: array[1..7] of string[3] = ('Dom','Seg','Ter','Qua',
'Qui','Sex','Sab');

  arrLongDayNames: array[1..7] of string[15] = ('Domingo','Segunda','Terça',
'Quarta','Quinta','Sexta', 'Sábado');

  arrShortMonthNames: array[1..12] of string[3] = ('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');

  arrLongMonthNames: array[1..12] of string[15] = ('Janeiro','Fevereiro',
'Março','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');

var

  ii: integer;

begin

  ShortDateFormat := 'dd/mm/';

  DecimalSeparator := '.';

  ThousandSeparator := ',';

  for ii := 1 to 7 do begin

ShortDayNames[ii] := arrShortDayNames[ii];

LongDayNames[ii] := arrLongDayNames[ii];

  end;

  for ii := 1 to 12 do begin

ShortMonthNames[ii] := arrShortMonthNames[ii];

LongMonthNames[ii] := arrLongMonthNames[ii];

  end;

  LongTimeFormat:= 'HH:mm:ss';

  TimeSeparator:=':';

end;

 

//Exemplo simples de controle de datas

procedure TForm1.FormCreate(Sender: TObject);

var

  ext : string;

begin

  AcertaPadraoData;

  ext :=
IntToStr(DayOfTheMonth(Now))+'/'+IntToStr(MonthOfTheYear(Now))+'/'+IntToStr(
YearOf(Now));

  try

if (StrToDate(ext)  StrToDate(decrypt(MyTable1CHAVEINI.AsString))) then
begin

  TravaSistemaChaveInvalida('29/02/1991');

end;

if (StrToDate(ext)  StrToDate(decrypt(MyTable1CHAVEEND.AsString))) then
begin

  TravaSistemaChaveInvalida('29/02/1991');

end;

  except

TravaSistemaChaveInvalida('29/02/1991');

  end;

end;

 

procedure TForm1.TravaSistemaChaveInvalida(d:string);

begin

  MyTable1.Edit;

  MyTable1CHAVEINI.AsString := crypt(d);

  MyTable1CHAVEEND.AsString := crypt(d);

  MyTable1.Post;

  MyTable1.ApplyUpdates;

  MyTable1.CommitUpdates;

  MyTable1.Connection.Commit;

  ShowMessage('Erro ao entrar no sistema, verifique a data de sua licença
!');

  try

Application.Terminate;

  except

  end;

end;

 

  _  

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 15 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Controlar Licença

 

Não estou conseguindo encontrar...
  - Original Message - 
  From: Rubem Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 12:12 PM
  Subject: RES: [delphi-br] Controlar Licença


  Se bem me lembro, no site da revista ClubeDelphi deve ter um exemplo de
licenciamento de aplicação. Bem simples, mas muito bom! Agora, só procurando
lá, pq eu num lembro do endereço!

  []s

  -Mensagem original-
  De: easywaysistemas [mailto:[EMAIL PROTECTED] 
  Enviada em: terça-feira, 15 de março de 2005 10:02
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Controlar

Re: [delphi-br] Contar registros no relatório denovo!

2005-03-15 Por tôpico Rodrigo Othavio Farias


vc nao tentou converter, pq se tivesse usado a funcao correta teria dado
certo


[]´s
Rodrigo O. Farias
- Original Message - 
From: lyanagomes
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 1:48 PM
Subject: [delphi-br] Contar registros no relatório denovo!



Tentei mas não deu certo,
fiz o seguinte:

qrlabel4.caption:=query1.recordcount;

e diz q são tipos incompativeis str e int, tentei converter mas naum
deu..





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



Yahoo! Grupos, um serviço oferecido por:

 São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília





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!.



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

Re: [delphi-br] Contar registros no relatório denovo!

2005-03-15 Por tôpico Emilio Córdova (pop)


tenta assim:

qrlabel4.caption := IntToStr(query1.recordcount);

===
 Emilio Córdova Silva
 [EMAIL PROTECTED]
 [EMAIL PROTECTED]
 (41) 9228-7414
- Original Message - 
From: Rodrigo Othavio Farias [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 2:42 PM
Subject: Re: [delphi-br] Contar registros no relatório denovo!



vc nao tentou converter, pq se tivesse usado a funcao correta teria dado
certo


[]´s
Rodrigo O. Farias
- Original Message - 
From: lyanagomes
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 1:48 PM
Subject: [delphi-br] Contar registros no relatório denovo!



Tentei mas não deu certo,
fiz o seguinte:

qrlabel4.caption:=query1.recordcount;

e diz q são tipos incompativeis str e int, tentei converter mas naum
deu..





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



Yahoo! Grupos, um serviço oferecido por:

 São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília





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!.



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











-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005



-- 
 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] Instalação dos componentes JEDI

2005-03-15 Por tôpico Otávio Barreto


Boa Tarde,
 
Estou tendo problemas em instalar os comonentes desta biblioteca no
Delphi 7 rodando no XP Professional com SP2, ao clicar em install.bat
ele efetua todo o processo e não chama o executavel e dá um erro dizendo
que o mesmo foi excluído.
 
Alguem poderia me ajudar com a instalação?
 
Obs: Acredito que seja algo com o suporte ao DOS do Win Xp.
 
Desde já agradeço,
 
=
Otávio Barreto de Melo
Programador
Tel: +55 21 3159-2381
Cel: +55 21 8879-5021
MSN: [EMAIL PROTECTED]
ICQ: 33276
Skype: otavioscool
=
 


[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

Re: [delphi-br] Controlar Licença

2005-03-15 Por tôpico easywaysistemas

Muito Obrigado. Conseguir implementar...
- Original Message -
From: Marcos Jordao
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 1:35 PM
Subject: Re: [delphi-br] Controlar Licença

Amigo, eu controlo da seguinte maneira:
Tenho uma tabela no banco onde armazeno: Ultimo Uso,
Codigo de Uso e Serial do HD.

Esse Código de Uso é gerado por um algoritmo que eu
criei que gera um número serial onde está contido uma
data. Tipo assim... eu informo uma data aí ele vai
realizando operações matemáticas e concatenação com
strings nos números da data. Com o processo inverso eu
obtenho uma data de tal serial.

Antes do primeiro uso eu crio um serial e com um
sisteminha de Registro coloco na tabela, junto com o
serial do HD e a primeira data de uso.

Na abertura do sistema, antes de tudo eu verifico o
serial do HD (função que você obtém fácil em sites),
se for diferente do gravado quer dizer que o sistema
está sendo rodado em máquina onde não foi licenciado.
No caso de trabalho em rede você deve ter controle de
várias linhas na tabela, uma com cada Serial de HD.

Se o Serial do HD confere, eu gravo na tabela a data
do sistema e comparo com a obtida através do serial
também armazenado na tabela, se for maior o sistema
fica travado e como a data atual já está armazenada no
Ultimo Uso, mesmo que o usuário volte a data do
sistema o sistema continua travado.

Deu pra entender?

Qualquer coisa é só escrever

Abraços

Marcos Antonio Campos Jordão

--- easywaysistemas [EMAIL PROTECTED]
wrote:
-

Alguém tem algum exemplo ou algo qualquer referente a
controle de
licença de
um sistema? Estou desenvolvendo um sistema que
funcionara por
assinatura
mensal, mas ainda não sei como controlar isto?

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

Yahoo! Grupos, um serviço oferecido por:

function SearchComboBox() {
if (document.form_combo.keyword.value.length==0){
alert(Por favor, digite algo.); return false; }else
{ document.form_combo.action

=http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;}
[input]
[input][input]

-
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!.

Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/

--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM

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

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

Yahoo! Grupos, um serviço oferecido por:

--
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!.

No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005

[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] Problema com registros!!!

2005-03-15 Por tôpico lyanagomes



Não sei o que to fazendo d errado, o fato é q naum da certo...
Preciso contar os registros dos alunos cadastrados pra imprimir os 
que vão sendo cadastrados por ultimo para nao ter q imprimir toda vez 
a mesma lista com todos, quero filtar por exemplo se foi impresso o 
total de 20, e foram cadastrados mais 10, não quero imprimir 30 mas 
sim os ultimos 10 e assim por diante... Tem como fazer???





-- 
 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] Fw: OFERTA DE EMPREGO

2005-03-15 Por tôpico Bruno Lichot - Micrologos



- Original Message - 
From: Mariano, Leo SBRASOP-OLCPCSC/31c 
To: Bruno Perrin (E-mail) 
Sent: Tuesday, March 15, 2005 10:17 AM
Subject: ENC: OFERTA DE EMPREGO



Vê se te interessa!!


Caro Fernando,

Estou oferencendo oportunidade para vaga de instrutor de curso de informática 
em Madureira nas seguintes áreas:
- Delphi
- Linux (Preferncialmente Conectiva)
- Web Designer (Pacote Macromedia)
- PhotoShop 7 e CS
- Corel Draw.

Benefícios:
- R$ 7,50 a hora aula.
- Material didático oferecido pela empresa
- Suporte para estudo.

Contatos pelo e-mail [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

Re: [delphi-br] Problema com registros!!!


Usa um flag na tabela dizendo se o aluno é novo ou não, e pronto...
Quando for impresso, muda o flag para aluno impresso, ou já utilizado, ou 
qualquer coisa assim... inventa...

É só pensar um pouco que você consegue..


  - Original Message - 
  From: lyanagomes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 3:12 PM
  Subject: [delphi-br] Problema com registros!!!



  Não sei o que to fazendo d errado, o fato é q naum da certo...
  Preciso contar os registros dos alunos cadastrados pra imprimir os 
  que vão sendo cadastrados por ultimo para nao ter q imprimir toda vez 
  a mesma lista com todos, quero filtar por exemplo se foi impresso o 
  total de 20, e foram cadastrados mais 10, não quero imprimir 30 mas 
  sim os ultimos 10 e assim por diante... Tem como fazer???





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



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  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!. 




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/3/2005


[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] Re: Sistema Comercial Integrado com Delphi 7 - Cadastro e Estoque

2005-03-15 Por tôpico andre_coury



eu ja encomendei, deve estar chegando amanha pra mim.

parece que ele é muito bom, mas pode deixar que ele chegando eu te 
falo como é.

Abraços
André L. Coury

--- Em delphi-br@yahoogrupos.com.br, Adalberto Sousa Monteiro 
[EMAIL PROTECTED] escreveu
 Bom dia todos do grupo,
 Alguem tem ou ja leu um desses livros ?
 Gostaria de saber se vale a pena compra-lo ??? E se alguém tem e 
gostaria de vende-lo ?
 
 Abraços a todos
 Adalberto.
 

 
 [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

Re: [delphi-br] Fw: OFERTA DE EMPREGO

2005-03-15 Por tôpico Fernando Oliveira


Grato pela a oportunidade, mas não conheço nada de linux a nao ser teoria.
 
Desde já
 
Fernando Oliveira

Bruno Lichot - Micrologos [EMAIL PROTECTED] wrote:

- Original Message - 
From: Mariano, Leo SBRASOP-OLCPCSC/31c 
To: Bruno Perrin (E-mail) 
Sent: Tuesday, March 15, 2005 10:17 AM
Subject: ENC: OFERTA DE EMPREGO



Vê se te interessa!!


Caro Fernando,

Estou oferencendo oportunidade para vaga de instrutor de curso de informática 
em Madureira nas seguintes áreas:
- Delphi
- Linux (Preferncialmente Conectiva)
- Web Designer (Pacote Macromedia)
- PhotoShop 7 e CS
- Corel Draw.

Benefícios:
- R$ 7,50 a hora aula.
- Material didático oferecido pela empresa
- Suporte para estudo.

Contatos pelo e-mail [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]



Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba 
Porto Alegre Belo Horizonte Brasília 

-
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!. 


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

[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] Erro com XML e ClienteDataSet


Olá amigos

Estou com um problema que não consigo solucionar...estou utilizando 
um arquivo XML como base de dados local com o ClientDataSet, só que 
depois de achar um determinado registro na pequena base que tenho, e 
editar um determinado campo booleano, dá erro no Post...

AgendasCDS: Provedor de Dados ou Base de Dados perdidos 

Alguém sabe o que é isto?

Atenciosamente

Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]

Telefones escritório: (11) 6996-1101/6994-3586
celular: (11) 9259-4094



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05



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

Re: [delphi-br] Erro com XML e ClienteDataSet

2005-03-15 Por tôpico Francisco Thiago


Por algum motivo o CDS está perdendo a referência ao arquivo que você tem 
com base.
Atribua a localização deste arquivo na propriedade FileName. Isso deve 
resolver o seu problema

Espero ter ajudado

Francisco Thiago de Almeida
EnterPlug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago

- Original Message - 
From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 4:51 PM
Subject: [delphi-br] Erro com XML e ClienteDataSet



 Olá amigos

 Estou com um problema que não consigo solucionar...estou utilizando
 um arquivo XML como base de dados local com o ClientDataSet, só que
 depois de achar um determinado registro na pequena base que tenho, e
 editar um determinado campo booleano, dá erro no Post...

 AgendasCDS: Provedor de Dados ou Base de Dados perdidos

 Alguém sabe o que é isto?

 Atenciosamente

 Oswaldo dos Santos Araujo
 http://www.santosaraujo.com.br
 mailto:[EMAIL PROTECTED]

 Telefones escritório: (11) 6996-1101/6994-3586
 celular: (11) 9259-4094



 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05



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








 





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

Re: [delphi-br] Controlar Licença

2005-03-15 Por tôpico Gabriel Ferrarini

Creio que se isso acontecer o sistema será, em partes, inútil para o cliente 
pois grande parte dos processamentos e geração de relatórios se baseia em 
datas, principalmente Contas a Pagar e Contas a Receber.

Gabriel.
  - Original Message - 
  From: [EMAIL PROTECTED] 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 4:35 PM
  Subject: Re: [delphi-br] Controlar Licença

  Mas existe um problema.
  Supondo que o vencimento da licença seja em 31/03/2005 e se o usuário sempre 
mantiver a data do sistema em 30/03/2005 não vai bloquear...

  - Original Message - 
From: Marcos Jordao 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, March 15, 2005 1:35 PM
Subject: Re: [delphi-br] Controlar Licença

Amigo, eu controlo da seguinte maneira:
Tenho uma tabela no banco onde armazeno: Ultimo Uso,
Codigo de Uso e Serial do HD.

Esse Código de Uso é gerado por um algoritmo que eu
criei que gera um número serial onde está contido uma
data. Tipo assim... eu informo uma data aí ele vai
realizando operações matemáticas e concatenação com
strings nos números da data. Com o processo inverso eu
obtenho uma data de tal serial.

Antes do primeiro uso eu crio um serial e com um
sisteminha de Registro coloco na tabela, junto com o
serial do HD e a primeira data de uso.

Na abertura do sistema, antes de tudo eu verifico o
serial do HD (função que você obtém fácil em sites),
se for diferente do gravado quer dizer que o sistema
está sendo rodado em máquina onde não foi licenciado.
No caso de trabalho em rede você deve ter controle de
várias linhas na tabela, uma com cada Serial de HD.

Se o Serial do HD confere, eu gravo na tabela a data
do sistema e comparo com a obtida através do serial
também armazenado na tabela, se for maior o sistema
fica travado e como a data atual já está armazenada no
Ultimo Uso, mesmo que o usuário volte a data do
sistema o sistema continua travado.

Deu pra entender?

Qualquer coisa é só escrever

Abraços

Marcos Antonio Campos Jordão

--- easywaysistemas [EMAIL PROTECTED]
wrote:
-

Alguém tem algum exemplo ou algo qualquer referente a
controle de 
licença de 
um sistema? Estou desenvolvendo um sistema que
funcionara por 
assinatura 
mensal, mas ainda não sei como controlar isto? 

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

Yahoo! Grupos, um serviço oferecido por:  

   function SearchComboBox() {
if (document.form_combo.keyword.value.length==0){ 
alert(Por favor, digite algo.);  return false; }else
{  document.form_combo.action

=http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;}   
  [input] 
  [input][input]  

-
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!.

Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

  Yahoo! Grupos, um serviço oferecido por: 

  --
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!. 

  --

No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005

  [As partes desta mensagem que não continham texto

Re: [delphi-br] Controlar Licença

2005-03-15 Por tôpico Gabriel Ferrarini

Outra opção é buscar a data do observatório nacional, no caso de o computador 
possuir internet.

Gabriel.
  - Original Message - 
  From: [EMAIL PROTECTED] 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 4:35 PM
  Subject: Re: [delphi-br] Controlar Licença

  Mas existe um problema.
  Supondo que o vencimento da licença seja em 31/03/2005 e se o usuário sempre 
mantiver a data do sistema em 30/03/2005 não vai bloquear...

  - Original Message - 
From: Marcos Jordao 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, March 15, 2005 1:35 PM
Subject: Re: [delphi-br] Controlar Licença

Amigo, eu controlo da seguinte maneira:
Tenho uma tabela no banco onde armazeno: Ultimo Uso,
Codigo de Uso e Serial do HD.

Esse Código de Uso é gerado por um algoritmo que eu
criei que gera um número serial onde está contido uma
data. Tipo assim... eu informo uma data aí ele vai
realizando operações matemáticas e concatenação com
strings nos números da data. Com o processo inverso eu
obtenho uma data de tal serial.

Antes do primeiro uso eu crio um serial e com um
sisteminha de Registro coloco na tabela, junto com o
serial do HD e a primeira data de uso.

Na abertura do sistema, antes de tudo eu verifico o
serial do HD (função que você obtém fácil em sites),
se for diferente do gravado quer dizer que o sistema
está sendo rodado em máquina onde não foi licenciado.
No caso de trabalho em rede você deve ter controle de
várias linhas na tabela, uma com cada Serial de HD.

Se o Serial do HD confere, eu gravo na tabela a data
do sistema e comparo com a obtida através do serial
também armazenado na tabela, se for maior o sistema
fica travado e como a data atual já está armazenada no
Ultimo Uso, mesmo que o usuário volte a data do
sistema o sistema continua travado.

Deu pra entender?

Qualquer coisa é só escrever

Abraços

Marcos Antonio Campos Jordão

--- easywaysistemas [EMAIL PROTECTED]
wrote:
-

Alguém tem algum exemplo ou algo qualquer referente a
controle de 
licença de 
um sistema? Estou desenvolvendo um sistema que
funcionara por 
assinatura 
mensal, mas ainda não sei como controlar isto? 

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

Yahoo! Grupos, um serviço oferecido por:  

   function SearchComboBox() {
if (document.form_combo.keyword.value.length==0){ 
alert(Por favor, digite algo.);  return false; }else
{  document.form_combo.action

=http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;}   
  [input] 
  [input][input]  

-
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!.

Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

  Yahoo! Grupos, um serviço oferecido por: 

  --
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!. 

  --

No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005

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

  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens

Re: [delphi-br] Erro com XML e ClienteDataSet


Olá 

O FileName está correto, chequei em tempo de execução tb...é 
realmente olhe que interessante..
procedure TAvisoProvidenciaForm.FormCreate(Sender: TObject);
begin
   ADVResidenteMain.ADVResDM.AgendasCDS.Open;
   ADVResidenteMain.ADVResDM.AgendasCDS.First;
   if 
ADVResidenteMain.ADVResDM.AgendasCDS.Locate('CodigoCliente;CodigoCaso;
NroEvento', 
VarArrayOf([CodigoClienteAtual,CodigoCasoAtual,NroEventoAtual]), []) 
then
  begin
 ADVResidenteMain.ADVResDM.AgendasCDS.Edit;
 ADVResidenteMain.ADVResDM.AgendasCDSAvisoAtivo.Value:=True;
 ADVResidenteMain.ADVResDM.AgendasCDS.Post;  //Aqui dá o erro
 ADVResidenteMain.ADVResDM.AgendasCDS.ApplyUpdates(-1);
  end
   else
  close;

o erro dá no POST...


On 15 Mar 2005 at 16:56, Francisco Thiago wrote:

 
 Por algum motivo o CDS está perdendo a referência ao arquivo que você
 tem com base. Atribua a localização deste arquivo na propriedade
 FileName. Isso deve resolver o seu problema
 
 Espero ter ajudado
 
 Francisco Thiago de Almeida
 EnterPlug Informática
 Divisão: Desenvolvimento e Banco de dados
 MSN: [EMAIL PROTECTED]
 Skype: enterplug_thiago
 
 - Original Message - 
 From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Tuesday, March 15, 2005 4:51 PM
 Subject: [delphi-br] Erro com XML e ClienteDataSet
 
 
 
  Olá amigos
 
  Estou com um problema que não consigo solucionar...estou utilizando
  um arquivo XML como base de dados local com o ClientDataSet, só que
  depois de achar um determinado registro na pequena base que tenho, e
  editar um determinado campo booleano, dá erro no Post...
 
  AgendasCDS: Provedor de Dados ou Base de Dados perdidos
 
  Alguém sabe o que é isto?
 
  Atenciosamente
 
  Oswaldo dos Santos Araujo
  http://www.santosaraujo.com.br
  mailto:[EMAIL PROTECTED]
 
  Telefones escritório: (11) 6996-1101/6994-3586
  celular: (11) 9259-4094
 
 
 
  -- 
  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05
 
 
 
  -- 
   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
 
 
 
 
 
 
 
 
  
 
 
 
 
 
 -- 
  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]
 
 
 

Atenciosamente

Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]

Telefones escritório: (11) 6996-1101/6994-3586
celular: (11) 9259-4094



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05



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

Re: [delphi-br] Controlar Licença


Ola

Existe um componente free TregwareII que pode ser usado por vcs...Eu 
peguei no Torry há algum tempo...

Atenciosamente

Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]

On 15 Mar 2005 at 16:59, Gabriel Ferrarini wrote:

 
 Creio que se isso acontecer o sistema será, em partes, inútil para o
 cliente pois grande parte dos processamentos e geração de relatórios
 se baseia em datas, principalmente Contas a Pagar e Contas a Receber.
 
 Gabriel.
  - Original Message - 
  From: [EMAIL PROTECTED] 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 4:35 PM
  Subject: Re: [delphi-br] Controlar Licença
 
 
  Mas existe um problema.
  Supondo que o vencimento da licença seja em 31/03/2005 e se o 
 usuário sempre mantiver a data do sistema em 30/03/2005 não vai 
 bloquear...
 
  - Original Message - 
  From: Marcos Jordao 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 15, 2005 1:35 PM
  Subject: Re: [delphi-br] Controlar Licença
 
 
  Amigo, eu controlo da seguinte maneira:
  Tenho uma tabela no banco onde armazeno: Ultimo Uso,
  Codigo de Uso e Serial do HD.
 
  Esse Código de Uso é gerado por um algoritmo que eu
  criei que gera um número serial onde está contido uma
  data. Tipo assim... eu informo uma data aí ele vai
  realizando operações matemáticas e concatenação com
  strings nos números da data. Com o processo inverso eu
  obtenho uma data de tal serial.
 
  Antes do primeiro uso eu crio um serial e com um
  sisteminha de Registro coloco na tabela, junto com o
  serial do HD e a primeira data de uso.
 
  Na abertura do sistema, antes de tudo eu verifico o
  serial do HD (função que você obtém fácil em sites),
  se for diferente do gravado quer dizer que o sistema
  está sendo rodado em máquina onde não foi licenciado.
  No caso de trabalho em rede você deve ter controle de
  várias linhas na tabela, uma com cada Serial de HD.
 
  Se o Serial do HD confere, eu gravo na tabela a data
  do sistema e comparo com a obtida através do serial
  também armazenado na tabela, se for maior o sistema
  fica travado e como a data atual já está armazenada no
  Ultimo Uso, mesmo que o usuário volte a data do
  sistema o sistema continua travado.
 
  Deu pra entender?
 
  Qualquer coisa é só escrever
 
  Abraços
 
  Marcos Antonio Campos Jordão
 
 
  --- easywaysistemas [EMAIL PROTECTED]
  wrote:
  -
 
  Alguém tem algum exemplo ou algo qualquer referente a
  controle de 
  licença de 
  um sistema? Estou desenvolvendo um sistema que
  funcionara por 
  assinatura 
  mensal, mas ainda não sei como controlar isto? 
 
 
 
 
 
  -- 
   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]
 
 
 
  Yahoo! Grupos, um serviço oferecido por: 
 
  function SearchComboBox() {
  if (document.form_combo.keyword.value.length==0){ 
  alert(Por favor, digite algo.); return false; }else
  { document.form_combo.action
 
 =http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.158805
 1/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn
 /*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
  } return true;} 
  [input] 
  [input] [input] 
 
 
  -
  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!.
 
 
 
 
 
  Yahoo! Mail - Com 250MB de espaço. Abra sua conta! 
 http://mail.yahoo.com.br/
 
 
  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 
 
  Yahoo! Grupos, um serviço oferecido por: 
 
 
 
 
 
 
 
  
 --
  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!. 
 
 
 
 
  
 --
 
 
  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 
 11/03/2005
 
 
  [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

Re: Abrir tabelas Cobol RES: [delphi-br] Resumo 5568

2005-03-15 Por tôpico almir


Leandro, se as tabelas tiverem sido criadas pelo Cobol Realia (Computer
Associates), estas tabelas são c-tree. A extensão regular das tabelas
c-tree é .dat e .idx, como você tem no seu sistema. 

Caso você queira, eu posso dar uma olhada se são c-tree ou não. Se você
tiver interesse, pode me passar uma tabela (apenas o .dat) para que eu
veja aqui. Se você preferir, posso te enviar um programa que verifica se
a tabela é ctree ou não. Se for c-tree, você pode utilizar um componente
VCL por exemplo para abrir as tabelas e, se for o caso, converter.
Abraços,

PS - pessoal, assino a lista como resumo e não tenho certeza se esta é
a melhor forma de enviar um reply ou não. Caso eu tenha cometido
qualquer erro, por favor me avisem. Grato,

Almir Fernandes 
Diretor Operacional 
FairCom do Brasil Ltda. 
Fone: 55-11-3872-9802 
Fax:  55-11-3875-1309
Email:  [EMAIL PROTECTED]
www.faircom.com.br 
 
FairCom. Providing engineering level, cross-platform database
development tools since 1979
 
Notice: The information enclosed in this electronic mail message,
including any attachments, is the confidential property of FairCom
Corporation. All rights reserved under copyright and applicable laws.
Use of FairCom software and/or source code contained in this email or an
attachment thereto or accessed through any enclosed link will be subject
to all terms of any contracts in effect between FairCom and the
recipient. If you are unsure of the meaning or applicability of any
terms of such agreements, before downloading or accessing the software
you should seek advice of counsel or contact FairCom's contract
department for clarification.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 15 de março de 2005 15:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Resumo 5568


 Mensagem: 10
 Data: Tue, 15 Mar 2005 13:02:52 -0300
   De: Leandro [EMAIL PROTECTED]
  Assunto: Re: Abrir tabelas Cobol

Evandro

Tem como vc me enviar esse programa?

Obrigado,

Leandro

- Original Message - 
From: Evandro Aguiar Nascimento [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, March 14, 2005 5:50 PM
Subject: Re: [delphi-br] Abrir tabelas Cobol



 A Tabela sem extensão é uma tabela .dat, a outra é uma
 tabla de indice, igual aos indices do dbase, quase
 sempre, essas tabelas são protegidas por senha, então,
 acho que voce terá que saber qual a senha. Dá uma
 olhada na máquina aonde voce consegui essas tabelas,
 talvez tenha por lá algum arquivo com a extensão .cob,
 código fonte do cobol, dentro deles voce encontrará a
 senha para abir as tabelas.

 Eu tenho arui um programa que abre essas tabelas, se
 oc equiser, eu te envio, é um programa de
 demonstração.


 Evandro Aguiar Nascimento

 --- Leandro [EMAIL PROTECTED] wrote:

 -
 Um arquivo sem extensão e outro com. Ex.:

 Aracnfsp e Aracnfsp.idx

 Att,

 Leandro

 - Original Message - 
 From: plucaslazaro [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 1:27 PM
 Subject: Re: [delphi-br] Abrir tabelas Cobol



 Qual a extensao dos arquivos??
   - Original Message - 
   From: Leandro
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:16 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol


   Ok, acho que é Micro Focus... mas nao tenho o cobol
 instalado... tem
 alguma
   forma de eu rodar o
   programa cobol no windows, ou no linux, sem ter que
 instalar o cobol. Ou
   algum emulador de Cobol
   para Windows/Linux.

   Sou leigo em Cobol, por isso tais dúvidas parecem
 imbecis :(

   Obrigado,

   Leandro

   - Original Message - 
   From: plucaslazaro [EMAIL PROTECTED]
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:16 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol



   Leandro, toda tabela em cobol que eu saiba vc só
 abre usando o proprio
   cobol, veja qual a versao do cobol que foi usado q
 te mando um programa
 para
   gerar arquivo texto.

   Paulo
 - Original Message - 
 From: Leandro
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 12:03 PM
 Subject: [delphi-br] Abrir tabelas Cobol


 Olá,

 Estou precisando converter algumas tabelas do
 Cobol para
 Firebird. Tem alguma forma de eu abrí-las no
 Delphi ou algum
 programa que eu informe a tabela Cobol e ele
 converta para TXT ou
 outro formato reconhecido pelo Delphi?

 Desde já agradeço.

 Leandro





   [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

Re: [delphi-br] Erro com XML e ClienteDataSet

2005-03-15 Por tôpico Francisco Thiago


Olha, se você está usando arquivos, o ApplyUpdates é desnecessário. Você 
pode setar também a propriedade LogChanges para false.

Voltando ao problema

É interessante o erro dar apenas no post...
Você não teria um DataSetProvider ligado a este CDS, teria?
Existe alguma outra propriedade modificada do padrão do CDS (algo que 
podesse gerar erro)... exemplo... PacketRecords...
Depure o post com F7 e veja onde pára, ou onde dá o erro...
O DataSet (clique de direita em cima do CDS) está criado em tempo de 
projeto?

Se continuar dando erros, verfique como está o arquivo XML (se não tem algo 
errado nele) e experimente usar arquivos binários (.cds)

Francisco Thiago de Almeida
EnterPlug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago



- Original Message - 
From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
To: Francisco Thiago [EMAIL PROTECTED]; 
delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 5:36 PM
Subject: Re: [delphi-br] Erro com XML e ClienteDataSet



 Olá

 O FileName está correto, chequei em tempo de execução tb...é
 realmente olhe que interessante..
 procedure TAvisoProvidenciaForm.FormCreate(Sender: TObject);
 begin
   ADVResidenteMain.ADVResDM.AgendasCDS.Open;
   ADVResidenteMain.ADVResDM.AgendasCDS.First;
   if
 ADVResidenteMain.ADVResDM.AgendasCDS.Locate('CodigoCliente;CodigoCaso;
 NroEvento',
 VarArrayOf([CodigoClienteAtual,CodigoCasoAtual,NroEventoAtual]), [])
 then
  begin
 ADVResidenteMain.ADVResDM.AgendasCDS.Edit;
 ADVResidenteMain.ADVResDM.AgendasCDSAvisoAtivo.Value:=True;
 ADVResidenteMain.ADVResDM.AgendasCDS.Post;  //Aqui dá o erro
 ADVResidenteMain.ADVResDM.AgendasCDS.ApplyUpdates(-1);
  end
   else
  close;

 o erro dá no POST...


 On 15 Mar 2005 at 16:56, Francisco Thiago wrote:


 Por algum motivo o CDS está perdendo a referência ao arquivo que você
 tem com base. Atribua a localização deste arquivo na propriedade
 FileName. Isso deve resolver o seu problema

 Espero ter ajudado

 Francisco Thiago de Almeida
 EnterPlug Informática
 Divisão: Desenvolvimento e Banco de dados
 MSN: [EMAIL PROTECTED]
 Skype: enterplug_thiago

 - Original Message - 
 From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Tuesday, March 15, 2005 4:51 PM
 Subject: [delphi-br] Erro com XML e ClienteDataSet


 
  Olá amigos
 
  Estou com um problema que não consigo solucionar...estou utilizando
  um arquivo XML como base de dados local com o ClientDataSet, só que
  depois de achar um determinado registro na pequena base que tenho, e
  editar um determinado campo booleano, dá erro no Post...
 
  AgendasCDS: Provedor de Dados ou Base de Dados perdidos
 
  Alguém sabe o que é isto?
 
  Atenciosamente
 
  Oswaldo dos Santos Araujo
  http://www.santosaraujo.com.br
  mailto:[EMAIL PROTECTED]
 
  Telefones escritório: (11) 6996-1101/6994-3586
  celular: (11) 9259-4094
 
 
 
  -- 
  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05
 
 
 
  -- 
   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
 
 
 
 
 
 
 
 
 





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




 Atenciosamente

 Oswaldo dos Santos Araujo
 http://www.santosaraujo.com.br
 mailto:[EMAIL PROTECTED]

 Telefones escritório: (11) 6996-1101/6994-3586
 celular: (11) 9259-4094



 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05



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








 





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

Re: [delphi-br] Erro com XML e ClienteDataSet

2005-03-15 Por tôpico CPD \(Borborema-Imperial Transportes Ltda\)


Olá

Perguntas...Onde eu mudo o LogChanges?? Não é visível em tempo de 
projeto do D6...o padrão do PacketRecords é -1?

Oswaldo

On 15 Mar 2005 at 17:53, Francisco Thiago wrote:

 
 Olha, se você está usando arquivos, o ApplyUpdates é desnecessário.
 Você pode setar também a propriedade LogChanges para false.
 
 Voltando ao problema
 
 É interessante o erro dar apenas no post...
 Você não teria um DataSetProvider ligado a este CDS, teria?
 Existe alguma outra propriedade modificada do padrão do CDS (algo que
 podesse gerar erro)... exemplo... PacketRecords... Depure o post com
 F7 e veja onde pára, ou onde dá o erro... 

O DataSet (clique de direita
 em cima do CDS) está criado em tempo de projeto?
 
 Se continuar dando erros, verfique como está o arquivo XML (se não tem
 algo errado nele) e experimente usar arquivos binários (.cds)
 
 Francisco Thiago de Almeida
 EnterPlug Informática
 Divisão: Desenvolvimento e Banco de dados
 MSN: [EMAIL PROTECTED]
 Skype: enterplug_thiago
 
 
 
 - Original Message - 
 From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
 To: Francisco Thiago [EMAIL PROTECTED]; 
 delphi-br@yahoogrupos.com.br
 Sent: Tuesday, March 15, 2005 5:36 PM
 Subject: Re: [delphi-br] Erro com XML e ClienteDataSet
 
 
 
  Olá
 
  O FileName está correto, chequei em tempo de execução tb...é
  realmente olhe que interessante..
  procedure TAvisoProvidenciaForm.FormCreate(Sender: TObject);
  begin
  ADVResidenteMain.ADVResDM.AgendasCDS.Open;
  ADVResidenteMain.ADVResDM.AgendasCDS.First;
  if
  
 ADVResidenteMain.ADVResDM.AgendasCDS.Locate('CodigoCliente;CodigoCaso;
  NroEvento', 
 VarArrayOf([CodigoClienteAtual,CodigoCasoAtual,NroEventoAtual]), []) 
 then  begin  ADVResidenteMain.ADVResDM.AgendasCDS.Edit; 
 ADVResidenteMain.ADVResDM.AgendasCDSAvisoAtivo.Value:=True; 
 ADVResidenteMain.ADVResDM.AgendasCDS.Post; //Aqui dá o erro 
 ADVResidenteMain.ADVResDM.AgendasCDS.ApplyUpdates(-1);  end  else 
 close;   o erro dá no POST...On 15 Mar 2005 at 16:56,
 Francisco Thiago wrote:Por algum motivo o CDS está perdendo a
 referência ao arquivo que você  tem com base. Atribua a localização
 deste arquivo na propriedade  FileName. Isso deve resolver o seu
 problema   Espero ter ajudado   Francisco Thiago de Almeida 
 EnterPlug Informática  Divisão: Desenvolvimento e Banco de dados 
 MSN: [EMAIL PROTECTED]  Skype: enterplug_thiago   -
 Original Message -  From: Oswaldo dos Santos Araujo
 [EMAIL PROTECTED]  To: delphi-br@yahoogrupos.com.br 
 Sent: Tuesday, March 15, 2005 4:51 PM  Subject: [delphi-br] Erro com
 XML e ClienteDataSet   Olá amigos Estou com um
 problema que não consigo solucionar...estou utilizando   um arquivo
 XML como base de dados local com o ClientDataSet, só que   depois
 de achar um determinado registro na pequena base que tenho, e  
 editar um determinado campo booleano, dá erro no Post...
 AgendasCDS: Provedor de Dados ou Base de Dados perdidos
 Alguém sabe o que é isto? Atenciosamente Oswaldo
 dos Santos Araujo   http://www.santosaraujo.com.br  
 mailto:[EMAIL PROTECTED] Telefones escritório:
   --   No virus found in this outgoing message.   Checked by
 AVG Anti-Virus.   Version: 7.0.308 / Virus Database: 266.7.2 -



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05



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

Re: [delphi-br] Erro com XML e ClienteDataSet

2005-03-15 Por tôpico Francisco Thiago


 Perguntas...Onde eu mudo o LogChanges?? Não é visível em tempo de
Em algum evento da aplicação (onCreate do form, por exemplo)

ClientDataSet.LogChanges := False;

o padrão do PacketRecords é -1?
Sim

- Original Message - 
From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
To: Francisco Thiago [EMAIL PROTECTED]; 
delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 6:08 PM
Subject: Re: [delphi-br] Erro com XML e ClienteDataSet



 Olá

 Perguntas...Onde eu mudo o LogChanges?? Não é visível em tempo de
 projeto do D6...o padrão do PacketRecords é -1?

 Oswaldo

 On 15 Mar 2005 at 17:53, Francisco Thiago wrote:


 Olha, se você está usando arquivos, o ApplyUpdates é desnecessário.
 Você pode setar também a propriedade LogChanges para false.

 Voltando ao problema

 É interessante o erro dar apenas no post...
 Você não teria um DataSetProvider ligado a este CDS, teria?
 Existe alguma outra propriedade modificada do padrão do CDS (algo que
 podesse gerar erro)... exemplo... PacketRecords... Depure o post com
 F7 e veja onde pára, ou onde dá o erro...

O DataSet (clique de direita
 em cima do CDS) está criado em tempo de projeto?

 Se continuar dando erros, verfique como está o arquivo XML (se não tem
 algo errado nele) e experimente usar arquivos binários (.cds)

 Francisco Thiago de Almeida
 EnterPlug Informática
 Divisão: Desenvolvimento e Banco de dados
 MSN: [EMAIL PROTECTED]
 Skype: enterplug_thiago



 - Original Message - 
 From: Oswaldo dos Santos Araujo [EMAIL PROTECTED]
 To: Francisco Thiago [EMAIL PROTECTED];
 delphi-br@yahoogrupos.com.br
 Sent: Tuesday, March 15, 2005 5:36 PM
 Subject: Re: [delphi-br] Erro com XML e ClienteDataSet


 
  Olá
 
  O FileName está correto, chequei em tempo de execução tb...é
  realmente olhe que interessante..
  procedure TAvisoProvidenciaForm.FormCreate(Sender: TObject);
  begin
  ADVResidenteMain.ADVResDM.AgendasCDS.Open;
  ADVResidenteMain.ADVResDM.AgendasCDS.First;
  if
 
 ADVResidenteMain.ADVResDM.AgendasCDS.Locate('CodigoCliente;CodigoCaso;
  NroEvento', 
 VarArrayOf([CodigoClienteAtual,CodigoCasoAtual,NroEventoAtual]), []) 
 then  begin  ADVResidenteMain.ADVResDM.AgendasCDS.Edit; 
 ADVResidenteMain.ADVResDM.AgendasCDSAvisoAtivo.Value:=True; 
 ADVResidenteMain.ADVResDM.AgendasCDS.Post; //Aqui dá o erro 
 ADVResidenteMain.ADVResDM.AgendasCDS.ApplyUpdates(-1);  end  else 
 close;   o erro dá no POST...On 15 Mar 2005 at 16:56,
 Francisco Thiago wrote:Por algum motivo o CDS está perdendo a
 referência ao arquivo que você  tem com base. Atribua a localização
 deste arquivo na propriedade  FileName. Isso deve resolver o seu
 problema   Espero ter ajudado   Francisco Thiago de Almeida 
 EnterPlug Informática  Divisão: Desenvolvimento e Banco de dados 
 MSN: [EMAIL PROTECTED]  Skype: enterplug_thiago   -
 Original Message -  From: Oswaldo dos Santos Araujo
 [EMAIL PROTECTED]  To: delphi-br@yahoogrupos.com.br 
 Sent: Tuesday, March 15, 2005 4:51 PM  Subject: [delphi-br] Erro com
 XML e ClienteDataSet   Olá amigos Estou com um
 problema que não consigo solucionar...estou utilizando   um arquivo
 XML como base de dados local com o ClientDataSet, só que   depois
 de achar um determinado registro na pequena base que tenho, e  
 editar um determinado campo booleano, dá erro no Post...
 AgendasCDS: Provedor de Dados ou Base de Dados perdidos
 Alguém sabe o que é isto? Atenciosamente Oswaldo
 dos Santos Araujo   http://www.santosaraujo.com.br  
 mailto:[EMAIL PROTECTED] Telefones escritório:
   --   No virus found in this outgoing message.   Checked by
 AVG Anti-Virus.   Version: 7.0.308 / Virus Database: 266.7.2 -



 -- 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/05



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








 





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

RES: [delphi-br] Controlar Licença

2005-03-15 Por tôpico Rafael Stoever


/* 

Eu fiz um exemplo simples de controle de licença, onde utilizo
criptografia de datas p/ dificultar o acesso.

1. Primeiramente eu gravo a data inicial e final das licenças
criptografadas no banco de dados

2. E daí eu verifico se ele expirou a data.. expirando de alguma forma
eu gravo uma data criptografada lá que não existe '29/02/1991' mas
lembrando.. que eu gravo até no código fonte já criptografado.. pois
alguém pode abrir o fonte algum dia.. heheheh

3. E quando expira eu utilizo um usuário LIBERAR e uma senha gerada em
tempo real para liberar uma nova data.

Ex.: HORADATASEMANA;DATAMESANO[DE LIBERACAO] isso criptografado

 

ESTA FORMA DE CONTROLE É SIMPLES PODE SER QUEBRADO facilmente!

*/

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, DateUtils;

 

type

  TForm1 = class(TForm)

function  myAbs(i: integer): Integer;

function  crypt(str:string):string;

function  decrypt(str:string):string;

procedure TravaSistemaChaveInvalida(d:string);

  private

{ Private declarations }

  public

{ Public declarations }

  end;

 

const chave = 'ABCDEFGHIJLMNOPQR123456789{}##^[EMAIL PROTECTED],;*4521021';

 

var

  Form1: TForm1;

 

//Função Simples para Criptografar String

function TForm1.crypt(str: string): string;

var

  crypted  : string;

  i,iC : integer;

begin

  crypted:='';

  for i:=1 to length(str) do begin

iC := i - length(chave);

if (ic0) then iC := i;

crypted := crypted + Chr( myAbs(Ord(str[i]) + Ord(chave[iC])));

  end;

  Result:=crypted;

end;

 

// Função Simples para Descriptografar String

function TForm1.decrypt(str: string): string;

var

  decrypted: string;

  i,iC : integer;

begin

  decrypted := '';

  for i:=1 to length(str) do begin

iC := i - length(chave);

if (ic0) then iC := i;

decrypted := decrypted + chr(myabs(ord(str[i]) - ord(chave[iC])));

  end;

  Result := decrypted;

end;

 

function TForm1.myAbs(i: integer): Integer;

begin

  if (i  255) then Result := i - 255

  else Result := i;

end;

 

// Acertando a Data

procedure AcertaPadraoData;

const

  arrShortDayNames: array[1..7] of string[3] =
('Dom','Seg','Ter','Qua', 'Qui','Sex','Sab');

  arrLongDayNames: array[1..7] of string[15] =
('Domingo','Segunda','Terça', 'Quarta','Quinta','Sexta', 'Sábado');

  arrShortMonthNames: array[1..12] of string[3] =
('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');

  arrLongMonthNames: array[1..12] of string[15] =
('Janeiro','Fevereiro', 'Março','Abril','Maio',
'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');

var

  ii: integer;

begin

  ShortDateFormat := 'dd/mm/';

  DecimalSeparator := '.';

  ThousandSeparator := ',';

  for ii := 1 to 7 do begin

ShortDayNames[ii] := arrShortDayNames[ii];

LongDayNames[ii] := arrLongDayNames[ii];

  end;

  for ii := 1 to 12 do begin

ShortMonthNames[ii] := arrShortMonthNames[ii];

LongMonthNames[ii] := arrLongMonthNames[ii];

  end;

  LongTimeFormat:= 'HH:mm:ss';

  TimeSeparator:=':';

end;

 

//Exemplo simples de controle de datas

procedure TForm1.FormCreate(Sender: TObject);

var

  ext : string;

begin

  AcertaPadraoData;

  ext := 
IntToStr(DayOfTheMonth(Now))+'/'+IntToStr(MonthOfTheYear(Now))+'/'+IntToStr(YearOf(Now));

  try

if (StrToDate(ext) 
StrToDate(decrypt(MyTable1CHAVEINI.AsString))) then begin

  TravaSistemaChaveInvalida('29/02/1991');

end;

if (StrToDate(ext) 
StrToDate(decrypt(MyTable1CHAVEEND.AsString))) then begin

  TravaSistemaChaveInvalida('29/02/1991');

end;

  except

TravaSistemaChaveInvalida('29/02/1991');

  end;

end;

 

procedure TForm1.TravaSistemaChaveInvalida(d:string);

begin

  MyTable1.Edit;

  MyTable1CHAVEINI.AsString := crypt(d);

  MyTable1CHAVEEND.AsString := crypt(d);

  MyTable1.Post;

  MyTable1.ApplyUpdates;

  MyTable1.CommitUpdates;

  MyTable1.Connection.Commit;

  ShowMessage('Erro ao entrar no sistema, verifique a data de sua licença !');

  try

Application.Terminate;

  except

  end;

end;


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

Re: Abrir tabelas Cobol RES: [delphi-br] Resumo 5568

2005-03-15 Por tôpico Leandro


Almir,

Muito obrigado... estou te enviando duas tabelas para verificação.

Desde já agradeço a atenção.

Leandro

- Original Message - 
From: almir [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 5:56 PM
Subject: Re: Abrir tabelas Cobol RES: [delphi-br] Resumo 5568



Leandro, se as tabelas tiverem sido criadas pelo Cobol Realia (Computer
Associates), estas tabelas são c-tree. A extensão regular das tabelas
c-tree é .dat e .idx, como você tem no seu sistema.

Caso você queira, eu posso dar uma olhada se são c-tree ou não. Se você
tiver interesse, pode me passar uma tabela (apenas o .dat) para que eu
veja aqui. Se você preferir, posso te enviar um programa que verifica se
a tabela é ctree ou não. Se for c-tree, você pode utilizar um componente
VCL por exemplo para abrir as tabelas e, se for o caso, converter.
Abraços,

PS - pessoal, assino a lista como resumo e não tenho certeza se esta é
a melhor forma de enviar um reply ou não. Caso eu tenha cometido
qualquer erro, por favor me avisem. Grato,

Almir Fernandes
Diretor Operacional
FairCom do Brasil Ltda.
Fone: 55-11-3872-9802
Fax: 55-11-3875-1309
Email: [EMAIL PROTECTED]
www.faircom.com.br

FairCom. Providing engineering level, cross-platform database
development tools since 1979

Notice: The information enclosed in this electronic mail message,
including any attachments, is the confidential property of FairCom
Corporation. All rights reserved under copyright and applicable laws.
Use of FairCom software and/or source code contained in this email or an
attachment thereto or accessed through any enclosed link will be subject
to all terms of any contracts in effect between FairCom and the
recipient. If you are unsure of the meaning or applicability of any
terms of such agreements, before downloading or accessing the software
you should seek advice of counsel or contact FairCom's contract
department for clarification.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de março de 2005 15:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Resumo 5568


 Mensagem: 10
 Data: Tue, 15 Mar 2005 13:02:52 -0300
   De: Leandro [EMAIL PROTECTED]
  Assunto: Re: Abrir tabelas Cobol

Evandro

Tem como vc me enviar esse programa?

Obrigado,

Leandro

- Original Message - 
From: Evandro Aguiar Nascimento [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, March 14, 2005 5:50 PM
Subject: Re: [delphi-br] Abrir tabelas Cobol



 A Tabela sem extensão é uma tabela .dat, a outra é uma
 tabla de indice, igual aos indices do dbase, quase
 sempre, essas tabelas são protegidas por senha, então,
 acho que voce terá que saber qual a senha. Dá uma
 olhada na máquina aonde voce consegui essas tabelas,
 talvez tenha por lá algum arquivo com a extensão .cob,
 código fonte do cobol, dentro deles voce encontrará a
 senha para abir as tabelas.

 Eu tenho arui um programa que abre essas tabelas, se
 oc equiser, eu te envio, é um programa de
 demonstração.


 Evandro Aguiar Nascimento

 --- Leandro [EMAIL PROTECTED] wrote:

 -
 Um arquivo sem extensão e outro com. Ex.:

 Aracnfsp e Aracnfsp.idx

 Att,

 Leandro

 - Original Message - 
 From: plucaslazaro [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 1:27 PM
 Subject: Re: [delphi-br] Abrir tabelas Cobol



 Qual a extensao dos arquivos??
   - Original Message - 
   From: Leandro
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:16 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol


   Ok, acho que é Micro Focus... mas nao tenho o cobol
 instalado... tem
 alguma
   forma de eu rodar o
   programa cobol no windows, ou no linux, sem ter que
 instalar o cobol. Ou
   algum emulador de Cobol
   para Windows/Linux.

   Sou leigo em Cobol, por isso tais dúvidas parecem
 imbecis :(

   Obrigado,

   Leandro

   - Original Message - 
   From: plucaslazaro [EMAIL PROTECTED]
   To: delphi-br@yahoogrupos.com.br
   Sent: Monday, March 14, 2005 1:16 PM
   Subject: Re: [delphi-br] Abrir tabelas Cobol



   Leandro, toda tabela em cobol que eu saiba vc só
 abre usando o proprio
   cobol, veja qual a versao do cobol que foi usado q
 te mando um programa
 para
   gerar arquivo texto.

   Paulo
 - Original Message - 
 From: Leandro
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, March 14, 2005 12:03 PM
 Subject: [delphi-br] Abrir tabelas Cobol


 Olá,

 Estou precisando converter algumas tabelas do
 Cobol para
 Firebird. Tem alguma forma de eu abrí-las no
 Delphi ou algum
 programa que eu informe a tabela Cobol e ele
 converta para TXT ou
 outro formato reconhecido pelo Delphi?

 Desde já agradeço.

 Leandro





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

RES: Abrir tabelas Cobol RES: [delphi-br] Resumo 5568

2005-03-15 Por tôpico almir


Leandro, boa noite.

Em uma rápida verificação, o arquivo não me parece c-tree. Veja:

ctinfo sarfi007.dat

c-tree Plus(R) IFIL and DODA Extraction Utility.
This utility extracts file and field information from the file you
specify and displays that information. If the required IFIL and DODA
resources are present, the data file should work with the FairCom
Drivers. The ODBC interface requires detailed information about the
relationship between data and index files and the layout of records
within a data file. This information is stored in the IFIL and DODA.

Could not open sarfi007.dat with Error 13 - errno 0.
File does not appear to be a valid c-tree Plus file.

= = = = = = = = =

Infelizmente não posso te ajudar. Se você conseguir descobrir qual o
produto Cobol que criou os arquivos, poderá descobrir qual a ferramenta
de BD utilizada para os arquivos. Eu sei que o Realia utiliza o c-tree
(da nossa empresa), por isso tentei verificar com você. Infelizmente não
funcionou. Boa sorte em sua busca. Abraços,

Almir Fernandes 
Diretor Operacional 
FairCom do Brasil Ltda. 
Fone: 55-11-3872-9802 
Fax:  55-11-3875-1309
Email:  [EMAIL PROTECTED]
www.faircom.com.br 
 
FairCom. Providing engineering level, cross-platform database
development tools since 1979
 
Notice: The information enclosed in this electronic mail message,
including any attachments, is the confidential property of FairCom
Corporation. All rights reserved under copyright and applicable laws.
Use of FairCom software and/or source code contained in this email or an
attachment thereto or accessed through any enclosed link will be subject
to all terms of any contracts in effect between FairCom and the
recipient. If you are unsure of the meaning or applicability of any
terms of such agreements, before downloading or accessing the software
you should seek advice of counsel or contact FairCom's contract
department for clarification.

-Mensagem original-
De: Leandro [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 15 de março de 2005 18:12
Para: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Assunto: Re: Abrir tabelas Cobol RES: [delphi-br] Resumo 5568

Almir,

Muito obrigado... estou te enviando duas tabelas para verificação.

Desde já agradeço a atenção.

Leandro

- Original Message - 
From: almir [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 5:56 PM
Subject: Re: Abrir tabelas Cobol RES: [delphi-br] Resumo 5568



Leandro, se as tabelas tiverem sido criadas pelo Cobol Realia (Computer
Associates), estas tabelas são c-tree. A extensão regular das tabelas
c-tree é .dat e .idx, como você tem no seu sistema.

Caso você queira, eu posso dar uma olhada se são c-tree ou não. Se você
tiver interesse, pode me passar uma tabela (apenas o .dat) para que eu
veja aqui. Se você preferir, posso te enviar um programa que verifica se
a tabela é ctree ou não. Se for c-tree, você pode utilizar um componente
VCL por exemplo para abrir as tabelas e, se for o caso, converter.
Abraços,

PS - pessoal, assino a lista como resumo e não tenho certeza se esta é
a melhor forma de enviar um reply ou não. Caso eu tenha cometido
qualquer erro, por favor me avisem. Grato,

Almir Fernandes
Diretor Operacional
FairCom do Brasil Ltda.
Fone: 55-11-3872-9802
Fax: 55-11-3875-1309
Email: [EMAIL PROTECTED]
www.faircom.com.br

FairCom. Providing engineering level, cross-platform database
development tools since 1979

Notice: The information enclosed in this electronic mail message,
including any attachments, is the confidential property of FairCom
Corporation. All rights reserved under copyright and applicable laws.
Use of FairCom software and/or source code contained in this email or an
attachment thereto or accessed through any enclosed link will be subject
to all terms of any contracts in effect between FairCom and the
recipient. If you are unsure of the meaning or applicability of any
terms of such agreements, before downloading or accessing the software
you should seek advice of counsel or contact FairCom's contract
department for clarification.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de março de 2005 15:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Resumo 5568


 Mensagem: 10
 Data: Tue, 15 Mar 2005 13:02:52 -0300
   De: Leandro [EMAIL PROTECTED]
  Assunto: Re: Abrir tabelas Cobol

Evandro

Tem como vc me enviar esse programa?

Obrigado,

Leandro

- Original Message - 
From: Evandro Aguiar Nascimento [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, March 14, 2005 5:50 PM
Subject: Re: [delphi-br] Abrir tabelas Cobol



 A Tabela sem extensão é uma tabela .dat, a outra é uma
 tabla de indice, igual aos indices do dbase, quase
 sempre, essas tabelas são protegidas por senha, então,
 acho que voce terá que saber qual a senha. Dá uma

[delphi-br] Grid com multiselect

2005-03-15 Por tôpico Filipe Belchior


olá! paz!

alguém conhece um componente de grid com opção de multiselect?
...de preferência, tipo assim, com checkboxes


Filipe Belchior
MSNM [EMAIL PROTECTED]



-- 
 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] Filtro PDF Para QuickReport


Pessoal,

Alguém sabe ou tem algum componente de filtro FREE para o QR ?

Alexandre C Souza
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005


[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] Fw: Perda de Indexação e Dados

2005-03-15 Por tôpico carlos


Olá Ligia,


Gostaria de saber se vc conhece alguma função para ñ perder a Indexação?  

Não, infelizmente, acho as tabelas paradox, piores que os .dbf's do Clipper 
(até utilizava no Clipper os índices .CDX que eram excelentes...)  O que se 
pode fazer é ter rotinas para manutenção de tabelas/índices.  Quem sabe 
alguém da lista, conheça uma forma de verificar integridade de índices em 
PIRADOX!!  :)...



   Espero que este exemplo te ajude... 


   Um abraço,


   Carlos


acesso = Tsession, função pegar o path do alias do bde..




   PROCEDURE MANUT PARÂMETROS   

FALSE, SOMENTE ABERTURA DE TABELAS...   TRUE, FAZ A MANUTENÇÃO, OU SEJA, SE 
FOSSE CLIPPER SERIA UMA INDEXAÇÃO DOS ARQUIVOS...


  Como utilizar???  No create do meu DM   -- Manut_Arq(False);


  Para indexar/pack tabelas     Manut_Arq(True);




procedure TDm.Manut_Arq(lTotal : boolean);
var
  sLista : TStringList;
  tTemp  : TTable;

begin
  sLista := TStringList.Create;
  Acesso.GetAliasParams('SEUDB', sLista);
  sPath := Copy(sLista.Strings[0], 6, 100);
  tTemp := TTable.Create(Self);

  if not lTotal then   //  Verificação de Arquivos
  begin

// Verificação da Tabela de Usuários

if not FileExists(sPath + '\CadOpe.Db') then
begin
  with tTemp do
  begin
DatabaseName := 'SEUDB';
TableName := 'CadOpe.Db';
FieldDefs.Clear;
FieldDefs.Add('NomOpe', ftString, 40, False);
FieldDefs.Add('Senha', ftString, 6, False);
FieldDefs.Add('GrupAces', ftString, 3, False);
CreateTable;
IndexDefs.Clear;
AddIndex('idxPri', 'NomOpe', [ixPrimary]);
Open;
   end;
end;

if not FileExists(sPath + '\CadOpe.Px') then
begin
  with tTemp do
  begin
DatabaseName := 'SEUDB';
TableName := 'CadOpe.Db';
IndexDefs.Clear;
AddIndex('idxPri', 'NomOpe', [ixPrimary]);
Open;
  end;
end;

if not TbCadOpe.Active then TbCadOpe.Active := True;

// Verificação da tabela de Direitos do Usuário

tTemp.Close;

if not FileExists(sPath + '\DirOpe.Db') then
begin
  with tTemp do
  begin
DatabaseName := 'SEUDB';
TableName := 'DirOpe.Db';
FieldDefs.Clear;
FieldDefs.Add('NomeOpe', ftString, 40, False);
FieldDefs.Add('NumOpc', ftInteger, 0, False);
FieldDefs.Add('Direito', ftBoolean, 0, False);
CreateTable;
IndexDefs.Clear;
AddIndex('idxPri', 'NomeOpe;NumOpc', [ixPrimary]);
Open;
   end;
end;

if not FileExists(sPath + '\DirOpe.Px') then
begin
  with tTemp do
  begin
DatabaseName := 'SEUDB';
TableName := 'DirOpe.Db';
IndexDefs.Clear;
AddIndex('idxPri', 'NomeOpe;NumOpc', [ixPrimary]);
Open;
  end;
end;


   end
  else
  begin  // Somente Manutenção  OU SEJA PARÂMETRO TRUE

// Manutenção da Tabela de Usuários

try
  TbCadOpe.Active := False;
  TbCadOpe.Exclusive := True;
  TbCadOpe.Active := True;
except
  MessErro('Impossível realizar manutenção.' + #13 +
 'Tabela de usuários sendo utilizada.');
  TbCadOpe.Exclusive := False;
  TbCadOpe.Active := True;
  Exit;
end;

DeleteFile(sPath + '\CadOpe.Px');
// O ÍNDICE HAVIA SIDO DELETADO, AGORA SERÁ CRIADO NOVAMENTE...
TbCadOpe.AddIndex('idxPri', 'NomOpe', [ixPrimary]);
   // PackParadox   os registros, quando apagados, não são eliminados 
fisicamente da tabela...
   //  função do PackParadox  limpar realmente os registros apagados...
PackParadox(TbCadOpe);
TbCadOpe.Active := False;
TbCadOpe.Exclusive := False;
TbCadOpe.Active := True;

// Manutenção da Tabela de Direitos do Usuário

try
  TbDirOpe.Active := False;
  TbDirOpe.Exclusive := True;
  TbDirOpe.Active := True;
except
  MessErro('Impossível realizar manutenção.' + #13 +
 'Tabela de direitos do usuário sendo utilizada.');
  TbDirOpe.Exclusive := False;
  TbDirOpe.Active := True;
  Exit;
end;

DeleteFile(sPath + '\DirOpe.Px');
TbDirOpe.AddIndex('idxPri', 'NomeOpe;NumOpc', [ixPrimary]);
PackParadox(TbDirOpe);
TbDirOpe.Active := False;
TbDirOpe.Exclusive := False;
TbDirOpe.Active := True;

end;






Procedure PackParadox(TableName : TTable);
Var
  TBDesc : CRTblDesc;
  hDb : hDbidb;
  TablePath : Array[0..dbiMaxPathLen] of Char;

begin
  FillChar(TBDesc, Sizeof(TBDesc), 0);
  With TBDesc Do begin
StrPCopy(szTblName, TableName.TableName);
StrPCopy(szTblType, szParadox);
bPack := True;
  end;
  hDb := Nil;
  Check(DbiGetDirectory(TableName.DBHandle, True, TablePath));
  TableName.Close;
  Check(DBIOpenDataBase(Nil, 'STANDARD', DBIReadWrite,
DBIOpenExcl, Nil, 0, Nil, Nil, hDb));
  Check(DbiSetDirectory(hDb, TablePath));
  Check(DBIDoRestructure(hDb, 1, @TBDesc, Nil, Nil, Nil, False));
  TableName.Open;

Re: [delphi-br] Grid com multiselect