Fixed error "Response already sent" when isolating a request from the…

… main event loop. (Fix #30)

Source/BrookHTTPRequest.pas

@@ -1,4 +1,4 @@
-(*  _                     _
+(*  _                     _
  * | |__  _ __ ___   ___ | | __
  * | '_ \| '__/ _ \ / _ \| |/ /
  * | |_) | | | (_) | (_) |   <
@@ -73,6 +73,7 @@   TBrookHTTPRequest = class(TBrookHandledPersistent)
     FVersion: string;
     FMethod: string;
     FPath: string;
+    FIsIsolated: Boolean;
     FIsUploading: Boolean;
     FClient: Pointer;
     FTLSSession: Pointer;
@@ -82,6 +83,7 @@   TBrookHTTPRequest = class(TBrookHandledPersistent)
     function GetContentType: string; {$IFNDEF DEBUG}inline;{$ENDIF}
     function GetReferer: string; {$IFNDEF DEBUG}inline;{$ENDIF}
     function GetUserAgent: string; {$IFNDEF DEBUG}inline;{$ENDIF}
+    procedure SetIsIsolated(AValue: Boolean); {$IFNDEF DEBUG}inline;{$ENDIF}
   protected
     class procedure DoRequestIsolatedProcCallback(Acls: Pcvoid;
       Areq: Psg_httpreq; Ares: Psg_httpres); cdecl; static;
@@ -165,6 +167,9 @@   TBrookHTTPRequest = class(TBrookHandledPersistent)
     property Referer: string read GetReferer;
     { Contains the levels of the path component. }
     property Paths: TArray<string> read GetPaths;
+    { Checks if the request was isolated from the main event loop to an own
+      dedicated thread. }
+    property IsIsolated: Boolean read FIsIsolated;
     { Checks if the client is uploading data. }
     property IsUploading: Boolean read FIsUploading;
     { List of the uploaded files. }
@@ -297,8 +302,7 @@ class procedure TBrookHTTPRequest.DoRequestIsolatedAnonymousProcCallback(
 
 {$ENDIF}
 
-class function TBrookHTTPRequest.CreateRequest(
-  AHandle: Pointer): TBrookHTTPRequest;
+class function TBrookHTTPRequest.CreateRequest(AHandle: Pointer): TBrookHTTPRequest;
 begin
   Result := TBrookHTTPRequest.Create(AHandle);
 end;
@@ -376,6 +380,11 @@ function TBrookHTTPRequest.GetHandle: Pointer;
   Result := FHandle;
 end;
 
+procedure TBrookHTTPRequest.SetIsIsolated(AValue: Boolean);
+begin
+  FIsIsolated := AValue;
+end;
+
 function TBrookHTTPRequest.GetIP: string;
 var
   P: array[0..45] of cchar;
@@ -441,6 +450,7 @@ procedure TBrookHTTPRequest.Isolate(AProc: TBrookHTTPRequestIsolatedProc;
   VHolder: TBrookHTTPReqIsolatedProcHolder<TBrookHTTPRequestIsolatedProc>;
 begin
   SgLib.Check;
+  SetIsIsolated(True);
   VHolder := TBrookHTTPReqIsolatedProcHolder<
     TBrookHTTPRequestIsolatedProc>.Create(AProc, AUserData);
   try
@@ -461,6 +471,7 @@ procedure TBrookHTTPRequest.Isolate(
     TBrookHTTPRequestIsolatedAnonymousProc>;
 begin
   SgLib.Check;
+  SetIsIsolated(True);
   VHolder := TBrookHTTPReqIsolatedProcHolder<
     TBrookHTTPRequestIsolatedAnonymousProc>.Create(AProc, AUserData);
   try

Source/BrookHTTPServer.pas

@@ -1,4 +1,4 @@
-(*  _                     _
+(*  _                     _
  * | |__  _ __ ___   ___ | | __
  * | '_ \| '__/ _ \ / _ \| |/ /
  * | |_) | | | (_) | (_) |   <
@@ -517,7 +517,7 @@ class procedure TBrookHTTPServer.DoRequestCallback(Acls: Pcvoid;
       finally
         VSrv.Unlock;
       end;
-      if VRes.IsEmpty then
+      if VRes.IsEmpty and (not VReq.IsIsolated) then
         VRes.SendEmpty;
     end;
   finally