fixed TBO sample 04

Arnaud Bouchez · Arnaud Bouchez · commit 0476910cdab5 · 2024-01-03T11:59:50.000+01:00
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'
