paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 21:27:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Removed debug writeln

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-26 17:42:13 +01:00
parent 81c397e428
commit f1eaecc649
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpcunit/testinsight/testinsightclient.pas
View File

@ -83,8 +83,8 @@ begin
Body:=Nil;
Res:=TStringStream.Create('');
try
Writeln('Sending content to; ',ConcatURL(aURL),':');
Writeln(aContent);
// Writeln('Sending content to; ',ConcatURL(aURL),':');
// Writeln(aContent);
if aContent<>'' then
Body:=TStringStream.Create(aContent);
FHTTP.RequestBody:=Body;
@ -111,10 +111,10 @@ begin
Res:=TStringStream.Create('');
try
try
Writeln('Get URL ',ConcatURL(aURL),':');
// Writeln('Get URL ',ConcatURL(aURL),':');
FHTTP.Get(ConcatURL(aURL),Res);
Result:=Res.DataString;
Writeln(Result);
// Writeln(Result);
SetError(Nil);
except
on E : Exception do