Indy TCP Client - Verständnisproblem

[DelphiPeter]

Hallo Zusammen!

Nach eurer Hilfe in Beitrag http://www.delphipraxis.net/166293-i...versenden.html verschicke ich nun vom Client ein Record an den Server, der wiederum antwortet mir immer auf das gesendete Record.

Nur scheinbar habe ich was generelles nicht verstanden.

Ich habe mit einen im Client einen Timer gebastelt, der mittels...

Delphi-Quellcode:

LIMClient.Socket.ReadBytes(Buf, SizeOf(TConnectionData));
BytesToRaw(Buf, Data, SizeOf(TConnectionData));

immer versucht, Daten zu lesen, die evtl. vom Server gensendet werden können.


Wie ist denn das. Gibt es beim IDTCPClient ein Ereignis das mir sagt - Hallo, es sind gerade Daten vom Server gekommen? Oder ist das mit dem Timer eine Lösung? Ich glaube ich habs prinzipiell nicht verstanden, wie das ganze arbeitet.

Kann mir jemand helfen?

Danke euch!

Peter


.. oder kurz gesagt: Schreibt mir der Server in den Client (wenn ja, wie bekomme ich das mit) oder muss ich vom Client her lesen (wenn ja, wo wäre das am besten, oder ist der Timer die Lösung)

[daywalker9]

So zB, den InputBuffer auf die größe Prüfen, wenn ja, ist was da.

Delphi-Quellcode:

procedure TCRMTCPClient.DoTimer(Sender: TObject);
var cmd : string;
begin try
        if FTimer.tag = 1 then exit;
        FTimer.tag := 1;

        if not Connected then
          begin
            Connect;

            if not Connected then
              begin
                FTimer.tag := 0;
                exit;
              end;
          end;

        if IOHandler.InputBuffer.Size = 0 then
          begin
            // ReadFromStack(true, 1, false);
            IOHandler.CheckForDataOnSource(1);
            if IOHandler.InputBuffer.Size = 0 then
              begin
                FTimer.tag := 0;
                exit;
              end;
          end;
        DoOnExecute;

        FTimer.tag := 0;
      except
        on e:exception do
          begin
            FTimer.tag := 0;
          end;
      end;
end;