VPF::Ошибка при использовании сокетов

SneG0K

Дата 26.2.2008, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54

Есть следующая процедура

Код


function Startserver:boolean;
    var
     iSize:integer;
    begin
     if WSAStartup(MAKEWORD(1,1),WSA) <> 0 then
      begin
       TestWinSockError;
       Result:=false;
       Exit;
      end;
     Sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
     if sock = INVALID_SOCKET then
      begin
       TestWinSockError;
       Result:=false;
       Exit;
      end;
     addr.sin_addr.S_addr:=htonl(INADDR_ANY);
     addr.sin_family:= AF_INET;
     addr.sin_port:=htons(25654);
     if bind(Sock, addr, sizeof(addr)) = SOCKET_ERROR then
      begin
       TestWinSockError;
       Result:=false;
       Exit;
      end;
    end;

При выполнении этой функции мне постоянно возвращается ошибка WSAEINVAL... Эту ошибку мне аозвращает моя процедура TestWinSockError.... Не могу понять в чем проблема smile

SneG0K

Дата 26.2.2008, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54

Ой... извиняюсь... я в оргинальном коде забыл вызвать listen() smile

Вопрос решен

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »