Ich möchte aus Datei1 in Datei2 kopieren.

aber ab einem bestimmten Offset aus Datei1.
Datei2 neu erstellen.

Ich habe mal versucht das mit Seek,Blockwrite usw. zu machen [siehe Link].
Aber das scheint mir nicht sinnvoll.

Kann man das eleganter lösen?

http://alcodream.al.funpic.de/dhelp_10-7/

Danke

Streams wären noch eine Möglichkeit.

mhh, ja...
wenn ich nur wüßte, wie...
Blockwrite scheint einfacher..
Aber auch nur für nichtkomplexe Dinge..

hab gar keine Vorstellung, wie das mit streams aussieht
hab nur 1 Beispiel gefunden, daß mir aber auch nicht viel sagt - also wie ich das anpassen könnte...
ich möchte ja aus einer in eine andere Datei kopieren.
nicht nur an die selbe anhängen.
http://www.delphipraxis.net/internal...en+tfilestream

Dateizeiger mit Position setzen und dann CopyFrom.

mhh
ich weiß auch nicht..
in den Delphi-Büchern stehen immer so schöne Beispiele. ("Kopieren Sie 1 Datei in eine andere"
unit unit1
procedure bla();
copy stream1, stream12;
end;
)
mhh, und wenn ich das auf meine Programme anwende funktioniert es nicht

Du musst nur die Dateinamen fnSource und fnTarget und die Anzahl der zu übergehenden Bytes in iPosition festlegen und los geht's:

markieren

Delphi-Quellcode:

fsSource := TFileStream.Create(fnSource, fmOpenRead);
fsTarget := TFileStream.Create(fnTarget, fmCreate);

// Diese 2 Zeilen meinte Luckie...
fsSource.Position := iPosition;
fsTarget.CopyFrom(fsSource, fsSource.Size - iPosition);

fsTarget.Free;
fsSource.Free;

Grüße vom marabu

so, habe mal versucht, das mit den Streams etwas umzuschreiben.

Aber laufen tut es nicht.
vor allem die Speicheranforderung.

source-Codelink http://alcodream.al.funpic.de/dhelp_10-7/

^^ hier mal der aktualisierte link

in deinem Beispiel ist buffer 1 Byte groß, das heißt du kopierst auch nur ein Byte. Desweiteren hast du in dem Beispiel nicht das gepostet umgesetzt sondern das gepostete zu 50% mit deinem ersten Source vermischt, und da kanns halt nicht funkionieren. (zum Beispiel hast du nirgends das CopyFrom)

habe jetzt mal das versucht

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var a,b: TFileStream;
Offset : cardinal;
begin

offset := Strtoint(Edit3.Text);

a := TFileStream.Create('Datei.dat', fmOpenRead);
b := TFileStream.create('datei2.dat', fmCreate);
b.CopyFrom(a, offset);

a.Free; b.Free;

End;

EDIT: LÄUFT
gnarf - manche Dinge sind in Delphi so einfach.
Aber streams gehören irgendwie nicht dazu.
Hab von Walter Doberenz "Borl. Delphi 6 Grundlagen" (ok, hab nur Delphi 3 Pro, aber dennoch)
is ein dickes Buch, aber irgendwie sind Streams da auch nicht ganz so toll erklärt.

welches Buch fandet Ihr denn toll?

es muss so sein:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var a,b: TFileStream;
Offset : cardinal;
begin

offset := Strtoint(Edit3.Text);

a := TFileStream.Create('Datei.dat', fmOpenRead);
b := TFileStream.Create('datei2.dat', fmCreate);
b.CopyFrom(a, offset);
a.Free; b.Free;

End;

du hast das "Create" vergessen, so wie es bei jeder Objectinstanzierung sein muss.