delphi console writeln readln I/O CGI pipe

最新推荐文章于 2023-04-18 18:03:09 发布

weixin_34279184

最新推荐文章于 2023-04-18 18:03:09 发布

阅读量287

点赞数

文章标签： python c# 操作系统

原文链接：https://my.oschina.net/u/1777508/blog/323172

版权

2019独角兽企业重金招聘Python工程师标准>>>

只要加上 {$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.