485
edits
m (Compiler bug in df20 on example. added PointerToString) |
(Keeping backwards compatibility for DF19.x on de demo code) |
||
Line 107: | Line 107: | ||
Move (Value(oCreds) + ":" + Value(oPassword)) to sToken | Move (Value(oCreds) + ":" + Value(oPassword)) to sToken | ||
Move (Base64Encode(AddressOf(sToken), Length(sToken))) to pCreds | Move (Base64Encode(AddressOf(sToken), Length(sToken))) to pCreds | ||
#IF (!@ < 200) | |||
Move pCreds to sToken | |||
#ELSE | |||
Move (PointerToString(pCreds)) to sToken | Move (PointerToString(pCreds)) to sToken | ||
#ENDIF | |||
Move (Free(pCreds)) to bOK | Move (Free(pCreds)) to bOK | ||
Get AddHeader of oHttp "Authorization" ("Basic" * sToken) to bOK | Get AddHeader of oHttp "Authorization" ("Basic" * sToken) to bOK |