horse datalogger

Pferdedatalog

Middleware entwickelt, um alle HTTP -Anfragen und -anforderungen auf dem Pferd zu registrieren.

Support: [email protected]

Installation

So installieren Sie Ihr Projekt mit Chef:

$ boss install github.com/dliocode/horse-datalogger

Manuelle Installation

Fügen Sie Ihrem Projekt die folgenden Ordner hinzu, in Projekt> Optionen> Delphi Compiler> Suchpfad

 ../src

Abhängigkeiten

Datalogger - Dies ist ein Tool, mit dem alle HTTP -Pferdeanforderungen registriert werden.

Weitere Informationen zur Verwendung dieses Tools in anderen Situationen finden Sie hier.

Clientip - Wird verwendet, um die IP zu erfassen.

Beobachtungen

Um diese Middleware zu verwenden, müssen Sie einige Dinge verstehen.

Anbieter : Es dient im Wesentlichen um die Speicherung Ihrer Protokolle.

DIMPONALAVIERS : KLICKEN SIE HIER

An welcher Position wird empfohlen, diesen Anbieter im Pferd zu verwenden: Wir empfehlen, dass er in der ersten Position hinzugefügt wird, um alle von ihm übergebenen Informationen aufzuzeichnen.

Wie man benutzt

Um es zu verwenden, ist erforderlich, um zum Gebrauch Horse.DataLogger zu addieren. Datalogger und dann die ausgewählten Designs hinzufügen, um die Protokolle zu registrieren.

Jetzt, da Sie ein wenig darüber verstanden haben, wie es funktioniert, gehen wir zu den Beispielen.

Einfach

 uses
  Horse, Horse.Constants,
  Horse.DataLogger,
  DataLogger.Provider.Console, // Provider para Console
  System.SysUtils;

begin
  THorse
  .Use(THorseDataLogger.Logger([TProviderConsole.Create])) // Adiconando Middleware e o Provider

  .Get( ' /ping ' ,
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      Res.Send( ' pong ' );
    end );

  THorse.KeepConnectionAlive := True;
  THorse.Listen( 8080 ,
    procedure(AHorse: THorse)
    begin
      Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
      Writeln;
    end );
end .

Vordefinierte Formate

  Combined, Common, Dev, Short, Tiny

Jedes Format hat eine andere und vorgefertigte Struktur.

Kombiniert

Standard -Apache -Kombinationsprotokollausgabe.

 ${request_remote_clientip} [${time}] "${request_method} ${request_raw_path_info}${request_query} '${request_protocol_version}" ${response_status_code} ${response_content_length} "${request_referer}" "${request_user_agent}"

Gemeinsam

Gemeinsame Protokollierungsausgabe.

 ${request_remote_clientip} [${time}] "${request_method} ${request_raw_path_info}${request_query} '${request_protocol_version}" ${response_status_code} ${response_content_length}

Dev

Einfache Protokollausgabe

 ${request_method} ${request_raw_path_info}${request_query} ${response_status_code} ${execution_time} ms - ${response_content_length}

Shorts

Kürzer als der Standard, einschließlich der Reaktionszeit.

 ${request_remote_clientip} ${request_method} ${request_raw_path_info}${request_query} ${request_protocol_version} ${response_status_code} ${response_content_length} ${execution_time} ms

Winzig

Mindestprotokollausgabe

 ${request_method} ${request_raw_path_info}${request_query} ${response_status_code} ${response_content_length} - ${execution_time} ms

Beispiel verwenden

 uses
  Horse, Horse.Constants,
  Horse.DataLogger,
  DataLogger.Provider.Console, // Provider para Console
  System.SysUtils;

begin
  THorse
  .Use(
    THorseDataLogger.Logger(
      THorseDataLoggerFormat.tfCombined, // Formato dos logs
      [TProviderConsole.Create]          // Adicionado o Middleware
    )
  )

  .Get( ' /ping ' ,
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      Res.Send( ' pong ' );
    end );

   // output: 0:0:0:0:0:0:0:1 [2022-12-22 17:18:31:791] "GET /ping HTTP/1.1" 200 4 "-" "PostmanRuntime/7.30.0"

  THorse.KeepConnectionAlive := True;
  THorse.Listen( 8080 ,
    procedure(AHorse: THorse)
    begin
      Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
      Writeln;
    end );
end .

Benutzerdefinierte Formate

Sie können Ihre eigenen Gebrauchsformate definieren

 uses
  Horse, Horse.Constants,
  Horse.DataLogger,
  DataLogger.Provider.Console, // Provider para Console
  System.SysUtils;

begin
  THorse
  .Use(
    THorseDataLogger.Logger(
      // Formato dos logs
      ' ${request_method} ${request_raw_path_info}${request_query} ${response_status_code} ${response_content_length} - ${execution_time} ms ' ,

      // Adicionado o Middleware
      [TProviderConsole.Create]
    )
  )

  .Get( ' /ping ' ,
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      Res.Send( ' pong ' );
    end );

   // output: 0:0:0:0:0:0:0:1 [2022-12-22 17:18:31:791] "GET /ping HTTP/1.1" 200 4 "-" "PostmanRuntime/7.30.0"

  THorse.KeepConnectionAlive := True;
  THorse.Listen( 8080 ,
    procedure(AHorse: THorse)
    begin
      Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
      Writeln;
    end );
end .

Verfügbare Formate

 ${time}
${execution_time} // Time in ms
${request_accept}
${request_authorization}
${request_cache_control}
${request_connection}
${request_content}
${request_content_encoding}
${request_content_length}
${request_content_type}
${request_content_version}
${request_cookie}
${request_cookie_fields}
${request_derived_from}
${request_from}
${request_host}
${request_internal_path_info}
${request_internal_script_name}
${request_method}
${request_path_info}
${request_path_translated}
${request_protocol_version}
${request_query}
${request_query_fields}
${request_raw_path_info}
${request_referer}
${request_remote_addr}
${request_remote_clientip}
${request_remote_host}
${request_remote_ip}
${request_script_name}
${request_server_port}
${request_title}
${request_url}
${request_user_agent}
${response_allow}
${response_content}
${response_content_encoding}
${response_content_length}
${response_content_type}
${response_content_version}
${response_custom_headers}
${response_date}
${response_derived_from}
${response_expires}
${response_last_modified}
${response_location}
${response_log_message}
${response_realm}
${response_reason}
${response_server}
${response_status_code}
${response_title}
${response_version}
${response_wwwauthenticate}

Hinzufügen von anderen Bereichen

Sie können mehrere Angebote hinzufügen, um jede Anfrage an verschiedenen Standorten zu registrieren.

In diesem Beispiel werden wir die Konsolenanfragen anzeigen und im Textformat speichern, alle verwenden zwei Einheiten , um sich zu registrieren

 DataLogger.Provider.Console, DataLogger.Provider.TextFile

Mehrere Anbieter

 uses
  Horse, Horse.Constants,
  Horse.DataLogger,
  DataLogger.Provider.Console, // Provider para Console
  DataLogger.Provider.TextFile, // Provider para TextFile
  System.IOUtils, System.SysUtils;

begin
  THorse
  .Use(
    THorseDataLogger.Logger(
      THorseDataLoggerFormat.tfCombined, // Formato dos logs
        TProviderConsole.Create,

        TProviderTextFile.Create
          .LogDir(TPath.GetDirectoryName(ParamStr( 0 )) + ' logrequest ' )
          .PrefixFileName( ' request_ ' )
          .Extension( ' .txt ' )
      ]
    )
  )

  .Get( ' /ping ' ,
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      Res.Send( ' pong ' );
    end );

   // output: 0:0:0:0:0:0:0:1 [2022-12-22 17:18:31:791] "GET /ping HTTP/1.1" 200 4 "-" "PostmanRuntime/7.30.0"

  THorse.KeepConnectionAlive := True;
  THorse.Listen( 8080 ,
    procedure(AHorse: THorse)
    begin
      Writeln( ' ' + Format(START_RUNNING, [THorse.Host, THorse.Port]));
      Writeln;
    end );
end .