From ab561ab62a2d8c54b03428e3e19dd82eda995e47 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Mon, 23 Oct 2023 23:20:13 +0200 Subject: [PATCH] * Small improvements --- demo/debugcapture/democapture.lpi | 2 +- demo/debugcapture/democapture.lpr | 15 +++++++-------- demo/debugcapture/index.html | 4 +++- 3 files changed, 11 insertions(+), 10 deletions(-) diff --git a/demo/debugcapture/democapture.lpi b/demo/debugcapture/democapture.lpi index 7bec869..8bd127b 100644 --- a/demo/debugcapture/democapture.lpi +++ b/demo/debugcapture/democapture.lpi @@ -59,8 +59,8 @@ - + diff --git a/demo/debugcapture/democapture.lpr b/demo/debugcapture/democapture.lpr index d24e38b..246a6aa 100644 --- 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. diff --git a/demo/debugcapture/index.html b/demo/debugcapture/index.html index cdfb81e..23d0c42 100644 --- a/demo/debugcapture/index.html +++ b/demo/debugcapture/index.html @@ -3,10 +3,12 @@ - scratch + Debugcapture client demo +

Debugcapture client example

+

Debug console output, also sent to debug server