moin Jungs,
also ich versuche per TFileStream eine Datei einzulesen und wieder zu speichern (ich will später dann noch eine Verschlüsselungsroutine dazusetzten, das kommt dann aber in einen eigenen Thread). Jetzt mach ich das so:
Delphi-Quellcode:
function Kopiere(Input,Output: string) : string;
var
fs,dest : TFileStream;
Buffer : Byte;
begin
fs := TFileStream.Create(Input, fmReadOnly);
fs.Read(Buffer, fs.size);
try
dest := TFileStream.Create(Output, fmCreate);
dest.Write(Buffer, sizeof(Buffer));
finally
FreeAndNil(fs);
FreeAndNil(dest);
end;
end;
so nur irgendwie kommt manchmal ne Zugriffsverletzung bei Adresse irgendwas oder die Datei wird erstellt nur nichts kopert (0 KB);
Was hab ich da falsch gemacht ? Ich sitze jetzt schon seit gestern Abend daran das gibts doch net.
Hat jemand ein Tut wo alles über Streams(Memory,File,u.s.w.) steht ?
Danke !!!!
cu
Predator