TidTCPCLient erzeugt Stack-Overflow

[rokli]

Guten Morgen!

Leider musste ich gestern weg und konnte nicht mehr antworten.

Also es verhält sich so, dass der Barcode Scanner ein TCPServer ist. Und dieser Server sendet das, was er als Barcode gelesen hat. Damit (so habe ich es interpretiert) habe ich auf "meiner" Seite einen TCPClient genommen ... was ja auch in den ersten 15 bis 20 Minuten funktioniert.

Im Moment läuft der Aufbau übrigens wieder ohne den Application.ProcessMessages.

[rokli]

So sieht der Fehler aus, den ich da bekomme.

[Sherlock]

Kannst Du eigentlich isolieren, in welcher Zeile der Fehler auftritt? Hast Du sowas wie MadExcept oder EurekaLog?

Ausserdem sellt ein Server in einer normalen Welt Daten bereit, die ein Client abholen kann, so er denn lustig ist. Also müsste es eigentlich so sein, daß in mehr oder weniger Regelmäßigen Abständen Dein client eine Verbindung aufbaut, und mal nachsieht, obs was neues zu holen gibt. Dein Konstrukt sieht mir nicht so ganz danach aus. Aber dazu kenne ich die Indys zu schlecht.

Sherlock

[rokli]

Hallo Sherlock,

genauso soll es sein! Innerhalb des Timers wird in der Zeile strLine = tcpClient.IOHandler.ReadLn ermittelt, ob der Server etwas bereit gestellt hat. Wenn das der Fall ist, soll der Wert in strLine im if-Konstrukt weiter verarbeitet. Wenn der Server keine Daten bereit gestellt hat, läuft der Timer einfach weiter.

Im Moment Trenne ich die Verbindung vor dem If und Verbinde nach dem If wieder - das werde ich mal in die Schleife verlegen, sodass nur getrennt wird, wenn die Variable gefüllt ist.

Die beiden Tools habe ich leider nicht.

[TiGü]

Zitat von rokli:

Die beiden Tools habe ich leider nicht.

http://madshi.net/madExceptDescription.htm -> zum ausprobieren kann man es kostenlos runter laden!

[rokli]

Vielen Dank TiGü, hatte mich aber schon für EurekaLog entschieden - muß ich nur noch installieren.

Das Ändern des Disconect / Connect in die if Sequenz hat nichts gebracht ... nun werde ich versuchen, ob EurekaLog was heraus bringt!

.. und ich muss dringend was essen ....

[Sir Rufo]

Probiere er einmal das hier aus:

Delphi-Quellcode:

procedure TForm1.timScanTimer( Sender: TObject );
begin
  timScan.Enabled := false; // Timer anhalten
  try
    // nix im Buffer, dann brauche ich auch nicht fragen ...
    if tcpClient.IOHandler.InputBufferIsEmpty
    then
      Exit; // tschüss bis später

    tag := 5;
    Inc( intLine ); // Durchläufe zählen
    Label1.Caption := IntToStr( intLine ); // Durchläufe anzeigen
    // Application.ProcessMessages;

    tcpClient.IOHandler.CheckForDisconnect( ); // ist die Verbindung noch da?
    strLine := tcpClient.IOHandler.ReadLn; // Inhalt nach Zwischenvariable

    tcpClient.Disconnect; // Client abschalten
    try
      if strLine <> ''
      then
        begin // ein Barcode wurde erkannt
          memLog.Lines.Add( TimeToStr( now( ) ) + strLine ); // Barcode in Memo schreiben
          strLine := ''; // Zwischenvariable leeren
        end;
    finally
      tcpClient.Connect; // und Client wieder anschalten
    end;
  finally
    timScan.Enabled := true; // Timer wieder starten
  end;
end;

[divBy0]

Eigentlich sollte wirklich TIdTCPServer das Richtige für die Anwendung sein. Der Barcodescanner schickt in der Regel einfach den gelesenen Barcode als Zeichenkette. Im OnExecute wird einfach gewartet bis Daten kommen und fertig.

Du verwechselt da Client und Server.

Wenn deine Anwendung der Client ist, sollte das in etwa so ablaufen:

Anwendung (Client) -> Scanner (Server) : Neue Daten?
Scanner (Server) -> Anwendung (Client) : Barcode123

Also, sollte der Scanner wirklich der Server sein, dann müsste deine Anwendung die Daten anfragen.

Du machst aber nichts anderes, als zyklisch den Empfangspuffer zu fragen, ob eine neue Zeichenkette angekommen ist.