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 );
(...)
|