Charger Fichier PDF sans installer Adobe

**Soulama** · 01/12/2006, 15h21

Salut,
je visualise des Fichiers PDF avec TWebBrowser sur mon PC(Adobe est déja installé), ce que je veux savoir: est'il possible de faire la meme chose sur un PC ou AdobeReader n'est pas installer?
je suppose que Adobe a des DLL qu'on peut copier sur le PC sible pour faire tourner des application pr visualiser des Fichiers PDF!!!
Si non? peut etre ya des compos que je peut utiliser pour ce faire.
Merci pour toute info.

**Raylemon** · 01/12/2006, 18h55

Regarde du côté de Foxit Reader. C'est un équivalent à Adobe, mais plus léger. Ils possèdent des SDK, mais payant, je crois.

**LadyWasky** · 01/12/2006, 21h58

Lire n'importe quel document PDF sans AcrobatReader, je ne pense pas que ce soit possible...

**TicTacToe** · 02/12/2006, 01h51

+1 pour Foxit

Je m'étais renseigné auprès de Foxit, tu peux leur demander une offre pour avoir les SDK (pour moi il m'avait deviser 2000€ pour ce que j'avais demandé.......)

donc me suis débrouillé autrement, en intégrant foxit dans une mon navigateur et en simulant un glisser de fichier dessus
-> c'est (tres) rapide et ca fonctionne tres bien (depuis 1 ans pour pour une 30aine de users..)

**Soulama** · 04/12/2006, 10h11

merci pour ces info.
Voila de ma part jai gouglé un peu, et jai trouvé ce lien qui me semble interessant:
http://www.wpcubed.com/products/pdfviewer/index.htm
A+

**Soulama** · 05/12/2006, 11h54

Envoyé par TicTacToe

donc me suis débrouillé autrement, en intégrant foxit dans une mon navigateur et en simulant un glisser de fichier dessus
-> c'est (tres) rapide et ca fonctionne tres bien (depuis 1 ans pour pour une 30aine de users..)

tu peu me dire stp comment tu fais pr integrer FoxitReader ds ton appli Delphi !!

**TicTacToe** · 05/12/2006, 12h51

alors

1. Tu démarres le prog avec ShellExecute
2. Tu récupère le Handle de l'application Foxit (avec EnumWindows via les API par exemple)
3. Tu intègres la fen. Foxit dans un panel avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
// Supprime la barre de titre 
       SetWindowLong(HandleViewver, GWL_STYLE, GetWindowLong(HandleViewver, GWL_STYLE) And Not WS_CAPTION);
       SetWindowPos(HandleViewver, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER);
       // Assigne et maximise le prog externe au conteneur
       Windows.SetParent(HandleViewver, PanelVue.Handle);
       SetForeGroundWindow(HandleViewver);
       ShowWindow(HandleViewver, SW_MAXIMIZE);

et ton appli est dans ton panel.

en cas de redimensionnement de ton panel, il faut redimensionner ton appli avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos(HandleViewver, 0, 0, 0, PanelVue.Width, PanelVue.Height, SWP_NOACTIVATE);

Ensuite, pour le glisser virtuel de fichier sur ton appli tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
   i : Integer;
   wparam : THandle;
   pDrop: PDropFiles;
   pFiles: PChar;
begin
...
// Parametres
     wParam :=  GlobalAlloc( GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_DDESHARE, Length( SFichier ) + 20);
     pDrop := GlobalLock( wparam );
     try
     pDrop^.pFiles := 20;
     pDrop^.fWide := False;
     pFiles := Pointer(pDrop);
     Inc( pFiles, pDrop^.pFiles);
     for i := 1 to Length( SFichier ) do
       begin
       pFiles^ := SFichier[ i ];
       Inc( pFiles );
       end;
     pDrop.fNC := False;
     pDrop.pt := Point( 10, 10 );
     finally GlobalUnLock( wParam ); end;
     // Glisser virtuel
     PostMessage( HandleViewver, WM_DROPFILES, wparam, 0 );
     WaitFor( HandleViewver );