Ich habe es jetzt mal auf die schnelle mit REST-Komponenten zusammengeklickt und bekomme so ein Token:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
PaypalAuthReq.ClearBody;
PaypalAuthReq.Body.Add('grant_type=client_credentials',ctTEXT_PLAIN);
PaypalAuthReq.Execute;
if PayPalAuthResponse.StatusCode<300 then
MemoResult.Lines.Text:='Erfolg.'
else
MemoResult.Lines.Add('Fehlercode: '+PayPalAuthResponse.StatusCode.ToString);
MemoResult.Lines.Add(PayPalAuthResponse.Content);
end;
Wichtiger Unterschied zur Paypal-Anleitung: ich war mal so frei und habe als Content-Type "text/plain" genommen anstelle dieses www-form-urlencoded-Gedöns. Das scheint dann zu funktionieren.
Vielleicht reicht dir der Schnipsel ja schon, sonst kann ich das Demoprojekt auch gerne anfügen.