| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

WinSock - первая программа [D6, Win95/98, WinXP]

Страницы:   < 1 2 >

delpher_gray ©   (2004-01-08 13:16:00) 

Хочу написать очень маленький сервер (KOL, WinAPI) с использованием WinSock.
НАписал небольшую программку, но она не работает :(

program Server;

uses
KOL, Windows, WinSock;

var
Wnd: HWND;
hMutex: THandle;
Msg: TMSG;
Cancel: boolean;

Sock: TSocket;
WSAData : TWSAData;
Sin: TSockAddrIn;

Stream: PStream;

begin
hMutex := CreateMutex(nil, false, "Server");
if WaitForSingleObject(hMutex, 0) <> wait_TimeOut then
begin
Sock := WSAStartUp(101, WSAData);
Sock := Socket(AF_INET, SOCK_STREAM, 0);
WSAAsyncSelect(Sock, Wnd, WM_SOCKET, FD_ACCEPT+FD_READ); //

---

Delpher_Gray   (2004-01-08 13:40:00) [21]

Обработчика то и нет, я не знаю как писать...
Подскжите на примере пожалуйста...

---

Rouse_   (2004-01-08 13:40:00) [22]

Т.е. ты должен указать оконную процедуру которая будет обрабатывать принимаемые сообщения...

Желаю успехов

---

Rouse_   (2004-01-08 13:38:00) [23]

int WSAAsyncSelect (

SOCKET s,
HWND hWnd,
unsigned int wMsg,
long lEvent
);


Parameters

s

[in] A descriptor identifying the socket for which event notification is required.

hWnd

[in] A handle identifying the window which should receive a message when a network event occurs.
wMsg

[in] The message to be received when a network event occurs.

lEvent

[in] A bitmask which specifies a combination of network events in which the application is interested.

А твоего обработчика я не вижу...

---

Delpher_Gray   (2004-01-08 13:17:00) [24]

WSAAsyncSelect(Sock, Wnd, WM_SOCKET, FD_ACCEPT+FD_READ); - вот на этой строке ошибка.

---

Страницы:   < 1 2 >

Наверх