HTTPPost() basic authentication (Base64) example

Basic authentication (Base64)

Public PanelTempC, Battvolt

 

Public TestFileSize As Long

Public HTTPHeader As String *100

Public HTTPResponse As String * 180

Public HTTPResult

 

DataTable (Test,True,-1)

DataInterval (0,1,Min,10)

Sample(1,Battvolt,FP2)

Sample(1,PanelTempC,FP2)

EndTable

 

BeginProg

Scan (1,Sec,3,0)

Battery (Battvolt)

PanelTemp (PanelTempC,60)

 

CallTable Test

NextScan

 

SlowSequence

Scan(1,Min,0,0)

 

If TimeIntoInterval(0,60,Min) Then

HTTPHeader="Authorization: Basic QWRtaW4=:UGFzc3dvcmQ="

HTTPResult = HTTPPost("QWRtaW4:QWRtaW4@www.myurl.com/data","Test", _

HTTPResponse,HTTPHeader)

EndIf

 

NextScan