Imprimer avec l'assistant Photograhie Windows

Version imprimable

Voir 40 message(s) de cette discussion en une page

L'activeX c'est l'enregistrement de wiaaut.dll par la commande dos RegSvr32. C'est la technique utilisée pour déclarer un ActiveX dans le système. Je voulais dire que je ne l'ai pas fait. Je vouslias voir avant comment le système se comporte sans.

Par contre, voici le code Pascal transcrit en C++ et ça fonctionne sous Vista en natif (sans ActiveX):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #include <ComObj.hpp> Variant wzd; Variant vct; wzd = CreateOleObject("WIA.CommonDialog"); vct = CreateOleObject("WIA.Vector"); vct.Exec(Procedure("Add") << "C:\\Comic\\_P3dO Test\\A12_AS12-46-6826.jpeg"); vct.Exec(Procedure("Add") << "C:\\Comic\\_P3dO Test\\A12_AS12-47-6899.jpeg"); wzd.Exec(Procedure("ShowPhotoPrintingWizard") << vct); wzd = Unassigned; vct = Unassigned;
Sinon oui je suis très motivé car j'ai un logiciel de traitement d'image mais l'impression n'est pas terrible, ceci me permettra de faire patienter mes clients en attendant que je fasse -peut-être un jour :P - mon propre wizard.

Re,
Citation:
Envoyé par yarp
L'activeX c'est l'enregistrement de wiaaut.dll par la commande dos RegSvr32. C'est la technique utilisée pour déclarer un ActiveX dans le système. Je voulais dire que je ne l'ai pas fait. Je vouslias voir avant comment le système se comporte sans.

Par contre, voici le code Pascal transcrit en C++ et ça fonctionne sous Vista en natif (sans ActiveX):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #include <ComObj.hpp> Variant wzd; Variant vct; wzd = CreateOleObject("WIA.CommonDialog"); vct = CreateOleObject("WIA.Vector"); vct.Exec(Procedure("Add") << "C:\\Comic\\_P3dO Test\\A12_AS12-46-6826.jpeg"); vct.Exec(Procedure("Add") << "C:\\Comic\\_P3dO Test\\A12_AS12-47-6899.jpeg"); wzd.Exec(Procedure("ShowPhotoPrintingWizard") << vct); wzd = Unassigned; vct = Unassigned;
:hola::hola::hola: Félicitations! J'aurai encore pu chercher pendant des heures ... La méthode Exec ... ralala. Si sous vista ça fonctionne, alors c'est cool, car justement, c'était un des tests à faire (donc merci encore).

Par contre, c'est con qu'il ne sélectionne pas les 2 images par défaut (simulation du bouton "Sélectionner tout".). Oui oui, je chipote :aie:

Bon, je crois que ça vaut une entrée dans la FAQ :king:

18/05/2009, 13h42
yarp

J'ai trouvé la solutions dans les examples CBuilder. Il y avait un exemple avec Word.
Le gros avantage de IDispatch c'est que ça fonctionne avec pleins de trucs.

Par contre effectivement au niveau customization (comme les image sélectionnées) cela dépends de l'interface. Il faut regarder dans le MSDN ce qu'il y a. Et je ne me rappelle pas avoir vu grand chose. Sans doute des tucs non documentés.
18/05/2009, 13h45
ero-sennin

Citation:

Envoyé par yarp

J'ai trouvé la solutions dans les examples CBuilder. Il y avait un exemple avec Word.
Le gros avantage de IDispatch c'est que ça fonctionne avec pleins de trucs.

OK, ba je crois que la on en a une belle démontration.

Citation:

Envoyé par yarp

Par contre effectivement au niveau customization (comme les image sélectionnées) cela dépends de l'interface. Il faut regarder dans le MSDN ce qu'il y a. Et je ne me rappelle pas avoir vu grand chose. Sans doute des tucs non documentés.

Oué, enfin là, c'est pas trop le principal ;) Je suis déjà super content d'avoir mes images dans l'interface, après, le reste, c'est du chipotage ... bien que ça serait bien utile quand même ;)
18/05/2009, 13h50
yarp

moi aussi je suis super content :D
18/05/2009, 16h15
blondelle

Bravo a vous deux, je n'aurais pas trouve, par curiosite j'ai teste le code et j'ai une erreur sur la ligne

Citation:

wzd.Exec(Procedure("ShowPhotoPrintingWizard") << vct);

Je pense que je n'ai pas le programme "ShowPhotoPrintingWizard", je pose la question bete ou trouver ce programme :aie:
Encore une fois bravo et merci pour la lecon de programmation :king:
18/05/2009, 16h37
yarp
Il faut installer la dll wiauut.dll qui se trouve dans le SDK (copier dans System32 et installer avec RegSrv32). C'est en fait un ActiveX (WIA automation).
Dans le cas ou l'ActiveX n'est pas installé, il doit y avoir moyen de le détecter. Mais le code ci-dessus est bien entendu simplifié, il faut toujours controler les appels faits à des Libraries, fonctions, API.
Dans le cas présent, un exemple plus sophistiqué dans les exemples CBuilder cmontre comment faire (exemple OleWord2).
Je me suis contenté de catchs:
Code:

1 2 3 4 5 6 try { wzd = CreateOleObject("WIA.CommonDialog") } catch(...) { }
C'est bête mais finalement je ne vais pas m'en servir. Le wizard ne prends que les fichiers dont le format est reconnu par WIA, je pensais qu'il afficherait au moins les icones. Domage.
18/05/2009, 17h08
totoche76

Citation:

Envoyé par blondelle

Bravo a vous deux, je n'aurais pas trouve, par curiosite j'ai teste le code et j'ai une erreur sur la ligne

Je pense que je n'ai pas le programme "ShowPhotoPrintingWizard", je pose la question bete ou trouver ce programme :aie:
Encore une fois bravo et merci pour la lecon de programmation :king:

Quelle erreur ?
18/05/2009, 17h23
yarp

Quand lobject n'est pas installé IDispatch déclenche une exception quand on appel la classe. Cette erreur n'apparait qu'en mode Debug (en tout cas chez moi), c'est un message en clair disant qu'il ne connait pas la classe.
18/05/2009, 17h44
totoche76

En effet !

Je demande ça, car sous BCB2007, ça a été le festival:
- "Invalid class string" - Normal, tant que le regsvr32 n'a pas été fait
- Violation d'accès lors de l'appel à Exec (nouveauté Builder 2007/2009)
- Erreur "Files must be a pathname to a valid image file or a vector of pathnames...", corrigé par

Code:

vct.Exec(Procedure("Add") << AnsiString("C:\\toto.jpeg"));

Mais au final, ça marche tip top (j'aurais jamais pensé à utiliser cet assistant d'impression sans ce thread ! :D )
18/05/2009, 18h00
blondelle

Sur cette ligne

Citation:

wzd.Exec(Procedure("ShowPhotoPrintingWizard") << vct);

l'erreur est le fichier specifie est introuvable

comme explique dans le SDK j'ai copie

Citation:

Copy the wiaaut.chm and wiaaut.chi files to your Help directory (usually located at C:\Windows\Help)
Copy the wiaaut.dll file to your System32 directory (usually located at C:\Windows\System32)
From a Command Prompt in the System32 directory run the following command:

RegSvr32 WIAAut.dll

y a t'il autre chose a faire
18/05/2009, 18h07
ero-sennin

Bonsoir Blondelle,

Citation:

Envoyé par blondelle

Sur cette ligne

l'erreur est le fichier specifie est introuvable

comme explique dans le SDK j'ai copie

y a t'il autre chose a faire

Il n'y a que cela à faire, ni plus ni moins. Yarp nous a montré comment faire le reste ;)

Tiens pour ceux que ça intéresse de visionner directement un fichier image avec l'aperçu Windows :
Code:

1 2 3 4 void __fastcall TForm1::Button2Click(TObject *Sender) { ShellExecute(0,"open","rundll32.exe","C:\\WINDOWS\\System32\\shimgvw.dll,ImageView_Fullscreen C:\\Test\\test.jpg",NULL,SW_NORMAL); }
Testé et fonctionnel ;)

18/05/2009, 19h18
blondelle

Le code fonctionne correctement l'erreur etait dans l'extension d'une image jpeg au lieu de jpg.
Juste une question qui me vient comme cela cet utilitaire permettrait'il d'imprimer une image d'une WebCam ou d'un Scanner, avec le code necessaire bien sur
18/05/2009, 19h37
ero-sennin

D'après ce que j'ai pu lire, il est possible d'acquérir des images provenant de Webcam ou de scanner :

Les méthodes à utiliser doivent être celles-ci :

Citation:

ShowAcquireImage :
Displays one or more dialog boxes that enable the user to acquire an image from a hardware device. Returns an ImageFile object on success, otherwise Nothing

ShowSelectDevice :
Displays a dialog box that enables the user to select a hardware device for image acquisition. Returns the selected Device object on success, otherwise Nothing.

ShowAcquisitionWizard
Starts the Scanner and Camera Wizard. Returns Nothing.

Tout est décrit dans le wiaaut.chm du dossier contenant le SDK :)

A voir :)

Je viens de trouver comment utiliser Ole et Wia
Le code

Code:

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
27
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant wzd, vct;
wzd = Variant::CreateObject("WIA.CommonDialog");
vct = Variant::CreateObject("WIA.Vector");
vct.OleProcedure("Add", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelier.jpg");
vct.OleProcedure("Add", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\YourBmpHere.bmp");
wzd.OleProcedure("ShowPhotoPrintingWizard", vct);
wzd = Unassigned;
vct = Unassigned;
}
//---------------------------------------------------------------------------

Cela ressemble plus a ce que l'on utilise avec Excel Word ..., ca va peut etre donner des idees tout ca :mrgreen:

Citation:

Envoyé par blondelle

Je viens de trouver comment utiliser Ole et Wia
Le code

Code:

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
27
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant wzd, vct;
wzd = Variant::CreateObject("WIA.CommonDialog");
vct = Variant::CreateObject("WIA.Vector");
vct.OleProcedure("Add", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelier.jpg");
vct.OleProcedure("Add", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\YourBmpHere.bmp");
wzd.OleProcedure("ShowPhotoPrintingWizard", vct);
wzd = Unassigned;
vct = Unassigned;
}
//---------------------------------------------------------------------------

Cela ressemble plus a ce que l'on utilise avec Excel Word ..., ca va peut etre donner des idees tout ca :mrgreen:

Elles sont là mes OleProcedure!! Je me doutais bien que c'était possible par ce biais (pas pour autant que j'avais trouvé :aie:) :king:

Voir 40 message(s) de cette discussion en une page