can't access XML simultaneously?

[leevy]

hello,

My script has a warning when I input "Memo #" and press enter key, it says:"--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)"

please help me, thanks.

my scrip is the following:

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>
#include <_XMLDomWrapper.au3>


Global $memonum, $memoname
Global $bugreporttemplate, $template, $tmpvalue

_Main()

Func _Main()
; Create the GUI window and controls
    GUICreate("Wing 1.0", 400, 500, (@DesktopWidth - 400)/ 2, (@DesktopHeight - 500) / 2)

    GUISetIcon("Wing_1.ico")

    $tab = GUICtrlCreateTab(10, 10, 382, 440,0x00000020 )


    $tabitem1 = GUICtrlCreateTabItem("version file")

    $memonumlabel = GUICtrlCreateLabel("Memo #", 25, 75, 80, 20, 0x0200)
    $memonum = GUICtrlCreateInput("", 105, 75, 80, 20, 0x0080)
    $bugreporttemplatelabel = GUICtrlCreateLabel("Template", 200, 75, 80, 20, 0x0200)
    $bugreporttemplate = GUICtrlCreateCombo("", 255, 75, 120, 20)   
    $cancelbutton = GUICtrlCreateButton("Cancel", 260, 465, 60, 20)
; Run the GUI until it is closed
        _Readtemplate("data resource\resource.xml", "/wing/report/*")
        GUICtrlSetData($bugreporttemplate, $template,$tmpvalue[1])
    GUISetState()
    
        ControlFocus ( "Wing 1.0", "", $memonum)
            
;get bug report template

    While 1

        $msg = GUIGetMsg()
    ; memo number inputbox get focus
            
            Select
                Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
                    ExitLoop
                    
                case $msg = $memonum

                    _getxmlvaluefromAPI("http://172.16.33.12/Admin/WebService/Service.asmx/Login", "name", "weiqinl", "password", "Leevy781005")
                    $APIticket = _XMLGetValue('//Ticket')

                    _getxmlvaluefromAPI("http://172.16.33.12/Admin/WebService/Service.asmx/GetMemo", "MemoNum", GUICtrlRead($memonum), "ticket", $APIticket[1])
                    $APIMemoData = _XMLGetValue('//MemoData')
                    ConsoleWrite($APIMemoData)
                    $oIE = _IECreate("about:blank",0,0,1)   
                    $memodatatmp = _IEPropertyGet($oIE, "innertext")

            EndSelect
    WEnd

    Exit
EndFunc  

Func _getxmlvaluefromAPI($url, $paraname1, $paravalue1, $paraname2, $paravalue2)
    $objHTTP = ObjCreate("Microsoft.XMLHTTP")
    $APIloginUrl= $url&"?"&$paraname1&"="&$paravalue1&"&"&$paraname2&"="&$paravalue2
    $objHTTP.Open("Get", $APIloginUrl, False )
    $objHTTP.Send
    $xml = $objHTTP.ResponseText
                
    $newxml= StringReplace( $xml, ' xmlns="http://www.xxxx.com/"', '' )
    _XMLLoadXML($newxml)
EndFunc

Func _Readtemplate($xmlfilename,$path)
    $sXML = $xmlfilename
    If _XMLFileOpen($sXML,"",-1) = -1 Then
        ConsoleWrite("can′t open file!" & @CRLF)
        Exit
    EndIf
    $tmpvalue = _XMLSelectNodes($path)
    $template = $tmpvalue[1]
    for $i = 2 to _ArrayMax($tmpvalue)
        $template =$template&"|"&$tmpvalue[$i]
    Next
    FileClose($sXML)
EndFunc

my xml file is attached.

Edited January 21, 2009 by leevy

[PsaltyDS]

hello,

My script has a warning when I input "Memo #" and press enter key, it says:"--> IE.au3 V2.4-0 Warning from function internal function __IEIsObjType, Cannot register internal error handler, cannot trap COM errors (Use _IEErrorHandlerRegister() to register a user error handler)"

please help me, thanks.

my scrip is the following:

CODE

#include <GuiConstantsEx.au3>

#include <EditConstants.au3>

#include <WindowsConstants.au3>

#include <Array.au3>

#include <IE.au3>

#include <_XMLDomWrapper.au3>

Global $memonum, $memoname

Global $bugreporttemplate, $template, $tmpvalue

_Main()

Func _Main()

; Create the GUI window and controls

GUICreate("Wing 1.0", 400, 500, (@DesktopWidth - 400)/ 2, (@DesktopHeight - 500) / 2)

GUISetIcon("Wing_1.ico")

$tab = GUICtrlCreateTab(10, 10, 382, 440,0x00000020 )

$tabitem1 = GUICtrlCreateTabItem("version file")

$memonumlabel = GUICtrlCreateLabel("Memo #", 25, 75, 80, 20, 0x0200)

$memonum = GUICtrlCreateInput("", 105, 75, 80, 20, 0x0080)

$bugreporttemplatelabel = GUICtrlCreateLabel("Template", 200, 75, 80, 20, 0x0200)

$bugreporttemplate = GUICtrlCreateCombo("", 255, 75, 120, 20)

$cancelbutton = GUICtrlCreateButton("Cancel", 260, 465, 60, 20)

; Run the GUI until it is closed

_Readtemplate("data resource\resource.xml", "/wing/report/*")

GUICtrlSetData($bugreporttemplate, $template,$tmpvalue[1])

GUISetState()

ControlFocus ( "Wing 1.0", "", $memonum)

;get bug report template

While 1

$msg = GUIGetMsg()

; memo number inputbox get focus

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton

ExitLoop

case $msg = $memonum

_getxmlvaluefromAPI("http://10.100.12.204/Admin/WebService/Service.asmx/Login", "name", "weiqinl", "password", "Leevy781005")

$APIticket = _XMLGetValue('//Ticket')

_getxmlvaluefromAPI("http://10.100.12.204/Admin/WebService/Service.asmx/GetMemo", "MemoNum", GUICtrlRead($memonum), "ticket", $APIticket[1])

$APIMemoData = _XMLGetValue('//MemoData')

ConsoleWrite($APIMemoData)

$oIE = _IECreate("about:blank",0,0,1)

$memodatatmp = _IEPropertyGet($oIE, "innertext")

EndSelect

WEnd

Exit

EndFunc

Func _getxmlvaluefromAPI($url, $paraname1, $paravalue1, $paraname2, $paravalue2)

$objHTTP = ObjCreate("Microsoft.XMLHTTP")

$APIloginUrl= $url&"?"&$paraname1&"="&$paravalue1&"&"&$paraname2&"="&$paravalue2

$objHTTP.Open("Get", $APIloginUrl, False )

$objHTTP.Send

$xml = $objHTTP.ResponseText

$newxml= StringReplace( $xml, ' xmlns="http://QAForum.webex.com/"' '' )

_XMLLoadXML($newxml)

EndFunc

Func _Readtemplate($xmlfilename,$path)

$sXML = $xmlfilename

If _XMLFileOpen($sXML,"",-1) = -1 Then

ConsoleWrite("can′t open file!" & @CRLF)

Exit

EndIf

$tmpvalue = _XMLSelectNodes($path)

$template = $tmpvalue[1]

for $i = 2 to _ArrayMax($tmpvalue)

$template =$template&"|"&$tmpvalue[$i]

Next

FileClose($sXML)

EndFunc

my xml file is attached.

It is just a warning and can be safely ignored. The _XMLDOMWrapper.au3 UDF registers a COM error handler, so IE.au3 can't. It's not a problem unless you need to debug within IE.au3.

I don't understand what you expect to get back for innertext on browser object when all you have loaded is about:blank. Maybe that is triggering the attempt to display an error.

Also, the current version of IE.au3 is v2.4-1. Are you running an outdated version of AutoIt?

[leevy]

I don't understand what you expect to get back for innertext on browser object when all you have loaded is about:blank. Maybe that is triggering the attempt to display an error.

Yes, you are right.