[Lazarus-es] Problema con texto generado desde tprocess

[Martin Gomez]

On Sun, Aug 4, 2013 at 1:40 PM, metal box <metalbox9000 en gmail.com> wrote:

> Como vez alli en  la funcion StrCat colocan CMD  por lo que asi como esta
> funciona solo en windows no se si podria funcionar con la consola de linux.
>

me resulta demasiado complicada tu solucion :)
Yo uso TProcess de esta manera:

  Proceso := TProcess.Create(nil);
  Proceso.Executable := FindDefaultExecutablePath('synce-pcp');
  with Proceso.Parameters do
  begin
    Add(':' + csSource);
    Add(csTarget);
  end;
  Proceso.Options := Proceso.Options + [poWaitOnExit, poUsePipes,
poStderrToOutPut];
  Proceso.Execute;
  LogStream(Proceso.Output);
  Result := Proceso.ExitStatus;
  if Result <> 0 then
    ShowMessage('error copiando "' + csTarget + '"');
  Proceso.Free;

Siendo LogStream lo siguiente:

procedure LogStream(Stream: TStream);
var
  Lista: TStringList;
  j: integer;
begin
  Lista := TStringList.Create;
  try
    Lista.LoadFromStream(Stream);
    for j := 0 to Lista.Count - 1 do
    begin
      DebugLn([DateTimeToStr(Now), '  = ', Lista[j]]);
    end;
  finally
    Lista.Free;
  end;
end;

O sea, obtengo el resultado de la ejecucion y lo envio a debug (pero vos
podes hacer lo que necesites con el resultado)




> Una Pregunta windows 8 Trae CMD o lo eliminaron totalmente por el nuevo
> shell
>

​Aun existe.​



-- 
Try not to become a man of success but rather to become a man of value. *Albert
Einstein*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130805/c0092229/attachment-0002.html>