[fpc-pascal] including libraies ?

Terry A. Haimann terry at HaimannOnline.com
Sun Mar 14 23:11:56 CET 2010


I tried to write a little utility to submit a command to the At Facility.

The code to do this is as follows:

program TestPrg;

Uses Classes, Process;

Var
    i:    Integer;
    Cmd, Pre, Post, StrVar, SwStr:    String;
    MyProcess: TProcess;
    SOut, EOut, StdStrLst: TStringList;

Begin
    StdStrLst   := TStringlist.Create;
    SOut   := TStringlist.Create;
    EOut   := TStringlist.Create;  
      EOut := TStringlist.Create; 
      MyProcess := TProcess.Create(nil);  
      MyProcess.CommandLine := 'at now';   
      MyProcess.Options := MyProcess.Options + [poUsePipes];  
      MyProcess.Execute;  
      StdStrLst.Clear;
      StdStrLst.Add('awk -F":" ''{print $1"\t"$3"\t"$4}'' /etc/passwd | 
sort');    
      StdStrLst.SaveToStream(MyProcess.Input);    
      StdStrLst.Clear;  
      StdStrLst.Add(chr(4));
      StdStrLst.SaveToStream(MyProcess.Input);
      SOut.LoadFromStream(MyProcess.Output);
      For i:=1 to SOut.Count Do
          WriteLn(SOut.Strings[i]);
      EOut.LoadFromStream(MyProcess.StdErr);
      For i:=1 to EOut.Count Do
          WriteLn(EOut.Strings[i]);
End.


Running this code from a Lazarus test program works with out any 
problems.  When running it from a Free Pascal (non gui,) the program 
finishes normally, but nothing gets submitted to the AT Facility. 

uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, 
Dialogs,
 StdCtrls, Process;

Someone on the Lazarus List recommend I add SysUtils to my utility 
program.  I am not sure how to do this.  SysUtils has many included 
files in there and they are all in other directories, none of which are 
in my path.  I am sure there is some simple method here that I am 
totally ignorant of.

Thanks in advance,   TH



More information about the fpc-pascal mailing list