Carica un certificato nella lista dei certificati gestiti dall'oggetto DiMaTek.
Il certificato deve essere presente nello store (di sistema o file) collegato all'oggetto DiMaTek.
LONG WINAPI dmtLoadCertificate (
HDMTOBJ hDmt,
char *szCertificateName = "",
bool fUseForRecipient = false);
External_Function dmtLoadCertificate "dmtLoadCertificate" Dimatec.dll ;
HDMTOBJ hDmt ;
String szCertificateName ;
Integer fUseForRecipient ;
returns integer
Public Declare Function dmtLoadCertificate Lib "Dimatec.dll" _
(ByVal hDmt As Long, _
ByVal szCertificateName As String, _
Optional ByVal fUseForRecipient As Boolean = False) _
As Long
[DllImport("Dimatec.dll")]
public static extern int dmtLoadCertificate (
int hDmt,
string szCertificateName,
bool fUseRecipient /*= false */);
hDmt - Handle dell'oggetto DiMaTek
szCertificateName - Nome del certificato da caricare
fUseForRecipient
TRUE - il certificato verrą caricato nella lista dei certificati dei riceventi
FALSE - il certificato verrą caricato nella lista dei certificati personali
DMT_OK in caso di successo, altrimenti un codice di errore
Integer ret
Integer iCurrent
String sCurrentCertificate
Get Current_Item of oList_CertificateInStore to iCurrent
If (iCurrent < 0) Procedure_Return
Get Value of oList_CertificateInStore iCurrent to sCurrentCertificate
If (Length(Trim(sCurrentCertificate)) = 0) Procedure_Return
Move (dmtLoadCertificate( ;
ghDmt , ;
sCurrentCertificate , ;
False)) to ret
Dim res As Long
If lst_CertificateInStore.SelCount < 1 Then Exit Sub
res = dmtLoadCertificate(g_hDmt, _
lst_CertificateInStore.Text, _
False)
if (SystemStoreListBox.SelectedIndex < 0)
return;
int LoadCertificateResult = CDIMATECLIBRARY.dmtLoadCertificate(
CDIMATECLIBRARY.ghDimatecObj,
SystemStoreListBox.Items[SystemStoreListBox.SelectedIndex].ToString(),
false);