I copied the code for socksrv.pp on pages 1056-1057 into FPC, and got a compilation error. I double checked the code, and it is the same as what's in the manual.

My system:
Windows XP
FreePascal IDE for Win32 for i386
Target CPU: i386
Version 1.0.8 2006/08/21
(Compiler Version 2.0.4)
(Debugger GDB 6.2.1)

The error I get on Run/Compile is:

    socksrv.pp(34,26) Error: Call by var parameters have to match

exactly: Got "ShortString" expected "TInetSockAddr"

The error I get is on the following line:
    if not Accept(S,FromName,Sin,Sout) then
I looked in the manual, and it defines Accept as follows:
    function Accept(Sock: LongInt;var Addr;var Addrlen: LongInt) : LongInt
    function Accept(Sock: LongInt;var addr: TInetSockAddr;var SockIn:
File of ;var SockOut: File of ) : Boolean
    function Accept(Sock: LongInt;var addr: TInetSockAddr;var SockIn:
text;var SockOut: text) : Boolean
    function Accept(Sock: LongInt;var addr: String;var SockIn: text;var
SockOut: text) : Boolean
    function Accept(Sock: LongInt;var addr: String;var SockIn: File of
;var SockOut: File of ) : Boolean

Based on the code, it appears that the example code is trying to use fourth definition, but the compiler appears to be expecting the third definition.

I have experience with Delphi, and have used it in the past to write socket based code. I just don't have experience with FPC. Any help you can give as to why the code from the manual isn't working would be appreciated.

Thanks in advance
Rick

PS: I searched the archives before posting. If this is a repost, please accept my apologies.