Witam
Próbuję zrobić interfejs w Delphi (RAD Studio 10.3) do połączenia z REST Allegro . Proszę o pomoc - nie wiem jak rozpocząć. Napisałem procedurę:
procedure TForm1.Button5Click(Sender: TObject);
begin
client_id:='xxx';
client_secret:='xxx';
Restrequest.Client:=restclient;
RestClient.BaseURL := 'https://allegro.pl';
RestRequest.Method := TRESTRequestMethod.rmPOST;
RestRequest.Resource := 'auth/oauth/device';
RestRequest.AddParameter('Authorization','Basic '+TNetEncoding.Base64.encode(client_id+':'+client_secret),TRESTRequestParameterKind.pkHTTPHEADER);
RestRequest.AddParameter('Content-Type','application/x-www-form-urlencoded',TRESTRequestParameterKind.pkHTTPHEADER);
RestRequest.AddParameter('client_id',client_id,TRESTRequestParameterKind.pkGETorPOST);
RestClient.ContentType:='application/x-www-form-urlencoded';
RestRequest.Execute;
Memo1.Text := RestResponse.Content;
end;
Po wywołaniu procedury memo wyświetla html strony z informacją, że nie można wyświetlić strony. Nie wiem co jeszcze źle robię. Wiem, że w wyniku powinienem uzyskać access_token, ale nie mam już pomysłu co mam zrobić.