procedure SaveLog

procedure SaveLog

Previous pageReturn to chapter overviewNext page

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.