Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Мастер печати фотографий 
V
    Опции темы
lorents
Дата 3.1.2009, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 548
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
Скажите как вызвать эту функцию?

user posted image


--------------------
Image Catalyst
PM MAIL   Вверх
Akella
Дата 3.1.2009, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Запусти WinAPI монитор. Запусти мастер печати и поищи функцию. Лично пока я не знаю, что ещё посоветовать. Ну погуглить ещё можно.
PM MAIL   Вверх
Rrader
  Дата 4.1.2009, 09:45 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Цитата(MSDN)

Photos are printed using the Windows XP Photo Printing Wizard... The wizard is implemented in the system file photowiz.dll but the custom interface is not exposed. Instead, the Windows Image Acquisition Library (WIA) from Microsoft is used that provides a COM wrapper for the printing wizard.

Библиотеку качаем отсюда. Установка как и для любого COM-сервера: RegSvr32 WIAAut.dll. После установки появятся новые классы, их можно использовать вот так, например:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActiveX, ComObj, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create;
  with List do
  try
    Append('C:\WINDOWS\Штукатурка.bmp');
    Append('C:\WINDOWS\Рододендрон.bmp');
    ShowPhotoPrintWizard(List);
  finally
    Free;
  end;
end;

end.


Это сообщение отредактировал(а) Rrader - 4.1.2009, 11:54


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
lorents
Дата 4.1.2009, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 548
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
Rrader, Спасибо, выручил!


--------------------
Image Catalyst
PM MAIL   Вверх
lorents
Дата 6.3.2009, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 548
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
а на Windows 2000 и Windows 98 SE будет работать?


--------------------
Image Catalyst
PM MAIL   Вверх
lorents
Дата 7.3.2009, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 548
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
блин не поддерживает Windows 2000 и Windows 98 SE и даже нет информации что поддержит Vista
может кто знает как отправить несколько несколько фотографий на печать чтобы были примерно такие же функции как в Мастере печати фотографий?


--------------------
Image Catalyst
PM MAIL   Вверх
Rrader
  Дата 7.3.2009, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
lorents, Minimum operating systems Windows XP SP1. Vista поддерживается


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
lorents
Дата 7.3.2009, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 548
Регистрация: 2.4.2008

Репутация: нет
Всего: нет
Rrader,
ты не знаешь какую нибудь другую библиотеку через которое можно реализовать функцию печать нескольких картинок, но чтобы через диалоговое окно печати?


--------------------
Image Catalyst
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0561 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.