Hi,
ich versuche mich gerade mit den ICS-Komponenten. Explizit eine Eingehende Verbindung per
TCP über TWSocket.
Laut Wiki soll ich im Event "SessionAvailable" folgendes machen:
Zitat:
The following example implements the OnSessionAvailable of a simple
TCP-Server which transfers the accepted connection to another socket so that other incomming connections can be accepted as well. Since the socket the connection is transfered to is a global variable here only one connection can be accepted, but this example is simply for showing the basics.
var socket:TMySocket; // a descendant of TWSocket with overwritten OnDataAvailable
Delphi-Quellcode:
procedure TMyServer.MyOnSessionAvailable(Sender: TObject; ErrCode: Word);
var NewS:TSocket;
begin
if ErrCode <> 0 then exit;
NewS:=Accept;
socket:=TMySocket.create(nil);
socket.dup(NewS);
end;
Ich finde nur in XE4 nirgends die Klasse TSocket. Kann mir jemand auf die Sprünge helfen?