0

Openoffice マクロを使用して、ローカル Web サーバーからデータをロードしたいと考えています。私はこのコードを試しました:

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")

このコードは機能しますが、Web サーバーがポート 80 でリッスンしない場合はどうすればよいですか?? (たとえば、ポート 8080 で) webAddr = " http://127.0.0.1:8080 " を試しましたが、うまくいきません:(

誰かが私を助けることができますか？ありがとう。

編集：おそらくこの種のコードで？

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())

でも使い方がわからない(/_;)

4

2 に答える 2

1

これは機能します：

webAddr = "http://178.33.250.62:8080/"  'portquiz.net

私のマシンでは Web サーバーがまったく実行されていないため、次の結果は IllegalArgumentException (「サポートされていない URL」) になります。

webAddr = "http://127.0.0.1"

したがって、この問題は OpenOffice や Basic とは関係がないようです。むしろ、問題は Web サーバーの構成方法にあります。

于 2016-05-13T20:48:34.783 に答える