powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Коннектор для Callback URL из браузера
4 сообщений из 4, страница 1 из 1
Коннектор для Callback URL из браузера
    #40129965
SiteAnalyzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет! Необходимо в программе, которая сейчас открывает в браузере определенный URL для получения токена Google Search Console (в целом не важно откуда) добавить функцию, чтобы затем она принимала бы в ответ код авторизации непосредственно из браузера в программу (ответ приходит на https://localhost:порт).

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

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

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

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

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

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

Код: 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
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Коннектор для Callback URL из браузера
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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