1 rok temu · ab561ab62a
--- a/demo/debugcapture/democapture.lpi
+++ b/demo/debugcapture/democapture.lpi
@@ -59,8 +59,8 @@
 
															     <Parsing>
														
 
															       <SyntaxOptions>
														
 
															         <AllowLabel Value="False"/>
														
 
															-        <CPPInline Value="False"/>
														
 
															         <UseAnsiStrings Value="False"/>
														
 
															+        <CPPInline Value="False"/>
														
 
															       </SyntaxOptions>
														
 
															     </Parsing>
														
 
															     <CodeGeneration>
														
--- a/demo/debugcapture/democapture.lpr
+++ b/demo/debugcapture/democapture.lpr
@@ -24,14 +24,13 @@ Var
 
															   I : integer;
														
 
															 begin
														
 
															-  With TDebugCaptureClient.Create(Nil) do
														
 
															-    try
														
 
															-      BufferTimeout:=100;
														
 
															-      HookConsole:=True;
														
 
															-      For I:=1 to 100 do
														
 
															-        Writeln('This is output line '+IntToStr(I))
														
 
															-    finally
														
 
															-      Free;
														
 
															+  With TDebugCaptureClient.Instance do
														
 
															+    begin
														
 
															+    URL:='/debugcapture';
														
 
															+    BufferTimeout:=100;
														
 
															+    HookConsole:=True;
														
 
															     end;
														
 
															+  For I:=1 to 100 do
														
 
															+    Writeln('This is output line '+IntToStr(I))
														
 
															 end.
														
--- a/demo/debugcapture/index.html
+++ b/demo/debugcapture/index.html
@@ -3,10 +3,12 @@
 
															 <head>
														
 
															   <meta http-equiv="Content-type" content="text/html; charset=utf-8"/>
														
 
															   <meta name="viewport" content="width=device-width, initial-scale=1"/>
														
 
															-  <title>scratch</title>
														
 
															+  <title>Debugcapture client demo</title>
														
 
															   <script src="democapture.js"></script>
														
 
															 </head>
														
 
															 <body>
														
 
															+  <h1>Debugcapture client example</h1>
														
 
															+  <p>Debug console output, also sent to debug server</p>
														
 
															   <div id="pasjsconsole"></div>
														
 
															   <script>
														
 
															     rtl.run();