FindPresentationAbstract Example for VB.NET
'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestFindPresentationAbstract ( )
Const UID_VERIFICATION_CLASS As String = "1.2.840.10008.1.1" ' Verification SOP Class
Dim
nID As Short
Dim hPDU
As Integer
'get
the associate object for this client computer's connection
hPDU = LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet)
'find
the id for UID_VERIFICATION_CLASS within this association
'if it is
supported by the association
nID = LEADDICOMNet1.FindPresentationAbstract(hPDU,
UID_VERIFICATION_CLASS)
If (nID
= 0) Then
MessageBox.Show("Not
Supported by this association!")
Else
MessageBox.Show("Found:
" & CStr(nID))
End If
End Sub