TAMANHO TOTAL DO HD... NAO É POSSÍVEL ???

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Prezado Reginaldo

Para calcular o checksum de um arquivo use a função FILECHECK() da Clipper Tools, quanto ao problema de outro arquivo gerar um txt com os mesmos dados isso é muito simples de bloquear, exemplo :

Digamos que o nome do TXT seja INFO.TXT
No inicio do sistema você verifica se o arquivo existe, se existir tenta excluir com FERASE("INFO.TXT"), se a função retornar que não foi possivel excluir é porque está com algum atributo, você pode tentar tirar o atributo e tentar excluir novamente ou simplesmente informar que existe algum problema e que o cliente deve entrar em contato.
Ou seja, o sistema só irá rodar depois que o sistema verificar que o INFO.TXT não existe, permitindo assim o sistema gerar o mesmo.

Exemplo :

Código: Selecionar todos

EXCLUI=1
CONTA=0
IF FILE("INFO.TXT")
   DO WHILE EXCLUI<>0
      EXCLUI=:FERASE("INFO.TXT") // Tenta excluir o arquivo
      IF EXCLUI<>0
         C_FILEATTR("INFO.TXT","-R/-S/-H") // Tenta tirar os attributos
      ENDIF
      CONTA++
      IF CONTA>=10
         RETURN // Depois de 10 tentativas de exclusao o programa aborta
      ENDIF
   ENDDO
ENDIF
Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Reginaldo
Usuário Nível 2
Usuário Nível 2
Mensagens: 71
Registrado em: 14 Jul 2004 08:06
Localização: Lagoa da Prata - MG
Contato:

Mensagem por Reginaldo »

Olá Marcelo,

Valeu pela dica!!!
No caso do arquivo TXT eu não me preocupo, pois será gerado sempre com um nome diferente... Portanto o sistema sempre estará excluindo, criando, lendo e excluindo o arquivo...

Cordialmente,
Reginaldo J. Silva
Analista de Sistemas
Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Mensagem por Mário Isa »

uma coisa q não pude deixar de lembrar é:
1-para o caso de alguém produzir um hbdrvinf.exe q produza um .txt igual para todos faça o seguinte:
leia um "pedaço" do hbdrvinfo.exe at´ravés do fread().
toda vez antes de "rodar o hbdrvinf.exe veja se aquele pedaço é aquele q vc já sabe.
Se não for é pq alguém está tentando piratear o seu software.


Mário Isa
Responder