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




Вниз

Проблема с соединением сокетов 


ShaH   (2002-01-08 11:08) [0]

Есть клиент и сервер, общающиеся друг с другом через сокеты.
После того, как сервер соединился с клиентом он прекращает прослушивать сокет на предмет соединения. Клиент в какой-то момент обнаруживает ошибку и грохает свой сокет, открывает новый и опять пытается соединиться. Сервер в этот момент не ждет соединения, однако клиент на запрос соединения получает положительный ответ !!! Почему ? и как этого избежать ?



Polevi   (2002-01-08 17:59) [1]

Сервер всегда ждет клиента - на то он и сервер



ShaH   (2002-01-09 09:03) [2]

Я думал, что он ждет клиента только когда ему говоришь listen();
а соединяется после accept(); так какого тогда при запросе клиента connect(); ему соединение разрешается, если в этот момент вышеуказанные команды сервер не выполняет ?????



Polevi   (2002-01-09 10:18) [3]

scktcomp.pas

procedure TCustomWinSocket.CMSocketMessage(var Message: TCMSocketMessage);

function CheckError: Boolean;
var
ErrorEvent: TErrorEvent;
ErrorCode: Integer;
begin
if Message.SelectError <> 0 then
begin
Result := False;
ErrorCode := Message.SelectError;
case Message.SelectEvent of
FD_CONNECT: ErrorEvent := eeConnect;
FD_CLOSE: ErrorEvent := eeDisconnect;
FD_READ: ErrorEvent := eeReceive;
FD_WRITE: ErrorEvent := eeSend;
FD_ACCEPT: ErrorEvent := eeAccept;
else
ErrorEvent := eeGeneral;
end;
Error(Self, ErrorEvent, ErrorCode);
if ErrorCode <> 0 then
raise ESocketError.CreateResFmt(@sASyncSocketError, [ErrorCode]);
end else Result := True;
end;

begin
with Message do
if CheckError then
case SelectEvent of
FD_CONNECT: Connect(Socket);
FD_CLOSE: Disconnect(Socket);
FD_READ: Read(Socket);
FD_WRITE: Write(Socket);
FD_ACCEPT: Accept(Socket);
end;
end;

procedure TServerWinSocket.Accept(Socket: TSocket);
var
ClientSocket: TServerClientWinSocket;
ClientWinSocket: TSocket;
Addr: TSockAddrIn;
Len: Integer;
OldOpenType, NewOpenType: Integer;
begin
Len := SizeOf(OldOpenType);
if getsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, PChar(@OldOpenType),
Len) = 0 then
try
if FServerType = stThreadBlocking then
begin
NewOpenType := SO_SYNCHRONOUS_NONALERT;
setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, PChar(@NewOpenType), Len);
end;
Len := SizeOf(Addr);
ClientWinSocket := WinSock.accept(Socket, @Addr, @Len);
if ClientWinSocket <> INVALID_SOCKET then
begin
ClientSocket := GetClientSocket(ClientWinSocket);
if Assigned(FOnSocketEvent) then
FOnSocketEvent(Self, ClientSocket, seAccept);
if FServerType = stThreadBlocking then
begin
ClientSocket.ASyncStyles := [];
GetServerThread(ClientSocket);
end;
end;
finally
Len := SizeOf(OldOpenType);
setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, PChar(@OldOpenType), Len);
end;
end;




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




Наверх





Память: 0.72 MB
Время: 0.035 c
3-80401           ARDA                  2002-02-20 18:35  2002.03.25  
Установка BDE


1-80486           d_oleg                2002-03-12 15:54  2002.03.25  
Color memo


3-80383           Demon ltd             2002-02-24 22:17  2002.03.25  
Выборка из базы через указание в edit е


1-80603           Злой                  2002-03-11 13:38  2002.03.25  
как вывести на печать сразу всю таблицу


1-80623           mns                   2002-03-11 11:04  2002.03.25  
как возвести число в любую степень