paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 18:17:45 +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>
<SyntaxOptions>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
<UseAnsiStrings Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>

15
demo/debugcapture/democapture.lpr
View File

@ -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.

4
demo/debugcapture/index.html
View File

@ -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();