| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемы с печатью [D7, WinXP]

Woolen ©   (2004-12-22 16:28:00) 

Работаю с GDI+. Пробовал печатать, как написано у Microsoft, получая графикс из контекста устройства принтера - не получается. Пробовал так:
if GdipLoadImageFromFile(PWideChar(WideString(
     DiskFiles[DocNum].Files[ImageNum])),LocImg) = gdipOk then
     begin
     if GdipGetImageWidth(LocImg,ImgWidth) = gdipOk then
       if GdipGetImageHeight(LocImg,ImgHeight) = gdipOk then
         begin
         Bmp := TBitmap.Create;
         if (Printer.PageWidth / Printer.PageHeight) >
           (ImgWidth / ImgHeight)
           then
           begin
           InnerHeight := Printer.PageHeight - 1;
           InnerWidth := Trunc(ImgWidth / ImgHeight *
             InnerHeight);
           end
         else
           begin
           InnerWidth := Printer.PageWidth - 1;
           InnerHeight := Trunc(ImgHeight / ImgWidth *
             InnerWidth);
           end;
         Bmp.Width := InnerWidth;
         Bmp.Height := InnerHeight;
         GdipCreateFromHDC(Bmp.Canvas.Handle,LocGraph);
         if GdipDrawImageRectI(LocGraph,LocImg,0,0,Bmp.Width,
           Bmp.Height) = gdipOk then
           begin
           Printer.Canvas.CopyMode := cmSrcCopy;
           Printer.Canvas.Draw(0,0,Bmp);
           Printer.Canvas.TextOut(100,100,'test');
           Result := True;
           end;
         GdipDeleteGraphics(LocGraph);
         end;
     GdipDisposeImage(LocImg);
     end;
Не получается. На виртуальных принтерах MS Imaging System, Adobe Acrobat - два пустых листа. На сетевом HP LJ 4100  - вообще никаких телодвижений. Что это может быть?
Спасибо.

---

Woolen   (2004-12-24 15:52:00) [1]

if GdipDrawImageRectI(LocGraph,LocImg,0,0,Bmp.Width,
       Bmp.Height) = gdipOk then
       begin
       Bmp.PixelFormat := pf24bit;//Все дело в этой строчке
       Printer.Canvas.Draw(0,0,Bmp);
       Result := True;
       end;
Причем, если мы формат пикселя поставим заранее, при установке высоты и ширины растра, то будет то же, что и было, то есть Draw работает на разных канвасах, но не на канвасе принтера.

---

Japp   (2004-12-24 14:41:00) [2]

Иногда рисунки не печатаются при включеном черновом режиме печати....

---

Woolen   (2004-12-24 11:32:00) [3]

Со вторым листом разобрался. А по поводу отсутствия вывода изображения никто не знает? Самое главное, что попиксельно выводится. Draw на форме срабатывает. Сохраняешь битмап в файл - он совершенно нормальный, такой как и должен быть. А на принтере ни как. Подскажите кто-нибудь, что можно сделать?

---

Наверх