[Lazarus-es] Problema con texto generado desde tprocess

[metal box]

ok, si me parece muchisimo mejor, la otra funcion que deje es un poco lenta.


2013/8/5 Martin Gomez <mmgomez en gmail.com>

>
> 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*
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>


-- 
*Saludos.

Jose Daboin*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130810/8128fcae/attachment-0002.html>