在Delphi中捕获控制台程序的输出

原创 2002年06月19日 09:01:00

本文实现了在Delphi中运行控制台程序,并将控制台程序的输出在Memo控件中显示出来。

工作中需要手工编译J2ME的程序,开始编写了一个批处理程序,但是感觉使用中非常繁琐,于是想用Delphi做一个集成编译工具,但是java的编译工具都是console程序,怎么捕获到console程序的输出,并显示在Memo中呢,查了网上的一些资料,反复测试,找到了一个实现的方法,希望对大家有帮助:

procedure TMainForm.RunDosInMemo(const DosApp: string; AMemo: TMemo);
const
  {设置ReadBuffer的大小}
  ReadBuffer = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PChar;
  BytesRead: DWord;
  Buf: string;
begin
  with Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
  {创建一个命名管道用来捕获console程序的输出}
  if Createpipe(ReadPipe, WritePipe, @Security, 0) then
  begin
    Buffer := AllocMem(ReadBuffer + 1);
    FillChar(Start, Sizeof(Start), #0)
    {设置console程序的启动属性}
    with start do
    begin
      cb := SizeOf(start);
      start.lpReserved := nil;
      lpDesktop := nil;
      lpTitle := nil;
      dwX := 0;
      dwY := 0;
      dwXSize := 0;
      dwYSize := 0;
      dwXCountChars := 0;
      dwYCountChars := 0;
      dwFillAttribute := 0;
      cbReserved2 := 0;
      lpReserved2 := nil;
      hStdOutput := WritePipe; //将输出定向到我们建立的WritePipe上
      hStdInput := ReadPipe; //将输入定向到我们建立的ReadPipe上
      hStdError := WritePipe;//将错误输出定向到我们建立的WritePipe上
      dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
      wShowWindow := SW_HIDE;//设置窗口为hide
    end;

    try
      {创建一个子进程,运行console程序}
      if CreateProcess(nil, PChar(DosApp), @Security, @Security, true,
        NORMAL_PRIORITY_CLASS,
        nil, nil, start, ProcessInfo) then
      begin
       {等待进程运行结束}
        WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
        {关闭输出...开始没有关掉它,结果如果没有输出的话,程序死掉了。}
        CloseHandle(WritePipe);
        Buf := '';
        {读取console程序的输出}
        repeat
          BytesRead := 0;
          ReadFile(ReadPipe, Buffer[0], ReadBuffer, BytesRead, nil);
          Buffer[BytesRead] := #0;
          OemToAnsi(Buffer, Buffer);
          Buf := Buf + string(Buffer);
        until (BytesRead < ReadBuffer);

        SendDebug(Buf);
       {按照换行符进行分割,并在Memo中显示出来}
        while pos(#10, Buf) > 0 do
        begin
          AMemo.Lines.Add(Copy(Buf, 1, pos(#10, Buf) - 1));
          Delete(Buf, 1, pos(#10, Buf));
        end;
      end;
    finally
      FreeMem(Buffer);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      CloseHandle(ReadPipe);
    end;
  end;
end;

在Delphi中如何输出后台调试信息?

有些时候,我们需要输出调试信息,但又不在界面上,也不希望弹出窗口中断执行,这时,只要用OutputDebugString就可以了,然后在View|Debug Window|Event Log查看结果即...
  • caicai0119
  • caicai0119
  • 2007年09月10日 15:56
  • 1642

delphi中调试信息输出

1 http://topic.csdn.net/t/20041018/02/3464822.html首先在你的*.DPR项目文件里加上这一行     {$APPTYPE   CONSOLE}   ...
  • yethyeth
  • yethyeth
  • 2007年06月13日 21:01
  • 9266

Delphi 执行控制台(console)程序获取返回结果

[delphi] view plain copy  print? function GetRunConsoleResult(FileName:String;Visibili...
  • chinajobs
  • chinajobs
  • 2016年12月21日 10:53
  • 807

Delphi GUI程序中使用控制台

procedure TForm1.Button1Click(Sender: TObject); var s: string; begin AllocConsole; try ...
  • love3s
  • love3s
  • 2012年08月08日 10:21
  • 1205

深入理解控制台程序

控制台程序的误区    在Delphi中可以创建Console--控制台应用程序。这种类型的程序在Win32文本模式下,或者CUI(文本用户界面)子系统中运行。如图一。    尽管从表面上看起来控制台...
  • haiou327
  • haiou327
  • 2010年06月26日 01:06
  • 6455

delphi 类的写法 和 控制台程序的制作---深入Delphi编程 数据库

2、数据库      在相对枯燥的理论之后,我们终于要开始接触到一些比较激动人心的实际应用了。   数据库编程是Delphi最强大的优势之一,恐怕也很少有Delphi程序员没有接触过数据库编程的...
  • chinajobs
  • chinajobs
  • 2016年12月21日 10:53
  • 941

Delphi_XE8开发入门-致Delphi_XE8初学者

  • 2015年08月25日 13:29
  • 3.17MB
  • 下载

delphi编写控制台程序

  • 2014年02月09日 09:40
  • 23KB
  • 下载

Delphi 执行控制台(console)程序获取返回结果

function GetRunConsoleResult(FileName:String;Visibility:Integer;var mOutputs:string):Integer; var ...
  • yoie01
  • yoie01
  • 2015年12月28日 13:38
  • 1946

在图形界面中实时捕获控制台程序的标准输出

  ::首页 >> 文档中心 >> ...
  • todototry
  • todototry
  • 2007年04月28日 18:06
  • 2068
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi中捕获控制台程序的输出
举报原因:
原因补充:

(最多只允许输入30个字)