Code: Select all
filename$ = "/Users/lebostein/x.xml"
; Load file into memory
fileid = ReadFile(#PB_Any, filename$)
*memory = AllocateMemory(Lof(fileid))
ReadData(fileid, *memory, MemorySize(*memory))
CloseFile(fileid)
Select 1
Case 1
; Catch XML from memory above
XML = CatchXML(#PB_Any, *memory, MemorySize(*memory))
If XMLStatus(XML): Debug XMLError(XML): Else: Debug "OK": EndIf ; ---> "out of memory"
Case 2
; Load XML from disc
XML = LoadXML(#PB_Any, filename$)
If XMLStatus(XML): Debug XMLError(XML): Else: Debug "OK": EndIf ; ---> OK
EndSelect


