Элементарное клиент-серверное приложение (Winsock)(Delphi)

[Recart]

Всем доброго времени суток.
Задача состоит в том, чтобы написать очень элементарное приложение на сокетах (Winsock) для понимания их работы.
Есть две программы: клиент и сервер.
Суть клиента: установить соединение с сервером и отослать сообщение "привет".
Суть сервера: установить соединение с клиентом и принять от него сообщение и отобразить его в поле Memo.

Сервер:

begin
WSAStartup($0101, Data);
S:=Socket(AF_Inet, Sock_Stream, 0);
Addr.sin_family:=AF_Inet;
Addr.sin_port:=HToNs(3310);
Addr.sin_addr.S_addr:=htonl(InAddr_Any);
FillChar(Addr.sin_zero, sizeOf(Addr.sin_zero),0);
Bind(S, addr, sizeof(TSockaddr));
Listen(S, SoMaxConn);
i:=sizeof(TSockaddr);
New_S:=accept(S,@Addr,@i);
  begin
   z:=recv(New_S,buff,Length(buff),0);
   if z<>-1 then Memo1.Lines.Add('> '+buff);
  end;
end;

Клиент:

buff:='Привет';
WSAStartup($0101, Data);
S:=Socket(AF_Inet, Sock_Stream, 0);
Addr.sin_family:=AF_Inet;
Addr.sin_port:=HToNs(3050);
Addr.sin_addr.S_addr:=Inet_Addr('127.0.0.1');
FillChar(Addr.sin_zero, SizeOf(Addr.sin_zero),0);
Connect(S,addr,sizeof(TSockAddr));
begin
send(S,buff,length(buff),0);
end;

П.С.: инициализация сокета производится путём нажатия на кнопку в приложениях.

Проблема: запускаются оба приложения. В них нажимаются по очереди кнопки инициализации сокета. После этого сервер просто зависает. Клиент вроде живой.

Понятия не имею в чём дело. Если кто-нибудь сможет подсказать, как быть в такой ситуации, то буду благодарен.

[veniside]

> Понятия не имею в чём дело

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

The accept function can block the caller until a connection is present if no pending connections are present on the queue, and the socket is marked as blocking.

> как быть в такой ситуации

1) юзать неблокорующие сокеты
2) слушать в отдельном потоке

[Recart]

> юзать неблокорующие сокеты

Их? Ну допустим...
У меня есть два примера с ними, но в одном используется Connect после вызова IOCtrlSocket, а в другом - WSAAsyncSelect.
Что из этого лучше использовать? Или это вообще несвязанные между собой вещи?

[veniside]

> Что из этого лучше использовать?

дело вкуса, вместо WSAAsyncSelect() достаточно простого select()

[Recart]

Попробовал запихнуть в программы неблокирующие сокеты.

procedure TForm1.Button1Click(Sender: TObject);
begin
WSAStartup($0101, Data);
S:=Socket(AF_Inet, Sock_Stream, 0);
Addr.sin_family:=AF_Inet;
Addr.sin_port:=HToNs(3310);
Addr.sin_addr.S_addr:=htonl(InAddr_Any);
Bind(S, addr, sizeof(TSockaddr));
block:=1;
IOCtlSocket(S, FIONBIO, block);
Select(0, @fdset, nil, nil, nil);

В клиенте сделал аналогично.
Приложения вроде не зависают, но и сообщение клиент серверу не отправляет.

[veniside]

Т.е. по-вашему, если в случайном порядке набросать в коде IOCtlSocket() и select(), всё само вдруг магическим образом заработает? Может уже пора начать читать документацию по тем функциям, которые вы используете? Или будем продолжать переставлять операторы местами, пока не заработает? )

[Recart]

Я про эти сокеты знаю мало чего, точнее знаю только то, что объяснял мне преподаватель.
Эта документация тока тратой времени будет. Там примеров нет (а если и есть, то мало), а без них мне всё понять будет очень трудно.
Есть у меня пример, реализованный через UDP, придётся его разбирать и вникать самому (как обычно).
Спасибо за помощь.

[veniside]

> Задача состоит в том, чтобы написать очень элементарное приложение на сокетах (Winsock) для понимания их работы.

должен признаться, у вас достаточно странный подход к решению поставленной задачи )

[Recart]

Спасибо. А как ещё можно понять принцип работы сокетов, кроме как не на примере?
Итоговая задача более сложная, поэтому надо начинать с малого.

[MooNDeaR]

Сообщение от Recart

Спасибо. А как ещё можно понять принцип работы сокетов, кроме как не на примере?
Итоговая задача более сложная, поэтому надо начинать с малого.

Прочитать пару книг по этой теме, разобраться в том что и как работает, а уж потом "смотреть на примере", так сказать, вникая в суть прочитанного. Насколько мне известно, так получаются более глубокие познания)