Bonjour,
Je souhaite utiliser l'assistant Photograhie Windows pour imprimer des photos sélectionnées via mon programme.
J'ai réussi, avec l'aide de NABIL74 de le faire sous Delphi.
La discussion se trouvant ici
Voici le code de NABIL74 (merci à lui) :
Code delphi : 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 uses ActiveX, ComObj, StdCtrls; procedure ShowPhotoPrintWizard(Files: TStringList); var I: Integer; CommonDialog: OleVariant; Vector: OleVariant; begin if not Assigned(Files) then Exit; CommonDialog := CreateOleObject('WIA.CommonDialog'); Vector := CreateOleObject('WIA.Vector'); for I := 0 to Files.Count - 1 do Vector.Add(Files[i]); CommonDialog.ShowPhotoPrintingWizard(Vector); Vector := Unassigned; CommonDialog := Unassigned; end;
Utilisation :
Code delphi : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button2Click(Sender: TObject); var List: TStringList; begin List := TStringList.Create; with List do try Append('D:\image 3.jpg');//la 1ère photo Append('D:\4.jpg');//la 2ème photo ShowPhotoPrintWizard(List); finally Free; end; end;
Je n'arrive pas à invoquer CommonDialog et Vector
Quelqu'un peut-il m'aiguiller ?
Merci![]()
Partager