CMS_ReadSigDataToString

Reads content from a CMS signed-data object file writing content data into a string instead of a file.

VB6/VBA

Debug.Print "Testing CMS_ReadSigDataToString ..."
Dim nRet As Long
Dim strFileIn As String
Dim strData As String
Dim nDataLen As Long
strFileIn = "4.2.bin"
' How long is the content to be read?
nDataLen = CMS_ReadSigDataToString("", 0, strFileIn, 0)
If nDataLen <= 0 Then
    Exit Sub
End If
' Pre-dimension string to receive data
strData = String(nDataLen, " ")
nRet = CMS_ReadSigDataToString(strData, nDataLen, strFileIn, 0)
Debug.Print "CMS_ReadSigDataToString returns " & nRet
Debug.Print "Data is [" & strData & "]"

Output

Testing CMS_ReadSigDataToString ...
CMS_ReadSigDataToString returns 28
Data is [This is some sample content.]

VB.NET

Console.WriteLine("Testing CMS_ReadSigDataToString ...")
''Dim nRet As Integer
Dim strFileIn As String
Dim strData As String
''Dim nDataLen As Integer
strFileIn = "4.2.bin"
strData = Cms.ReadSigDataToString(strFileIn, False)
If strData.Length = 0 Then
    Exit Sub
End If
Console.WriteLine("CMS_ReadSigDataToString returns " & strData.Length)
Console.WriteLine("Data is [" & strData & "]")

[Contents]