在BCB中调用DOS程序（我会作）但如何将DOS程序输出的

最新推荐文章于 2021-05-17 16:30:36 发布
最新推荐文章于 2021-05-17 16:30:36 发布
阅读量936 收藏 1
点赞数
文章标签： dos attributes null security button object

在BCB中调用DOS程序（我会作）但如何将DOS程序输出的
http://www.plm.hk/phpgm/thread-3316-1-1.html

在BCB中调用DOS程序（我会作）但如何将DOS程序输出的信息转到我的BCB程序中的Memo或文本框中输出？？？
发表时间：2001-7-3 20:14:16

回复人：dycdyc123 | 微笑江湖
system("*.exe">>TFrom1->Memo1->Lines->Add(...));

Top
回复人：songhtao | 三十年孤独
用管道或输出重定向，鉴于我的项目要用到这一技术，涉及公司，不敢公开。

Top
回复人：shally5 | 我在一旁静静的看着你
songhtao(三十年孤独)
你换一个名字登录，不就可以说了吗！
我还可以加50分啊！

Top
回复人：rh | 有花须酌酒
加分来！！！这是什么秘密技术哦！就是管道而已啦！！！

Top
回复人：rh | 有花须酌酒
http://www.csdn.net/expert/topic/153/153966.shtm，最后一段代码

Top
回复人：rh | 有花须酌酒
在窗提上放一个memo和一个button，在button的click事件里加上那段代码
注意其中的
if(!CreateProcess("d://test.exe",NULL,NULL,NULL,true,CREATE_NEW_CONSOLE,
                      NULL,NULL,&myStartup,&pi)){
                ShowMessage("CreateProcess error:"+IntToStr(GetLastError()));
                return;
      }
d://test.exe  就是你需要执行的dos文件

结果该dos程序的输出进入了你的memo！       

Top
回复人：shally5 | 我在一旁静静的看着你
在Memo中没有出现东东啊！rh(有花须酌酒）你看看是这样吗？

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char readBuf[5000];
        DWORD bytesRead=0;
        HANDLE hReadPipe,hWritePipe;
        PROCESS_INFORMATION pi;
        LPPROCESS_INFORMATION lppi;
        SECURITY_ATTRIBUTES lsa;        //安全属性
        STARTUPINFO myStartup;

        lsa.nLength = sizeof(SECURITY_ATTRIBUTES);
        lsa.lpSecurityDescriptor = NULL;
        lsa.bInheritHandle = true;

        lppi = π
        //创建管道
        if(CreatePipe(&hReadPipe,&hWritePipe,&lsa,0))
                ShowMessage("Pipe Created OK ./n");
        else{
                ShowMessage("Pipe Creation Error");
                return;
        }

        memset(&myStartup,0,sizeof(STARTUPINFO));
        myStartup.cb = sizeof(STARTUPINFO);
        myStartup.dwFlags = STARTF_USESHOWWINDOW|STARTF_USESTDHANDLES;
        myStartup.wShowWindow = SW_HIDE;
        myStartup.hStdOutput = hWritePipe;




if(!CreateProcess("c://arj.exe",NULL,NULL,NULL,true,CREATE_NEW_CONSOLE,
                      NULL,NULL,&myStartup,&pi)){
                ShowMessage("CreateProcess error:"+IntToStr(GetLastError()));
                return;
      }

}

Top
回复人：xycleo | )虚竹和尚(
对!!就是rh说的!!来晚了!!

Top
回复人：rh | 有花须酌酒
拜托！是这样：

回复人：rh(有花须酌酒)　(2001-6-12 13:22:00)  得0分
哈哈哈哈~~~~给分来！！！！！！
以下代码，win2000下验证通过！
xixihahaheiheihehe~~~~~
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char readBuf[5000];
        DWORD bytesRead=0;
        HANDLE hReadPipe,hWritePipe;
        PROCESS_INFORMATION pi;
        LPPROCESS_INFORMATION lppi;
        SECURITY_ATTRIBUTES lsa;        //安全属性
        STARTUPINFO myStartup;

        lsa.nLength = sizeof(SECURITY_ATTRIBUTES);
        lsa.lpSecurityDescriptor = NULL;
        lsa.bInheritHandle = true;

        lppi = π
        //创建管道
        if(CreatePipe(&hReadPipe,&hWritePipe,&lsa,0))
                ShowMessage("Pipe Created OK ./n");
        else{
                ShowMessage("Pipe Creation Error");
                return;
        }

        memset(&myStartup,0,sizeof(STARTUPINFO));
        myStartup.cb = sizeof(STARTUPINFO);
        myStartup.dwFlags = STARTF_USESHOWWINDOW¦STARTF_USESTDHANDLES;
        myStartup.wShowWindow = SW_HIDE;
        myStartup.hStdOutput = hWritePipe;

      if(!CreateProcess("d://test.exe",NULL,NULL,NULL,true,CREATE_NEW_CONSOLE,
                      NULL,NULL,&myStartup,&pi)){
                ShowMessage("CreateProcess error:"+IntToStr(GetLastError()));
                return;
      }

        while(true){
                bytesRead = 0;
                if(!PeekNamedPipe(hReadPipe,readBuf,1,&bytesRead,NULL,NULL))
                        break;
                if(bytesRead){
                        if(!ReadFile(hReadPipe,readBuf,4096,&bytesRead,NULL))
                                break;
                        readBuf[bytesRead] = 0;
                        Memo1->Text = Memo1->Text+ "Read " + IntToStr(bytesRead)
                                + "bytes from pipe" + readBuf;
                }else{
                        if(WaitForSingleObject(pi.hProcess,0)==WAIT_OBJECT_0)
                                break;
                        Sleep(256);
                }
        }

        CloseHandle(hReadPipe);
        CloseHandle(pi.hThread);
        CloseHandle(pi.hProcess);
        CloseHandle(hWritePipe);
}
//--------------------------------------------------------------------------- 


Top
回复人：rh | 有花须酌酒
后面还有一串呢！
这技术很普遍，许多杂志都有介绍
好点的win网络编程书上也有
并不是什么秘密~~~

Top
回复人：shally5 | 我在一旁静静的看着你
现在有一个DOS窗口一闪而过，MEMO中还是没有东东啊！是哪有问题呢！
我是以ARJ.EXE为DOS程序来测试的。。。。。。

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char readBuf[5000];
        DWORD bytesRead=0;
        HANDLE hReadPipe,hWritePipe;
        PROCESS_INFORMATION pi;
        LPPROCESS_INFORMATION lppi;
        SECURITY_ATTRIBUTES lsa;        //安全属性
        STARTUPINFO myStartup;

        lsa.nLength = sizeof(SECURITY_ATTRIBUTES);
        lsa.lpSecurityDescriptor = NULL;
        lsa.bInheritHandle = true;

        lppi = π
        //创建管道
        if(CreatePipe(&hReadPipe,&hWritePipe,&lsa,0))
                ShowMessage("Pipe Created OK ./n");
        else{
                ShowMessage("Pipe Creation Error");
                return;
        }

        memset(&myStartup,0,sizeof(STARTUPINFO));
        myStartup.cb = sizeof(STARTUPINFO);
        myStartup.dwFlags = STARTF_USESHOWWINDOW;STARTF_USESTDHANDLES;
        myStartup.wShowWindow = SW_HIDE;
        myStartup.hStdOutput = hWritePipe;

      if(!CreateProcess("c://arj.exe",NULL,NULL,NULL,true,CREATE_NEW_CONSOLE,
                      NULL,NULL,&myStartup,&pi)){
                ShowMessage("CreateProcess error:"+IntToStr(GetLastError()));
                return;
      }

        while(true){
                bytesRead = 0;
                if(!PeekNamedPipe(hReadPipe,readBuf,1,&bytesRead,NULL,NULL))
                        break;
                if(bytesRead){
                        if(!ReadFile(hReadPipe,readBuf,4096,&bytesRead,NULL))
                                break;
                        readBuf[bytesRead] = 0;
                        Memo1->Text = Memo1->Text+ "Read " + IntToStr(bytesRead)
                                + "bytes from pipe" + readBuf;
                }else{
                        if(WaitForSingleObject(pi.hProcess,0)==WAIT_OBJECT_0)
                                break;
                        Sleep(256);
                }
        }

        CloseHandle(hReadPipe);
        CloseHandle(pi.hThread);
        CloseHandle(pi.hProcess);
        CloseHandle(hWritePipe);
}

Top
回复人：rh | 有花须酌酒
下面的代码，我才调试，一定可以
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char readBuf[5000];
        DWORD bytesRead=0;
        HANDLE hReadPipe,hWritePipe;
        PROCESS_INFORMATION pi;
        LPPROCESS_INFORMATION lppi;
        SECURITY_ATTRIBUTES lsa;        //安全属性
        STARTUPINFO myStartup;

        lsa.nLength = sizeof(SECURITY_ATTRIBUTES);
        lsa.lpSecurityDescriptor = NULL;
        lsa.bInheritHandle = true;

        lppi = π
        //创建管道
        if(CreatePipe(&hReadPipe,&hWritePipe,&lsa,0))
                ShowMessage("Pipe Created OK ./n");
        else{
                ShowMessage("Pipe Creation Error");
                return;
        }

        memset(&myStartup,0,sizeof(STARTUPINFO));
        myStartup.cb = sizeof(STARTUPINFO);
        myStartup.dwFlags = STARTF_USESHOWWINDOW|STARTF_USESTDHANDLES;
        myStartup.wShowWindow = SW_HIDE;
        myStartup.hStdOutput = hWritePipe;

      if(!CreateProcess("d://test.exe",NULL,NULL,NULL,true,CREATE_NEW_CONSOLE,
                      NULL,NULL,&myStartup,&pi)){
                ShowMessage("CreateProcess error:"+IntToStr(GetLastError()));
                return;
      }

        while(true){
                bytesRead = 0;
                if(!PeekNamedPipe(hReadPipe,readBuf,1,&bytesRead,NULL,NULL))

                        break;
                if(bytesRead){
                        if(!ReadFile(hReadPipe,readBuf,4096,&bytesRead,NULL))
                                break;
                        readBuf[bytesRead] = 0;
                        Memo1->Text = Memo1->Text+ "Read " + IntToStr(bytesRead)
                                + "bytes from pipe" + readBuf;
                }else{
                        if(WaitForSingleObject(pi.hProcess,0)==WAIT_OBJECT_0)
                                break;
                        Sleep(256);
                }
        }

        CloseHandle(hReadPipe);
        CloseHandle(pi.hThread);
        CloseHandle(pi.hProcess);
        CloseHandle(hWritePipe);
}
//---------------------------------------------------------------------------

test.exe的代码如下：
#include<iostream.h>
int main(int argc, char* argv[])
{
    for(int i(0);i<=100;i++)cout<<"你会看不见？？？？？"<<endl;
    return 0;
}
//---------------------------------------------------------------------------


Top
回复人：yueyue | 风色幻想
gz

Top
回复人：songhtao | 三十年孤独
我的方法简单，可靠，只有几句话。

Top
回复人：shally5 | 我在一旁静静的看着你
rh(有花须酌酒)用你那个Test.exe是OK的
rh(有花须酌酒)用你那个Test.exe是OK的

但是我用ARJ.exe程序还是有问题啊？
是不是因为它是纯DOS的程序呢！我又调了几个用FORTRAN作的计算程序是可以的！
是不是必须是控制台DOS程序才可以呢？？？？？


Top
回复人：rh | 有花须酌酒
大哥，没有输出的程序，你想看什么呢？
你调用winzip32.exe试试！同样没有！

这段代码能收到的，是在控制台里有输出的程序

就是说，这样做：
ShellExecute(Handle,NULl,"command ","/c ping HostName  >pipe.txt",NULL,SW_HIDE;
做了之后pipe.txt里有内容的才可以用上面的代码得到内容

你觉得不爽的话，你尽可以自己写arj
好了，偶回答累了，不再回答！！

to songhtao(三十年孤独)　：
ShellExecute(Handle,NULl,"command ","/c ping HostName  >pipe.txt",NULL,SW_HIDE;
是不是就是你简单可靠的方法啊？？？哈哈哈~~~~有趣！

 

 

 

 

chulia
关注
Delphi,VC++,BCB程序设计语言的优点和缺点比较(转)
Charisma(蚂蚁)滴BLOG|纯属凑热闹而已
11-08 5333
VC和Delphi作为开发平台，很重要的一点就是提供了一个"无所不包"的应用框架：VC的MFC和Delphi的VCL。MFC是用C++写的，VCL是用Object Pascal写的。当然，我们都知道，C++的使用范围比Object Pascal广得多，移植性也好得多。这本来是优点，但很有意思的是，正因为如此，微软写MFC时必须考虑最大限度减少对语言本身的改动，而把功夫下在源代码级，以便
基于C/C++/BCB的文件操作
面朝大海 春暖花开
07-27 773
基于C的文件操作在ANSI C中，对文件的操作分为两种方式，即流式文件操作和I/O文件操作，下面就分别介绍之。一、流式文件操作　　这种方式的文件操作有一个重要的结构FILE，FILE在stdio.h中定义如下：typedef struct {int level;
BCB中调用DOS程序
10-19 1225
void __fastcall TForm1::Button1Click(TObject *Sender){        char readBuf[5000];        DWORD bytesRead=0;        HANDLE hReadPipe,hWritePipe;        PROCESS_INFORMATION pi;        LPPROCESS_INFORMAT
BCB里如何运行DOS命令
wewaa的专栏
04-24 2306
exp erpdba/set_by_dba@dberp_188.18.8.9 file="OA0318.dmp" tables=(OA_%),这是一条在DOS状态下备份ORCALE数据库的语句,现我要在BCB 里运行这条语句,请问如何写代码?system(DOS_Command_String);//DOS_Command_String就是你要運行的命令.ShellExecute(NULL,
bcb memo中添加字符的问题
goooooooooo的专栏
11-15 1410
Form1->Display_Area->Text=Form1->Display_Area->Text+temp_key;滚动条不会随着往下滚 ，在循环的时候很糟若不停修改最后行则会闪个不停  哎
c语言 windows dos gdi 画图字符,在C语言Windows应用程序中使用GDI+
weixin_33603331的博客
05-17 321
GDI+是C++中常用的一种图形图像工具，VB、Delphi等语言也移植了GDI+，.net的诸多语言甚至完全采用GDI+作为绘制其界面。在Winsows系统下，几乎所有的API都是直接针对C语言的，除C/C++可直接使用这些API外，其它各种语言都必须移植这些API方法，而唯独GDI+，微软提供的Gdiplus头文件，从类型定义到方法接口，都是针对C++写的，这就使得C语言没法使用这些面向对象的...
bcb编写api
liyan的专栏
09-22 1759
 API技巧集 一、拖动无标题窗体：包含头文件：#include $#@60;winuser.h$#@62;在窗体或组件的 OnMouseDown 事件中加入以下代码:if(Button == mbLeft){ReleaseCapture();SendMessage( Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);}二、弹出和关闭光驱：包含
BCB API技巧，只介绍了几个常用的函数
dligoo的专栏
04-18 2397
API技巧集（一） 一、拖动无标题窗体： 包含头文件： #include 在窗体或组件的 OnMouseDown 事件中加入以下代码: if(Button == mbLeft) { ReleaseCapture(); SendMessage( Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); } 二、弹出和关闭光驱： 包含头文件： #include 在窗体的OnCreate事件中加入： mciSendString("open cdaudio alias cd wait sha
OTA制作及升级过程笔记【转】
zzb2760715357的博客
08-12 337
本文转载自：http://www.it610.com/article/5752570.htm 1、概述 1.1 文档概要 前段时间学习了AndroidRecovery模式及OTA升级过程，为加深理解和防止以后遗忘，所以写这篇文档进行一个总结和梳理，以便日后查阅回顾。文档主要包括两部分，第一部分为OTA升级包的制作过程分析，第二部分为Recovery模式下OTA升级包安装过程的分析，其中包括...
C++Builder之Edit和Memo
weixin_33885253的博客
07-22 435
C++Builder之文本编辑（Edit、Memo） 1、AnsiString中第一个字符的下标为1而不是0； 2、TEdit组件 A、PasswordChar属性 密码替代字符。如果TEdit组件用于密码输入时，可以通过设置此属性来实现。默认此 属性为0，即正常显示字符，如果用于密码输入，一般将其值改为’*’，这样不管在其中 输入什么字符，都只显示为星号，当然也可以设...
Delphi TMemo 可以显示、编辑多行文本
weixin_30414305的博客
08-05 929
多行编辑框组件（TMemo）TMemo组件可以显示、编辑多行文本，是一个标准的Windows多行编辑组件。对一些比较多的文本内容可以利用TMemo组件来显示、编辑。1．TMemo组件的典型用法TMemo组件主要用于输入备注型的字符串，它不能进行文字格式的设置。利用TMemo组件Lines属性的LoadFromFile方法打开文本文件，对文本文件进行编辑。编辑完成后再利用Lines属性的SaveTo...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值