Hallo zusammen
ich hab ein Script gebastelt, welches über eine API von search.ch den Telefonbucheintrag einer Telefonnummer ausgeben soll. Die Resultate werden von der API als xml-Datei geliefert. Doch ich erhalte den Fehler
We intercepted a COM Error ! Number is: 80020009 Windescription is: Ausnahmefehler aufgetreten.
Leider scheint diese Meldung nichts spezifisches auszusagen, offenbar hat es aber mit dem API-Aufruf zu tun, das konnte ich als einzigstes rausfinden.
Vielleicht hat hier jemand eine Idee, woran das liegen könnte? Ist der Befehl _XMLCreateFile() evtl. der falsche in diesem Fall?
Eine Beispiel-xml-Datei kann ansonsten hier gefunden werden: Link
Danke für einen Tipp!
C
#include <AutoItConstants.au3>
#include <StringConstants.au3>
#include <_XMLDomWrapper.au3>
#include <WinAPIShPath.au3>
#include <HTTP.au3>
#include <File.au3>
#include <Array.au3>
$key = "&key=xxxxxx"
;~ $was = "&was=" & URLEncode($CmdLine[1])
$was = "&was=0442777777"
$sURL = "https://tel.search.ch/api/?maxnum=1" & $was & $key
Abfragen($sURL)
Func Abfragen($sURL)
_XMLCreateFile($sURL, "Suche")
If FileExists($sURL) Then
While @error = 0
$file =_XMLFileOpen($sURL)
If $file = 0 Then MsgBox(0, "Fehler", "Fehler beim Oeffnen der xml-Datei.")
Local $sType[8] = ['tel:name', 'tel:firstname', 'tel:street', 'tel:streetno', 'tel:zip', 'tel:city', 'tel:phone', 'tel:extra type="fax"']
Local $sBeschr[8] = ["Name:", "Vorname:", "Strasse:", "Nr.:", "PLZ:", "Ort:", "Telefon:", "Fax:"]
Local $html_string = "<html><head></head><body><table width=200 align=center><tr><td colspan=2><b><u>Resultate für:" & $CmdLine[1] & "</u></b></td></tr>", $y[8]
For $x = 0 To 7
$y[$x] = _XMLGetField("//entry/" & $sType[$x])
$html_string &= "<tr><td width=60>" & $sBeschr[$x] & "</td><td width=140>" & $y[$x] & "</td></tr>"
Next
$html_string &= "</table></body></html>"
MsgBox(0, "Suche", $html_string)
;~ Return $html_string
WEnd
MsgBox(4096, "Fehler", _XMLError())
EndIf
EndFunc
Alles anzeigen