안녕하세요

현재 delphi 10.2(tokyo) 버전으로 기존 개발자가 구현해놓은 소스를 가지고 JSON타입으로 서버,클라

이언트 사이에 연동 및 nexus db값 조회등 간단한 안드로이드 프로그램을 만들고 있습니다.

문제점은 미리 구현해놓은 소스가 서버 ip와 method를 보내면 로그인(인증세션)에 상관없이 결과값을

무조건 response하게 됩니다. 그래서 추가로 서버딴에서 클라이언트 로그인시 인증키 혹은 token값을

생성하여 request, response 받을때 헤더쪽에 포함해야된다는 이론적인 면만 알고있습니다.

질문 : 혹시 delphi 10.2 버전에서 이것들을 구현할수있나요?

구현할수있다면 간단한 예제나 소스를 구할수 있을까요?

아래는 현재 소스 일부입니다

procedure TfrmMain.ServerStart;
begin
  fServer := THttpApiServer.Create(false);
  fServer.AddUrl('임시주소', '80', false, '+', true);   << 임시주소는 임의로 가린값입니다.
  fServer.RegisterCompress(CompressDeflate);
  fServer.OnRequest := Process;
end;

function TfrmMain.Process(Ctxt: THttpServerRequest): cardinal;
var
  FN : RawUTF8;
begin
  FN := StringReplaceChars(UrlDecode(copy(Ctxt.URL,10,maxInt)),'/','\');

  if (UpperCase(Ctxt.Method) = 'POST') then
  begin
    if (FN = 'getServerIP') then
    begin
      Ctxt.OutContent := StringToUTF8(DM.getServerIP(UTF8DecodeToUnicodeString(Ctxt.InContent)).ToString);
      Ctxt.OutContentType := JSON_CONTENT_TYPE;
      result := 200;
    end
    else if (FN = 'doLogin')then
    begin
      Ctxt.OutContent := 
    StringToUTF8(DM.doLogin(UTF8DecodeToUnicodeString(Ctxt.InContent)).ToString);
      Ctxt.OutContentType := JSON_CONTENT_TYPE;
      result := 200;
    end
    else if (FN = '개인정보조회')then
    begin
      Ctxt.OutContent := 
    StringToUTF8(DM.doLogin(UTF8DecodeToUnicodeString(Ctxt.InContent)).ToString);
      Ctxt.OutContentType := JSON_CONTENT_TYPE;
      result := 200;
    end


위같이 구현되어있습니다

현재는 http://임시주소/doLogin  << 유저 로그인단계없이 http://임시주소/개인정보조회 를 

request하면 개인정보를 조회할수있습니다. doLogin을 하고 그 세션을 유지해야만 다른 메소드를 실

행할수 있는 방법은 어떻게 구현되어야 하나요 ㅠ 초보라 쉽게 써주셨으면 좋겠습니다.