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
Version imprimable
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
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 :
Après je bloque. Je ne sais pas trop quoi lui donner :roll:Code:Vector.Item(0)
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!Citation:
Vector.Items.add([...])
je continue à chercher!
NABIL74
Ah oui, j'étais entrain de voir un truc sur les properties ... avec ce code :
Code:
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
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:ça n'a pas marché!Code:
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;
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 :aie:).
Allé, j'essaie encore ;)
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