VPF::печать графических файлов - Форум программистов

Petro123

Дата 18.9.2009, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Возникла необходимость распечатывать графичекие файлы(н-р jpg). С возможностью предварителного просмотра. Полазил по форуму, но дельного ничего не нашел.
В голову пришли следующие способы:
1. Использовать ShellExecute(application.Handle, 'print', PChar('C:\1.bmp'), nil, nil, SW_SHOW);
Но почему то не печатает, а просто выводит в окно просмотра.
2. Использовать Rave Report, но объект BitMap растягивает изображение, а нужен реальный размер.
3. Сохранять на канве (например формы) и оттуда печатать. Но не нравится тем, что предварительный просмотр будет не стандартный.
Какие варианты обычно используются для этой цели

former

Дата 18.9.2009, 10:56 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Petro123, а если так?

Код


uses 
  Printers; 

procedure PrintBitmap(aGraphic: TGraphic; Title: string); 
begin 
  Printer.Title := Title; 
  Printer.BeginDoc; 
  Printer.Canvas.Draw(0, 0, aGraphic); 
  Printer.EndDoc;
end;

Для Jpeg будет выглядеть вот так:

Код


uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var Img:TJpegImage;
begin
  Img:=TJpegImage.Create;
  try
    Img.LoadFromFile('Твой файл.jpg');
    PrintBitmap(Img,'Пример');
  finally
    Img.Free;
  end;
end;

procedure TForm1.PrintBitmap(aGraphic: TGraphic; Title: string);
begin
  Printer.Title := Title;
  Printer.BeginDoc;
  Printer.Canvas.Draw(0, 0, aGraphic);
  Printer.EndDoc;
end;

Это сообщение отредактировал(а) former - 18.9.2009, 11:19

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Petro123

Дата 18.9.2009, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Ну так то работает, только уменьшает изображение
да и предварительный просмотр еще бы прикрутить...

former

Дата 18.9.2009, 15:04 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Цитата(Petro123 @ 18.9.2009, 12:20

)

Ну так то работает, только уменьшает изображение

Цитата(Petro123 @ 18.9.2009, 09:59

)

растягивает изображение, а нужен реальный размер.

Тебе не угодишь. То растягивает изображение, то уменьшает.

Цитата(Petro123 @ 18.9.2009, 12:20

)

да и предварительный просмотр еще бы прикрутить...

Да пожалуйста. Я вообще думаю, что тебе лучше использовать компоненты JvPreviewControl, JvPreviewRenderGraphics и JvPreviewPrinter из библиотеки JEDY.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Petro123

Дата 21.9.2009, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »