AVZ 5. Руководство пользователя
×

16.15.2. procedure SaveLog

procedure SaveLog(S : string);
 
Сохранение протокола в файл. Файл может размещаться  в сети. Если указанный в имени файла протокола путь не существует, то перед сохранением файла протокола делается попытка создания этой папки. Если по указанному пути уже существует файл с указанным именем, то он затирается сохраняемым протоколом без вывода запросов или предупреждений.
 
Пример:
 
begin
  SaveLog('c:\avz_log.txt');
  SaveLog('\\my_server\avz_logs\avz_'+GetComputerName+'.txt');
end.
 
В примере продемонстрирована возможность динамического формирования имени протокола, путем добавление в имя файла сетевого имени ПК, полученного при помощи функции GetComputerName
 
Важное замечание: Версии 4.xx сохраняли протокол в формате ANSI в кодировке win-1251. Начиная с версии 5 протокол сохраняется в кодировке UTF-8. При необходимости формат можно изменить при помощи параметра командной строки LogEncoding.
 
Пример:
 
begin
  ClearLog;
  AddToLog('en: Test string');
  AddToLog('ru: Тестовая строка');
  AddToLog('en: Test string');
  AddToLog('ru: Тестовая строка');
  // Запись в кодировке по умолчанию (должен сохранить в UTF8)
  SaveLog('_test_log_default.txt');
  // Принудительное переключение кодировки
  SetupAVZ('LogEncoding=ANSI');
  SaveLog('_test_log_ansi.txt');
  SetupAVZ('LogEncoding=UTF8');
  SaveLog('_test_log_utf8.txt');
  SetupAVZ('LogEncoding=UNICODE');
  SaveLog('_test_log_unicode.txt');
end.
 
В примере использовались: ClearLog, AddToLog, SetupAVZ