NetSecureLinkReady Example for Delphi

procedure TForm1.LEADDicomNet1NetSecureLinkReady(ASender: TObject; hNet,
  nError: Integer);
var
   nTest: LongInt;
begin
   if(nError <> DICOM_SUCCESS)then
   begin
      ShowMessage('Error Code is ' + IntTOStr(LEADDICOMNet1.GetErrorSecure(hNet)));
      Exit;
   end;
   nTest:= LEADDICOMNet1.GetCiphersuiteTLS(LEADDICOMNet1.hNet);
   if(nTest = DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA)then
      ShowMessage('Ciphersuite is DICOM_TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA');
end;