调用外部程序,用process的管道获得外部程序的输出信息......

zy_oo

var
   AProcess: TProcess;
   AStringList: TStringList;
begin
   AProcess := TProcess.Create(nil);
   AStringList := TStringList.Create;
   AProcess.CommandLine :='D:\wget\wget.exe  -t 0 -c  文件的下载地址';
   AProcess.Options := AProcess.Options + [poWaitOnExit,poUsePipes];
   AProcess.Execute;
   AStringList.LoadFromStream(AProcess.Output);
   AStringList.SaveToFile('output.txt');
   AProcess.Free;
end;
为什么output.txt没有任何信息,...我想通过wget这个程序的输出信息,判断文件是否成功下载完毕.......

insion

That's nice, but how do I read the Output of a program that I have run?
Well, let's expand our example a little and do just that:

// This is a demo program that shows how to launch
// an external program and read from it's output.
program launchprogram;

// Here we include files that have useful functions
// and procedures we will need.
uses
   Classes, SysUtils, Process;

// This is defining the var "AProcess" as a variable
// of the type "TProcess"
// Also now we are adding a TStringList to store the
// data read from the programs output.
var
   AProcess: TProcess;
   AStringList: TStringList;

// This is where our program starts to run
begin
   // Now we will create the TProcess object, and
   // assign it to the var AProcess.
   AProcess := TProcess.Create(nil);

   // Create the TStringList object.
   AStringList := TStringList.Create;

   // Tell the new AProcess what the command to execute is.
   // Let's use the FreePascal compiler
   AProcess.CommandLine := 'ppc386 -h';

   // We will define an option for when the program
   // is run. This option will make sure that our program
   // does not continue until the program we will launch
   // has stopped running. Also now we will tell it that
   // we want to read the output of the file.
   AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];

   // Now that AProcess knows what the commandline is
   // we will run it.
   AProcess.Execute;

   // This is not reached until ppc386 stops running.

   // Now read the output of the program we just ran
   // into the TStringList.
   AStringList.LoadFromStream(AProcess.Output);

   // Save the output to a file.
   AStringList.SaveToFile('output.txt');

   // Now that the file is saved we can free the
   // TStringList and the TProcess.
   AStringList.Free;
   AProcess.Free;   
end.

猫工

我是这样写的

2. procedure WriteLog(strFile, strTxt: string; i: integer);       //写日志，做调试用
3. var
4.   wText: TextFile;
5.   f, strType: string;
6. begin
7.   case i of
8.     0:   //接收日志时
9.     begin
10.       strType := '接收日志';
11.     end;
12.     1:   //
13.     begin
14.       strType := '更新数据';
15.     end;
16.   end;
17.    
18.   f := ExtractFilePath(Paramstr(0)) + strFile;
19.   AssignFile(wText, f);
20.   if not fileExists(f) then
21.     ReWrite(wText);
22.   Append(wText);
23.   Writeln(wText, FormatDatetime('yyyy-MM-dd HH:mm:ss', now)
24.       + ' --- ' + strType + ' --- '  + strTxt);
25.   CloseFile(wText);
26. end;   

复制代码