Changeset 247 for ExceptionLogger

Timestamp:

May 24, 2011, 12:36:12 PM (14 years ago)

Author:

george

Message:

• Fixed: Various minor bugs and enhancements.

File:

• ExceptionLogger/UExceptionLogger.pas (modified) (2 diffs)

ExceptionLogger/UExceptionLogger.pas

@@ -97 +97 @@
   Buffer := Report.Text;
   if FileExists(FLogFileName) then
-    LogFile := TFileStream.Create(FLogFileName, fmOpenReadWrite)
-    else LogFile := TFileStream.Create(FLogFileName, fmCreate);
+    LogFile := TFileStream.Create(UTF8Decode(FLogFileName), fmOpenReadWrite)
+    else LogFile := TFileStream.Create(UTF8Decode(FLogFileName), fmCreate);
   with LogFile do try
     Seek(0, soFromEnd);
@@ -115 +115 @@
 begin
   if FileExists(FLogFileName) then
-    LogFile := TFileStream.Create(FLogFileName, fmOpenReadWrite)
-    else LogFile := TFileStream.Create(FLogFileName, fmCreate);
+    LogFile := TFileStream.Create(UTF8Decode(FLogFileName), fmOpenReadWrite)
+    else LogFile := TFileStream.Create(UTF8Decode(FLogFileName), fmCreate);
   with LogFile do try
     Seek(0, soFromEnd);