Allgemeine Abläufe

Voraussetzungen

• TMS WebServer starten: „C:\Delphi\TMS\TMS WEB Core RSXE15\Bin\Win32\TMSWebServer.exe“

• program: kwaApp erstellen und InitLogin aufrufen

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
 
  TkwaApp.Create.InitLogin;
 
  Application.Run;

• kwaApp.Create

  //  FWindowTarget := TNavigationTarget.ntBlank;
  FWindowTarget := TNavigationTarget.ntPage;
  Debug := True;

• kwaApp.InitLogin

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;

• kwaApp.Login

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;