+ From: Tom Lisjac
+
+ > + With Process1 do
+ > + Begin
+ > + CommandLine:='/usr/bin/find /usr';
+ > + Active:=True;
+ > + End;
+ > +
+ > + This creates a process... but it allocates zero ram and
+ doesn't execute
+ > + the find command.
+
+ > Ehm, where and how did you create it ?
+
+ I dropped a TProcess component on a blank form along with two buttons...
+ one to initialize CommandLine and set Active true... and the other to
+ set active false.

Ah, I never used TProces as component, I create it in code. Maybe you neer some options or so.

Example from cmdlinedebugger.pp:

function TCmdLineDebugger.CreateDebugProcess(const AOptions: String):
Boolean;
begin
  if FDbgProcess = nil
  then begin
    FDbgProcess := TProcess.Create(nil);
    FDbgProcess.CommandLine := ExternalDebugger + ' ' + AOptions;
    FDbgProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut];
    FDbgProcess.ShowWindow := swoNone;
    FDbgProcess.Environment:=Environment;
  end;
  if not FDbgProcess.Running
  then begin
    FDbgProcess.Execute;
    WriteLn('[TCmdLineDebugger] Debug PID: ', FDbgProcess.Handle);
  end;
  Result := FDbgProcess.Running;
end;

Marc

Hi Marc,

Ah, I never used TProces as component, I create it in code. Maybe you neer some options or so. Example from cmdlinedebugger.pp:

Thanks!

I got some sleep and started with a fresh project. This time TProcess worked fine when autocreated on the form. I'm not sure if it was the new project, a reboot or the sleep that solved the problem though! :)

TProcess is feature rich and nicely written! I'm going to continue working with it... and if I create any useful examples, I'll post them and send a link to the list.

Best regards,

-Tom

IIRC TProcess is based on the same functions in the Linux unit, so it should work too.

Linux unit, popen, assignpipe etc, check the text and the examples.

This works under *BSD too, but only since 1.0.6 or so.

+ From: Tom Lisjac
+
+ > I would love to see the API doc's for this as I think it could make some
+ > of my work a lot easier.
+
+ Perhaps we could write some if nothing exists. This is a nice component! +
+ I'm having some trouble getting it going, however. Here's what I did: +
+ With Process1 do
+ Begin
+ CommandLine:='/usr/bin/find /usr';
+ Active:=True;
+ End;
+
+ This creates a process... but it allocates zero ram and doesn't execute
+ the find command. If I set Active to false, the process terminates. I
+ looked at the sources and didn't see anything else that I thought needed
+ to be set... but that doesn't mean there isn't! :)

Ehm, where and how did you create it ?

Marc

I dropped a TProcess component on a blank form along with two buttons... one to initialize CommandLine and set Active true... and the other to set active false.

What about TProcess?

Mattias

I would love to see the API doc's for this as I think it could make some of my work a lot easier.

Perhaps we could write some if nothing exists. This is a nice component!

I'm having some trouble getting it going, however. Here's what I did:

With Process1 do
  Begin
    CommandLine:='/usr/bin/find /usr';
    Active:=True;
  End;

This creates a process... but it allocates zero ram and doesn't execute the find command. If I set Active to false, the process terminates. I looked at the sources and didn't see anything else that I thought needed to be set... but that doesn't mean there isn't! :)

-Tom

That's exactly what I was looking for... thank you!

What about TProcess?

Thanks for pointing it out. Using TProcess might be an even better design approach then the one I was considering. There's Input, OutPut and StdErr public properties and a very complete set of TProcessOptions for setting up pipes and suppressing output to the console!

Looks like I'll be spending the next hour writing some test code! :)

Best regards,

-Tom

Hi everyone!

I'm in the process of migrating some Linux shell scripts I've written into Lazarus... but I'm trying to figure out an efficient way of redirecting the I/O of external programs like mkisofs, md5sum and a few others without having to create a bunch of temporary disk files?

In bash you can launch and redirect the output of "externalprogram" to THEVAR with:

THEVAR="`externalprogram`"

In perl it's:
  @output = `externalprogram`;

In python, via the "os" module:
README = os.popen('externalprogram', 'r')

Is there a way to do this in Object Pascal under Linux... or is using a temporary text file the best approach?

Thanks,

-Tom

> I would love to see the API doc's for this as I think it could make some > of my work a lot easier.

There are no docs, but there is a demo iirc;

fcl/tests/testproc.pp

Where can I find more information on TProcess ?
I have
googled,
checked the lazarus docs

And nothing.

I would love to see the API doc's for this as I think it could make some of my work a lot easier.

A.J.

I'm using X on cygwin on XP to talk to a Linux box. I'm able to start gnome-session with the following:

ssh -X -l chris linuxboxen
<password>
gnome-session --replace

(The replace doesn't seem to work, but it comes up anyhow).

But I can't figure out how to start kde. Anybody know?

Chris