Forum: Algorithmen, Datenstrukturen und Klassendesign
by tofse,
6. Nov 2017
Ok, habe ich verstanden, geht aber nicht, da nicht von mir.
Deshalb verwende ich die Variante 1
Dennoch danke!
Forum: Algorithmen, Datenstrukturen und Klassendesign
by tofse,
6. Nov 2017
Hallo,
so hat es funktioniert
datei := TFileStream.Create(FPdf, fmOpenRead);
try
SetLength(buffer, datei.Size);
datei.Read(buffer, datei.Size);
finally
datei.Free;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by tofse,
30. Okt 2017
Hallo,
danke für die schnelle Antwort.
Leider funktioniert das nicht, wie gewünscht. Es läuft alles ohne Fehler durch, aber ich muss das array of byte ja an eine Funktion übergeben, die nicht von mir ist.
Die Verarbeitung läuft auch durch, aber das, was am Ende rauskommt, lässt sich nicht mehr öffnen. Das ist jetzt schwer im Detail zu erklären, aber die Funktion packt das PDF in einen DICOM...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by tofse,
30. Okt 2017
Hallo,
ich muss Dateien byte-weise einlesen, und verwende folgenden Code
var buffer : array of byte;
afile: file of byte;
i:Integer;
begin
AssignFile(afile, FPdf);