paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 18:20:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ On error client name is printed

Browse Source
This commit is contained in:
michael 2000-05-18 16:28:56 +00:00
parent d1e0f8af25
commit 81976c3f30
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/sockex/socksvr.pp
View File

@ -35,7 +35,7 @@ begin
PError ('Server : Listen : '); PError ('Server : Listen : ');
Writeln('Waiting for Connect from Client, run now sock_cli in an other tty'); Writeln('Waiting for Connect from Client, run now sock_cli in an other tty');
if not Accept (S,FromName,Sin,Sout) then if not Accept (S,FromName,Sin,Sout) then
PError ('Server : Accept : '); PError ('Server : Accept : '+fromname);
Reset(Sin); Reset(Sin);
ReWrite(Sout); ReWrite(Sout);
Writeln(Sout,'Message From Server'); Writeln(Sout,'Message From Server');