fixed TBO sample 04

synopse · Jan 3, 2024 · 0476910 · 0476910
1 parent e5bbeb7
commit 0476910
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/ex/ThirdPartyDemos/tbo/04-HttpServer-InterfaceServices/u_ServiceServer.pas b/ex/ThirdPartyDemos/tbo/04-HttpServer-InterfaceServices/u_ServiceServer.pas
@@ -75,7 +75,8 @@ implementation
 procedure TRestServerLog.ComputeFileName;
 begin
   inherited ComputeFileName;
-  FFileName := StringReplace(FFileName, ' ', '_', [rfReplaceAll]);
+  FFileName := MakePath([ExtractFilePath(FFileName),
+    StringReplace(ExtractFileName(FFileName), ' ', '_', [rfReplaceAll])]);
 end;
 
 

diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.2.6594'
+'2.2.6595'