Zitat von
Muetze1:
Delphi-Quellcode:
function DateiSchreiben(const AFilename: string; const AFileSize: Int64);
...
lWritten := lStream.WriteBuffer(lFileData[1], Min(lBytesToWrite, coBlockSize));
...
Wenn ich Deine Funktion "DateiSchreiben" direkt übernehmen möchte, gibt es 2 Probleme. Das erste ist, dass der eigentliche Rückgabewert der Funktion während der Deklaration fehlt, es müsste also heißen:
function DateiSchreiben(const AFilename: string; const AFileSize: Int64) : Boolean;
Das 2. Problem ist die Zeile mit WriteBuffer, wobei mir Delphi jedesmal den folgenden Compilierungsfehler meldet:
E2010: Inkompatible Typen: 'Integer' und 'procedure, untyped pointer or ununtyped parameter'.
Wobei Du von lFileData immer nur das erste Zeichen verwendest. Angenommen ich habe hier einen String mit 64 unterschiedlichen Zeichen, dann würde die Verwendung des ausschließlich 1. Zeichens falsche Ergebnisse liefern.