SpiderBasic

Code: Select all

<?php
	$array = array("foo", "bar", "hello", "world");
	echo json_encode($array);
?>

Code: Select all

Enumeration
  #Json
EndEnumeration

Procedure HttpGetEvent(Success, Result$)
  Protected i
  
  If Success
    
    Debug Result$
    
    ParseJSON(#Json, Result$)
    
    For i = 0 To JSONArraySize(JSONValue(#Json)) - 1
      Debug GetJSONString(GetJSONElement(JSONValue(#Json), i))
    Next i
   
  Else
    Debug "HTTPRequest(): Error"
  EndIf
EndProcedure

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