====== Allgemeine Abläufe ======

Voraussetzungen

  * TMS WebServer starten: "C:\Delphi\TMS\TMS WEB Core RSXE15\Bin\Win32\TMSWebServer.exe"
  {{:ksh:kshwebapps:pasted:20240516-144757.png}}

  * program: kwaApp erstellen und InitLogin aufrufen

<code pascal>
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  TkwaApp.Create.InitLogin;

  Application.Run;
</code>

  * kwaApp.Create

<code pascal>
  //  FWindowTarget := TNavigationTarget.ntBlank;
  FWindowTarget := TNavigationTarget.ntPage;
  Debug := True;
</code>

  * kwaApp.InitLogin

<code pascal>
procedure TkwaApp.InitLogin;
var
  lJwt: string;
begin
  if Debug then Console.Log('InitLogin');
  // ToDo: Init und InitLogin zusammenlegen

  // ServiceUrl nicht vorhanden
  if not ThsWebTools.FindCookie(cCookieID_ServiceUrl) then StartConfigForm

  // LoginApp nicht vorhanden
  else if not ThsWebTools.FindCookie(cCookieID_LoginApp) then StartConfigForm

  // Hinweis und Weiterleitung anzeigen
  else if not ThsWebTools.CookieGet(TokenID, lJwt) then StartLoginForm

  // wenn JWT für grundsätzlichen Login vorhanden -> Hauptformular anzeigen
  else
  begin
    TformMain.StartApp;
  end;
end;
</code>

  * kwaApp.Login

<code pascal>
procedure TkwaApp.Init;
var
  lJwt: string;
begin
  if Debug then Console.Log('Init');
  // ServiceUrl nicht vorhanden
  if not ThsWebTools.FindCookie(cCookieID_ServiceUrl) then StartConfigForm

  // LoginApp nicht vorhanden
  else if not ThsWebTools.FindCookie(cCookieID_LoginApp) then StartConfigForm

  // Hinweis und Weiterleitung anzeigen
  else if not ThsWebTools.CookieGet(TokenID, lJwt) then StartEmptyForm

  // wenn JWT für grundsätzlichen Login vorhanden -> Hauptformular anzeigen
  else
  begin
    TformMain.StartApp;
  end;
end;
</code>