HttpTransportBindingElement Class

    ' This is an example of how to create a custom binding with a specified encoding and HTTP tansport,
    ' and how to create and open a channel for the service endpoint configured with the custom binding.
    Partial Public Class MainPage
        Inherits UserControl
        'Declare a separate UI thread.
        Private uiThread As SynchronizationContext

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)

            'Create a custom binding that uses HTTP transport and binary message encoding.
            Dim elements = New List(Of BindingElement)()
            elements.Add(New BinaryMessageEncodingBindingElement())

            ' Create an instance of the HttpTransportBindingElement
            Dim httpTransportBindingElement As New HttpTransportBindingElement()
            Dim txtDefaultMaxBufferSize As String = httpTransportBindingElement.MaxBufferSize.ToString()
            txtOutput1.Text = txtDefaultMaxBufferSize 'The value is 65536 (0x10000).

            ' Change the maximum buffer size.
            httpTransportBindingElement.MaxBufferSize = &H20000
            Dim txtNewMaxBufferSize As String = httpTransportBindingElement.MaxBufferSize.ToString()
            txtOutput2.Text = txtNewMaxBufferSize 'The value is 131072 (0x20000).

            ' Output http scheme.
            Dim txtScheme As String = httpTransportBindingElement.Scheme
            txtOutput5.Text = txtScheme 'The value is http.

            elements.Add(httpTransportBindingElement)
            Dim binding = New CustomBinding(elements)

            'Create a channel factory for the service endpoint configured with the custom binding.
            Dim cf = New ChannelFactory(Of IService1)(binding, New EndpointAddress("https://localhost:10483/Service1.svc"))


            'Save the synchronized context for the UI thread.
            uiThread = SynchronizationContext.Current

            'Open the channel.
            Dim channel As IService1 = cf.CreateChannel()

            'Invoke the GetPerson method on the service asynchronously. The signature is:
            'IAsyncResult BeginGetPerson(int personId, AsyncCallback callback, object state)
            channel.BeginGetPerson(4, AddressOf GetPersonCallback, channel)

        End Sub

        'Implement the callback. 
        Private Sub GetPersonCallback(ByVal asyncResult As IAsyncResult)
            Dim p As Person = (CType(asyncResult.AsyncState, IService1)).EndGetPerson(asyncResult)

            'Update the UI thread and its output with the result of the method call.
            uiThread.Post(AddressOf UpdateUI, p)

        End Sub

        'Update the result displayed for the GetPerson invocation.
        Private Sub UpdateUI(ByVal state As Object)
            Dim p As Person = CType(state, Person)
            resultPersonName.Text = "The name of the Person is: " & p.Name
            resultPersonAge.Text = "The age of the Person is: " & p.Age
        End Sub

    // This is an example of how to create a custom binding with a specified encoding and HTTP tansport,
    // and how to create and open a channel for the service endpoint configured with the custom binding.
    public partial class MainPage : UserControl
    {
        //Declare a separate UI thread.
        SynchronizationContext uiThread;

        public MainPage()
        {
            InitializeComponent();
        }

        private void Button_Click(object sender, RoutedEventArgs e)
        {

            //Create a custom binding that uses HTTP transport and binary message encoding.
            var elements = new List<BindingElement>();
            elements.Add(new BinaryMessageEncodingBindingElement());

            // Create an instance of the HttpTransportBindingElement
            HttpTransportBindingElement httpTransportBindingElement = new HttpTransportBindingElement();
            string txtDefaultMaxBufferSize = httpTransportBindingElement.MaxBufferSize.ToString();
            txtOutput1.Text = txtDefaultMaxBufferSize;  //The value is 65536 (0x10000).

            // Change the maximum buffer size.
            httpTransportBindingElement.MaxBufferSize = 0x20000;
            string txtNewMaxBufferSize = httpTransportBindingElement.MaxBufferSize.ToString();
            txtOutput2.Text = txtNewMaxBufferSize; //The value is 131072 (0x20000).

            // Output http scheme.
            string txtScheme = httpTransportBindingElement.Scheme;
            txtOutput5.Text = txtScheme; //The value is http.

            elements.Add(httpTransportBindingElement);
            var binding = new CustomBinding(elements);

            //Create a channel factory for the service endpoint configured with the custom binding.
            var cf = new ChannelFactory<IService1>(binding, new EndpointAddress("https://localhost:10483/Service1.svc"));


            //Save the synchronized context for the UI thread.
            uiThread = SynchronizationContext.Current;

            //Open the channel.
            IService1 channel = cf.CreateChannel();

            //Invoke the GetPerson method on the service asynchronously. The signature is:
            //IAsyncResult BeginGetPerson(int personId, AsyncCallback callback, object state)
            channel.BeginGetPerson(4, GetPersonCallback, channel);

        }

        //Implement the callback. 
        void GetPersonCallback(IAsyncResult asyncResult)
        {
            Person p = ((IService1)asyncResult.AsyncState).EndGetPerson(asyncResult);

            //Update the UI thread and its output with the result of the method call.
            uiThread.Post(UpdateUI, p);

        }

        //Update the result displayed for the GetPerson invocation.
        private void UpdateUI(object state)
        {
            Person p = (Person)state;
            resultPersonName.Text = "The name of the Person is: " + p.Name;
            resultPersonAge.Text = "The age of the Person is: " + p.Age;
        }