stThreadBlocking
Страницы:
<
1
2
>
Timon © (2002-08-28 18:24:00)
Помогите, пожалуйста. Мне СРОЧНО нужен ответ на следующие
вопросы
- Происходит ли при этом режиме сервера событие
OnClientConnect
- В каких случаях происходит событие OnGetThread,
OnThreadStart, OnThreadEnd.
- И если можно, пример сервера такого типа
Пожалуюста не отправляйте меня в справку Delphi, так как ни
ее, ни дистрибутива у меня нет.
Digitman (2002-08-29 08:21:00) [21]
А в исх.текст в scktcomp.pas тебя можно отправить ?)
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); // вызов
события OnGetSocket в теле GetClientSocket()
if Assigned(FOnSocketEvent) then
FOnSocketEvent(Self, ClientSocket, seAccept); // вызов
события OnAccept()
if FServerType = stThreadBlocking then
begin
ClientSocket.ASyncStyles := [];
GetServerThread(ClientSocket); // вызов события OnGetThread в
теле GetServerThread()
end;
end;
finally
Len := SizeOf(OldOpenType);
setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE,
PChar(@OldOpenType), Len);
end;
end;
procedure TServerClientThread.Execute;
begin
FServerSocket.ThreadStart(Self); // вызов события
OnThreadStart
try
try
while True do
begin
if StartConnect then ClientExecute;
if EndConnect then Break;
end;
except
HandleException;
KeepInCache := False;
end;
finally
FServerSocket.ThreadEnd(Self); // вызов события OnThreadEnd
end;
end;
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
