validatefile

validateFile

Valida o arquivo com o registro EAD gravado em seu final. Se o registro EAD estiver OK, a função retornará 1 (um), caso contrário retornará 0 (zero).

Parâmetros:

cNomeArquivo: Variável STRING com o cominho+nome do arquivo que será usado na geração do registro EAD.

cChavePublica: Variável STRING com a chave pública gerada.

cChavePrivada: Variável STRING com a chave privada gerada.

Possíveis retornos da Função (INTEIRO):

0: Erro de execução.

1: OK.

Observações:

• As chaves pública e privada devem ser geradas pela função genkkey antes de serem passadas como parâmetro na função validateFile.

Exemplo:

' Exemplo em Visual Basic

(...)

cNomeArquivo = "C:\Espelho.txt"

iRetorno = validateFile(cNomeArquivo, cChavePublica, cChavePrivada)

If (iRetorno = 0) Then

 MsgBox "Erro na chave !", vbInformation + vbOKOnly, "Atenção"

Else

 MsgBox "Chave correta!", vbInformation + vbOKOnly, "Atenção"

End If

(...)

// Exemplo em Delphi

(...)

cNomeArquivo := "C:\Espelho.txt";

iRetorno := validateFile( cNomeArquivo, cChavePublica, cChavePrivada );

if ( iRetorno = 0 ) then

 application.MessageBox( 'Erro na chave !', 'ERRO', MB_ICONINFORMATION + MB_OK )

 application.MessageBox( 'Chave correta!', 'ERRO', MB_ICONINFORMATION + MB_OK );

(...)