FindPresentationAbstract Example for Delphi

var
   nID: Integer;
   hPDU: LongInt;
begin
   //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
     ShowMessage('Not Supported by this association!')
   else
      ShowMessage('Found: ' + IntToStr(nID));
end;