Changeset 15 for trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas

Timestamp:

Mar 22, 2018, 8:31:19 PM (6 years ago)

Author:

chronos

Message:

• Modified: Update Common and CollTranslator packages to fix build under Lazarus 1.8.
• Fixed: Some memory leaks.

File:

• trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas (modified) (3 diffs)

trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas

@@ -51 +51 @@
 begin
   Result := BinToHexString(SHA1(FloatToStr(Now)));
-  while FileExistsUTF8(Directory + DirectorySeparator + Result) do
+  while FileExists(Directory + DirectorySeparator + Result) do
     Result := BinToHexString(SHA1(FloatToStr(Now)));
 end;
@@ -75 +75 @@
     Lock.Acquire;
     SessionFile := Directory + DirectorySeparator + HandlerData.SessionId;
-    if FileExistsUTF8(SessionFile) then
+    if FileExists(SessionFile) then
       HandlerData.Session.LoadFromFile(SessionFile)
       else HandlerData.SessionId := GetNewSessionId;
@@ -92 +92 @@
     SessionFile := Directory + DirectorySeparator + HandlerData.SessionId;
     ForceDirectories(Directory);
-    if DirectoryExistsUTF8(Directory) then begin
+    if DirectoryExists(Directory) then begin
       DeleteFile(SessionFile);
       HandlerData.Session.SaveToFile(SessionFile)