Discussion :

[law56100]

Bonjour

Alors tous les soirs je lance un timer qui créé dans un répertoire environ 1000 fichiers en format pdf.
Je voudrais tester que les fichiers sont pas defectueux.

alors l'idée c'est de mettre sur mon timer un champ activex
le nom : ActiveX1
activeX : Adobe PDF Reader

code de l'initialisation du champ

Code :

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

1
2
3
 
ActiveXEvénement(envoiemail,ActiveX1,"OnError")
ActiveXEvénement(envoiemail,ActiveX1,"OnMessage")

lancement du traitement

Code :

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

1
2
3
4
5
6
 
ResListeFichier = fListeFichier(ComplèteRep(sCheminRep)+"*.pdf", frRécursif+frInterruptible)
// Pour chaque fichier trouvé
POUR TOUTE CHAINE UnFichier DE ResListeFichier SEPAREE PAR RC
         ActiveX1>>LoadFile(UnFichier)
FIN

c'est un timer qui fonctionne le soir donc tout doit être silencieux.
en faisant cela lorsque j'ai un fichier défectueux il s'arrete et adobe reader met un message. la je voudrais lorsque le message s'ouvre de le fermer puis d'envoyer un mail puis de lancer le pdf suivant. Mais je ne peux même plus lancer d'autre pdf si je ferme le message d'adobe manuellement?


autre idée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
ResListeFichier = fListeFichier(ComplèteRep(sCheminRep)+"*.pdf", frRécursif+frInterruptible)
// Pour chaque fichier trouvé
POUR TOUTE CHAINE UnFichier DE ResListeFichier SEPAREE PAR RC
         SI LanceAppliAssociée(pNomFichier) ALORS
	  Temporisation(50,tempoRien)
	  gfclKillProcess:KillProcessByName("AcroRd32.exe") //ferme adobe reader
         SINON
	  envoieMail()	
         FIN
FIN

sauf que le problème, si le fichier adobe reader est defectueux LanceAppliAssociée est toujours vrai et c'est adobe reader qui ouvre un message disant que le fichier est défectueux. donc la il faudrait choper le message mais comment? J'ai regarder si ca rajoutait un processus dans ma liste de processus. J'ai les mêmes processus si le pdf est bon ou pas.

Alors si vous avez une idée ou si vous voyez comment faire avec mes idées n'hésistez pas.

Le but verifier si le pdf est defectueu ou pas

Cordialement LAW

[L.nico]

Bonjour,
as tu essayé de passer par la fonction :

Code :

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

InfoBitmap

Cette fonction permet de récupérer les caractéristiques d'un fichier image ou d'un fichier PDF.

[EDIT]

exemple :

Code :

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

res est une chaîne = InfoBitmap("D:\temp\FichierInvalide.pdf")

dans ce cas res vaut "BAD<TAB><TAB><TAB>"

si les 3 premiers caractères sont <> "PDF" alors le fichier est invalide.
Dans mon test, j'ai pris un fichier Zip dont j'ai changé l'extension en PDF.
Il faut maintenant vérifier que cette technique fonctionne avec un PDF défectueux.

[law56100]

WOAW ca fonctionne je me suis pris la tête et dans des test de folie pour rien

l'information renvoie BAD quand le fichier est defectueu.

un grand merci à L.nico

[Momoborder]

merci beaucoup pour cette solution, elle fonctionne du "feu de dieu".

Pour controler vraiment j'ai ajouté le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
Res est une chaine = InfoBitmap("tonfichier.pdf")
Res=Remplace(Res,TAB,"<tab>")
SI ResAttribut <> "BAD<tab><tab><tab>" ALORS
	Info("Fichier ok")
SINON
	Info("Fichier défectueux")
FIN

Merci encors.

[alexeyk]

Ou :

Code :

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

1
2
3
 
sRes = InfoBitmap("tonfichier.pdf")
bErreurPdf = (sRes[[1 a 3]]<>"PDF") // Vrai si tonfichier.pdf n'est pas un PDF

Alex