Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

термо-принтер 


МАРАТ   (2002-01-23 09:27) [0]

Мастера!
У меня такой вопрос, у меня есть рисунок (созддается в процессе программы) на компоненте Image1 и т.д., как мне его послать на печать (термо-принтер BZB-2).



Фэ   (2002-01-23 10:54) [1]

Printer.BeginDoc;
DrawImage(Printer.Canvas, Rect(0, 0, printer.pagewidth, printer.pageHeight), Image1.Picture.Bitmap);
Printer.EndDoc;

Для сохранения пропорций надо вычислить правильные width и height.
Если у термопринтера есть драйвер под Win - то все в порядке.
Если нет, то придется разлагать картинку по линиям и посылать raw-поток на принтер в соответствии с его системой команд.



МАРАТ   (2002-01-23 12:10) [2]

Фэ !
Дельфи ругается что неопределен
DrawImage



Фэ   (2002-01-23 15:04) [3]

Правильно делает, что ругается.

Определи его вот так

procedure DrawImage(Canvas: TCanvas; DestRect: TRect; ABitmap: TBitmap);
var
Header, Bits: Pointer;
HeaderSize: Integer;
BitsSize: Longint;
begin
GetDIBSizes(ABitmap.Handle, HeaderSize, BitsSize);
Header := MemAlloc(HeaderSize);
Bits := MemAlloc(BitsSize);
try
GetDIB(ABitmap.Handle, ABitmap.Palette, Header^, Bits^);
StretchDIBits(Canvas.Handle, DestRect.Left, DestRect.Top,
DestRect.Right, DestRect.Bottom,
0, 0, ABitmap.Width, ABitmap.Height, Bits, TBitmapInfo(Header^),
DIB_RGB_COLORS, SRCCOPY);
finally
MemFree(Header, HeaderSize);
MemFree(Bits, BitsSize);
end;
end;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
3-57615           sysoper               2002-03-28 07:10  2002.04.18  
Ошибка в IB5.6 +Win2000 server+sp2


1-57823           Ученики СШ51          2002-04-06 09:41  2002.04.18  
Убрать из...


1-57795           Maxim Homutov         2002-04-06 12:06  2002.04.18  
Продлема с БПФ


1-57763           Stexen                2002-04-04 22:11  2002.04.18  
TStream!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1


1-57724           kjj                   2002-04-08 10:09  2002.04.18  
Как отсортировать массив?