WPF

An error occurred while trying to make a request to URI 'https://XXXX.com/XXXX.svc'. This could be due to attempting to access a service in a cross-domain way without a proper cross-domain policy in place, or a policy that is unsuitable for SOAP services. You may need to contact the owner of the service to publish a cross-domain policy file and to ensure it allows SOAP-related HTTP headers to be sent. This error may also be caused by using internal types in the web service proxy without using the InternalsVisibleToAttribute attribute. Please see the inner exception for more details.

<access-policy>
  <cross-domain-access>
    <policy>
      <allow-from http-request-headers="*">
        <domain uri="http://*"/>
        <domain uri="https://*"/>
      </allow-from>
      <grant-to>
        <resource path="/" include-subpaths="true"/>
      </grant-to>
    </policy>
  </cross-domain-access>
</access-policy>

<system.serviceModel>
    <bindings>
      <basicHttpBinding>
        <binding name="SSLEnabled" maxBufferSize="2147483647" maxReceivedMessageSize="2147483647">
          <security mode="Transport" />
        </binding>
      </basicHttpBinding>
    </bindings>
    <behaviors>
      <serviceBehaviors>
        <behavior name="XXXX.Web.XXXX">
          <serviceMetadata httpsGetEnabled="true" />
          <serviceDebug includeExceptionDetailInFaults="false" />
        </behavior>
      </serviceBehaviors>
    </behaviors>
    <serviceHostingEnvironment aspNetCompatibilityEnabled="true" />
    <services>
      <service behaviorConfiguration="XXXX.Web.XXXXBehavior" name="XXXX.Web.XXXX">
        <endpoint address="" binding="basicHttpBinding" bindingConfiguration="SSLEnabled" contract="XXXX.Web.XXXX" />
        <endpoint address="mex" binding="mexHttpsBinding" contract="IMetadataExchange" />
      </service>
    </services>
  </system.serviceModel>

Public Class XXXXHostFactory
    Inherits ServiceHostFactory

    Public Overrides Function CreateServiceHost(ByVal constructorString As String, ByVal baseAddresses() As System.Uri) As System.ServiceModel.ServiceHostBase
        Return MyBase.CreateServiceHost(constructorString, baseAddresses)
    End Function

    Protected Overrides Function CreateServiceHost(ByVal serviceType As System.Type, ByVal baseAddresses() As System.Uri) As System.ServiceModel.ServiceHost
        Dim webServiceAddress = New Uri("https://XXXX.com/XXXX.svc")

        Dim webServiceHost = New MyServiceHost(serviceType, webServiceAddress)
        Return webServiceHost
    End Function

    Public Class MyServiceHost
        Inherits ServiceHost

        Public Sub New(ByVal serviceType As Type, ByVal baseAddresses As Uri)
            Dim BaseAddressScheme As New UriSchemeKeyedCollection
            BaseAddressScheme.Add(baseAddresses)
            MyBase.InitializeDescription(serviceType, BaseAddressScheme)
        End Sub

        Protected Overrides Sub ApplyConfiguration()
            MyBase.ApplyConfiguration()
        End Sub

        Protected Overrides Sub InitializeRuntime()
            MyBase.InitializeRuntime()
        End Sub
    End Class
End Class

<%@ ServiceHost Language="VB" Debug="true" Service="XXXX.Web.XXXX" Factory="XXXX.Web.XXXXHostFactory" CodeBehind="XXXX.svc.vb" %>