Datei mit TStream kopieren

[Antigo]

Hi,
Ich möchte gern eine Datei per TFilestream einlesen und dann wiederrum per Tfilestream auch wieder speichern. Im Endeffekt möchte ich auf diese Weise eine Datei übers Netzwerk kopieren und damit bei einem Verbindungsabbruch nicht alles weg ist möchte ich die Datei stückchenweise rüberschicken.
Also Datei öffnen, die ersten XX Bytes lesen und auf der Netzwerkfreigabe speichern. Die nächsten XX Bytes lesen, speichern usw. Wenn jetzt die Verbindung abbricht mache ich nach wiederherstellung derselbigen einfach da weiter wo ich aufgehört habe. Soweit die Theorie.

Also hab ich mir gedacht ich definiere erstmal einen Puffer vom Typ Variant weil ich ja keine Ahnung hab was für Daten kommen und es mich ja auch nicht interessiert, ich muss es ja nur kurz zwischenspeichern. Als nächstes öffne ich einen Input und einen Output Stream.

Delphi-Quellcode:

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

so jetzt möchte ich solange immer wieder den puffer lesen und schreiben bis ich fertig bi

Delphi-Quellcode:

  for i:=1 to StreamIn.Size div buffersize do
  begin   
    StreamIn.ReadBuffer(buffer,buffersize);
    StreamOut.WriteBuffer(buffer,buffersize);
  end;
  StreamIn.Free;
  Streamout.free;

Wenn ich das so mache kopiert er die datei einwandfrei (buffersize=1 erstmal) aber gibt folgende Fehlermeldung aus: Ungültiger Variant Typ.

Per Einzelanweisung hab ich dann herausgefunden, das der Fehler erst dann ausgegeben wird, wenn alles kopiert wurde, auch wenn ich bspw nur 10 bytes übertrage...
weiss jemand wo der fehler liegt? Ist der Ansatz an sich vielleicht schon kappes?

Dank schonmal im vorraus

[sirius]

Schau mal nach "CopyFrom"

[Antigo]

Super, Ich danke dir

[Antigo]

Jetzt hab ich doch noch ein Problem.

Und zwar scheint es mir so, dass er die vielen CopyFrom Aufträge zusammen fasst und dann gemeinsam verschickt. Ich hab jedenfalls mal einen 1 MB Puffer eingestellt und eine 20MB Datei über wlan kopiert. Nach jedem Copy From sollte er beep;en. Jetzt kommen allerdings direkt am Anfang jede menge beeps, dann werden die Intervalle zwischen den beeps etwas größer und das Programm steht still. Gucke ich mir jetzt den Netzwerk Traffic an hab ich volle Auslastung.
Ich möchte aber nicht alles sammeln und dann schicken, sondern eben Päckchenweise. Weiss jemand wie ich darauf warten kann, dass der eine CopyFrom Befehl abgearbeitet wurde? Erst dann will ich den nächsten starten (auch wenns Zeit kostet).

[gsh]

Also ich glaube du hast da noch nen bug drinnen ... zeig mal bissi code

Lies dir vorallem die hilfe über CopyFrom genau durch
Des ist glaub ich der wichtigste satz:

Zitat:

CopyFrom kopiert die in Count angegebene Anzahl Bytes aus dem in Source angegebenen Stream in den Stream. Dann verschiebt es die aktuelle Position um die in Count angegebene Anzahl Bytes und gibt die Anzahl der kopierten Bytes zurück.

[sirius]

Copyfrom arbeitet sicherlich nicht parallel. Was machst du denn genau mit WLAN?

Delphi-Quellcode:

var StreamIn, StreamOut:TStream; 
begin 

  StreamIn := TFileStream.Create(edit1.text,fmOpenRead); 
  StreamOut := TFileStream.Create(edit2.text, fmCreate);

  StreamOut.CopyFrom(StreamIn,0);

  StreamIn.free;
  StreamOut.free; 
end;

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

[sirius]

Mit dem letzten
StreamOut.CopyFrom(StreamIn,0);
kopierst du den ganzen Stream nochmal von vorn (das bedeutet die 0).

Aber was davor passiert weis ich auch nicht.
Probier es mal so, wie ich es getan habe. Klappt es dann?

[Muetze1]

Sendest du selber über die Sockets?

[sirius]

Zitat:

Sendest du selber über die Sockets?

Wenn er alles filebasiert macht, dann wohl über den Windows Netzwerk Client