Hi zusammen
Um mir die Abläufe während des Kompilierens im Nachhinein anzeigen zu können, hab ich mir mal was mit einer Stringliste gebastelt, deren Einträge der Destruktor vor dem Beendem in eine Datei speichert. Das Resultat:
Zitat:
15.11.2017 10:47:58
----------------
----------------------------------
procedure TPDFiumFrame.SetDocument
----------------------------------
Aufrufe:
- FPDF_CloseDocument:
- FPDF_GetLastError:
- SetPageCount(FPDF_GetPageCount(FDocument)):
----------------------------------
procedure TPDFiumFrame.LoadFromFile
----------------------------------
Aufrufe:
- _Document := FPDF_LoadDocument
----------------------------------
function TPDFiumFrame.GetPage
----------------------------------
Aufrufe:
- Result := TPDFPage.Create;
- FPages.Add(Result);
- Result.Handle := FPDF_LoadPage(FDocument, PageIndex);
Wobei ich es gerade darauf abgesehen hatte, die Aufrufe der Funktion GetPage zu dokumentieren. Wieso diese Funktion oben nur einmal aufgeführt ist, weiss ich im Moment nicht. Das Testdokument enthält 13 Seiten, also solllte die Funktion 13 Mal aufgeführt sein.
Die Funktion gibt folgendes zurück:
Delphi-Quellcode:
Result.Index := PageIndex;
Result.Handle := FPDF_LoadPage(FDocument, PageIndex);
Dass diese Funktion aufgerufen wird, beweist: Die Seiten sind innerhalb des Frames vorhanden - sie also nochmal zu laden, wäre völliger Quatsch. Dem Frame ein Property Page zu verpassen, war also eben doch der richtige Weg. Nur, um mich mal selbst zu zitieren:
Zitat:
Und letzteres geht auch nicht, da mit 'PDFiumFrame2.Pages' ein Property angesprochen würde
-das es nicht gibt
-das ich einführen wollte, das aber wegen angeblich inkompatiblen Typen nicht akzeptiert wird.
Hier wird ein Kompilierungsversuch wegen inkompatibler Typen abgebrochen:
Property PDFPage : TPDFPage read GetPage;
Das Result der Funktion GetPage allerdings:
Delphi-Quellcode:
Result := TPDFPage.Create;
FPages.Add(Result);
Result.Index := PageIndex;
Result.Handle := FPDF_LoadPage(FDocument, PageIndex);
Das heisst, der Frame erzeugt ein TPDFPage-Object und gibt diese in Result zurück, nachdem er dem Objekt den Index und das
Handle zugewiesen hat.
Ist meine Property-Deklaration falsch?
Gruss
Delbor
PS: Ja, sie war falsch. So ist es besser, bzw. wird akzeptiert:
Property PDFPages : TList read FPages;