Page 1 of 1
Запись лога в файл
Posted: 16.05.2012 1:43
by Ubher
Каким образом можно записать лог в файл. Сам лог в журнале, составляется кликом по разуна все предметы в контейнере.
Если можно с небольшим примером.
Да, и возможно ли дописывать файл по ходу скрипта и не просто сохранить лог, а сохранить в нужном виде, например csv.
Re: Запись лога в файл
Posted: 16.05.2012 18:17
by yuras
Ubher wrote:Каким образом можно записать лог в файл. Сам лог в журнале, составляется кликом по разуна все предметы в контейнере.
Если можно с небольшим примером.
Да, и возможно ли дописывать файл по ходу скрипта и не просто сохранить лог, а сохранить в нужном виде, например csv.
Если сохранять журнал - там кнопочка есть, если сообщения нужные в файл
Code: Select all
procedure WriteToFile(data: string);
var
file: TFileStream;
begin
try
data:=FormatDateTime('dd.mm.yyyy hh:mm:ss > ', Now) + data+ #13#10;
file := TFileStream.Create('c:\1.txt',fmOpenReadWrite);
file.seek(0, soFromEnd);
except
file := TFileStream.Create(LogFile,fmCreate);
end;
file.WriteBuffer(data,Length(data));
file.Free;
end;