1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;
using SOAPTest.EuroScan;
using System.Security.Cryptography;

namespace SOAPTest
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private string GetMD5Hash(string TextToHash)
        {
            if (string.IsNullOrEmpty(TextToHash))
                return string.Empty;
            MD5 md5 = new MD5CryptoServiceProvider();
            byte[] textToHash = Encoding.Default.GetBytes(TextToHash);
            byte[] result = md5.ComputeHash(textToHash);
            //Liefert XX-XX-XX...
            string s=System.BitConverter.ToString(result);
            //Wir wollen es ohne Striche
            return s.Replace("-", "");
        }

        private void button1_Click(object sender, EventArgs e)
        {
            EuroScan.AuthenticationResult r;
            EuroScan.EuroscanXMLSoapServiceSoapClient E;

            TB1.Clear();  //Einfache Textbox für Ausgaben
            TB1.AppendText("Creating SOAP-Client\r\n");
            E = new EuroScan.EuroscanXMLSoapServiceSoapClient();
            TB1.AppendText("Getting Version-Number\r\n");
            TB1.AppendText("XMLVersion = " + E.GetEuroscanXMLSoapServiceVersion() + "\r\n");
            //Should give 7.2.2.1, however, we get 1.0.0.6 :-(
            //With Delphi, we get the correct Versionnumber
        }

    }
}