Datei mit TStream kopieren

[Antigo]

Ich mache genau das, was du gepostet hast, nur in Einzelschritten

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var StreamIn, StreamOut:TStream;
   i,buffersize:integer;
   buffer:Variant;
begin
  buffersize:=strtoint(edit3.Text);
  StreamIn := TFileStream.Create(edit1.text,fmOpenRead);
  StreamOut :=TFileStream.Create(edit2.text, fmCreate);


  for i:=1 to floor(StreamIn.Size / buffersize) do
  begin
    StreamOut.CopyFrom(StreamIn,buffersize);
    beep;

    //Status
    if i mod 4 = 0 then
    begin
      Progressbar1.Position:= 100*i*buffersize div StreamIn.Size;
      Application.ProcessMessages;
    end;
  end;
  
  //Rest der datei
  if StreamIn.Size mod buffersize > 0 then
    StreamOut.CopyFrom(StreamIn,0);

  StreamIn.Free;
  Streamout.free;

end;

Jedenfalls beept es wie gesagt am anfang ganz oft und die Progressbar schnellt nach vorne und dann gehts immer langsamer bis das Programm hängt...


Und zum WLAN: ich kopier einfach nur eine datei auf eine Netzwerkfreigabe, über wlan halt, welches sehr langsam ist (600kByte/s)