Einfacher Webserver in Excel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Tag Thomas,
einmal habe ich versucht das Winsock.dll einzubinden und auch mit dem Steuerelement zu arbeiten.
Habe mich immer an dieversen VB Scripten lang gehangelt.
Mit mit dem Winsock Steuerelementen arbeiten ging leider auch nicht, weil er immer sagt, es ist nicht
registriert.
Ziel soll es wirklich sein, Webseiten on the Flow zu generieren und den Port x zu öffnen.
Hintergrund ist, dass ich irgendwann mal Excel als Soap Server einsetzen wollte...
Aber das führt hier wohl zu weit....
Zum Beispiel an dem Script habe ich es probiert:
http://www.schmittis-page.de/vb/t136.htm
Aber VB Scripte nach VBA umzuschreiben, ist wohl nicht meine Stärke.
Muss man sich vielleicht eine eigene DLL schreiben, die das abdeckt?
Mhm, ich bin nicht wirklich weiter gekommen.

Hallo Björn,
wenn ich das jetzt richtig verstehe, willst Du das per VBA umsetzen. Ich habe mir schnell ein kleines Beispiel (s.u.) zusammengeklickt. Funktioniert, bei mir im Netzwerk (WinXp + Excel2003).
Für das Beispiel eine UserForm anlegen und zwei Buttons, zwei TextBoxes und zwei Winsocks . Das Winsock-Steuerelement ggf. vorher registrieren.
Ich würde so etwas aber auf jeden Fall mit einer richtigen Programmiersprache machen, und mit IIS (wg. Skalierbarkeit, Sicherheit). Natürlich würde sich auch ein WebService anbieten, entweder mit IIS gehostet oder z.B. über .NET-Remoting.
Aber wenn die VBA-Lösung ausreicht, warum nicht ...

Option Explicit
Private Sub CommandButton1_Click()
    TextBox1.Text = ""
    Winsock2.Close
    Winsock2.LocalPort = 80
    Winsock2.Listen
    TextBox1.Text = "http://" & Winsock2.LocalIP
End Sub
Private Sub CommandButton2_Click()
    Winsock2.Close
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Winsock1.GetData strData
    TextBox2.Text = ""
    TextBox2.Text = strData
    Winsock1.SendData "Test 123"
End Sub
Private Sub Winsock1_SendComplete()
    Winsock1.Close
End Sub
Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State = sckClosed Then
        Winsock1.Close
        Winsock1.Accept (requestID)
    End If
End Sub

Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfacher Webserver in Excel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread