1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TTcpSrvForm.WSocketServer1ClientConnect(
    Sender : TObject;
    Client : TWSocketClient;
    Error  : Word);

var
  Client2 : TTcpSrvClient;
begin
   Aktuell_Request := Aktuell_Request + 1;
   requests[Aktuell_Request] := Client as TTcpSrvClient;

   requests[Aktuell_Request].LineMode            := FALSE;
   requests[Aktuell_Request].LineEdit            := FALSE;
   requests[Aktuell_Request].LineLimit           := 65535; { Do not accept long lines }
   requests[Aktuell_Request].OnDataAvailable     := ClientDataAvailable;
   requests[Aktuell_Request].OnLineLimitExceeded := ClientLineLimitExceeded;
   requests[Aktuell_Request].OnBgException       := ClientBgException;
   requests[Aktuell_Request].ConnectTime         := Now;
   requests[Aktuell_Request].Anfrage_gesendet    := FALSE;
   requests[Aktuell_Request].Anzahl_Headerlines  := 0;
   requests[Aktuell_Request].Komplette_Anfrage   := '';
   requests[Aktuell_Request].Requestno           := Aktuell_Request;
   requests[Aktuell_Request].inuse               := TRUE;
   requests[Aktuell_Request].proxy_closed        := TRUE;
   FreeandNil(requests[Aktuell_Request].Anfragesocket);
end;