Forum: Algorithmen, Datenstrukturen und Klassendesign
by Neutral General,
6. Nov 2017
Aber der Code ist doch vorhanden oder nicht?
Bzw. einer deiner Kollegen o.ä. hat den Code doch geschrieben oder nicht?
Also wenn der Code vorhanden ist dann beheb den Fehler selbst oder sag dem Bescheid der das verbrochen hat.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Neutral General,
6. Nov 2017
Du hast 2 Möglichkeiten:
1) NICHT ZU EMPFEHLEN
datei := TFileStream.Create(FPdf, fmOpenRead);
try
SetLength(buffer, datei.Size+1); // +1 !
datei.Read(buffer, datei.Size);
finally
datei.Free;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Neutral General,
30. Okt 2017
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 :/
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Neutral General,
30. Okt 2017
Immer diese uralten Turbo Pascal Datei-Funktionen :roll:
var buffer: array of byte;
i:Integer;
datei: TFileStream;
begin
datei := TFileStream.Create(FPdf, fmOpenRead);
try
SetLength(buffer, datei.Size);
datei.Read(buffer, datei.Size);
finally