Перейти к содержанию
Fire Monkey от А до Я
  • 0

[TIdLog] Как использовать компоненты линейки TIdLog?


sviat9440

Вопрос

Как использовать компоненты линейки TIdLog? Насколько я понимаю это для ведения лога? В гугле информации по нему нет. или ищу не то.

Кто нибудь юзал его? поделитесь опытом))

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Интересно, где можно скачать? Или что в uses писать?

Он будет автоматически записывать все события приложения? или надо записывать вручную?

Скачал Log4D, при компиляции пишет:

[dcc32 Fatal Error] Log4D.pas(33): F2613 Unit 'Comobj' not found.

Ссылка на комментарий
  • 0

хорошо, но что это за компоненты? Они то для чего то предназначены? Я просматривал все их функции и связи уроме названия и взаимоподключения не нашел

Ссылка на комментарий
  • 0

Нужен для того чтобы логировать все что происходит при запросах через IdTCPclient, IdUDPclient и т.п.

 

Например, положите на форму IdHTTP1, IdLogFile1, IdIOHandlerStack1 и Button. Пропишите следующее

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdIntercept, IdLogBase, IdLogFile,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdLogFile1: TIdLogFile;
    IdIOHandlerStack1: TIdIOHandlerStack;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdLogFile1.Filename:='c:\temp\1.log';
  IdLogFile1.Active:=True;
  IdIOHandlerStack1.Intercept:=IdLogFile1;
  IdHTTP1.IOHandler:= IdIOHandlerStack1;
  IdHTTP1.Get('http://google.ru');
end;

end.

После нажатия кнопки можете увидеть результат лога в файле c:\temp\1.log

Ссылка на комментарий
  • 0

Нужен для того чтобы логировать все что происходит при запросах через IdTCPclient, IdUDPclient и т.п.

 

Например, положите на форму IdHTTP1, IdLogFile1, IdIOHandlerStack1 и Button. Пропишите следующее

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdIntercept, IdLogBase, IdLogFile,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdLogFile1: TIdLogFile;
    IdIOHandlerStack1: TIdIOHandlerStack;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdLogFile1.Filename:='c:\temp\1.log';
  IdLogFile1.Active:=True;
  IdIOHandlerStack1.Intercept:=IdLogFile1;
  IdHTTP1.IOHandler:= IdIOHandlerStack1;
  IdHTTP1.Get('http://google.ru');
end;

end.

После нажатия кнопки можете увидеть результат лога в файле c:\temp\1.log

Ясно, спасибо))

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...