Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Коннектор для Callback URL из браузера / 4 сообщений из 4, страница 1 из 1
27.01.2022, 16:20
    #40129965
SiteAnalyzer
SiteAnalyzer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Коннектор для Callback URL из браузера
Привет! Необходимо в программе, которая сейчас открывает в браузере определенный URL для получения токена Google Search Console (в целом не важно откуда) добавить функцию, чтобы затем она принимала бы в ответ код авторизации непосредственно из браузера в программу (ответ приходит на https://localhost:порт).

Т.е. нужно допилить саму обработку для localhost

Документация Google: https://developers.google.com/identity/protocols/oauth2/web-server

Кто-то сталкивался с этим? Есть примеры или понимание куда копать?
Я так понимаю нужно каким-то веб-компонентом прослушивать некий порт на локал хосте.

Но не понятно как это реализовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2022, 22:44
    #40130539
Cobalt747
Cobalt747
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Коннектор для Callback URL из браузера
SiteAnalyzer,

есть простой компонент - TIdHTTPServer
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2022, 00:10
    #40130547
SiteAnalyzer
SiteAnalyzer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Коннектор для Callback URL из браузера
Cobalt747, и как с ним работать? Например указал порт, сделал активным, отправил в браузер URL, пришел ответ на локалхост:порт

Какие дальше действия? Есть пример?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2022, 11:58
    #40131208
SiteAnalyzer
SiteAnalyzer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Коннектор для Callback URL из браузера
Разобрался

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure TfmMain.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  Memo1.Lines.Add('Command: ' + ARequestInfo.Command);
  Memo1.Lines.Add('Host: ' + ARequestInfo.Host);
  Memo1.Lines.Add('URL: ' + ARequestInfo.URI);
  // Memo1.Lines.Add(ARequestInfo.UserAgent);
  Memo1.Lines.Add('Params:');
  Memo1.Lines.Add(ARequestInfo.Params.GetText);
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Коннектор для Callback URL из браузера / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]