الصفحة الرئيسية>المتعلقة بالبرمجة>كود مصدر دلفي
تنزيل

قرع الحصان

البرامج الوسيطة المصممة لتسجيل جميع طلبات وطلبات HTTP على الحصان.

الدعم: مطور [email protected]

تثبيت

للتثبيت في مشروعك باستخدام BOSS: 

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

التثبيت اليدوي

أضف المجلدات التالية إلى مشروعك ، في Project> Options> Delphi Compiler> Search Path 

 ../src

التبعيات

Datalogger - هذه أداة تستخدم لتسجيل جميع طلبات HTTP Horse.

لمزيد من المعلومات حول كيفية استخدام هذه الأداة في المواقف الأخرى ، انقر هنا.

Compeneip - يستخدم لالتقاط IP.

الملاحظات

لاستخدام هذه البرامج الوسيطة ، تحتاج إلى فهم بعض الأشياء.

مقدمي الخدمات : إنه في الأساس لتخزين سجلاتك.

مزودي Diponable: انقر هنا

في أي موضع يوصى باستخدام هذا الموفر في الحصان: نوصي بإضافته في الموضع الأول لتسجيل جميع المعلومات التي تم تمريرها.

كيفية استخدام

لاستخدامه ، من الضروري إضافة إلى استخدام 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 .
يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل