Discussion :

[NABIL74]

Au faite ero, t'as trouvé quelle commande permettra de sélectionner toutes les images lors du lancement de l'assistant?
j'ai essayé d'ajouter des propriétés dans "ShowPhotoPrintWizard" mais ça bloque toujours.

NABIL74

[ero-sennin]

Je suis actuellement entrain de regarder via les properties des items mais il n'y a pas beaucoup d'infos dessus.

Dans le zip contenant la dll, il y a un fichier d'aide qui est pas trop mal pour avoir l'essentiel des méthodes ...
Je cherche du coté de :

Code :

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

Vector.Item(0)

Après je bloque. Je ne sais pas trop quoi lui donner

[NABIL74]

oui c'est très peu documenté.
moi aussi, j'ai essayé de faire:

Vector.Items.add([...])

mais mon pc a bloqué et j'étais obligé de le redémarrer à chaque fois!
je continue à chercher!

NABIL74

[ero-sennin]

oui c'est très peu documenté.
moi aussi, j'ai essayé de faire:mais mon pc a bloqué et j'étais obligé de le redémarrer à chaque fois!
je continue à chercher!

NABIL74

Ah
Je cherche encore un peu également.
Bon courage.
Je reviendrais ici y mettre la solution si jamais je la trouve.

Ero

[NABIL74]

Ah
Je cherche encore un peu également.
Bon courage.
Je reviendrais ici y mettre la solution si jamais je la trouve.

Ero

ok ero, je te tiendrai au courant s'il y a du nouveau.


NABIL74

[ero-sennin]

Ah oui, j'étais entrain de voir un truc sur les properties ... avec ce code :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
'The following example shows how to display the Item Properties dialog box for the selected item.
Dim dev 'As Device
Dim itms 'As Items
Dim itm 'As Item
 
Set dev = CommonDialog1.ShowSelectDevice
Set itms = CommonDialog1.ShowSelectItems(dev, UnspecifiedIntent, _
                                         MaximizeQuality, True)
Set itm = itms(1)
CommonDialog1.ShowItemProperties itm

A voir ... mais apparemment, c'est uniquement sur les items sélectionnés, donc ça risque de ne servir à rien

[NABIL74]

les développeurs en vb, on beaucoup de support concernant les wizards de windows, ce qui n'est pas le cas en delphi.on a peu de documentations.
tu sais ero, ça fais longtemps que je n'ai pas développé en VB,j'ai oublié beaucoup de choses car je me suis converti en delphi.
moi aussi, j'ai essayé de faire une capture pour prendre une photo avec ma webcam.j'ai trouvé ça:

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
Var
DevMgr: IdeviceManager;
Webcam: Idevice;
Picture: Iitem;
Image: OleVariant;
AImage: IimageFile;
begin
DevMgr := CreateOleObject('WIA.DeviceManager') as IDeviceManager;
 
Webcam := DevMgr.DeviceInfos.Item[1].Connect;
 
//Commande: Prendre des photos
Picture := Webcam.ExecuteCommand ( Webcam.Commands.Item[1].CommandID
) ;
 
//Transfert JPG
Image := Picture.Transfer(Picture.Formats.Item[1]) ;
 
//Sauvegarde de l'image
AImage := IImageFile(Image);
AImage.SaveFile('c:\wia_webcam.' + AImage.FileExtension);
end;

ça n'a pas marché!

[ero-sennin]

Oui ... c'est vrai que niveau support, de ce coté là, c'est pas la joie.
Je n'ai pas fait de VB (ah, si, une calculatrice ).

Allé, j'essaie encore

[NABIL74]

on continue à essayer jusqu'à ce qu'on trouve la solution.
une chose est sûre, on passera toujours par un code en vb ou en C++ pour pouvoir trouver une solution.

je te tiendrai au courant ero.

a+

NABIL74