GetKeyExchangeAlgorithmTLS Example for Delphi

   if(LEADDICOMNet1.GetKeyExchangeAlgorithmTLS(LEADDICOMNet1.hNet, DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA) = DICOM_MAC_SHA1)then
      ShowMessage('Key exchange in DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA is DICOM_MAC_SHA1');