Delphi SAML 단일 로그인

uses
  sgcAuth_SAML_SP;

// SAML은 폼 필드예요: SAML: TsgcSAMLServiceProvider;
procedure TForm1.ConfigureSAML(const aIdPMetadataXML: string);
begin
  SAML := TsgcSAMLServiceProvider.Create(nil);
  SAML.EntityID := 'https://app.example.com/saml/metadata';
  SAML.AssertionConsumerServiceURL := 'https://app.example.com/saml/acs';
  // IdP의 entity ID, SSO URL, 바인딩, 서명 인증서
  SAML.LoadIdPMetadata(aIdPMetadataXML);
end;

// GET /saml/metadata: SAML.GetMetadata를 반환하고 IdP에 등록해요

// GET /saml/login: 브라우저를 IdP로 리디렉션해요
function TForm1.LoginURL(const aRelayState: string;
  out aRequestID: string): string;
begin
  // 이 RelayState의 aRequestID를 보관해요, ACS에서 필요해요
  Result := SAML.GetAuthnRequestRedirectURL(aRelayState, aRequestID);
end;

// POST /saml/acs: 브라우저가 전달한 서명된 응답을 검증해요
function TForm1.ValidateResponse(const aSAMLResponse, aRelayState,
  aRequestID: string): string;
var
  oResult: TsgcSAMLResult;
begin
  oResult := TsgcSAMLResult.Create;
  try
    if SAML.ProcessResponse(aSAMLResponse, aRelayState, aRequestID, oResult) then
      Result := oResult.NameID // 그 외 oResult.Attributes와 SessionIndex도 있어요
    else
      raise Exception.Create(oResult.ErrorMessage);
  finally
    oResult.Free;
  end;
end;