如何显示 Windows 照片打印向导？答案

【问题标题】：How do I show the Windows photo-printing wizard?如何显示 Windows 照片打印向导？
【发布时间】：2013-03-26 18:18:44
【问题描述】：

找到了VB函数ShowPhotoPrintingWizard：

CommonDialog.ShowPhotoPrintingWizard( _
  ByVal Files As VARIANT _
) As HRESULT

如何在 Delphi 中调用它或获得等效功能？我正在使用 Delphi 2010。

【问题讨论】：

标签： delphi wia

【解决方案1】：

我认为单个文件可能是这样的：

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  CommDlg: OleVariant;
begin
  CommDlg := CreateOleObject('WIA.CommonDialog');
  CommDlg.ShowPhotoPrintingWizard('d:\Image.jpg');
end;

或类似的多个文件：

procedure TForm1.Button1Click(Sender: TObject);
var
  Files: OleVariant;
  CommDlg: OleVariant;
begin
  CommDlg := CreateOleObject('WIA.CommonDialog');
  Files := CreateOleObject('WIA.Vector');
  Files.Add('d:\Image 1.jpg');
  Files.Add('d:\Image 2.jpg');
  CommDlg.ShowPhotoPrintingWizard(Files);
end;

【讨论】：

@Andreas，谢谢！我最初在CommonDialog 方法列表中选择了与Wizard 匹配的第一个。真丢人！ :-)
如果您将图像作为 TBitmaps 可以使用打印向导吗？也许是另一个问题？
不，ShowPhotoPrintingWizard 方法只接受文件，而不接受任何类型的流，因此您必须将 TBitmap 图像保存到文件中。是的，这应该是一个单独的问题;-)