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

Nun dann schick doch einfach die Filestream.size vorweg

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

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 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

so hab mir wieder selber geholfen

markieren

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