| Код | program Project1;
uses
Windows,
WinSock;
var
info: TWSAData;
addr, inAddr: TSockAddr;
sock: THandle;
inAddrLen: Integer;
conSock: THandle;
data: array[0..1024] of Char;
dataLen: Integer;
begin
// инициализация WinSock
if WSAStartup(MakeWord(2, 0), info) <> 0 then
MessageBox(0, 'WSAStartup', nil, MB_OK);
// создаем сокет
sock := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if sock = INVALID_SOCKET then
MessageBox(0, 'socket', nil, MB_OK);
// настраиваем адрес для сокета
addr.sin_family := PF_INET;
addr.sin_addr.s_addr := INADDR_ANY;
addr.sin_port := htons(80); // порт (HTTP)
// привязываем сокет к адресу
if bind(sock, addr, SizeOf(addr)) <> 0 then
MessageBox(0, 'bind', nil, MB_OK);
// начинаем прослушавать эфир :)
if listen(sock, SOMAXCONN) <> 0 then
MessageBox(0, 'listen', nil, MB_OK);
// принимаем входящее соеденение
conSock := accept(sock, nil, nil);
if conSock = 0 then
MessageBox(0, 'accept', nil, MB_OK)
else begin
// принимаем данные
dataLen := recv(conSock, data, SizeOf(data), 0);
case dataLen of
SOCKET_ERROR: MessageBox(0, 'recv', nil, MB_OK);
0: MessageBox(0, 'The connection has been gracefully closed.', nil, MB_OK);
else
// выводим полученные данные
data[dataLen] := #0; // add zero to form PChar
MessageBox(0, data, nil, MB_OK);
end;
end;
// освобождаем ресурсы
if closesocket(sock) <> 0 then
MessageBox(0, 'closesocket', nil, MB_OK);
// деинициализация WinSock
if WSACleanup <> 0 then
MessageBox(0, 'WSACleanup', nil, MB_OK);
end. |
Пара коментариев.
1. Сервер настроен на порт 80 (http), т.е. запустив программу и введя в IE 127.0.0.1 мы должны увидеть сообщение следующего содержания:
| Цитата | GET / HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*
Accept-Language: ru
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)
Host: 127.0.0.1
Connection: Keep-Alive |
2. Сервер работает в так называемом блокирующем режиме (blocking mode), это значит, что на строчке | Код | conSock := accept(sock, nil, nil); |
приложение замирает и на внешнии раздражители не реагирует, до тех пор пока не будет затребовано соеденение -- единственный раздражитель 
3. Если требуется серьезно разобраться в сокетах, то рекомендую купить книжку или найти чего-нить в инете, т.к. библиотека сокетов довольно обширна и временами без ста грамм в хитрых функциях не разобраться. Там же можно подчерпнуть знания о неблокирующих соеденениях (non-blocking, asynchronous connections). Самый трудный, но и самый полезный путь -- покапаться в исходниках TClientSocket, TServerSocket, т.д. (ScktComp.pas) |