Entwickler-Ecke

Internet / Netzwerk - C# to Delphi


DerNetteNachbar - Do 15.10.09 14:13
Titel: C# to Delphi
Hey Leute wie es oben schon steht wer kann mir eine kleine Passage aus einem Client von C# ins Delphi übersetzen:

C#-Quelltext
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:
namespace Test
{
    class Program
    {
        static string useSalesWeb(String URL, String User, String Password, String XMLRequest)
        {
            String retval = String.Empty;

            try
            {
                WebRequest wreq = WebRequest.Create(URL);
                wreq.Method = "POST";
                wreq.Credentials = new NetworkCredential(User, Password);

                byte[] data = Encoding.ASCII.GetBytes(XMLRequest);
                Stream s = wreq.GetRequestStream();
                s.Write(data, 0, data.Length);
                s.Close();

                WebResponse wres = wreq.GetResponse();
                StreamReader sr = new StreamReader(wres.GetResponseStream());

                retval = sr.ReadToEnd();
            }
            catch (Exception ex)
            {
                retval = ex.Message;
            }

            return retval;
        }

MfG

Nachbar

Vielen Dank für euere Hilfe schon mal im Vorraus.


elundril - Do 15.10.09 14:37

Hast du einen konkreten Ersatz für WebRequest und WebResponse in Delphi?

lg elundril


DerNetteNachbar - Do 15.10.09 14:56

Genau das ist der Knackpunkt bei mir. Es gibt in Delphi eine gleichnamige Komponente, die aber nicht dieselben Methoden hat und auch höchstwahrscheinlich einen anderen Schwerpunkt. Ausserdem wäre da noch diese Zeile:

C#-Quelltext
1:
 byte[] data = Encoding.ASCII.GetBytes(XMLRequest);                    

Eine Konvertierung der Nachricht die man sendet in den ASCII Code. Eine Vermutung wäre, der Browser liesst nur ASCII Zeichen.

lg

Nachbar


DerNetteNachbar - Mo 19.10.09 09:44

PUSH