Hi,
ich teste gerade ein bisschen die ICS (V6 Beta) von Overbyte aus. Allerdings komm ich nicht wirklich weit damit. Ich hab einen TWSocketServer in einem Service drin. Dessen OnClientConnect, OnClientDisconnect und OnDataAvailable sind mit Code hinterlegt (eig. nur ein einfach loggen (vorerst)).
Verbinde ich nun einen Client mit diesem Server, wird OnClientConnect ausgeführt, beim Verbindungtrennen wird OnClientDisconnect ausgeführt.
Sende ich aber Daten vom Client zum Server, wird OnDataAvailable nicht ausgeführt, die Daten kommen anscheinend nicht an.
Servereinstellungen:
Delphi-Quellcode:
FTCPServer.LineMode := false;
FTCPServer.MultiThreaded := true;
FTCPServer.Port := IntToStr(25000);
FTCPServer.Proto := '
tcp';
FTCPServer.Addr := '
0.0.0.0';
Der Client schaut so aus:
Delphi-Quellcode:
FTCPClient.LineMode := false;
FTCPClient.Port := IntToStr(25000);
// Testversand der Daten:
bla := 'Blubb';
FTCPClient.Send(@bla[1], Length(bla));
Ich frage mich, warum dieses OnDavaAvailable nicht ausgeführt wird.
Es gibt zwar ein paar Demos, aber die sind alle schon zu groß, ich such lieber was kleines, in dem noch nicht viel drin ist. Vielleicht hat ja jemand gerade was parat?
Grüße