SetCipherToIndexTLS Example for Delphi

var
   nTest: Integer;
begin
   LEADDICOMNet1.SetCipherToIndexTLS(LEADDICOMNet1.hNet, 0, DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA);

   nTest:= LEADDICOMNet1.GetCipherFromIndexTLS (LEADDICOMNet1.hNet, 0);
   if(nTest = DICOM_TLS_DHE_RSA_WITH_DES_CBC_SHA)then
      ShowMessage('Cipher DICOM_TLS_DHE_RSA_WITH_DES_CBC_SHA');
end;