ICS und Datenübertragung

[Die Muhkuh]

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

[Codewalker]

Ich habe das gleiche Problem, dass das Ereignis nicht ausgelöst wird - hast du es lösen können oder hat jemand eine Idee?

[Sherlock]

In dem Ereignis OnClientConnect wird der Client mitgegeben. Auf dessen OnDataAvailable muss man reagieren.
Also:

Delphi-Quellcode:

procedure TKomm.ServerSocketClientConnect(Sender: TObject;
  Client: TWSocketClient; Error: Word);
begin
  Client.OnDataAvailable := ServerSocketClientDataAvailable;
end;

Das dürfte alles gewesen sein.

Sherlock

[Codewalker]

Funktioniert einwandfrei. Danach suche ich schon seit Stunden - und die Lösung ist dann eine einzige Zeile lang.
Vielen Dank für die schnelle Hilfe