prozentanzeige beim dl via filestream

hi,
ich möchte eine prozentanzeige oder/und ein eine anzeige wie lange es noch dauert
hier is mein bisheriger code ohne % anzeige usw:

server:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  FStream:tfilestream;

  ...

  begin

    FStream := TFileStream.Create('datei_s', fmCreate);

    try

      AContext.connection.IOHandler.ReadStream(fstream);

    finally

    end;

    FreeAndNil(FStream);

  end

client:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  FStream:tfilestream; 

  ... 

  begin

  FStream := TFileStream.Create('datei_c', fmOpenRead);

  try

    IdTCPClient_filemanager.IOHandler.Write(Fstream,0,true);

  finally

    IdTCPClient_filemanager.Disconnect;

  end;

  FreeAndNil(FStream);

ps: die anzeige soll beim server sein aber bei beiden wäre es natürlich besser

mfg gandime

edit:
ich hatte mir schon überlegt beim server die größe der datei auszulesen aber da bekomme ich immer die größe die die datei hat wenn sie fertig geladen is

prozentanzeige beim dl via filestream

prozentanzeige beim dl via filestream

Forumregeln