NetSecureLinkReady Example for Visual Basic
Private Sub LEADDICOMNet1_NetSecureLinkReady (ByVal hNet As Long, ByVal nError As Long)
Dim lTest As Long
If nError <> DICOM_SUCCESS Then
MsgBox "Error Code is " & LEADDICOMNet1.GetErrorSecure(hNet)
Exit Sub
End If
lTest = LEADDICOMNet1.GetCiphersuiteTLS (LEADDICOMNet1.hNet)
If lTest = DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA Then _
MsgBox "Ciphersuite is DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA"
End Sub