Systemfehler. Code 1400. Ungültiges Fensterhandle. Und nu?

[Tyler]

den Tip mit dem Aufruf-stack hab ich durch, wurde dadurch aber auch nicht schlauer, jedenfalls steht da nichts verdächtiges

Jetzt hab ich jedenfalls meine beiden Routinen in 2 kleine Programme gesteckt. Zu dem Fehler wie oben beschrieben kommt es jetzt zwar nicht, aber klappen tuts immer noch nicht.

Ist nicht viel Code, ich zeigs mal eben:

Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  ProgressBar1.Max := 9000;
  IdTCPClient1.Port := 5001;
  IdTCPClient1.Host := '127.0.0.1';
  IdTCPClient1.Connect;
  IdTCPClient1.WriteLn('1000');

  for i := 0 to 9000 do
  begin
    IdTCPClient1.WriteLn(IntToStr(i));
    ProgressBar1.Position := i;
  end;

  
end;

Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.DefaultPort := 5001;
  IdTCPServer1.Active := True;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
  s : String;
  i : Integer;
begin
  AThread.Connection.ReadLn(s);
  i := StrToInt(s);
  if i > ProgressBar1.Max then
    ProgressBar1.Max := i
  else
    ProgressBar1.Position := i;
end;

Das wars. Mehr nicht. Hier ersch eint zur Abwechslung die Fehlermeledung "Socketfehler 10053 - Die Software hat einen Abbruch der Verbindung verursacht." - das ungefähr bei einem Drittel.

Kruzifix, dabei will ich doch nur ein paar Zahlen übers TCProtokoll übertragen, kann doch nicht so schwer sein

Bitte um Hilfe


tyler