[SOLVED]How to work with Process1:TProcess

[winnie]

How can I send the output of an command into a memo?

in the objectinspector is a option: poUsePipes, but how does can I use this option?

Can someone make a little example or show me a page where I cann read this?

thanks
Patrick

[Vincent Snijders]

See this example on Lazarus CCR. Remember that the Lines property of a TMemo is a TStrings. Maybe you want to extend the page and add an example of adding the output to a TMemo.

[winnie]

i have seen this help in the wiki... bit it doesn't work properly.
when i want to compile this unit as a class under lazarus he doesn't accept the syntax of pOpen in this unit
only when I compile this unit on console with fpc he accept the syntax of pOpen.
Do anybody know why??

[Vincent Snijders]

Where is pOpen mentioned in the wiki?

[Marc]

Where on this wiki page do yuou find pOpen ?

[winnie]

ups...sry.. i have mixed up diverent pages... :S

but pOpen and system doesn't work in a lazarus programm... even when I include the Libc

Code: [Select]


uses ..., Libc;


[winnie]

I have write a class with the last example, but when i want to start another programm my lazarus program crashed... :S

here is the sourcecode of the class:

Code: [Select]


unit cprozess;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Process, StdCtrls, Dialogs;
 
const
  READ_BYTES = 2048;
 
 
type TProzessdata = class(TObject)
 
     private

     public
           function execute_programm(prog:String):TStringlist;
     
     end;
     

implementation

function TProzessdata.execute_programm(prog:String):TStringList;
var
  S: TStringList;
  M: TMemoryStream;
  P: TProcess;
  n: LongInt;
  BytesRead: LongInt;
begin;
      M := TMemoryStream.Create;
      BytesRead := 0;

      P := TProcess.Create(nil);
      P.CommandLine := 'halt';
      P.Options := [poUsePipes];
      P.Execute;
      while P.Running do
            begin
                 M.SetSize(BytesRead + READ_BYTES);
                 n := P.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
                 if n > 0 then
                         Inc(BytesRead, n)
                 else
                     Sleep(100);
            end;
      repeat
            M.SetSize(BytesRead + READ_BYTES);
            n := P.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
            if n > 0 then
               Inc(BytesRead, n);
      until n <= 0;
      M.SetSize(BytesRead);
      S := TStringList.Create;
      S.LoadFromStream(M);
      S.Free;
      P.Free;
      M.Free;
      execute_programm:=S;
end;
end.


Code: [Select]


uses ..., cprozess;
...
var
  Form1: TForm1;
  startop:TStartup;
  prozessop:TProzessdata;
...
procedure TForm1.Button1Click(Sender: TObject);
Var local: TSTringlist;
begin
     local:=prozessop.execute_programm('');
     memo1.lines:=local;
end;

what is wrong?

[Vincent Snijders]

Two things:

Code: [Select]

S.Free;
If you want to return the stringlist and use it, you shouldn't free it.

Code: [Select]

memo1.lines:=local;
I am not sure assigning it like this, is going to work. Maybe memo1.lines.Assign(local); is a better idea.

[winnie]

*g* thanks it works
i will upload this class to the wiki tomorrow.