Delphi console writeln readln I/O CGI Pipe

Add {$ apptype console}

In this way, Windows window programs can have dos I/O capabilities, accept writeln readln, and transmit data through pipelines Like CGI

Program console; {$ apptype console} uses forms, fmconsole in 'fmconsole. PAS '{form1}; {$ R *. res} begin writeln ('Hello World'); // output, equivalent to console in C. writeln ("XXX") application. initialize; application. createform (tform1, form1); application. run; end.

unit fmconsole;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    btn1: TButton;    procedure FormCreate(Sender: TObject);    procedure btn1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var  s:string;begin  Readln(s);  ShowMessage(s);end;procedure TForm1.btn1Click(Sender: TObject);begin  Writeln(‘hello!‘);end;end.

Delphi console writeln readln I/O CGI Pipe