Visualizzare file Pdf

[Maverich]

Sto cercando un modo per visualizzare un file Pdf all'interno di un form;
in rete ho trovato soluzioni basate su ActiveX od OLEAutomation, ma nessuna
puo' essere idonea, restringerebbe l'uso solo a Windows,
mentre la mia necessita' e' averla anche per Linux.

In Lazarus c'e' qualche componente in grado di farlo ?
speravo nel package PowerPdf, ma serve per crearli.

[xinyiman]

Mi documento e ti faccio sapere!

[xinyiman]

Sembrerebbe essere un lavoraccio

http://www.lazarus.freepascal.org/index.php/topic,15562.msg83780/topicseen.html#new

[Maverich]

ho trovato questo articolo http://wiki.lazarus.freepascal.org/fpvectorial#Introduction,
 ho scaricato il necessario da sourceforge;
appena riesco provo e vediamo se e come funziona (Win/Linux).

dovrebbe essere in grado di leggere un  pdf, l'esempio indica la conversione
da pdf.
http://wiki.lazarus.freepascal.org/fpvectorial#Usage_examples.

faccio sapere l'esito delle prove.

[xinyiman]

Ok grazie

[Maverich]

Ho provato (su XP caricando i Package, non serve installarli , non ci sono componenti visuali);
Non c'e' modo di vedere un file Pdf, o SVG (creato sempre dalle librerie).

Visto che non leggeva i Pdf dei vari manuali,  ho creato un file con scritto Prova Testo,
e convertito in PDF con PdfCreator

la funzione function TvVectorialDocument (vedi sotto) esegue il controllo, ma nessun formato corrsiponde:
tra i formati da riconoscere non compare vfPDF

Codice: [Seleziona]

type
  TvVectorialFormat = (
    { Multi-purpose document formats }
    vfPDF, vfSVG, vfCorelDrawCDR, vfWindowsMetafileWMF,
    { CAD formats }
    vfDXF,
    { Geospatial formats }
    vfLAS,
    { Printing formats }
    vfPostScript, vfEncapsulatedPostScript,
    { GCode formats }
    vfGCodeAvisoCNCPrototipoV5, vfGCodeAvisoCNCPrototipoV6);    

Codice: [Seleziona]

function TvVectorialDocument.CreateVectorialReader(AFormat: TvVectorialFormat): TvCustomVectorialReader;
var
  i: Integer;
begin
  Result := nil;

  for i := 0 to Length(GvVectorialFormats) - 1 do

    {--> qui ho fatto scrivere su un file di testo i Formati
    vfCorelDrawCDR
    vfSVG
    vfGCodeAvisoCNCPrototipoV5
    vfEncapsulatedPostScript
    vfDXF
    vfLAS
    -- del vsPDF non c'e traccia e sono anche inferiori a quelli dichiarati in TvVectorialFormat}

    if GvVectorialFormats[i].Format = AFormat then
    begin
      if GvVectorialFormats[i].ReaderClass <> nil then
        Result := GvVectorialFormats[i].ReaderClass.Create;

      Break;
    end;

  if Result = nil then raise Exception.Create('Unsupported vector graphics format.');
end;

il progetto esempio e' fpvectorialconverter, presente nella Directory Examples.

[ffabio]

qualcuno è riuscito a visualizzare un pdf

Si accettano consigli anche con active x magari qualche esempio .

Il metodo proposto di lanciarlo da shell non mi sembra molto carino .

[xinyiman]

uses
...
lclintf
...
OpenDocument('readme.pdf');

[ffabio]

[xinyiman]

Non ti funziona?

[ffabio]

veramente non ho proprio capito cosa devo fare 

[ffabio]

ok ..... ero ancora addormentato :-)))

per spostarlo in un altra cartella ? se ho aperto il visualizzatore non me lo fa spostare.
idee ??

[xinyiman]

devi chiudere il pdf perchè se è aperto in lettura da un'altro programma è normale che non te lo fa spostare. Copiare si, spostare no!

[ffabio]

E' CORRETTO FARE COSI

PER COPIARE:
CopyFile(PChar(C:\OldFile.exe), PChar(C:\NewFile.exe), true);

PER SPOSTARE
MoveFile(PChar(C:\OldFile.exe), PChar(C:\NewFile.exe));

[xinyiman]

Guarda qui

http://www.freepascal.org/docs-html/rtl/sysutils/renamefile.html