Dateigröße auslesen

[ibp]

dann ist da doch das problem...

das du SizeOfIncomingStream dir nicht in

procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer)

anzeigen lassen kannst ist klar da sie als lokale variable von

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

definiert ist, sollte aber auch eine fehlermeldung gegeben haben!!!

wenn aber AWorkCount keine werte liefert, wie soll dann die progressbar was anzeigen ?

gruß rene