关于DELPHI调用外部可执行程序的问题(Creatprocess)....急...再200分求答案 ( 积分: 200 )

yonge23 · 2005-04-26

我有个"001.C"的文件: #include <stdio.h> #include <math.h> const g=10; main() { int a,b,c; printf("   A= &quot

; scanf("%d",&a); printf("   B= &quot

; scanf("%d",&b); c=a+b; printf(" A+B = %d/n",c); } 我现在想用DELPHI来测试该程序代码是否正确.. 首先我先利用TURBOC的TCC.EXE对"001.C"进行编译.使之生成"001.EXE"可执行文件.我用如下方法: ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c C:/turboc2/tcc -e001 001.c  >p.txt'), nil, SW_SHOW); 这步可以成功解决了,也可以正确地生成可执行程序"001.EXE". 接下来,我要调用"001.EXE"进行测试了. 我把测试数据:1  2  放在input.txt 文件中.想把测试结果的数据放在output.txt文件中. 我用如下方法: ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c 001  <input.txt >output.txt'), nil, SW_SHOW); 这样,测试数据就不用通过手动从键盘上输入.只要读取input.txt 文件中的测试数据就可以了. 但是用ShellExecute函数时,当001.EXE程序的代码如下时: #include <stdio.h> #include <math.h> const g=10; main() { int a,b,c; printf("   A= &quot

; scanf("%d",&a); printf("   B= &quot

; scanf("%d",&b); while (g==10) ; c=a+b; printf(" A+B = %d/n",c); } 由于while (g==10) ;,发生逻辑错误,进入死循环.得用DELPHI程序在一段时间(如2秒)自动结果001.EXE程序.这时用ShellExecute函数就不大方便了. 所以我想用Creatprocess函数来代替 ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c 001  <input.txt >output.txt'), nil, SW_SHOW); 实现同样的功能,并且能够结果001.EXE的死循环问题. 有哪位大哥有空能不能帮我实现这个功能,,,感谢万份. 不知道我能否把问题描述清楚...如果有不清楚的再说...

yonge23 · 2005-04-26

我有个"001.C"的文件: #include <stdio.h> #include <math.h> const g=10; main() { int a,b,c; printf("   A= &quot

; scanf("%d",&a); printf("   B= &quot

; scanf("%d",&b); c=a+b; printf(" A+B = %d/n",c); } 我现在想用DELPHI来测试该程序代码是否正确.. 首先我先利用TURBOC的TCC.EXE对"001.C"进行编译.使之生成"001.EXE"可执行文件.我用如下方法: ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c C:/turboc2/tcc -e001 001.c  >p.txt'), nil, SW_SHOW); 这步可以成功解决了,也可以正确地生成可执行程序"001.EXE". 接下来,我要调用"001.EXE"进行测试了. 我把测试数据:1  2  放在input.txt 文件中.想把测试结果的数据放在output.txt文件中. 我用如下方法: ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c 001  <input.txt >output.txt'), nil, SW_SHOW); 这样,测试数据就不用通过手动从键盘上输入.只要读取input.txt 文件中的测试数据就可以了. 但是用ShellExecute函数时,当001.EXE程序的代码如下时: #include <stdio.h> #include <math.h> const g=10; main() { int a,b,c; printf("   A= &quot

; scanf("%d",&a); printf("   B= &quot

; scanf("%d",&b); while (g==10) ; c=a+b; printf(" A+B = %d/n",c); } 由于while (g==10) ;,发生逻辑错误,进入死循环.得用DELPHI程序在一段时间(如2秒)自动结果001.EXE程序.这时用ShellExecute函数就不大方便了. 所以我想用Creatprocess函数来代替 ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c 001  <input.txt >output.txt'), nil, SW_SHOW); 实现同样的功能,并且能够结果001.EXE的死循环问题. 有哪位大哥有空能不能帮我实现这个功能,,,感谢万份. 不知道我能否把问题描述清楚...如果有不清楚的再说...

yonge23 · 2005-04-26

有人帮忙吗!? 没人有空!?

tseug · 2005-04-27

参考 http://www.delphibbs.com/delphibbs/dispq.asp?lid=618422

dawnsong · 2005-04-27

看你的原贴，我刚刚更改了你的程序，对超时是能够处理，而且也不会出错了 输入输出给你了一个参考页面，我还没试，试完先...

yonge23 · 2005-04-27

// 测试C语言可执行程序. procedure TForm1.Button2Click(Sender: TObject); var i:integer;    sinfo:TSTARTUPINFO;    pinfo:TProcessInformation;    ct,et,kt,ut:Tfiletime;    hinputfile,houtputfile:THandle;    security:TSecurityAttributes; begin  try  deletefile('output.txt');  hInputfile := FileOpen('input.txt', fmOpenRead);  hOutputFile:= FileCreate('output.txt');  FillChar(sInfo,sizeof(sInfo),#0);  sInfo.cb := SizeOf(sInfo);  sinfo.dwFlags:=STARTF_USESTDHANDLES;  SINFO.wShowWindow := SW_SHOW;  sinfo.hStdInput:=hInputFile;  sinfo.hStdOutput:=houtputFile;  sinfo.hStdError:=houtputfile;  if not CreateProcess(pchar('xxx.exe'),nil,nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then // IF NOT CreateProcess(nil, PChar('XXX.EXE'), nil, nil, True, 0, nil,  NIL, SINFO, PINFO)    THEN    MessageBox(Application.handle,'指定程序启动失败!','错误',MB_OK or MB_ICONSTOP)  else    begin      WaitForSingleObject(pInfo.hProcess,INFINITE);      CloseHandle( pinfo.hThread );      CloseHandle( pinfo.hProcess );      TerminateProcess(pinfo.hProcess,1);      showmessage('进程创建成功');      FileClose(hInputfile);      FileClose(hOutputfile);    end;  except    showmessage('测试失败');  end; end; 我这样做.INPUT.TXT中是有测试数据的.测试也可以顺利进行. 但是测试结果却没有输出到OUTPUT.TXT中.这是为什么,帮忙看一下哪错了.!?

tseug · 2005-04-27

我的代码是在98上写的，如果在2000或者XP上要修改一下，是因为安全性的问题 代码里增加下面的内容    security.nLength := sizeof(security);    security.bInheritHandle := true;    security.lpSecurityDescriptor := nil; CreateProcess那段代码改为 if not CreateProcess(pchar('xxx.exe'),nil,@security,,@security,false,NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then ....

yonge23 · 2005-04-27

还是不行...狂晕.... 加了.还是无法把测试结果输出到OUTPUT.TXT文件中...

tseug · 2005-04-27

是因为创建文件的SecurityAttributes的问题，你可以用CreateFile来创建文件 如果还有问题给我发邮件tseug@263.net, 你也可以参考 http://www.codecomments.com/archive279-2004-7-232528.html

tseug · 2005-04-27

procedure TForm1.Button1Click(Sender: TObject); var  SI: TStartupInfo;  PI: TProcessInformation;  SA: TSecurityAttributes;  hInputFile,hOutputfile:THandle; begin  sa.nLength := SizeOf(SA);  sa.bInheritHandle := True;  sa.lpSecurityDescriptor := nil;  hInputFile :=CreateFile('Input.txt', GENERIC_READ,FILE_SHARE_READ,@SA,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);  houtputFile:=CreateFile('Output.txt',GENERIC_WRITE,FILE_SHARE_WRITE,@SA,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);  ZeroMemory(@SI, SizeOf(SI));  SI.cb := SizeOf(SI);  SI.dwFlags:=STARTF_USESTDHANDLES;  SI.wShowWindow := SW_SHOW;  SI.hStdInput    :=hInputFile;  SI.hStdOutput   :=houtputFile;  SI.hStdError    :=houtputfile;  if not CreateProcess(nil, 'Project2.EXE',  @SA, @SA, True,    NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then    MessageBox(Application.handle,'&Ouml;&cedil;&para;¨&sup3;&Igrave;&ETH;ò&AElig;&ocirc;&para;&macr;&Ecirc;§°&Uuml;!','&acute;í&Icirc;ó',MB_OK or MB_ICONSTOP)  else    begin    if WaitForSingleObject(PI.hProcess, 5000) = WAIT_TIMEOUT then         TerminateProcess(PI.hProcess, 1);    CloseHandle(PI.hThread );    CloseHandle(PI.hProcess );    FileClose(hInputfile);    FileClose(hOutputfile);    end; end;

yonge23 · 2005-04-27

还是不行.老问题.INPUT.TXT中是有测试数据的.测试也可以顺利进行. 但是测试结果却没有输出到OUTPUT.TXT中. 会不会是."001.C"的文件: #include <stdio.h> #include <math.h> const g=10; main() { int a,b,c; printf("   A= &quot

; scanf("%d",&a); printf("   B= &quot

; scanf("%d",&b); c=a+b; printf(" A+B = %d/n",c); } 用scanf("%d",&a); scanf("%d",&b); 读取数据..而这个数据是从INPUT.TXT中取得的.这过程会不会出现什么问题啊!?

tseug · 2005-04-27

把你的001.C的exe文件和input.txt发给我，我试试

dawnsong · 2005-04-27

input.txt ----------- 1 2 =========== pipeTest.c ----------- main() { int a,b; printf("/n  a =&quot

; scanf("%d",&a); if(a==1){   sound(1000);   delay(10 *10 *1000); } printf("/n  b =&quot

; scanf("%d",&b); printf("/n  a+b=%d",a+b); nosound(); while(1){   printf("/n%x",b++); } } =========== 没有听到Sound声音，那么Input.txt还是不起作用，看来重定向输入也没有对 =========== 继续学习这个帖子http://www.codecomments.com/archive279-2004-7-232528.html

tseug · 2005-04-27

真是怪了，我用Delphi写的命令行程序就没问题，这个C程序就不对，看样子要研究一下了

yonge23 · 2005-04-27

谢谢tseug大哥...

yonge23 · 2005-04-27

还有人没,怎么没人回答了!?

dawnsong · 2005-04-27

问题已经解决，原因在这里： 我的机器是WinXp Pro，故运行dos程序有时会Crash，即Ntvdm的事 解决办法也很简单： //关键就在这里，不用向16位兼容的Ntvdm虚拟机，而用32位的cmd.exe  if not CreateProcess(nil, 'cmd.exe /c xxx.EXE', nil, nil, True,                        CREATE_NEW_CONSOLE, nil,                        PChar(ExtractFilePath(Application.ExeName)),                        SI, PI) then 下面是我找到的原因（http://kb.indiana.edu/data/alin.html?cust=609814.52646.30） ------------------------------------------------------------------------------- Windows NT 4.0, 2000, XP, and 2003 recognize scripts that end with .cmd as well as .bat extensions. However, the .cmd extension is the better choice for an all-Windows NT/2000/XP/2003 environment. In these operating systems, the .cmd extension is associated with the cmd.exe program, which uses a native 32-bit command environment. Scripts with .bat extensions will run on all Windows operating systems. Because .bat scripts are associated with the 16-bit program command.exe, they will not run as fast as those with .cmd extensions. Also, they are more prone to errors, because they run in the NT Virtual DOS Machine (NTVDM) instead of the native 32-bit cmd.exe program. ------------------------------------------------------------------------------ 下面是更改后可以正确运行的语句： procedure TForm1.btnMEClick(Sender: TObject); var  SI: TStartupInfo;  PI: TProcessInformation;  SA: TSecurityAttributes;  hInputFile,hOutputfile:THandle;  tmpStr :string; begin  sa.nLength := SizeOf(SA);  sa.bInheritHandle := True;  sa.lpSecurityDescriptor := nil;  hInputFile :=CreateFile('Input.txt', GENERIC_READ,FILE_SHARE_READ,@SA,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);  houtputFile:=CreateFile('Output.txt',GENERIC_WRITE,FILE_SHARE_WRITE,@SA,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);  ZeroMemory(@SI, SizeOf(SI));  SI.cb := SizeOf(SI);  SI.dwFlags:=STARTF_USESTDHANDLES;  SI.wShowWindow := SW_SHOW;  SI.hStdInput    :=hInputFile;  SI.hStdOutput   :=houtputFile;  SI.hStdError    :=houtputfile;  //关键就在这里，不用向16位兼容的Ntvdm虚拟机，而用32位的cmd.exe          if not CreateProcess(nil, 'cmd.exe /c xxx.EXE', nil, nil, True,                        CREATE_NEW_CONSOLE, nil,                        PChar(ExtractFilePath(Application.ExeName)),                        SI, PI) then    MessageBox(Application.handle,'error load ','error',MB_OK or MB_ICONSTOP)  else    begin    if WaitForSingleObject(PI.hProcess, 5000) = WAIT_TIMEOUT then         TerminateProcess(PI.hProcess, 1);    CloseHandle(PI.hThread );    CloseHandle(PI.hProcess );    FileClose(hInputfile);    FlushFileBuffers(hOutputfile);    FileClose(hOutputfile);    end; end;

dawnsong · 2005-04-27

呵呵，为这个问题我也是郁闷了一天，把那个CreateProcess搬过来搬过去的研究，还有http://www.codecomments.com/archive279-2004-7-232528.html这个帖子的程序，读了一遍又一遍，直到想起兼容的事，查了资料后，竟会轻松解决。 呵呵，在这之前，从http://support.microsoft.com/kb/q196453/帮助里面，我的Path都被我该过来改过去，config.nt、autoexec.nt、还有用sysedit等，系统文件也差点儿改的不成样子，郁闷了一天[

]，也看不到还有其他高手来回答，最后还是从http://kb.indiana.edu/data/alin.html?cust=609814.52646.30这里了解到了ntvdm和cmd.exe的不同，问题终于解决了，也长进了一点儿[

]

dawnsong · 2005-04-27

并且可以看到这么运行程序，点击那个按钮后，系统进程中并没有自动运行ntvdm.exe和wowexec.exe（原先的程序都会这样自动调用虚拟机，即ntvdm和wowexe.exe），而且程序也正常工作了，能够从文件接收输入，并输出到指定文件。 算是有了这么一点儿经验： 虚拟机和cmd.exe还是很不同啊

nicai_wgl · 2005-04-27

dawnsong大虾精神可嘉，学习，收藏..

关于DELPHI调用外部可执行程序的问题(Creatprocess)....急...再200分求答案 ( 积分: 200 )

yonge23

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

Similar threads