horse datalogger 다운로드 - horse datalogger 그 소스 코드 다운로드

horse datalogger

델파이 소스 코드

v0.0.3

다운로드

말------탈모기

말에 모든 HTTP 요청 및 요청을 등록하도록 설계된 미들웨어.

설치

보스를 사용하여 프로젝트에 설치하려면 :

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

수동 설치

프로젝트> 옵션> 델파이 컴파일러> 검색 경로 에서 다음 폴더 추가 프로젝트에 추가

 ../src

의존성

Datalogger- 이것은 모든 HTTP 말 요청을 등록하는 데 사용되는 도구입니다.

다른 상황 에서이 도구를 사용하는 방법에 대한 자세한 내용은 여기를 클릭하십시오.

ClientIP- IP를 캡처하는 데 사용됩니다.

관찰

이 미들웨어를 사용하려면 몇 가지를 이해해야합니다.

제공자 : 본질적으로 로그를 저장하기위한 것입니다.

지침 제공자 : 여기를 클릭하십시오

이 직책 에서이 공급자를 말에 사용하는 것이 좋습니다. 우리는이 공급자를 첫 번째 위치에 추가하여 통과 한 모든 정보를 기록하는 것이 좋습니다.

사용 방법

사용하려면 Horse.DataLogger 사용에 추가해야합니다. 그런 다음 로그를 등록하기 위해 선택한 설계를 추가하십시오.

이제 어떻게 작동하는지에 대해 조금 이해 했으므로 예를 들어 보겠습니다.

단순한

 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 .

사전 정의 된 형식

  Combined, Common, Dev, Short, Tiny

각 형식에는 다르고 사전 확립 된 구조가 있습니다.

결합

표준 apache 결합 로그 출력.

 ${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}"

흔한

일반적인 로깅 출력.

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

데브

간단한 로그 출력

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

반바지

응답 시간을 포함하여 표준보다 짧습니다.

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

매우 작은

최소 로그 출력

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

예제를 사용하십시오

 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 .

맞춤형 형식

자신의 사용 형식을 정의 할 수 있습니다

 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 .

사용 가능한 형식

 ${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}

기타 제공 추가

여러 위치에 각 요청을 등록하기 위해 다중 공급을 추가 할 수 있습니다.

이 예에서는 콘솔 요청을 표시하고 텍스트 형식으로 저장하여 두 단위를 사용하여 등록합니다.

 DataLogger.Provider.Console, DataLogger.Provider.TextFile

다수의 공급자

 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 .