ITPub博客

首页 > 应用开发 > IT综合 > CBuilder中使用管道技术实例 (转)

CBuilder中使用管道技术实例 (转)

原创 IT综合 作者:amyz 时间:2007-11-13 14:55:10 0 删除 编辑
CBuilder中使用管道技术实例 (转)[@more@]

废话不多说,大家来看代码

bool __fastcall TForm1::RunCmd(AnsiString cmd,TStringList *stringlist)
{
  TMemoryStream *memstream=new TMemoryStream();
  AnsiString rn="rn";
  PROCESS_INFORMATION proc;
  STARTUPINFO start;
  SECURITY_ATTRIBUTES sa;
  long ret;
  unsigned long lngBytesread;
  HANDLE hReadPipe,hWritePipe;
  char *strBuff=(char *)malloc(256);
  if(strBuff==NULL)
  {
  return false;
  }
  sa.nLength = sizeof(SECURITY_ATTRIBUTES);
  sa.bInheritHandle=true;
  sa.lpSecurityDescriptor=NULL;
  ret=CreatePipe(&hReadPipe,&hWritePipe,&sa,0);
  if(ret==0)
  {
  //创建管道失败
  return false;
  }
  memset(&start,0x00,sizeof(STARTUPINFO));
  start.cb=sizeof(STARTUPINFO);
  start.dwFlags=STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
  start.hStdOutput=hWritePipe;
  start.hStdError=hWritePipe;
  bool retc=CreateProcess(NULL,cmd.c_str(),NULL,NULL,true, 0, 0, NULL, &start, &proc);
  if(!retc)
  {
  return false;
  }
  CloseHandle(hWritePipe);
  unsigned long len;
  memstream->Position=0;
  while(true)
  {
  memset(strBuff,0x00,256);
  GetFileSize(hReadPipe,&len);
  ret = ReadFile(hReadPipe, strBuff, 256, &lngBytesread,NULL);
  if(ret==0)
  {
  break;
  }
  else
  {
  memstream->Write(strBuff,lngBytesread);
  }
  }
  CloseHandle(proc.hProcess);
  CloseHandle(proc.hThread);
  CloseHandle(hReadPipe);
  memstream->Position=0;
  free(strBuff);
  stringlist->LoadFromStream(memstream);
  memstream->Clear();
  delete memstream;
  return true;
}

以上为一个使用管道获取命令行模式程序的运行结果的函数

使用代码

TStringList *StrList=new TStringList;
AnsiString strcmd;

RunCmd(strcmd,StrList);

结果保留再StrList中。

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-982258/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7363642