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;