Indy 9 (Socket-Fehler # 10054Die Verbindung wurde von Peer.)

[Computerbabalulu]

Hi

Kennt jemand diese Fehlermeldung:

Socket-Fehler # 10054 Die Verbindung wurde von Peer zurückgesetzt..

Hier mal der Code dazu:

Delphi-Quellcode:

procedure TForm1.UpdateMGXData;
begin
   with MGX1Client do begin  // Indy TCP/IP Client
     connect;
    try
     MGX1Client.Write('Counter');
     MGX1ed.Value:= StrToInt(copy(MGX1Client.ReadString(64),5,6));
    finally
      Disconnect;

    end;
  begin
   with MGX2Client do begin // Indy TCP/IP Client
     connect;
    try
     MGX2Client.Write('Counter');
     MGX2ed.Value:= StrToInt(copy(MGX2Client.ReadString(64),5,6));
    finally
      Disconnect;
     end;
   end;
  end;
 end;
end;

Kann mir jemand sagen was falsch ist, oder was ich besser machen kann?
Der Fehler tritt 2 oder 3 mal am Tag auf wenn das Programm den ganzen Tag läuft.
Die beiden Clients verbinden zu einem Server der auf einer Unix läuft, senden den Befehl 'Counter' und bekommen dann einen
Zahlenstring zurück. Das ist eigentlich die ganze Aufgabe.....



Gruß Frank

[Computerbabalulu]

Ähm....

Ich habe es jezt mal mit den Indy 10 versucht.....

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   with MGX1Client do begin
      connect;
    try
     MGX1Client.IOHandler.Write('Counter');
     Edit1.Text:= MGX1Client.IOHandler.ReadString(64);
    finally
      Disconnect;
   end;
 end;
end;

Der erste Connect funzt. Aber beim nächsten Connect zeigt er mit den Fehler an das er beriets Connected ist!

Hat jemand eine Idee????

[Fourcorner]

Hallo,

Zitat:

Der erste Connect funzt. Aber beim nächsten Connect zeigt er mit den Fehler an das er beriets Connected ist!

Hat jemand eine Idee????

warum disconnectest du immer. Du könntest die ganze Sache doch auch so schreiben, dass zuvor der Clieten Connectet und im Timer nur die Abfrage (also .write und .read) stehen hast. Das Problem mit dem wiederholtem Connecten entfällt dadurch.

[Binärbaum]

Frag doch vorher ab, ob schon eine Verbindung besteht, und wenn nicht, wird halt verbunden:

Delphi-Quellcode:

if not( MGX1Client.Connected) then MGX1Client.Connect;

MfG
Binärbaum

[Computerbabalulu]

Mh.... Funzt beides nicht!