Einzelnen Beitrag anzeigen

Klaxon

Registriert seit: 31. Aug 2006
10 Beiträge
 
#7

Re: Indy 10 TCP - Strings unaufgefordert versenden?

  Alt 16. Sep 2006, 12:36
@DataCool
Sorry das ich erst jetzt hier wieder reingucke. Danke für die Tipps, auch wenn ich es nicht ganz verstanden habe.

Also 1. ist klar.

2. Warum sollte der Server ein Readln machen? So als eine Art Kommandoabfrage?

3. Der Client macht dann auch ein einmaliges Readln?

4. Ja, wenn man dann einfach kommunizieren kann, könnte ich ja dann sicher hier das machen was ich möchte: Der Server macht ein Writeln(z.B. timer-getriggert) und darauf hin liest der Client das ein.
Ich habe das probiert, nur leider kann ich auf meine Prozedur kein OnTimer-Ereignis setzen(inkompatibel). Neue Server-Prozedur:

Delphi-Quellcode:
procedure TForm1.IdTCPServer1Cycle(AContext: TIdContext);
begin
  with AContext.Connection.iohandler do
  begin
    WriteLn(Strings[Random(2)]);
  end;
end;
Nur wie rufe ich IdTCPServer1Cycle auf?

Und wie muss dann der Client aussehen, damit er kontinuierlich checked, ob der Server was geschrieben hat? Gibt es da evtl. auch ein OnExecute?

Danke für die Hilfe,
Gruß,
Klaxon.
  Mit Zitat antworten Zitat