51 lines
1.3 KiB
Plaintext
51 lines
1.3 KiB
Plaintext
Define Class xmlparserclass As Custom
|
|
cXmlCursor = [crsXmlCrs]
|
|
ParseError=""
|
|
|
|
Function Load
|
|
Lparameters lcFile
|
|
LOCAL loex as Exception
|
|
loex=null
|
|
If Used(This.cXmlCursor)
|
|
Use In (This.cXmlCursor)
|
|
Endif
|
|
Try
|
|
Xmltocursor(lcFile,This.cXmlCursor,512)
|
|
Catch To loex
|
|
Messagebox("Structura fisierului Xml nu este corecta!",0+16, 'Eroare')
|
|
ENDTRY
|
|
RETURN loex
|
|
Endfunc
|
|
|
|
Procedure getCursorItems
|
|
Lparameters tcNumeCursor
|
|
If Used(tcNumeCursor)
|
|
Use In (tcNumeCursor)
|
|
Endif
|
|
Select Item From (This.cXmlCursor) Into Cursor (tcNumeCursor) Readwrite
|
|
Endproc
|
|
|
|
Function SelectNodes
|
|
Lparameters lcItem
|
|
Local lcVersiune,lcCursorVechi
|
|
lcCursorVechi = Alias()
|
|
Select (This.cXmlCursor)
|
|
Locate For Upper(Alltrim(Item)) = Upper(Alltrim(lcItem))
|
|
If Found()
|
|
lcUsermsg = Iif(Empty(Alltrim(usermsg)),[S-a gasit ] + Upper(Alltrim(lcItem)) +[ versiunea ] + Alltrim(Version) + [.] + ;
|
|
[Programul va incepe procedurile de actualizare!],Alltrim(usermsg))
|
|
lcVersiune = "<" + Alltrim(Version) + ">(" + Alltrim(fileURL) + "){" + lcUsermsg + "}"
|
|
Else
|
|
lcVersiune = [<>(){}]
|
|
Endif
|
|
Select (lcCursorVechi)
|
|
Return lcVersiune
|
|
Endfunc
|
|
|
|
Procedure Destroy
|
|
If Used(This.cXmlCursor)
|
|
Use In (This.cXmlCursor)
|
|
Endif
|
|
Endproc
|
|
Enddefine
|