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)