HTTPGet() bearer (token) authentication example

HTTPGet () bearer (token) authentication

Public PTemp, Batt_volt

Public HTTPResult As Long

 

Public httpHead As String * 4048

Public httpHead1 As String * 512

Public httpHead2 As String * 512

Public httpHead3 As String * 512

Public httpHead4 As String * 512

 

Public Response As String * 200

 

'Define Data Tables

DataTable (Test,1,-1) 'Set table size to # of records, or -1 to autoallocate.

DataInterval (0,1,Min,10)

Minimum (1,Batt_volt,FP2,False,False)

Sample (1,PTemp,FP2)

EndTable

 

'Main Program

BeginProg

Scan (1,Min,0,0)

PanelTemp (PTemp,15000)

Battery (Batt_volt)

 

CallTable Test

NextScan

 

SlowSequence

Scan (1,Hr,3,0)

'Note: Token is simulated for a generic application using HTTPPost()

httpHead1 = "Authorization: Bearer " & CHR(13) & CHR(10)& "rF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgR5cCI6ImF0K2p3dCIsIng1dCI6Ik5HNmQzaUNoMUYzrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgdCVG9CLXJWVlRCTrF8Uzm3RGWH2bDbyE4nqrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrChQnL52YxgI6MTcyMDcwNrF8rF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgL52Yxgy9hcGkubXlrrF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg"

httpHead2 = "rF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgM0EwMUZBQjU1NTRDMTNSpIjoiMUE1MjkzQjJFNDhGOTc2M0Y2RrF8Uzm3RGWH2bDbyE4nqJPrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxggOjrF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxgzm3RGWH2bDbyE4nqJPChQnL52YxgQURTWVNURU0iLCJXUklURVNZrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgU1RFTSJdrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrcBK3GiekVoY7RW4r0D941pdPAraYhvqO_PYU55wFzso6mU0opz6vG-677"

httpHead3 = "rF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg" & CHR(45) & "rF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg" & CHR(45) & "rF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg" & CHR(45) & "rF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg" & CHR(45) & "BMy7A1FHgyo3kIzHTKrF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg5u7Bv803AoCI29c1Y9kNNd5unTfu" & CHR(45) & "rF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg" & CHR(45) & "rF8Uzm3RGWH2bDbyE4nqJrF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgPChQnL52Yxg"

httpHead4 = "rF8Uzm3RGWH2bDbyE4nqJPChQnL52YxgrF8Uzm3RGWH2bDbyE4nqJPChQnL52Yxg" & CHR(13) & CHR(10)

 

httpHead = httpHead1 & httpHead2 & httpHead3 & httpHead4

 

HTTPResult = HTTPGet("https://api.exampleURI.com/v2/systems/me?page=1&itemsPerPage=10",Response,httpHead,7500)

 

NextScan

EndProg