Visual Basic

Jamal Abdul Nasir wrote:

this the code in the crystal report's formula

nico2007 wrote:

Dim c1 As Class1 'declare one object of class1
Dim c2 As class2 'declare one object of class2

nico2007 wrote:

Public Class class2
Public classi() As Class1
'HERE I DEFINE A METHOD TO CREATE A POINTER TO AN ISTANCE OF CLASS1 AND TO PUT IT IN AN ARRAY
Sub putclass2to1(ByVal index As Integer, ByRef classe1scelta As Class1)
classi(index) = classe1scelta
End Sub
End Class

Public Function SignMsg(CertContext As Long) As Boolean
    'make the CryptoAPI sign an arbitrary message using the user's signing certificate; should invoke a PIN prompt if PIN is not cached
    Dim SigParams As CRYPT_SIGN_MESSAGE_PARA
    Dim MessageArray(0 To 0) As String
    Dim MessageSizeArray(0 To 0) As Long
    Dim cbSignedMessageBlob As Long
    Dim pbSignedMessageBlob As String
    Dim GLE As Long
    Dim rtn As Boolean

    Const szOID_RSA_ENCRYPT = "1.2.840.113549.3"
    Const szOID_OIWSEC_sha1 = "1.3.14.3.2.26"

    On Error GoTo erh

    ' Initialize the signature structure.
    SigParams.dwMsgEncodingType = PKCS_7_ASN_ENCODING
    SigParams.pSigningCert = CertContext
    SigParams.HashAlgorithm.pszObjId = szOID_OIWSEC_sha1
    SigParams.HashAlgorithm.Parameters = 0
    SigParams.cMsgCert = 1
    SigParams.rgpMsgCert = CertContext
    SigParams.cAuthAttr = 0
    SigParams.dwInnerContentType = 0
    SigParams.cMsgCrl = 0
    SigParams.cUnauthAttr = 0
    SigParams.dwFlags = 0
    SigParams.pvHashAuxInfo = 0
    SigParams.rgAuthAttr = 0
    SigParams.cbSize = Len(SigParams)

    MessageArray(0) = "A message" + vbNullChar
    MessageSizeArray(0) = Len(MessageArray(0))

    ' First, get the size of the signed BLOB.
    rtn = CryptSignMessage(VarPtr(SigParams), _
                           False, _
                           1, _
                           MessageArray, _
                           MessageSizeArray, _
                           0, _
                           VarPtr(cbSignedMessageBlob) _
                          )
    GLE = GetLastError
    If rtn = False Then
        err.Raise 4021, , "Failed to retrieve signed blob size: " & GLE
    End If

    pbSignedMessageBlob = String(cbSignedMessageBlob, vbNullChar) 

    ' Get the signed message BLOB.
    rtn = CryptSignMessage(VarPtr(SigParams), _
                           False, _
                           1, _
                           MessageArray, _
                           MessageSizeArray, _
                           VarPtr(pbSignedMessageBlob), _
                           VarPtr(cbSignedMessageBlob) _
                          )
    GLE = GetLastError
    If rtn = False Then
        err.Raise 4022, , "Failed to sign message blob: " & GLE
    End If
    SignMsg = True
    Exit Function
erh:
    SignMsg = False
End Function

Private Declare Function CryptSignMessage Lib "Crypt32" ( _
    ByVal pSignPara As Long, _
    ByVal fDetachedSignature As Boolean, _
    ByVal cToBeSigned As Long, _
    ByRef rgpbToBeSigned() As String, _
    ByRef rgcbToBeSigned() As Long, _
    ByVal pbSignedBlob As Long, _
    ByVal pcbSignedBlob As Long _
    ) As Boolean

Type Struct1
   str1 As String * 120
   str2 As String * 120
   str3 As String * 1024
End Type
\n
Declare Function MyFunction Lib "lib1.DLL" (pObject As Struct1) As Long

Structure Struct1
   'UPGRADE_WARNING: Fixed-Length string must fit in the buffer.
   <VBFixedString(120),System.Runtime.InteropServices.MarshalAs(
    System.Runtime.InteropServices.UnmanagedType.ByValArray,
    SizeConst:=120)>
   Public str1() As Char
\n
   'UPGRADE_WARNING: Fixed-Length string must fit in the buffer.
   <VBFixedString(120),System.Runtime.InteropServices.MarshalAs(
    System.Runtime.InteropServices.UnmanagedType.ByValArray,
    SizeConst:=120)>
   Public str2() As Char
\n
   'UPGRADE_WARNING: Fixed-Length string must fit in the buffer.
   <VBFixedString(120),System.Runtime.InteropServices.MarshalAs(
    System.Runtime.InteropServices.UnmanagedType.ByValArray,
    SizeConst:=1024)>
   Public str3() As Char
End Structure
\n
'UPGRADE_WARNING: Structure Struct1 may require marshalling attributes to be passed 
as an argument in this Declare statement.
Declare Function MyFuntion Lib "lib1.DLL" (ByRef pObject As Struct1) As Integer

<br />
<StructureLayout(LayoutKind.Sequential, CharSet:=CharSet.ANSI)><br />
Structure Struct1<br />
...<br />
End Structure<br />