SetEncryptKeyISCL Example for VB.NET
<StructLayout(LayoutKind.Sequential)> Public Class
KeyLoHi
Public LoValue As UInt32
Public HiValue As UInt32
End Class
<StructLayout(LayoutKind.Sequential)> Public Class
Key64
Public Value As UInt64
End Class
'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetEncryptKeyISCL ()
Dim key As Key64 Dim
compKey As KeyLoHi
Dim UnManagedMemory As IntPtr
key = New Key64
compKey = New KeyLoHi
UnManagedMemory = Marshal.AllocHGlobal(Marshal.SizeOf(compKey))
' use a 64 bit key value of 0123456789ABCDEF hex.
compKey.HiValue = System.Convert.ToUInt32(&H1234567L)
compKey.LoValue = Convert.ToUInt32(&H89ABCDEFL)
key.Value = Convert.ToUInt64(0)
Marshal.StructureToPtr(compKey, UnManagedMemory, True)
Marshal.PtrToStructure(UnManagedMemory, key)
LEADDICOMNet1.SetEncryptKeyISCL(LEADDICOMNet1.hNet,
1, key.Value)
LEADDICOMNet1.SetIndexForEncryptISCL(LEADDICOMNet1.hNet, 1)
MessageBox.Show("Index value is: " & LEADDICOMNet1.GetIndexForEncryptISCL(LEADDICOMNet1.hNet))
End Sub