[M.A.D.M.A.N.]

Столкнулся с проблемой, пытаюсь сождать сокет

Код:

1 2 3 4 5 6 7

var  S:TSocket; begin   S:=socket(AF_INET,SOCK_STREAM,0);   if S=INVALID_SOCKET then     showmessage('Fail'); end;

При выполнении возвращает INVALID_SOCKET, чем это может быть вызвано и как можно избавиться от данной проблемы?

[mayor84]

А почему третий параметр равен 0. Вроде там должен указываться протокол, по которому ты будешь работать.