leider hat mir das jetzt überhaupt nix gebracht
hab das buf : talles gemacht sattt of array of char aber nix geholfen gleicher fehler
ja ich weiß dass fehlerdrinnen sind weil ich mit dem ganzen zeugs noch nie gearbeitet habe und einfach vermutet habe mit der delphihilfe das beispiel genommen und zerlegt hab
das save ding is nur mal zum vorbeugen nacher wird das im extractfilepath(paramstr(0)) + 'fafile.dat' gespeichert
kanns vl sein dass ich zuerst n createfile machen muss?
hier is das beispiel aus der delphi hilfe da wird in buf übrigens auch nix reingeschrieben
Delphi-Quellcode:
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Datensatzgröße = 1 }
if SaveDialog1.Execute then { Dialog zum Speichern anzeigen }
begin
AssignFile(ToF, SaveDialog1.FileName); { Ausgabedatei öffnen }
Rewrite(ToF, 1); { Datensatzgröße = 1 }
Canvas.TextOut(10, 10, 'Kopieren von ' + IntToStr(FileSize(FromF))
+ ' Byte...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;
lg nico