1 files changed, 19 insertions, 0 deletions
diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index 7f0b82c4..ac08f2d5 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -45,6 +45,7 @@ type
     // compability
     procedure LogStatus(Log1, Log2: string);
     procedure LogError(Log1, Log2: string); overload;
+    procedure LogBuffer(const buf : Pointer; const bufLength : Integer; filename : string);
   end;
 
 var
@@ -256,6 +257,24 @@ begin
   Halt;
 end;
 
+procedure TLog.LogBuffer(const buf: Pointer; const bufLength: Integer; filename: string);
+var
+  f : TFileStream;
+begin
+  f := nil;
+
+  try
+    f := TFileStream.Create( filename, fmCreate);
+    f.Write( buf^, bufLength);
+    f.Free;
+  except
+    on e : Exception do begin
+      Log.LogError('TLog.LogBuffer: Failed to log buffer into file "' + filename + '". ErrMsg: ' + e.Message);
+      f.Free;
+    end;
+  end;
+end;
+
 end.