Verifica la marca temporale. Supporta i formato M7M e TSD
LONG WINAPI dmtVerifyFileTimeStamped (
HDMTOBJ hDmt,
char *SourceFileName,
TIPO_FILE_TIMESTAMP tipoFileTimetamp);
External_Function dmtVerifyFileTimeStamped "dmtVerifyFileTimeStamped" Dimatec.dll ;
HDMTOBJ hDmt ;
string SourceFileName ;
integer tipoFileTimetamp;
returns integer
Public Declare Function dmtVerifyFileTimeStamped Lib "Dimatec.dll" _
(ByVal hDmt As Long, _
ByVal SourceFileName As String, _
Byval tipoFileTimetamp as Long) _
As Long
[DllImport("Dimatec.dll")]
public static extern int dmtVerifyFileTimeStamped (
int hDmt,
string szSourceFileName,
int tipoFileTimetamp);
hDmt - Handle dell'oggetto DiMaTek
SourceFileName - File con marca temporale da verificare
tipoFileTimetamp - Tipo di Marca puņ essere 0 = Marca tipo M7M o 1= Marca con file tipo TSD
DMT_OK in caso di successo, altrimenti un codice di errore
Integer ret
String sFileMarcato
String sOriginalFileName
String sTsrFileName
String sXmlFileName
Get psFileMarcato of oVerificaFileMarcato to sFileMarcato
// Check
If (Length(Trim(psFileMarcato(oVerificaFileMarcato))) = 0) Begin
Send Stop_Box "Non e' stato scelto nessun file da verificare" "EseguiVerificaTimeStamp"
Procedure_Return
End
If (Checked_State(oCheckBox_EstraiOriginale)) Begin
Get Label of oTextBox_EstraiOriginale to sOriginalFileName
End
Else Begin
Move "" to sOriginalFileName
End
If (Checked_State(oCheckBox_EstraiTsr)) Begin
Get Label of oTextBox_EstraiTsr to sTsrFileName
End
Else Begin
Move "" to sTsrFileName
End
If (Checked_State(oCheckBox_EstraiXml)) Begin
Get Label of oTextBox_EstraiXml to sXmlFileName
End
Else Begin
Move "" to sXmlFileName
End
// Verifica file marcato
Move (dmtVerifyFileTimeStamped( ;
ghDmt , ;
sFileMarcato,0)) to ret
If (ret <> DMT_OK) Begin
Send Stop_Box "dmtVerifyFileTimeStamped" "Errore!"
Procedure_Return
End
If ((Checked_State(oCheckBox_EstraiOriginale)) or ;
(Checked_State(oCheckBox_EstraiTsr)) or ;
(Checked_State(oCheckBox_EstraiXml))) Begin
Move (dmtExtractFromTimeStamp( ;
sFileMarcato , ;
sOriginalFileName , ;
sTsrFileName , ;
sXmlFileName, 0)) to ret
End
Dim sOriginalFileName As String
Dim sTsrFileName As String
Dim sXmlFileName As String
Dim res As Long
' Check
If (Len(Trim(txt_FileToVerifyTimeStamp.Text)) = 0) Then
MsgBox "Any selected file to verify", vbCritical, "ExecSign"
Exit Sub
End If
If (chk_ExtractOriginalFile.Value = 1) Then
sOriginalFileName = txt_ExtractOriginalFile.Text
Else
sOriginalFileName = ""
End If
If (chk_ExtractTsrFile.Value = 1) Then
sTsrFileName = txt_ExtractTsrFile.Text
Else
sTsrFileName = ""
End If
If (chk_ExtractXmlFile.Value = 1) Then
sXmlFileName = txt_ExtractXmlFile.Text
Else
sXmlFileName = ""
End If
' Timestamp verification
res = dmtVerifyFileTimeStamped(g_hDmt, _
txt_FileToVerifyTimeStamp.Text, 1)
If (res <> DMT_OK) Then
MsgBox DisplayError(res), vbCritical, "ExecVerifyTimeStamp"
Exit Sub
End If
If (chk_ExtractOriginalFile.Value = 1) Or _
(chk_ExtractTsrFile.Value = 1) Or _
(chk_ExtractXmlFile.Value = 1) Then
res = dmtExtractFromTimeStamp(txt_FileToVerifyTimeStamp.Text, _
sOriginalFileName, _
sTsrFileName, _
sXmlFileName, 0 )
End If
if (LabelTimestampedFile.Text.Length == 0)
{
MessageBox.Show(this, "Any file selected to verify", "ExecVerifyTimestamp",
MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
string sOriginalFileName = "";
if (CheckBoxExtractOriginalFile.Checked)
sOriginalFileName = LabelExtractOriginalFile.Text;
string sTsrFileName = "";
if (CheckBoxExtractTimestampResponse.Checked)
sTsrFileName = LabelExtractTimestampResponse.Text;
string sXmlFileName = "";
if (CheckBoxExtractXmlTimestampResponse.Checked)
sXmlFileName = LabelExtractXmlTimestampResponse.Text;
int VerifyTimestampResult = CDIMATECLIBRARY.DMT_OK;
VerifyTimestampResult = CDIMATECLIBRARY.dmtVerifyFileTimeStamped(
CDIMATECLIBRARY.ghDimatecObj,
LabelTimestampedFile.Text, 0);
if (VerifyTimestampResult != CDIMATECLIBRARY.DMT_OK)
{
MessageBox.Show(this, "Verification error", "ExecVerifyTimestamp",
MessageBoxButtons.OK, MessageBoxIcon.Error);
}
int ExtractFromTimestampResult = CDIMATECLIBRARY.DMT_OK;
if (CheckBoxExtractOriginalFile.Checked ||
CheckBoxExtractTimestampResponse.Checked ||
CheckBoxExtractXmlTimestampResponse.Checked)
{
ExtractFromTimestampResult = CDIMATECLIBRARY.dmtExtractFromTimeStamp(
LabelTimestampedFile.Text,
sOriginalFileName,
sTsrFileName,
sXmlFileName, 0);
}