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