FreePascal.ru

Было решено заменой констант на коды (какие не помню), но потом от функции IOCtlSocket удалось и вовсе отказаться, поэтому правильно ли работает код сказать не могу (но то что он хотяб компилируется это точно).

Доброго времени суток.
Есть код
program Chat_Server;

uses ..., winsock, windows, sysutils;

const
my_port = 6060;
max_connect_count = 64{SoMaxConn};


var Sockets:array[0 .. max_connect_count-1] of TSocket; // Њ ббЁў б®ЄҐв®ў
Arg : u_long;
...&#46 ...

Доброго времени суток друзья.

Есть код
program Chat_Server;
uses constants, winsock, windows, sysutils;
const
my_port = 666;
max_connect_count = 64{SoMaxConn};

var Sockets:array[0 .. max_connect_count-1] of TSocket; // Њ ббЁў б®ЄҐв®ў
connect_count : integer; // Љ ...