Mit einem Openoffice-Makro möchte ich Daten von meinem lokalen Webserver laden. Ich habe diesen Code versucht:OpenOffice: Wie lade ich Daten von der HTTP-Adresse?
Dim stringWeb As String, webAddr As String
Dim doc As Object
Dim opts(0) As New com.sun.star.beans.PropertyValue
webAddr = "http://127.0.0.1:8080"
opts(0).Name = "Hidden"
opts(0).Value = True
doc = StarDesktop.loadComponentFromURL(webAddr, "_blank", 0, opts)
stringWeb = doc.Text.String
doc.close(True)
MsgBox(stringWeb, 0, "Result")
Dieser Code funktioniert, aber wie zu tun, wenn der Webserver nicht auf Port 80 zu hören? (Zum Beispiel auf Port 8080) Ich versuchte webAddr = "http://127.0.0.1:8080", aber es funktioniert nicht :(
mir jemand helfen könnte Danke
Edit:?. Vielleicht mit dieser Art von Code
?Dim vParser, vDisp
Dim oUrl As New com.sun.star.util.URL
oUrl.Complete = "http://127.0.0.1:8080"
vParser = createUnoService("com.sun.star.util.URLTransformer")
vParser.parseStrict(oUrl)
vDisp = StarDesktop.queryDispatch(oUrl, "", 0)
If (Not IsNull(vDisp)) Then vDisp.dispatch(oUrl, noargs())
Aber ich weiß nicht, wie es zu benutzen:/
nur eine zufällige Vermutung, vielleicht können Sie die 'scheme' (' http: // ') fallen, wenn es eine explizite Port geben? Andernfalls müssen Sie den Fehler, den Sie erhalten, wenn Sie das zweite Formular verwenden, posten. – jjm
Der Fehler ist: Die URL scheint nicht unterstützt zu werden. – Jerry
(In Bezug auf die Bearbeitung): Guter Versuch, aber der 'URLTransformer' Service wird in diesem Fall nicht helfen. Ich habe gerade darüber nachgedacht. Das Problem ist nicht wirklich ein URL-Analyseproblem, obwohl der Fehler sich anhören mag. –