GetPeerMACISCL Example for Delphi

   var
   strMAC: String;
begin
   strMAC:= 'SHA algorithm';
   if(LEADDICOMNet1.GetPeerMACISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_MAC_NONE)then
      strMAC:= 'no message authentication code'
   else
   begin
      if(LEADDICOMNet1.GetPeerMACISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_MAC_MD5)then
         strMAC:= 'MD5 algorithm';
   end;

   ShowMessage('Sender tried to send a message with MAC ' + strMAC);
end;