delphi console writeln readln I/O CGI pipe

只要加上 {$APPTYPE CONSOLE}

就可以使得windows窗口程序具有dos下的I/O能力，接受writeln readln，像cgi那样通过管道传输数据

program console;
{$APPTYPE CONSOLE}
uses
  Forms,
  fmconsole in 'fmconsole.pas' {Form1};

{$R *.res}

begin
  WriteLn('Hello World');//输出,相当于c#中的Console.Writeln("xxx")
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit fmconsole;

interface

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