인증이 성공하면 쿠키로 저장된 Public ID Token을 사용하여 OAuth2 Protected Server에 요청을 보낼 수 있습니다.
OAuth2 Provider Server Component에는 GET, POST, DELETE... 등 HTTP 요청을 보내는 여러 메서드가 있습니다.
Token을 매개변수로 전달하거나, Indy Server 구성 요소를 사용하는 경우 RequestInfo 클래스를 전달할 수 있습니다.
procedure OnCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
if ARequestInfo.Document = '/private' then
begin
// return OAuth2 profile data
AResponseInfo.ContentText := OAuth2Provider.Get(ARequestInfo, 'https://graph.microsoft.com/v1.0/me');
AResponseInfo.ContentType := 'application/json';
AResponseInfo.ResponseNo := 200;
end
else
AResponseInfo.ResponseNo := 404;
end;