Pdf activex

mokzarfa 67 Messages postés jeudi 29 janvier 2009Date d'inscription 22 mai 2018 Dernière intervention - 8 avril 2016 à 21:29 - Dernière réponse : mokzarfa 67 Messages postés jeudi 29 janvier 2009Date d'inscription 22 mai 2018 Dernière intervention
- 9 avril 2016 à 23:30
Bonjour,
je voulais lire un fichier pdf a partir de delphi
j'ai installe le composant acrobat mais le programme ne connait pas ce composant .
Afficher la suite 

Votre réponse

3 réponses

dubois77 692 Messages postés jeudi 17 avril 2008Date d'inscription 14 septembre 2018 Dernière intervention - 9 avril 2016 à 18:48
0
Merci
Salut
Étonnant, il me semble avoir déjà utilisé ce composant (que j'ai supprimé ensuite à cause de la pub acrobat)
Cela doit venir de la façon dont tu l'utilise
Donne un bout de code, on verra mieux
mokzarfa 67 Messages postés jeudi 29 janvier 2009Date d'inscription 22 mai 2018 Dernière intervention - 9 avril 2016 à 23:28
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComObj, ActiveX, jpeg, ExtCtrls, ShellAPI, PdfLib_TLB, Menus,
OleCtrls, Buttons;

type
TForm1 = class(TForm)
pdf:TPdf;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
OpenDialog1: TOpenDialog;
N6: TMenuItem;
Image1: TImage;
Nouveaubtn: TSpeedButton;
N14: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Ouvrirleprogramme1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure NouveaubtnClick(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N14Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation
const
msoFalse = TOleEnum(False);
msoTrue = TOleEnum(True);


{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
// attente de 1 secondes pour que l'on ait le temps de voir s'afficher le SplashScreen
// dans votre programme, cette ligne est inutile.
// car toute la partie initialisation de votre programme la remplacera
sleep(999);
end;
procedure TForm1.N2Click(Sender: TObject);
begin
OpenDialog1.InitialDir := 'C:\delphi_programme\splash\Docs\maths';

if OpenDialog1.Execute
then begin
Pdf.Visible := true;
Pdf.LoadFile(OpenDialog1.FileName);

end;

end;
end.
mokzarfa 67 Messages postés jeudi 29 janvier 2009Date d'inscription 22 mai 2018 Dernière intervention - 9 avril 2016 à 23:30
a chaque fois que je lance l'execution il me demande de retirer la variable pdf car le composant est absent
merci bcp pour votre aide c gentil !
Commenter la réponse de dubois77

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.