Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c