🚀 go-pugleaf

W dniu 20-06-2017 o 22:16, krolikbest pisze:
> 
>>
>>     FFile := TMemoryStream.Create();
>>     FFile.LoadFromFile(FFileName);
>>     PFile := PAnsiChar(FFile.Memory);
>>     pend  := PAnsiChar(FFile.Memory) + FFile.Size-5;
>>
> 
> To mnie zaciekawiło. Nigdy nie musiałem zajmować się rozbiórka pdfów. 
> Przybliżysz temat? Nie chodzi też oczywiście o zewn. biblioteki do 
> rozbiórki tych dokumentów.
> 
> Pozdr
> krolikbest
> 
To jest kolejny projekt/pomysł na obróbkę e-deklaracji.
Pdfy można zapisywać z XML i chcę podłożyć XML w PDF i wyświetlić go w 
Acrobat Reader i za jego pomocą wysłać. Ma być to przezroczyste dla 
użytkownika.

Cały pdf to drzewo "obj" w każdym obj mogą być odwołania do kolejnych obj.

drzewo wygląda mniej więcej tak:
roo--- pages --- page
              --- page
    --- fonts
    --- fonts
    --- XForms
    --- files
to tylko przykład

Ogólnie kod nie jest mój, Ja go tylko dostosowuje do swoich potrzeb
i jestem na etapie rozszyfrowywania objstream.
Nie pamiętam gdzie ale znalazłem w necie kod kogoś kto zrobił większość 
roboty. Większość kodu polega na przeglądaniu znaków i traktowanie 
całego PDF jako PAnsiChar.





function TPDFClass.FindStrInDict(const str: ansistring): boolean;
  var
     nestLvl: integer;
     str1: AnsiChar;
   begin
     //nb: PDF 'dictionaries' start with '<<' and terminate with '>>'
     result := false;
     nestLvl := 0;
     str1 := str[1];
     while not result do
     begin
       while not (p^ in ['>','<',str1]) do inc(p);
       if (p^ = '<') then
       begin
         if (p+1)^ = '<' then begin inc(nestLvl); inc(p); end;
       end
       else if (p^ = '>') then
       begin
         if (p+1)^ = '>' then
         begin
           dec(nestLvl);
           inc(p);
           if nestLvl <= 0 then exit;  //Continue;//
         end
       end else
       begin
         result := (nestLvl < 2) and IsString(str);
         if result then exit;
       end;
       inc(p);
     end;
end;

użyte tak
  if not FindStrInDict('/Filter') then exit;
przesuwa wskaźnik za szukany ciąg.



Mogę na priv podesłać cały spakowany projekt który rozbiera e-deklaracje 
na obiekty i sobie możesz popatrzeć jak to jest zbudowane.
Ostrzegam kod to swobodna twórczość.