可能是CREATEFILE的问题.高手请进. -----急........... ( 积分: 50 )

yonge23 · 2005-04-26

procedure TForm1.Button2Click(Sender: TObject); var i:integer;    sinfo:TSTARTUPINFO;    pinfo:TProcessInformation;    ct,et,kt,ut:Tfiletime;    hinputfile,houtputfile:THandle;    security

SecurityAttributes; begin  try  //CreatePipe(hReadPipe, hWritePipe, nil, 0);  security.nLength:=sizeof(security);  security.lpSecurityDescriptor:=NIL;  security.bInheritHandle:=TRUE;  hInputFile:=CreateFile(pchar('input.txt'),GENERIC_READ,FILE_SHARE_READ,security,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);  houtputFile:=CreateFile(pchar('output.txt'),GENERIC_WRITE,FILE_SHARE_WRITE,security,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);  FillChar(sInfo,sizeof(sInfo),#0);  sInfo.cb := SizeOf(sInfo);                              // CREATE_NEW_CONSOLE or  sinfo.dwFlags:=STARTF_USESTDHANDLES;  sinfo.hStdInput:=hInputFile;  sinfo.hStdOutput:=houtputFile;  if not CreateProcess('xxx.exe',nil,nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then    MessageBox(Application.handle,'指定程序启动失败!','错误',MB_OK or MB_ICONSTOP)  else    begin    while (true) do      begin      sleep(1000);      //WaitForSingleObject(pInfo.hProcess,INFINITE);      getprocesstimes(pinfo.hProcess,ct,et,kt,ut);      if (ut.dwHighDateTime-ut.dwLowDateTime)>1000000000 then        begin        CloseHandle( pinfo.hProcess );        CloseHandle( pinfo.hThread );        CloseHandle(houtputFile); CloseHandle(hInputFile);        TerminateProcess(pinfo.hProcess,1);        ShowMessage(IntToStr(GetLastError));        showmessage('运行超时');        edit6.Text:=inttostr(kt.dwHighDateTime-kt.dwLowDateTime);        exit;        end;      end;    end;  except    showmessage('测试失败');  end; end; 运行时下面错误: --------------------------- Debugger Exception Notification --------------------------- Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00419C97 in module 'Project1.exe'. Read of address 00000014'. Process stopped. Use Step or Run to continue. --------------------------- OK   Help   --------------------------- 哪位大哥帮忙看看哪位了.可能问题是出现在CREATEFILE处. 我的程序代码是用来调用外部可执行程序.测试外部可执行程序.测试数据在INPUT.TXT中.测试结果输出到OUTPUT.TXT中.

yonge23 · 2005-04-26

procedure TForm1.Button2Click(Sender: TObject); var i:integer;    sinfo:TSTARTUPINFO;    pinfo:TProcessInformation;    ct,et,kt,ut:Tfiletime;    hinputfile,houtputfile:THandle;    security

SecurityAttributes; begin  try  //CreatePipe(hReadPipe, hWritePipe, nil, 0);  security.nLength:=sizeof(security);  security.lpSecurityDescriptor:=NIL;  security.bInheritHandle:=TRUE;  hInputFile:=CreateFile(pchar('input.txt'),GENERIC_READ,FILE_SHARE_READ,security,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);  houtputFile:=CreateFile(pchar('output.txt'),GENERIC_WRITE,FILE_SHARE_WRITE,security,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);  FillChar(sInfo,sizeof(sInfo),#0);  sInfo.cb := SizeOf(sInfo);                              // CREATE_NEW_CONSOLE or  sinfo.dwFlags:=STARTF_USESTDHANDLES;  sinfo.hStdInput:=hInputFile;  sinfo.hStdOutput:=houtputFile;  if not CreateProcess('xxx.exe',nil,nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then    MessageBox(Application.handle,'指定程序启动失败!','错误',MB_OK or MB_ICONSTOP)  else    begin    while (true) do      begin      sleep(1000);      //WaitForSingleObject(pInfo.hProcess,INFINITE);      getprocesstimes(pinfo.hProcess,ct,et,kt,ut);      if (ut.dwHighDateTime-ut.dwLowDateTime)>1000000000 then        begin        CloseHandle( pinfo.hProcess );        CloseHandle( pinfo.hThread );        CloseHandle(houtputFile); CloseHandle(hInputFile);        TerminateProcess(pinfo.hProcess,1);        ShowMessage(IntToStr(GetLastError));        showmessage('运行超时');        edit6.Text:=inttostr(kt.dwHighDateTime-kt.dwLowDateTime);        exit;        end;      end;    end;  except    showmessage('测试失败');  end; end; 运行时下面错误: --------------------------- Debugger Exception Notification --------------------------- Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00419C97 in module 'Project1.exe'. Read of address 00000014'. Process stopped. Use Step or Run to continue. --------------------------- OK   Help   --------------------------- 哪位大哥帮忙看看哪位了.可能问题是出现在CREATEFILE处. 我的程序代码是用来调用外部可执行程序.测试外部可执行程序.测试数据在INPUT.TXT中.测试结果输出到OUTPUT.TXT中.

yonge23 · 2005-04-26

没人回答?! 至少也UP一下.

dawnsong · 2005-04-26

失误，不能妄言，我也试试...

dawnsong · 2005-04-26

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的死循环问题. 有哪位大哥有空能不能帮我实现这个功能,,,感谢万份. 不知道我能否把问题描述清楚...如果有不清楚的再说...

dawnsong · 2005-04-27

procedure TForm1.btnAuthorClick(Sender: TObject); var i:integer;    sinfo:TSTARTUPINFO;    pinfo:TProcessInformation;    ct,et,kt,ut:Tfiletime;    hinputfile,houtputfile:THandle;    security:TSecurityAttributes;//这里需要更改 begin  try  //CreatePipe(hReadPipe, hWritePipe, nil, 0);  security.nLength:=sizeof(security);  security.lpSecurityDescriptor:=NIL;  security.bInheritHandle:=TRUE;  hInputFile:=CreateFile(pchar('input.txt'),GENERIC_READ,FILE_SHARE_READ,@security,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);//这一行  houtputFile:=CreateFile(pchar('output.txt'),GENERIC_WRITE,FILE_SHARE_WRITE,@security,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);//这一行  FillChar(sInfo,sizeof(sInfo),#0);  sInfo.cb := SizeOf(sInfo);                              // CREATE_NEW_CONSOLE or  sinfo.dwFlags:=STARTF_USESTDHANDLES;  sinfo.hStdInput:=hInputFile;  sinfo.hStdOutput:=houtputFile;  if not CreateProcess('xxx.exe',nil,nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then    MessageBox(Application.handle,'指定程序启动失败!','错误',MB_OK or MB_ICONSTOP)  else    begin    while (true) do      begin      sleep(1000);      //WaitForSingleObject(pInfo.hProcess,INFINITE);      getprocesstimes(pinfo.hProcess,ct,et,kt,ut);      if (ut.dwHighDateTime-ut.dwLowDateTime)>1000000000 then        begin//这里更改一下释放顺序        CloseHandle(houtputFile); CloseHandle(hInputFile);        TerminateProcess(pinfo.hProcess,1);        CloseHandle( pinfo.hProcess );        CloseHandle( pinfo.hThread );        edit1.Text:=inttostr(kt.dwHighDateTime-kt.dwLowDateTime);        exit;        end;      end;    end;  except    showmessage('测试失败');  end; end;

dawnsong · 2005-04-27

http://info.tlw.cn/7747.htm 另，楼主可以参看上面的实现方法

yonge23 · 2005-04-28

接受答案了.

可能是CREATEFILE的问题.高手请进. -----急........... ( 积分: 50 )

yonge23

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

dawnsong

Unregistered / Unconfirmed

yonge23

Unregistered / Unconfirmed

Similar threads