paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-21 04:19:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small improvements

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-23 23:20:13 +02:00
parent 6add41038d
commit ab561ab62a
3 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demo/debugcapture/democapture.lpi
View File

@ -59,8 +59,8 @@
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<AllowLabel Value="False"/> <AllowLabel Value="False"/>
<CPPInline Value="False"/>
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration> <CodeGeneration>

15
demo/debugcapture/democapture.lpr
View File

@ -24,14 +24,13 @@ Var
I : integer; I : integer;
begin begin
With TDebugCaptureClient.Create(Nil) do With TDebugCaptureClient.Instance do
try begin
BufferTimeout:=100; URL:='/debugcapture';
HookConsole:=True; BufferTimeout:=100;
For I:=1 to 100 do HookConsole:=True;
Writeln('This is output line '+IntToStr(I))
finally
Free;
end; end;
For I:=1 to 100 do
Writeln('This is output line '+IntToStr(I))
end. end.

4
demo/debugcapture/index.html
View File

@ -3,10 +3,12 @@
<head> <head>
<meta http-equiv="Content-type" content="text/html; charset=utf-8"/> <meta http-equiv="Content-type" content="text/html; charset=utf-8"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/> <meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>scratch</title> <title>Debugcapture client demo</title>
<script src="democapture.js"></script> <script src="democapture.js"></script>
</head> </head>
<body> <body>
<h1>Debugcapture client example</h1>
<p>Debug console output, also sent to debug server</p>
<div id="pasjsconsole"></div> <div id="pasjsconsole"></div>
<script> <script>
rtl.run(); rtl.run();