HTTP Server Framework für Object Pascal - nun auf GitHub

[mjustin]

Daraja HTTP Framework 2.6.beta.1

Das Daraja HTTP Server framework enthält in der kommenden Version 2.6 eine vieseitig verwendbare funktionale Neuerung in Form der WebFilter.
Mit einem WebFilter können HTTP Request und HTTP Response vor- und nachbearbeitet werden.
Einsatzbereiche für Filter sind zum Beispiel:
* Prüfen, Setzen und Entfernen von HTTP Header-Parametern
* Ersetzen von Texten auf oder Hinzufügen von Kopf- oder Fusszeilen
* Weiterleitung auf Login-Seiten
* Schreiben von Logdateien.

Source Code der Version 2.6.beta.1 ist hier zu finden:

https://github.com/michaelJustin/dar...tag/2.6-beta.1

Die Tests für Delphi (DUnit) und Lazarus / Free Pascal (FPCUnit) enthalten bereits einige Anwendungsbeispiele.

Ein Filter, der alle Requests verarbeitet (Path /*) und an das Ende des Dokuments den Text " filtered" anhängt, wird in diesem Unittest verwendet:

Delphi-Quellcode:

procedure TAPIConfigTests.TestCatchAllWebFilter;
var
  Server: TdjServer;
  Context: TdjWebAppContext;
begin
  // configure
  Context := TdjWebAppContext.Create('web');
  Context.AddWebComponent(TExamplePage, '*.txt');
  Context.AddFilterWithMapping(TTestFilter, '/*');

  // run
  Server := TdjServer.Create;
  try
    Server.Add(Context);
    Server.Start;

    CheckGETResponseEquals('example (filtered)', '/web/anypage.txt');
  finally
    Server.Free;
  end;
end;

Filterdefinition:

Delphi-Quellcode:

TTestFilter = class(TdjWebFilter)
public
  procedure DoFilter(Context: TdjServerContext; Request: TdjRequest;
    Response: TdjResponse; const Chain: IWebFilterChain); override;
end;

procedure TTestFilter.DoFilter(Context: TdjServerContext; Request: TdjRequest;
  Response: TdjResponse; const Chain: IWebFilterChain);
begin
   Chain.DoFilter(Context, Request, Response);
   Response.ContentText := Response.ContentText + ' (filtered)';
end;