Recent

Author Topic: Synapse, how to | curl_setopt($ch, CURLOPT_USERPWD, "$accessKey:$secretKey");  (Read 2608 times)

cpalx

  • Hero Member
  • *****
  • Posts: 753
how can i make this PHP  code in lazarus with synapse?

curl_setopt($ch, CURLOPT_USERPWD, "$accessKey:$secretKey");
« Last Edit: October 16, 2018, 10:06:21 pm by cpalx »

cpalx

  • Hero Member
  • *****
  • Posts: 753
i have something like:

Code: Pascal  [Select][+][-]
  1.  HTTP := THTTPSend.Create;
  2.   HTTP.Sock.CreateWithSSL(TSSLOpenSSL);
  3.   HTTP.Sock.SSLDoConnect;
  4.   StrList:= TStringList.Create;
  5.   try
  6.     URLData:= '{"amount":"1200.00"}';
  7.     WriteStrToStream(HTTP.Document, URLData);
  8.     HTTP.MimeType := 'application/json';
  9.  
  10.     HTTP.Headers.Add( 'Authorization: Basic  accessKey:secretKey');  

Leledumbo

  • Hero Member
  • *****
  • Posts: 8746
  • Programming + Glam Metal + Tae Kwon Do = Me
i have something like:
Code: Pascal  [Select][+][-]
  1. ...
  2. HTTP.Headers.Add('Authorization: Basic  accessKey:secretKey');  
Almost:
Code: Pascal  [Select][+][-]
  1. uses base64;
  2. ...
  3. HTTP.Headers.Add('Authorization: Basic ' + EncodeStringBase64('accessKey:secretKey'));
  4.  
or my preference:
Code: Pascal  [Select][+][-]
  1. uses base64;
  2. ...
  3. HTTP.Headers.Values['Authorization'] := 'Basic ' + EncodeStringBase64('accessKey:secretKey');
  4.  

Thaddy

  • Hero Member
  • *****
  • Posts: 14197
  • Probably until I exterminate Putin.
In this case - everybody knows I love synapse - why not simply use the libcurl bindings that come as standard with Freepascal?
Specialize a type, not a var.

 

TinyPortal © 2005-2018