Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

WinSock [D7, WinXP]

K © (2004-05-05 05:00:00)
Уважаемые мастера .
Может у кого есть пример работы с WinSock ???
Допустим хотя бы как создать ServerSocket и забиндить порт ?

K (2004-05-05 21:24:00) [1]
Вери сенькс будем читать разбираться =)
Блин сума сойти я думал всё легче будет =(

-=Rezya=- (2004-05-05 10:54:00) [2]

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

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

Polevi (2004-05-05 10:41:00) [3]
The Windows Sockets WSAStartupfunction initiates use of the Windows Sockets DLL by a process.

K (2004-05-05 10:32:00) [4]
Взял вышеизложенный код немного поправил и неможет создать порт.
Что я не так делаю ? Кстате а может ещё кто подскажет как этот порт слушать на приходящие сообщения ??

====================== 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 =============================

-=Rezya=- (2004-05-05 10:26:00) [5]
Читать сдесь http://book.itep.ru/7/sock_71.htm

Polevi (2004-05-05 10:00:00) [6]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »