Начальное конфигурирование клиентского приложения

Что нужно знать про App.config файл?

Конфигурационный файл состоит из следующих основных разделов:

• <client> - описание подлючения клиента
• <bindings> - определят транспорт, на основе которого будет происходить взаимодействие в нашем случае это привязка на основе TCP (NetTcpBinding)
• <behaviors> - настройка "поведения" (раздел clientCredentials позволяет настроить сертификат клиента)
  • для настройки сертификата необходимо прописать SubjectName вашего сертификата, который должен быть установлен в персональных сертификатах текущего пользователя (CurrentUser->My)

Примечания для программистов Delphi .Net

Программисты на Delphi .Net должны использовать в место конфигурационного файла App.config, конфигурационную функцию InitCibClient.

Code: Delphi .Net

   procedure InitCibClient(var cl: CIBClient);
   var
    res : double;  
    bind : NetTcpBinding;  
    epadr : EndpointAddress;  
   
   begin
   
    bind := NetTcpBinding.Create();  
    bind.ReliableSession.Enabled := true;  
    bind.ReliableSession.Ordered := true;  
    bind.TransactionFlow := false;  
    bind.Security.Mode := SecurityMode.Transport;  
    bind.Security.Message.AlgorithmSuite := SecurityAlgorithmSuite.Basic256;  
    bind.Security.Message.ClientCredentialType := MessageCredentialType.Windows;  
    bind.Security.Transport.ProtectionLevel := ProtectionLevel.EncryptAndSign;  
    bind.Security.Transport.ClientCredentialType := TcpClientCredentialType.Certificate;  
   
    epadr := EndpointAddress.Create('net.tcp://test.ishenim.kg:55100/');  
   
    cl := CIBClient.Create(bind, epadr);  
    cl.ClientCredentials.ClientCertificate.SetCertificate(StoreLocation.CurrentUser, StoreName.My,   X509FindType.FindBySubjectName, 'client.com');  
    cl.ClientCredentials.ServiceCertificate.Authentication.CertificateValidationMode :=   X509CertificateValidationMode.None;  
    cl.ClientCredentials.Peer.MessageSenderAuthentication.CertificateValidationMode :=   X509CertificateValidationMode.PeerOrChainTrust;  
    cl.ClientCredentials.Peer.PeerAuthentication.CertificateValidationMode :=   X509CertificateValidationMode.PeerOrChainTrust;  
   end