Ich behaupte einfach mal ganz dreist dass, das nicht an meiner Methode liegt.
In dem buffer-Array sollte am Ende von deiner und meiner Methode exakt das gleiche drin stehen.
Und wenn dus schon mit den uralt-Funktionen machst, dann lies bitte nicht jedes Byte einzeln aus der Datei :/
Hallo,
so hat es funktioniert
Delphi-Quellcode:
datei := TFileStream.Create(FPdf, fmOpenRead);
try
SetLength(buffer, datei.Size);
datei.Read(buffer[1], datei.Size);
finally
datei.Free;
end;