WinSock

← →
K (2004-05-05 05:00) [0]

Уважаемые мастера .
Может у кого есть пример работы с WinSock ???
Допустим хотя бы как создать ServerSocket и забиндить порт ?

← →
Polevi © (2004-05-05 10:00) [1]

var
FAddr: TSockAddrIn;
FSocket:TSocket;
begin
FSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
FAddr.sin_family := AF_INET;
FAddr.sin_addr.s_addr := INADDR_ANY;
FAddr.sin_port := htons(6666);
if bind(FSocket, FAddr, SizeOf(FAddr))=SOCKET_ERROR then
raise Exception.Create(Format("Cannot bind on port %d",[6666]));
if Winsock.listen(FSocket, SOMAXCONN)=SOCKET_ERROR then
raise Exception.Create(Format("Cannot listen on port %d",[6666]));
end;

← →
-=Rezya=- (2004-05-05 10:26) [2]

Читать сдесь http://book.itep.ru/7/sock_71.htm

← →
K (2004-05-05 10:32) [3]

Взял вышеизложенный код немного поправил и неможет создать порт.
Что я не так делаю ? Кстате а может ещё кто подскажет как этот порт слушать на приходящие сообщения ??

====================== Start Code =============================

program Project1;

uses
windows, WinSock, dialogs;

{$R *.res}

function Create(i:Integer):Integer;
var
FAddr: TSockAddrIn;
FSocket:TSocket;
begin
FSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
FAddr.sin_family := AF_INET;
FAddr.sin_addr.s_addr := INADDR_ANY;
FAddr.sin_port := htons(i);
if bind(FSocket, FAddr, SizeOf(FAddr))=SOCKET_ERROR then
showmessage("Немогу создать");
if Winsock.listen(FSocket, SOMAXCONN)=SOCKET_ERROR then
showmessage("Немогу создать");
end;

begin
create(666);
end.

===================== End code =============================

← →
Polevi © (2004-05-05 10:41) [4]

The Windows Sockets WSAStartup function initiates use of the Windows Sockets DLL by a process.

← →
-=Rezya=- (2004-05-05 10:54) [5]

> Кстате а может ещё кто подскажет как этот порт слушать на
> приходящие сообщения ??

> Читать сдесь http://book.itep.ru/7/sock_71.htm

← →
K (2004-05-05 21:24) [6]

Вери сенькс будем читать разбираться =)
Блин сума сойти я думал всё легче будет =(

WinSock Найти похожие ветки