mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-11 07:52:35 +02:00
36 lines
716 B
ObjectPascal
36 lines
716 B
ObjectPascal
program pfinger;
|
|
|
|
uses sockets,errors;
|
|
|
|
Var Addr : TInetSockAddr;
|
|
S : Longint;
|
|
Sin,Sout : Text;
|
|
Line : string;
|
|
|
|
begin
|
|
Addr.family:=AF_INET;
|
|
{ port 79 in network order }
|
|
Addr.port:=79 shl 8;
|
|
{ localhost : 127.0.0.1 in network order }
|
|
Addr.addr:=((1 shl 24) or 127);
|
|
S:=Socket(AF_INET,SOCK_STREAM,0);
|
|
If Not Connect (S,ADDR,SIN,SOUT) Then
|
|
begin
|
|
Writeln ('Couldn''t connect to localhost');
|
|
Writeln ('Socket error : ',strerror(SocketError));
|
|
halt(1);
|
|
end;
|
|
rewrite (sout);
|
|
reset(sin);
|
|
writeln (sout,paramstr(1));
|
|
flush(sout);
|
|
while not eof(sin) do
|
|
begin
|
|
readln (Sin,line);
|
|
writeln (line);
|
|
end;
|
|
Shutdown(s,2);
|
|
close (sin);
|
|
close (sout);
|
|
end.
|