Una facil: Como leo de stdin linea por linea?

[[ElKurgan]]

¿Estás usando lázarus?

A lo mejor este enlace te da alguna idea, pero no se si es exactamente lo que buscas...

De todas formas (no tengo Linux a mano), desde la línea de comandos me funciona (más o menos) con este código:

Código Delphi [-]
while not EOF do begin

  ReadLn(linea);
  writeln(linea);

end;

Eso si, termino con un Ctrl+C

Un saludo

[Neftali [Germán.Estévez]]

En Delphi un programilla como este debería cubir lo que necesitas:

Código Delphi [-]

program PLeerEntradaStd;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Vcl.Forms, Winapi.Windows, System.SysUtils, System.Classes, VCL.Dialogs;

var
  Buffer: array[0..1000] of Byte;
  StdIn: TStream;
  Count: Integer;
  i: integer;
  Str: string;
begin
  try
    StdIn := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
    Count := StdIn.Read(Buffer, 1000);
    StdIn.Free;
    for i := 0 to (Count - 1) do begin
      Str := Str + Char(Buffer[i]);
    end;
    ShowMessage(Str);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Una ejecución como esta devolverá el valor leído:

[[ElKurgan]]

Germán, eres un monstruo!

Gran código, si señor

Saludos

[mamcx]

Empezado por ElKurgan

¿Estás usando lázarus?
Eso si, termino con un Ctrl+C

Un saludo

Si estoy con FPC. Hay forma de evitar el Ctrl-C?

[[ElKurgan]]

Lo siento, no tengo lazarus. La prueba era con Delphi normal.

Lo decía porque en algunos foros hablan de los Pipes como forma de enlazaar procesos.

No se si estas páginas te serán de ayuda o no:

https://stackoverflow.com/questions/...n-stdout-pipes
https://forum.lazarus.freepascal.org...?topic=41936.0

Un saludo