ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод на печать Jpeg-картинки
4 сообщений из 4, страница 1 из 1
Вывод на печать Jpeg-картинки
    #32145153
Lanka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lanka
Гость
Подскажите, пожалуйста, как вывести на принтер Jpeg-картинку из TImage!.. Насколько смогла разобраться, ее нужно вначале конвертировать в bmp, но как?
...
Рейтинг: 0 / 0
21.04.2003, 15:13
| Ответить | Цитировать | Написать  
Вывод на печать Jpeg-картинки
    #32145442
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
если через QReport, то я делаю так:

procedure TForm1.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);

var myblobstream: TADOBlobStream;
myjpeg: TJPEGImage;
begin
tEmployees.Edit;
myblobstream := TADOBlobStream.Create(tEmployeesPhoto, bmRead);
myjpeg := TJPEGImage.Create;
try
myjpeg.LoadFromStream(myblobstream);

Image1.Visible:=True;
Image1.Picture.Bitmap.Assign(myjpeg);
finally
myjpeg.Free;
myblobstream.Free;
end;


end;
...
Рейтинг: 0 / 0
21.04.2003, 20:20
| Ответить | Цитировать | Написать  
Вывод на печать Jpeg-картинки
    #32145443
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
если через QReport, то я делаю так:

procedure TForm1.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);

var myblobstream: TADOBlobStream;
myjpeg: TJPEGImage;
begin
tEmployees.Edit;
myblobstream := TADOBlobStream.Create(tEmployeesPhoto, bmRead);
myjpeg := TJPEGImage.Create;
try
myjpeg.LoadFromStream(myblobstream);

Image1.Visible:=True;
Image1.Picture.Bitmap.Assign(myjpeg);
finally
myjpeg.Free;
myblobstream.Free;
end;


end;
...
Рейтинг: 0 / 0
21.04.2003, 20:24
| Ответить | Цитировать | Написать  
Вывод на печать Jpeg-картинки
    #32145705
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_e
Участник
Например так:
Код: plaintext
1.
2.
3.
4.
5.
6.
var BMP: TBitMap;
begin
   BMP:= TBitMap.Create;
   BMP.Assign(Image1.Picture.Graphic);
   ...
   BMP.Free;
end;
...
Рейтинг: 0 / 0
22.04.2003, 10:52
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод на печать Jpeg-картинки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]