Hallo Zusammen!
Ich versuche gerade von der Paypal Sandbox ein Token zu erhalten.
Ich mache überall das gleiche:
REST-Debugger (Leerer Result)
Delphi 10.0 / Delphi 10.1
Exception Empty Certifikatsliste
Delphi 10.2 "INTERNAL_SERVICE_ERROR"
Das einzige wo es funktioniert ist: PostMan (wie von Paypal vorgeschlagen)
Hier kommt JSON und das Token zurück...
Hat jemand ne Idee?
Edit: Wenn ich einen eigenen Server (Ohne SSL) als Ziel angebe, sieht es für mich so aus, als würden alle Clients genau das gleiche senden...
Delphi-Quellcode:
procedure TForm238.Button1Click(Sender: TObject);
function NoCRLF(
Const S:
String) :
String;
begin
Result := StringReplace(S,#13#10,'
',[rfreplaceall]);
end;
var
Content : TStringList;
Response : IHttpResponse;
Basic :
String;
begin
Content := TStringList.Create;
try
Content.Add('
grant_type=client_credentials');
Basic := NoCRLF(TNetEncoding.Base64.Encode('
<UserID>:<Secret>'));
Req.CustomHeaders['
Accept'] := '
application/json';
Req.CustomHeaders['
Accept-Language'] := '
en_US';
Req.CustomHeaders['
Content-Type'] := '
application/x-www-form-urlencoded';
Req.CustomHeaders['
Authorization'] := '
Basic '+Basic;
Memo1.Lines.Clear;
Response := Req.Post('
https://api.sandbox.paypal.com/v1/oauth2/token',Content);
Memo1.Lines.Add('
Content-Length : '+Response.ContentLength.ToString);
Memo1.Lines.Add(Response.StatusCode.ToString+'
'+Response.StatusText);
Memo1.Lines.Add(Response.ContentAsString())
finally
Content.Free;
end;
end;
Mavarik