Indy10 IdTCPServer und IdTCPClient

[ASKtec]

OK, habe das Problem nun gelöst.

Scheinbar hat die Indy-Komponente ein Problem wenn man diese auf das Form zieht.

Ich habe nun die Komponente selbst erstellt. Kommt es zum Disconnect dann führe ich ein Destroy aus und erstelle die Komponente sofort wieder neu. Danach connected sie ohne Probleme....

Hier mal die entsprechende Prozedur dafür:

Delphi-Quellcode:

procedure TForm1.CheckConnection;
begin
  //Versuch etwas an den Server zu schicken
  try
    IdTCPClient1.IOHandler.WriteLn('NOOP:');
  except
    StatusBar1.Panels[0].Text := 'connection failed';
 
    //Client abschiessen und neu bauen
    IdTCPClient1.Destroy;
    IdTCPClient1 := TIdTCPClient.Create();
    // Ports und IP-Adresse des Servers holen aus ini-Datei)
    LoadSettings;

      try
        IdTCPClient1.Connect;
        IdTCPClient1.IOHandler.WriteLn('HELO:ichbins');
        StatusBar1.Panels[0].Text := 'connected';
      except
        StatusBar1.Panels[0].Text := 'last connect failed';
      end;
    end;
end;

Gruß und Danke
Andreas