GetPeerEncryptionISCL Example for Delphi

var
   strEncr: String;
begin
   strEncr:= 'Unknown';
   if(LEADDICOMNet1.GetPeerEncryptionISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_ENCRYPT_NONE)then
      strEncr:= 'None'
   else
   begin
      if(LEADDICOMNet1.GetPeerEncryptionISCL (LEADDICOMNet1.hNet) = DICOM_ISCL_ENCRYPT_DESCBC)then
         strEncr:= 'DES algorithm, cipher block chaining mode'
   end;
   ShowMessage('Sender tried to send a message with encryption algorithm: ' + strEncr);
end;