[fpc-pascal] Ping problems - OS/X

[Mattias Gaertner]

On Wed, 21 May 2014 13:00:58 +0200
Peter Brooks <peter.brooks at kchclinics.com> wrote:

> Sorry, I misled you. I did move it higher up, earlier, to test
> something, and I forgot to put it back.
> 
> This version has exactly the same behaviour:
> 
> -rw-r--r--  1 peterbrooks  wheel       0 21 May 13:00 output.txt
> 
> Program nmp(input,output);
> 
> uses
>   Classes, SysUtils,  Process;
> var
>   AProcess: TProcess;
>   AStringList: TStringList;
>   n :Integer;
> begin { main }
>   for n := 0 to 20 do
> begin { for }
>   AStringList := TStringList.Create;
>   AProcess := TProcess.Create(nil);
>   AProcess.Executable := 'ping';

TProcess needs the full path: '/bin/ping'

TProcess needs to be extended to raise an exception in this case.

>   AProcess.Parameters.Add('-c 1');
>   AProcess.Parameters.Add('www.freepascal.org');
>   AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
>   AProcess.Execute;
>   Writeln(n,' Execution Over: Exit Status: ',AProcess.ExitStatus);
>   AStringList.Add('stdout:');
>   AStringList.LoadFromStream(Aprocess.Output);
>   AStringList.Add('stderr:');
>   AStringList.LoadFromStream(AProcess.Stderr);
>   AStringList.LoadFromStream(AProcess.Output);
>   AStringList.SaveToFile('output.txt');
>   writeln(AStringList.Text);
> AstringList.Free;
> AProcess.Free;
> end; {for}
> close(output);
> close(input);
> end.

Mattias