@Luckie
ich hab den Code jetzt mal in meinen angepasst. Müsste so richtig sien oder ?
Delphi-Quellcode:
function Kopiere(Input, Output: string) : string;
const
BlockSize = 1024;
var
fs: TFileStream;
Buffer: Pointer;
Len: Integer;
dest: TFileStream;
begin
fs := TFileStream.Create(Input, fmOpenRead);
dest := TFileStream.Create(Output, fmCreate);
GetMem(Buffer, 1024);
try
while (fs.Position < fs.Size) do
begin
if fs.Size - fs.Position > BlockSize then
Len := BlockSize
else
Len := fs.Size - fs.Position;
fs.ReadBuffer(Buffer^, Len);
dest.WriteBuffer(Buffer^, Len);
end;
finally
FreeMem(Buffer);
end;
end;
hab jetzt mal schnell copy,paste ohne Formatierung kopiert.
Trotzdem ist das File 0 KB.