so...
Bin jetzt einen kleinen Schritt weiter.
Hab's nun geschafft, RequestToken und VerifierPIN zu erhalten, aber beim Abruf des AccessTokens bekomme ich eine Fehlermeldung.
Delphi-Quellcode:
procedure TForm1.GetAccessToken(Sender: TObject);
var S:String;
begin
RESTRequest.ResetToDefaults;
RESTClient.ResetToDefaults;
RESTResponse.ResetToDefaults;
RestClient.Authenticator := OAuth1Auth;
RESTClient.BaseURL := OAuth1Auth.AccessTokenEndpoint;
RESTRequest.Method := TRESTRequestMethod.rmPost;
RESTRequest.Params.AddItem('oauth_verifier', OAuth1Auth.VerifierPIN, TRESTRequestParameterKind.pkGETorPOST, [TRESTRequestParameterOption.poDoNotEncode]);
RESTRequest.Execute;
{HIER kommt die Fehlermeldung}
Memo1.Lines.Add(RestResponse.Content);
if {RESTResponse.}GetSimpleValue('oauth_token', S)
then OAuth1Auth.AccessToken := S;
if {RESTResponse.}GetSimpleValue('oauth_token_secret', S)
then OAuth1Auth.AccessTokenSecret := S;
AccessKeyEdit.Text := OAuth1Auth.AccessToken;
AccessSecretEdit.Text := OAuth1Auth.AccessTokenSecret;
end;
Ich erhalte ein Bad Request : "oauth_problem=parameter_absent&oauth_parameters_a bsent=oauth_verifier", obwohl alle bis dato gesetzten Keys, Secrets und PINs im OAuth1Authenticator vorhanden sind (auch der VerifierPIN). Auch ob ich "RESTRequest.Params.AddItem(...);" verwende oder nicht, macht keinen Unterschied.