prozentanzeige beim dl via filestream

[gandime]

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:

Delphi-Quellcode:

var
  FStream:tfilestream;
  ...


  begin
    FStream := TFileStream.Create('datei_s', fmCreate);
    try
      AContext.connection.IOHandler.ReadStream(fstream);
    finally
    end;
    FreeAndNil(FStream);
  end

client:

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

[Vjay]

Nun dann schick doch einfach die Filestream.size vorweg ;)

[Sko]

Huhu, ManuMF hat da mal was passendes gebaut *klick*

[gandime]

Zitat:

Zitat von Vjay

Nun dann schick doch einfach die Filestream.size vorweg ;)

ja was bringt mir das ich will ja nicht wissen wie groß das is sondern wievel schon geschickt wurde

Zitat:

Zitat von Sko

Huhu, ManuMF hat da mal was passendes gebaut *klick*

das is schon eine bessere hilfe blos wie bekomme ich das mit dem server hin hier is das ja mit dem clienten gemacht

[gandime]

so hab mir wieder selber geholfen

Delphi-Quellcode:

procedure Tfrm_file.Timer1Timer(Sender: TObject);
var
  i_size,i_pos:integer;
begin
  i_size:=fstream.Size;
  i_pos:=fstream.Position;
  edit1.text:=inttostr(round((i_pos/i_size)*100));
end;

aber trotzdem thx