Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Connection: Keep-Alive и TClientSocket 


eblade   (2001-11-23 11:49) [0]

Как можно не закрыть КлиентСокет после отправки первого запроса? Просто при первом я провожу аутентификацию, а на последующих должен идти сам процес обмена. А сокет закрывается...



Digitman   (2001-11-23 12:13) [1]

>eblade

"сокет закрывается..." - что, сам по себе ? ни с того ни с сего ? без сообщений о причинах дисконнекта ? так не бывает)

приводи код сервера и клиента.



eblade   (2001-11-23 17:54) [2]

По крайней мере вызывается OnDisconnect.



Digitman   (2001-11-24 13:56) [3]

>eblade
Если OnError при этом не возникает, это означает только одно : соединение разорвано вполне корректно, и инициатором разрыва является сервер. Сервер-то у тебя, наверно, ThreadBlocking ? И TServerClientThread.Execute, наверно, тоже не переопределял ?

Вот, посмотри, что делается в транспортном потоке сервера по-умолчанию:

procedure TServerClientThread.ClientExecute;
var
FDSet: TFDSet;
TimeVal: TTimeVal;
begin
while not Terminated and ClientSocket.Connected do
begin
FD_ZERO(FDSet);
FD_SET(ClientSocket.SocketHandle, FDSet);
TimeVal.tv_sec := 0;
TimeVal.tv_usec := 500;
if (select(0, @FDSet, nil, nil, @TimeVal) > 0) and not Terminated then
if ClientSocket.ReceiveBuf(FDSet, -1) = 0 then Break //!!!!!!!
else Synchronize(DoRead);
if (select(0, nil, @FDSet, nil, @TimeVal) > 0) and not Terminated then
Synchronize(DoWrite);
end;
end;


надеюсь, BREAK даст тебе ответ на вопрос.



eblade   (2001-11-24 19:50) [4]

Ух. Неплохо, буду знать на будущее.

В принципе, сервер не должен быть ThreadBlocking, поскольку им у меня является ПО веб-сайта. Надо будет проверить.




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.015 c
1-42720           Koks                  2002-01-29 17:18  2002.02.14  
окна.....окна....окна...


1-42809           myportal              2002-01-30 17:29  2002.02.14  
CLX


1-42754           Quest                 2002-01-30 12:05  2002.02.14  
Обновление программы, вызываемое из неё самой ...


3-42697           @andrew               2002-01-22 15:30  2002.02.14  
ПРИВЕТ ВСЕМ!!! Помоготе построить запрос:


6-42822           vinni2000             2001-11-23 09:54  2002.02.14  
Как вы видете эту проблему?