source upload

contrib/mORMot/SQLite3/Samples/11 - Exception logging/LogView.dpr

@@ -0,0 +1,26 @@
+/// sample program able to visualize .log files as created by TSynLog
+program LogView;
+
+{ Revision History:
+
+  Version 1.18
+  - Introducing thread identification
+  - Added "Search Previous" button
+  - Incremental search will now remain on the same line if it matches the entry
+  - "Server Launch" button allow the tool to run as a HTTP server, ready to
+    display remote logs, echoed from mORMot HTTP clients 
+  
+}
+uses
+  {$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads
+  Forms,
+  LogViewMain in 'LogViewMain.pas' {MainLogView};
+
+{$R *.res}
+{$R Vista.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainLogView, MainLogView);
+  Application.Run;
+end.