mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-05 05:23:40 +02:00
26 lines
552 B
ObjectPascal
26 lines
552 B
ObjectPascal
Program Example36;
|
|
|
|
{ Program to demonstrate the AssignPipe function. }
|
|
|
|
Uses linux;
|
|
|
|
Var pipi,pipo : Text;
|
|
s : String;
|
|
|
|
begin
|
|
Writeln ('Assigning Pipes.');
|
|
assignpipe(pipi,pipo);
|
|
if linuxerror<>0 then
|
|
Writeln('Error assigning pipes !');
|
|
Writeln ('Writing to pipe, and flushing.');
|
|
Writeln (pipo,'This is a textstring');close(pipo);
|
|
Writeln ('Reading from pipe.');
|
|
While not eof(pipi) do
|
|
begin
|
|
Readln (pipi,s);
|
|
Writeln ('Read from pipe : ',s);
|
|
end;
|
|
close (pipi);
|
|
writeln ('Closed pipes.');
|
|
writeln
|
|
end. |