CryptoSys PKI examples VB6 to VB.NET

CMS_ReadSigData

Reads content from a CMS signed-data object file.

VB6/VBA

Debug.Print "Testing CMS_ReadSigData ..."
Dim nRet As Long
Dim strFileIn As String
Dim strFileOut As String

strFileIn = "BasicSignByAlice.bin"
strFileOut = "BasicSignByAlice.dat"
nRet = CMS_ReadSigData(strFileOut, strFileIn, 0)
Debug.Print "CMS_ReadSigData returns " & nRet

Output

Testing CMS_ReadSigData ...
CMS_ReadSigData returns 28

VB.NET

Console.WriteLine("Testing CMS_ReadSigData ...")
Dim nRet As Integer
Dim strFileIn As String
Dim strFileOut As String

strFileIn = "BasicSignByAlice.bin"
strFileOut = "BasicSignByAlice.dat"
nRet = Cms.ReadSigDataToFile(strFileOut, strFileIn, False)
Console.WriteLine("CMS_ReadSigData returns " & nRet)

[Contents]

[HOME]   [NEXT: CMS_ReadSigDataToString...]

Copyright © 2010-20 D.I. Management Services Pty Ltd. All rights reserved.