FiveTech Support Forums

#include "FiveWin.ch"

Function Main()
   local oWnd, oActiveX1, oActiveX2, cTemp

   DEFINE WINDOW oWnd TITLE "FiveWin multiple ActiveX support"

   @ 5, 5 BUTTON "&API TEST"     OF oWnd SIZE 40, 20  ACTION TestAPI()

   ACTIVATE WINDOW oWnd

return nil

function TestAPI()

   local oHttp
   local cUrl  := "https://petstore.swagger.io/v2/pet/3"  //  the 3 is the item number in the database
   local hDatos    := { => }
   local uResponse, cCookies, I, cLink
   local cData

   cData    := '{ "name": "Noyca", "status" : "available" }'  //  Data for uploading changes.  Not needed for this sample

   MsgRun( cUrl, "READING API PAGE", { || uResponse := WebPageContents( cUrl, .t. ) } )

   XBrowser( uResponse ) FASTEDIT

   hb_JsonDecode( uResponse, @hDatos )     // -> Hash. You need some HASH functions to strip the data, change them and upload again
   XBrowser( hDatos ) FASTEDIT


   oHttp := FWGetOleObject( "WINHTTP.WinHttpRequest.5.1" )

   WITH OBJECT oHttp
      :SetTimeouts(0, 60000, 30000, 120000)
//      :Open( "POST", cUrl, .f. )   //  Sometimes POST or PATCH
      :Open( "PATCH", cUrl, .f. )
      :SetRequestHeader( "Accept",        "application/json" )
      :SetRequestHeader( "Content-Type",  "application/json" )
      :Send( cData )
      :WaitForResponse()
      ? :Status, :StatusText // 200 OK
   END
//  Writing gives a error.  I think a Token is needed for writing now
return nil