Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2021, 16:33   #1
Eugene_Stoun
Пользователь
 
Аватар для Eugene_Stoun
 
Регистрация: 14.06.2013
Сообщений: 56
Сообщение Авторизация на сайте

Добрый день! Подскажите пожалуйста что я делаю не так при попытке пройти авторизацию на сайте:

Код:
var
token,content_type:string;
begin
content_type:='application/json';
token:='Authorization:Bearer'+'********************************************';
NetHTTPClient1.ContentType:=content_type;
NetHTTPClient1.CustomHeaders['token']:=token;
NetHTTPClient1.AcceptEncoding := 'UTF-8';
memo1.Lines.Add(NetHTTPClient1.Get('https://suppliers-api.wildberries.ru/public/api/v1/info?quantity=0').ContentAsString);
end;
После нажатия кнопки в Memo появляется "unauthorized"... Что делать не знаю((((
Учиться, учиться и еще раз учиться!
Eugene_Stoun вне форума Ответить с цитированием
Старый 13.08.2021, 09:59   #2
Eugene_Stoun
Пользователь
 
Аватар для Eugene_Stoun
 
Регистрация: 14.06.2013
Сообщений: 56
По умолчанию

Проблема решена!
Код:
var
api_key,content_type:string;
begin
content_type:='application/json';
api_key:='*****************************************';
NetHTTPClient1.ContentType:=content_type;
NetHTTPClient1.CustHeaders.Add('Authorization',api_key);
NetHTTPClient1.AcceptEncoding := 'UTF-8';
memo1.Lines.Add(NetHTTPClient1.Get('https://suppliers-api.wildberries.ru/public/api/v1/info?quantity=0').ContentAsString);
end;
Учиться, учиться и еще раз учиться!
Eugene_Stoun вне форума Ответить с цитированием
Старый 26.12.2022, 00:18   #3
mikl25
Новичок
Джуниор
 
Регистрация: 09.03.2013
Сообщений: 1
По умолчанию

Цитата:
Сообщение от Eugene_Stoun Посмотреть сообщение
Проблема решена!
Код:
var
api_key,content_type:string;
begin
content_type:='application/json';
api_key:='*****************************************';
NetHTTPClient1.ContentType:=content_type;
NetHTTPClient1.CustHeaders.Add('Authorization',api_key);
NetHTTPClient1.AcceptEncoding := 'UTF-8';
memo1.Lines.Add(NetHTTPClient1.Get('https://suppliers-api.wildberries.ru/public/api/v1/info?quantity=0').ContentAsString);
end;
Привет. а как сделать через RESTClient не подскажешь?
mikl25 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторизация на сайте Desprado Общие вопросы C/C++ 0 11.01.2012 21:06
Авторизация на сайте gawrilowalex Работа с сетью в Delphi 3 25.06.2011 00:26
Авторизация на сайте KpacaB4uk Работа с сетью в Delphi 5 18.02.2011 10:11
Авторизация на сайте doniyor Работа с сетью в Delphi 8 21.12.2009 08:33
Авторизация на сайте MultiBit Работа с сетью в Delphi 6 13.03.2009 18:45