AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke http post erstellen (VB -> Delphi)
Thema durchsuchen
Ansicht
Themen-Optionen

http post erstellen (VB -> Delphi)

Ein Thema von weisswe · begonnen am 8. Apr 2013 · letzter Beitrag vom 8. Apr 2013
Antwort Antwort
weisswe
(Gast)

n/a Beiträge
 
#1

http post erstellen (VB -> Delphi)

  Alt 8. Apr 2013, 11:34
Hallo!

Leider hab ich noch nicht wirklich Erfahrungen mit HTTP/SOAP requests.
Es gibt ein einfaches VB Programm das ich in Delphi (XE3) konvertieren möchte.
Vielleich kann mir ja jemacht helfen - welche Komponenten, Units, Prozeduren, ..? :-/

Hier der Code:
Code:
Imports System
Imports System.Linq
Imports System.Net
Imports System.Windows.Forms
Imports System.Xml.Linq

Public Class Form1
    ' URL
    Private address As String = "http://192.168.1.123/cgi-bin/service.cgi?param1=abc&param2=10000"
    ' XML namespace
    Private soap As XNamespace = "http://schemas.xmlsoap.org/soap/envelope/"
    Private epos As XNamespace = "http://www.xxx.com/schemas/2011/03/xxx"
   
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Create document
        Dim req As XElement = _
            <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
                <s:Body>
                    <xxxt-yyy xmlns="http://www.xxx.com/schemas/2011/03/xxx">
                        <text lang="en">Testtext</text>
                    </xxx-yyy>
                </s:Body>
            </s:Envelope>
        ' Send document
        Dim client As WebClient = New WebClient()
        client.Headers.Set("Content-Type", "text/xml; charset=utf-8")
        AddHandler client.UploadStringCompleted, AddressOf UploadStringCompletedEventHandler
        client.UploadStringAsync(New Uri(address, UriKind.Absolute), req.ToString())
    End Sub

    ' Receive response document
    Private Sub UploadStringCompletedEventHandler(sender As Object, e As UploadStringCompletedEventArgs)
        If (e.Error IsNot Nothing) Then
            MessageBox.Show(e.Error.Message)
        Else
            'Parse response document
            Dim res As XElement = XElement.Parse(e.Result)
            Dim c = From el In res.Descendants(epos + "response") Select el.Attribute("success")
            MessageBox.Show(c.First().Value)
        End If
    End Sub

End Class
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#2

AW: http post erstellen (VB -> Delphi)

  Alt 8. Apr 2013, 19:00
Das verraten die Namespace doch schon.

System
Linq
Net
Forms
Xml

EDIT:
Für alles andere..
Migrating VB to Delphi
Die Regeln sollten eigentlich auch für VB.Net noch gelten wenn auch teilweise schon überholt.


gruss

Geändert von EWeiss ( 8. Apr 2013 um 19:39 Uhr)
  Mit Zitat antworten Zitat
weisswe
(Gast)

n/a Beiträge
 
#3

AW: http post erstellen (VB -> Delphi)

  Alt 8. Apr 2013, 19:51
Wäre toll die richtigen Komponenten/Methoden zu wissen, dann wären die Units kein Problem mehr.. :-/
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz