Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: TidTcpClient bekommt kein Disconnect

    Delphi
    by Softchaos67, 14. Nov 2008
  ah so,
  nein, da kann man schicken was man will. Da kommt nix zurück. Laut Doku ist das auch nicht vorgesehen.
  Gruss
  Matthias
• Forum: Netzwerke

  Re: TidTcpClient bekommt kein Disconnect

    Delphi
    by Softchaos67, 14. Nov 2008
  ping geht, sagt mir aber nichts über den Zustand der Ports(scanner) aus.
  Ich hab das jetzt mit nem zyklischen Reconnect gelöst. alle 1000 Zyklen (ca. 50 sec) wird die Verbindug getrennt und dann
  endlos versucht wieder zu connecten. Klappt soweit gut.
  Falls der Server ausgeschaltet wird, wird halt am nächsten Morgen wieder verbunden.
  Ich hätte halt gerne auf den Verbindungsverlust reagiert,...
• Forum: Netzwerke

  Re: TidTcpClient bekommt kein Disconnect

    Delphi
    by Softchaos67, 13. Nov 2008
  Nein, den Server hab ich nicht programmiert.
  Das ist ein Moxa NPort Server. Der hat einen Netzwerkanschluss und 4 serielle Anschlüsse.
  Für den Betriebsmodus kann man eben TCP Server einstellen.
  An dem Moxa hängt ein Serieller Drucker und ein serieller Scanner.
  Der Scanner scannt einen Barcode, der Moxa schickt das an meinen Client (mein Programm) der Client verarbeitet die
  Daten und druckt...
• Forum: Netzwerke

  Re: TidTcpClient bekommt kein Disconnect

    Delphi
    by Softchaos67, 13. Nov 2008
  Das kann ich so nicht machen.
  Der Serverprozess ist eigentlich nur eine Schnittstelle zu einem seriellen Scanner. Die Daten vom Scanner werden über das Netzwerk an den angeschlossenen Client übertragen.
  Auf den Serverprozess der Schnittstelle habe ich nur bedingt zugriff, kann also keine regelmässigen Pakete schicken.
  Gibts denn keine Möglichkeit das fehlen des Servers zu bemerken?
  Gruss...
• Forum: Netzwerke

  TidTcpClient bekommt kein Disconnect

    Delphi
    by Softchaos67, 13. Nov 2008
  Hallo NG,
  ich versuche mittels Thread und einer IdTcpClient Komponente (Indy10) Daten zu verarbeiten.
  Die Daten kommen von einem entfernten Scanner.
  
  procedure TNetzScannerThread.Execute;
  begin
  inherited;
  while not (Terminated or Suspended) do try
  if TcpClient.Connected then begin
  if Msg <> '' then begin