GetStatusISCL Example for VB.NET
' In this example, assume an error occurs in the NetReceive
event. The code to
' determine why this happened should look like this:
'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceive(ByVal hNet As Integer, ByVal nStatus
As Integer, ByVal nType As Short, ByVal pData As Object, ByVal lSize As
Integer) Handles LEADDICOMNet1.NetReceive
Dim nStatusISCL
As Integer
nStatusISCL
= LEADDICOMNet1.GetStatusISCL(hNet)
If nStatus
= LTDicomKernelLib.DicomErrorCodes.DICOM_ERROR_ISCL_DECRYPT Then
If
nStatusISCL = 24 Then
'
error decrypting message data
MessageBox.Show("Error
decrypting message")
End
If
If
nStatusISCL = 25 Then
'
error decrypting MAC code
MessageBox.Show("Error
decrypting MAC code")
End
If
End If
End Sub