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

[mjustin]

Unterstützung von IPv6, einfachere API

Die Unterstützung von IPv6 ist in der ersten Version des Frameworks enthalten. Es wird anhand der Doppelpunkte im Hoststring die Nutzung des IPv6 Protokolls aktiviert. Ausserdem wurde die API etwas vereinfacht, um einen Kontext und eine Web Component zu registrieren ist jetzt weniger Quelltext nötig. Hier ist das Hello World Beispiel, mit IPv6 Konnektor:

Delphi-Quellcode:

procedure Demo;
var
  Server: TdjServer;
  Context: TdjWebAppContext;

begin
  Server := TdjServer.Create;

  try
    Server.AddConnector('::1');
    
    Context := TdjWebAppContext.Create('web');
 
    Context.Add(THelloPage, '/hello.html');
 
    Server.Add(Context);
   
    Server.Start;
      
    ShellExecute(0, 'open', 'http://[::1]/web/hello.html', '', '', 0);
    
    WriteLn('Hit any key to terminate.');
    ReadLn;

  finally
    Server.Free;

  end;

end;

Die THelloPage Klasse ist wie folgt aufgebaut:

Delphi-Quellcode:

type
  THelloPage = class(TdjWebComponent)
  public
    procedure OnGet(Request: TIdHTTPRequestInfo; Response:
      TIdHTTPResponseInfo); override;
  end;

  { THelloPage }

procedure THelloPage.OnGet(Request: TIdHTTPRequestInfo;
  Response: TIdHTTPResponseInfo);
begin
  Response.ContentText := 'Hello world!';
end;