🚀 go-pugleaf

Hola,

Debes hacer un fork, pero antes debes redirigir la salida estandar del
quemador a una pipe() de tu aplicaci�n, puedes generar un hilo de ejecuci�n
que vaya leyendo de la pipe para que tu aplicaci�n est� siempre 'activa'.

Parece que tengo un cacho de c�digo por aqu�:

Extra�do de http://reportman.sourceforge.net unidad rpqtdriver.pas

Claro que si es en C++ pues a traducir que es f�cil

Tienes otro ejemplo  que utiliza pipes en
http://sourceforge.net/projects/ibaccess descargandolo via cvs, busca la
unidad ibman.pas, que recoge la salida de los comandos gbak,gfix etc de
Interbase/Firebird


uses
  Libc,

...
...
var
 abuffer:array [0..L_tmpnam] of char;
 theparams:array [0..20] of pchar;
 params:array[0..20] of string;
 paramcount:integer;
 afilename:string;
 child:__pid_t;
 i:integer;

   tmpnam(abuffer);
   afilename:=StrPas(abuffer);
   report.Metafile.SaveToFile(afilename);
   params[0]:='metaprint';
   params[1]:='-d';
   params[2]:='-copies';
   params[3]:=IntToStr(copies);
   params[4]:='-p';
   params[5]:=IntToStr(integer(report.PrinterSelect));
   paramcount:=6;
   if collate then
   begin
    params[paramcount]:='-collate';
    inc(paramcount);
   end;
   if not allpages then
   begin
    params[paramcount]:='-from';
    inc(paramcount);
    params[paramcount]:=IntToStr(frompage);
    inc(paramcount);
    params[paramcount]:='-to';
    inc(paramcount);
    params[paramcount]:=IntToStr(topage);
    inc(paramcount);
   end;
   if not progress then
   begin
    params[paramcount]:='-q';
    inc(paramcount);
   end;
   params[paramcount]:=afilename;
   inc(paramcount);

   for i:=0 to paramcount-1 do
   begin
    theparams[i]:=Pchar(params[i]);
   end;
   theparams[paramcount]:=nil;

   child:=fork;
   if child=-1 then
    Raise Exception.Create(SRpErrorFork);
   if child<>0 then
   begin
    if (-1=execv(theparams[0],PPChar(@theparams))) then
    begin
     try
      RaiseLastOsError;
     except
      on E:Exception do
      begin
       E.Message:=SRpErrorFork+':execv:'+IntToStr(errno)+'-'+E.Message;
       Raise;
      end;
     end;
    end;
   end
 end;