new property: TWebOutput.ConsoleOutput enables standard
output. If you set this to True, you can use the Pascal procedures write and
writeln to write to the output document.
procedure TFormHTSAMP.WebDemoAppExecute(Sender: TWebOutputApp; var
bContinue: Boolean);
begin
inherited;
with tWebApp(Sender) do
if Command='WRITE' then
with WebOutput do begin
ConsoleOutput:=true; //insure that the console is available;
Command:='';
//create an entire page using standard output.
//note the HtmlTitle and HtmlFooter functions to structure the page.
Open; //actually happens implicitly on the first write.
write(HtmlTitle('Hello There'),'Hello ',1234,' ',12345.678:10:2,'<br>');
writeln('Testing!','<br>',HtmlFooter);
Close; //close the page to signal that we're done.
end;
end;