Hi!
Ok. Danke. Ich hab jetzt folgenden Code geschrieben (sorry für die Variablen namen). Er scheint auch zu funktionieren:
Delphi-Quellcode:
var tf: TFileStream;
x: tFileStream;
begin
x:=TFileStream.Create('F:\a.jpg',fmShareDenyWrite);
tf:=TFileStream.Create('F:\1a.jpg.dat',fmCreate);
tf.CopyFrom(x,1024);
tf.Free;
x.Free;
1. Nur jetzt ne blöde Frage. Wie krieg ich die Teildateien dann wieder zusammen? Steh grad auf der Leitung.
2. Wie kann ich eine Teildatei von Byte 2048 bis 3072 machen? Ich mein, wie fang ich mitten in der Datei mit dem Teilen an? Oder macht's das automatisch?
3. Was passiert wenn ich am Ende der Datei bin? Gibt's dann nicht ne
AV?
mr47 und schon mal vielen Dank!
EDIT: Ok, die Fragen 2 und 3 haben sich von alleine, durch probieren erledigt. Wäre noch Frage 1! Danke