Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

Ведение логов   Найти похожие ветки 

 
sesh   (2004-05-24 14:09) [0]

Подскажите как проще и надежнее вести логи работы своей программы, может у кого есть фенкция написана, или есть стандвртная, подскажите, поделитесь


 
ega23 ©   (2004-05-24 14:21) [1]

Есть такая фенкция. Могу поделиться:

Procedure WriteLog(aLogStr:String;aSessInfo:TSessInfo;aLogFileNAme:string=LogFileNAmeGlb; LogOn:boolean=true);
var ss,fn: string;
   f:textfile;
begin
if not LogOn then exit;
fn:=ExtractFilePath(Paramstr(0))+aLogFileNAme;
try
 AssignFile(f,FN);
 if fileExists(fn) then   Append(f) else rewrite(f);
 ss:=FormatDateTime("dd-mm-yy hh:nn:ss ",now)+
     "wc:"+inttostr(aSessInfo.Workcod)+" "+
     "mc:"+inttostr(aSessInfo.modcod)+" "+
     "op:"+inttostr(aSessInfo.opercod)+" "+
     "ms:"+inttostr(aSessInfo.modstate)+"  "; //Dec2Hex(aSessInfo.modstate,16)+"  ";
 ss:=ss+aLogStr;
 ss:=DelChars(ss,CR);  ss:=DelChars(ss,LF);
 Writeln(f,ss);
 CloseFile(f);
 except
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.06.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.035 c
1-1085136758
sesh
2004-05-21 14:52
2004.06.06
в чем проблема, не догоню


14-1084730065
saNat
2004-05-16 21:54
2004.06.06
Генератор функции.


1-1085642562
Романов Р.В.
2004-05-27 11:22
2004.06.06
Ошибка при создании объекта MSMAPI.MAPISession


14-1085299732
Jimmy
2004-05-23 12:08
2004.06.06
HTML to RTF


14-1084635145
SPeller
2004-05-15 19:32
2004.06.06
PE Viewer 1.11