PureBasic Forums - English

Code: Select all

; Expat returns UTF8-Strings in ascii mode and unicode strings in unicode mode
CompilerIf #PB_Compiler_Unicode
  Macro PeekExpat(ptr)
    PeekS(ptr)
  EndMacro
CompilerElse
  Macro PeekExpat(ptr)
    PeekS(ptr, -1, #PB_UTF8)
  EndMacro
CompilerEndIf


ProcedureC StartElementHandler(user_data, *name, *args)
  Debug "Start: " + PeekExpat(*name)
  
  ; Attribute values are an array of pointers with alternating name and value entries
  ; Terminated by null pointer
  *arg.INTEGER = *args
  While *arg\i <> 0
    Name$ = PeekExpat(*arg\i)
    *arg + SizeOf(Integer)
    Value$ = PeekExpat(*arg\i)
    *arg + SizeOf(Integer)
    Debug "             " + Name$ + "=" + Value$
  Wend  
EndProcedure

ProcedureC EndElementHandler(user_data, *name)
  Debug "End: " + PeekExpat(*name)
EndProcedure



If ReadFile(0, "c:\test.xml")

  ; initialize parser
  Parser = pb_XML_ParserCreate_(0)
  
  pb_XML_SetStartElementHandler_(Parser, @StartElementHandler())
  pb_XML_SetEndElementHandler_(Parser, @EndElementHandler())
  
  ; block size for streaming. this is very small as an example. Use something larger like 1Mb here for real files!
  BufferSize = 20
  *Buffer = AllocateMemory(BufferSize)

  While Not Eof(0)
    BytesRead = ReadData(0, *Buffer, BufferSize)
    If BytesRead > 0
      If pb_XML_Parse_(Parser, *Buffer, BytesRead, #False) = #XML_STATUS_ERROR
        ; parser error (message is in ascii)
        Debug "Parser Error (Line " + Str(pb_XML_GetCurrentLineNumber_(Parser)) + "): " + PeekS(pb_XML_ErrorString_(pb_XML_GetErrorCode_(Parser)), -1, #PB_Ascii)
        Break
      EndIf
    EndIf
  Wend
  
  ; important: finish the parsing process
  pb_XML_Parse_(Parser, *Buffer, 0, #True)
  pb_XML_ParserFree_(Parser)
  
  FreeMemory(*Buffer)  
  
  CloseFile(0)
Else
  Debug "Cannot open file"
EndIf