Ведение лог-файла

[ADRAY]

Огромное спасибо))) Очень приятно)
Вы себе даже не представляете, как меня выручаете!

Итак, конкретно мое задание:"Реализация сохранения лога активности пользователя на сервере (в какие папки заходил, что скачивал / закачивал, что редактировал ...)". Дано - FTP-клиент и недопрограммист.

[3D Hunter]

Так и применяйте эту функцию в вашем коде:

...
  //код включения вашего сервера
  Log('FTP-Сервер был запущен');
  //поработали с сервером
  //Код выключения сервера
  Log('FTP-Сервер был выключен');
...

А если ваше приложение многопоточное, то лучше завернуть эту функцию в класс, например:

type
  TLogs = class
  public
    FRTL:TRTLCriticalSection;
    function Log(const AText:AnsiString):Boolean;
  public
    constructor Create;
    destructor Destroy;
  end;

implementation

constructor TLogs.Create;
var
  i:Integer;
begin
  inherited Create;
  InitializeCriticalSection(FRTL);
end;

destructor TLogs.Destroy;
begin
  DeleteCriticalSection(FRTL);
  inherited Destroy;
end;

function TLogs.Log(const AText:AnsiString):Boolean;
var
  LStr:AnsiString;
  LFile:TextFile;
begin
  try
    try
      EnterCriticalSection(FRTL);
      Result:=True;
      LStr:=ExtractFilePath(Application.ExeName)+'log.txt';
      AssignFile(LFile,LStr);
      if FileExists(LStr) then Append(LFile) else Rewrite(LFile);
      LStr:=Format('%s - %s',[DateTimeToStr(Now),AText]);
      Writeln(LFile,LStr);
    finally
      CloseFile(LFile);
      LeaveCriticalSection(FRTL);
    end;
  except
    Result:=False;
  end;
end;

Использование:

...
var
  Logs:TLogs;
begin
  Logs:=TLogs.Create;
  ...
  Logs.Log('Log-message is created');
  ...
  FreeAndNil(Logs);
end;
...

В текстовом файле log.txt появится строчка:
26.11.2011 22:32:45 - Log-message is created

Вы можете логгировать все нужные события FTP-клиента таким образом. Написание FTP-сервера и реализация механизмов работы с клиентами это уже другой разговор)

[ADRAY]

По-моему, это немного не то.
В текстовом файле должна сохранятся инфа о том, в какие папки заходил пользователь, что редактировал, скачивал...

[3D Hunter]

Вы говорите уже про реализацию FTP-сервера. В названии темы спрашивается только про ведение лог-файла. Если у вас уже есть код сервера, то покажите те участки кода, где нужно осуществлять логгирование. Если вы имеете в виду и написание приложения, то создайте тему "как создать FTP-сервер".

В текстовом файле должна сохранятся инфа о том, в какие папки заходил пользователь, что редактировал, скачивал...

такое определение должен осуществлять код FTP-сервера как раз таки.

[ADRAY]

хм...
Очень странно.
Мое задание: написать FTP-клиент + реализация сохранения лога активности пользователя на сервере.
Сам сервер я скачиваю только для того, чтоб показать, что клиент правильно функционирует и работает. Код сервера я трогать не должна.

такое определение должен осуществлять код FTP-сервера как раз таки.

Вы уверены, что это задание можно сделать только изменяя код сервера?

[3D Hunter]

Не будет же FTP-клиент логгировть свои действия удаленно на сервере сам. Эму это не позволят права доступа, да и создать файл через запрос по протоколу... FTP-сервер должен либо понимать эту команду и сам логгировать действие, либо сам отслеживает активность подключений клиентов и логгирует из действия. В любом случае, нужно смотреть код сервера и внедрять в него логгирование. Или все проще... если это несекретно, выложите код на рассмотрение.