Hallo Jungs, Mädels, Fische, Katzen, Vulkanier, Haie, wasweisichnoch,

ich hätte mal ne Frage zu der Komponenten TIdTCPClient von Indy9 .

Bei der Server-Komponente (TIdTCPServer) gibt es ja das OnExecute, welches ich bei dem Client sehr vermisse.
Beim Client muss man ja ein Timer mitlaufen lassen und alle 500 (z.B.) Millisekunden nach neuen "Nachrichten" schauen.
Gibt es da nicht eine bessere Lösung (sowas wie OnExecute, wie beim Server, wäre natürlich genial)?

MfG,

Manu

Hallo Manu,
schau Dir das Beispiel aus diesem Beitrag an.

bye
Claus

Sorry alles zurück. Nimm das anhängende Beispiel. Da werden die eingehenden Nachrichten über TThread verarbeitet.

Hi,

danke für dein Beispiel. Ich schaue mir das mal an und versuche es zu verstehen

Hi,

ich hab nun mal versucht, dein Beispiel bei mir anzubauen. Der Thread läuft, aber es kommt nichts an.

Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TClientHandler.Execute;
var
  SizeOfIncomingStream: Integer;
begin
  while not Terminated do
  begin
    if Form2.TCPClient.Connected then
    begin
      try
        CS := TChatStream.Create;
        SizeOfIncomingStream := Form2.TCPClient.ReadInteger();
        Form2.TCPClient.ReadStream(CS, SizeOfIncomingStream);
        Synchronize(HandleInput);
        CS.Free;
      except
        CS.Free;
      end;
    end;
  end;
end;

procedure TClientHandler.HandleInput;
begin
  Form2.HandleInput(CS);
end;

procedure TForm2.HandleInput(var ChatStream: TChatStream);
var
  CP: TChatParser;
begin
  CP := TChatParser.Create(ChatStream.Msg);
  CP.Parse;

  HandleMessages(CP);

  CP.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  ClientThread := TClientHandler.Create(true);
  ClientThread.FreeOnTerminate := true;
  ClientThread.Resume;
end;

Woran könnte das noch liegen?

Hallo Manu,
ich versuche es jetzt mal aus dem Bauch heraus, ich vermute, es liegt an der "SizeOfIncomingStream".

 Form2.TCPClient.ReadStream(CS, SizeOfIncomingStream); So lange nicht alle Zeichen des Streams angekommen sind, die kommen sollen, wartet Readstream auf die restlichen Zeichen. Ich hatte das auch einmal. Ich habe es erst gemerkt, als ich mehr geschickt habe, als kommen sollte.

bye
Claus

Hi Claus,


ok, du hast recht. Ich sende 37 Bytes und empfangen werden, sollen ein paar Millionen Bytes.

Die Frage ist, wie komme ich an die richtige Zahl der Bytes dran? Extra die Anzahl der Bytes senden?

Hallo Manu,
ich würde es so machen. Erst die Anzahl der Bytes als Integer etc. übermitteln. Die Größe kennst Du ja. Dann die Daten hinterher.

bye
Claus