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

[ADRAY]

С Delphi работаю недолго, поэтому очень нуждаюсь в вашей помощи))
Задание: ведение лог файла ФТП-клиента на сервере.
Ошибки не выбивает, но лог-файл не создает((


procedure TForm1.Button3Click(Sender: TObject);
var
LogFile:TidLogfile;
begin
LogFile:=TidLogFile.Create(nil);
LogFile.Filename:='Log.txt';
LogFile.LogTime:=True;
IdFTPClient1.Intercept:=Logfile;
LogFile.Active:=true;
end;

[Johnson]

TidLogFile.Create(nil);

Ну для начала создавайте его хотя-бы в подчинении главной формы...

Да и пути указывайте точные:

LogFile.Filename:=ExtractFilePath(Application.ExeName)+'Log.txt';

[ADRAY]

СПС за протянутую руку помощи)

После исправления пути - создаваться файл "Log.txt", но пустой.

Ну для начала создавайте его хотя-бы в подчинении главной формы...

Как?

[Человек_Борща]

Как?

Киньте компонент на форму, вместо того, чтобы создавать его в run-time.

[Johnson]

TidLogFile.Create(MainForm);

И ещё я не уверен, что данный код именно сохраняет лог:

IdFTPClient1.Intercept:=Logfile;

[ADRAY]

TIdLogFile – Записывает данные в файл.

Я не знаю, что делать. Ничего не выходит.
Создается пустой файл(((

[3D Hunter]

Самый простейший случай:

function Log(const AText:AnsiString):Boolean;
var
  LStr:AnsiString;
  LFile:TextFile;
begin
  try
    try
      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);
    end;
  except
    Result:=False;
  end;
end;

[ADRAY]

Нужно создавать дополнительные кнопки или просто вставить и все?

[ADRAY]

Нашла еще один код, создается папка с файлом, в нем только дата. Куда заходил клиент, что делал - ничего нет(
Может нужно добавить какой-то компонент?

procedure TForm1.Button3Click(Sender: TObject);
VAR
DirectoryName: STRING;
FileName: STRING;
LogFile: TextFile;
level: INTEGER;
key: STRING;
description: STRING;
BEGIN
DirectoryName := ExtractFilePath(Application.ExeName ) + 'LOG';

IF NOT FileCtrl.DirectoryExists(DirectoryN ame)
THEN FileCtrl.ForceDirectories(Directory Name);

FileName := FormatDateTime('dd/mm/yyyy', Now) + '.LOG';
AssignFile(LogFile, DirectoryName + '\' + FileName);

TRY
IF SysUtils.FileExists(DirectoryName + '\' + FileName)
THEN Append(LogFile)
ELSE Rewrite(Logfile);

IF Level = 0
THEN WRITELN(LogFile)
ELSE WRITELN (LogFile, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now), ' ', Format('%-16s', [key]), ' ', description);

CloseFile(LogFile)
EXCEPT
END;
end;

Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.

[3D Hunter]

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