SpiderBasic

Code: Select all

<?php
	$array = array("Peter"=>"35","Ben"=>"37","Joe"=>"43");
	echo json_encode($array);
?>

Code: Select all

Enumeration
  #Json
EndEnumeration

Procedure HttpGetEvent(Success, Result$)
  Protected i
  
  If Success
    
    Debug Result$
    
    If ParseJSON(#Json, Result$)  
      ObjectValue = JSONValue(#Json)
  
      If ExamineJSONMembers(ObjectValue)
        While NextJSONMember(ObjectValue)
          Debug JSONMemberKey(ObjectValue) + " = " + GetJSONInteger(JSONMemberValue(ObjectValue))
        Wend
      EndIf
    EndIf   
  Else
    Debug "HTTPRequest(): Error"
  EndIf
EndProcedure

HTTPRequest(#PB_HTTP_Get, "receivedata3.php", "", @HttpGetEvent())

Code: Select all

Enumeration
  #Json
EndEnumeration

Procedure HttpGetEvent(Success, Result$)
  Protected i
 
  If Success
   
    Debug Result$
   
    If ParseJSON(#Json, Result$) 
      ; transfer the php array to a map
      NewMap Values.l()
      ExtractJSONMap(JSONValue(#Json), Values())
      
      ; display the result
      ForEach Values()
        Debug MapKey(Values()) + " = " + Values()
      Next Values()
    EndIf 
  Else
    Debug "HTTPRequest(): Error"
  EndIf
EndProcedure

HTTPRequest(#PB_HTTP_Get, "receivedata3.php", "", @HttpGetEvent())