GetIntegrityAlgorithmTLS Example for Delphi

   if(LEADDICOMNet1.GetIntegrityAlgorithmTLS(LEADDICOMNet1.hNet, DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA) = DICOM_MAC_SHA1)then
      ShowMessage('Message authentication code in DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA is DICOM_MAC_SHA1');