[volondevorg]

Доброе время суток. Не получается отпечатать содержимое с Image1.Canvas на принтере Samsung ML-1250, а нужно будет печатать на любом цветном с хорошим качеством, для начала Epson C110. Раньше не разу не натыкался на сборничек литературы располеженный 'здесь' - богатая подборка, только 'время' - пока не успел перелопатить. В интернете предлагают либо очень сложно, либо однообразно - в этом вроде все перепробовал. Валентин Озеров и осталные интернет материалы как подручный материал, 'поиск' всегда рулит, но не отвечает на конкретные вопросы, поэтому пост:

Printer.Canvas.TextOut - печатается нормально
при заполнении Printer.Canvas напрямую *.bmp файлом - тоже нормально

при попытке Printer.Canvas заполнить из Image1.Canvas вываливается External Exception C0000008 - чей это Invalid Handle, принтера? Жму в среде кнопку Run - не помогает, Stop - завершаю приложение, сразу идет сигнал на принтер и вылезает чистый лист, минуты через 3 когда видимо Win отрубает зависшие процессы вылезает второй лист с содержимым, не могу разобрать:

PCL6 ERROR - Incomplete Session by time out // PCL6 это драйвер моего принтера
POSITION : 0xcf (207) // хорошо или плохо?
SYSTEM : GP/os_hook // понятно что hook, а что за 'GP', причем старше чем 'os'?
LINE : 1710 // это много или мало? это принтерные пиксельные строки что ли?
VERSION : PCL6 3.00 09-14-2001

// на лист вроде помещается, пробовал и уменьшать, и рамочку контрольную печатал
// далее собственно вырезка из набросков, ощибок компилятор не дает
// целиковый Unit1.pas во вложенном Unit1.pas.txt

Код:

var
  Form1: TForm1;
  PRect: Trect;
  PBitMap: TBitmap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  PBitmap:=TBitMap.Create;				// это все пробы
  PBitmap.LoadFromFile('card.bmp');		// это все пробы
  with PRect do begin
    left:=0;
    top:=0;
    right:=Printer.PageWidth;
    Bottom:=Printer.PageHeight;
  end;

  with Printer do begin
    BeginDoc;							// что за скобки такие, как бы просто послать поток, если не сложно
    Font.Name:='Arial';
    Title:='Карты. Лист 1.';
										// Image1.Canvas заполняю отдельной процедурой
    Canvas.Draw(3,3,Image1.Picture.Bitmap);			// МЕСТО ЗЛОЩАСТНОЙ СТРОЧКИ, тоже не работает
    
//  Printer.Canvas.TextOut(100,100,'Это текст принетра');					// это работает
//  Canvas.StretchDraw(PRect,Image1.Picture.Graphic );						// это все не работает
//  Printer.Canvas.StretchDraw(Canvas.ClipRect, Image1.Picture.Graphic);	// это все не работает
//  with Image1.Picture.Bitmap do											// это все не работает
//   Printer.Canvas.CopyRect(Rect(0,0,Height,Width),Canvas,Rect(0,0,Height,Width));

    EndDoc;				// ну до сюда дело не доходит, поэтому и печать после закрытия приложения
  end;
  
  PBitmap.Free;
end;

Admin: Пользуемся тегами!

[lmikle]

На форуме борланда (теперь эмкакадеро) брал юнит, который ПРАВИЛЬНО печатает картинки на принтере. Там производится преобразование в DIB и тогда, вроде, никаких таких глюков не происходит. А при прямой отрисовке на канве принтера действительно, может не печататься. При этом особенно чуствительны именно цветные принтеры. Видимо, это связано с несовпадением палитр устройст (самого принтера и картинки), хотя как это понять, когда картинка TrueColor, я не знаю.

[PhoeniX]

В Borland Delphi 7 писал именно таким методом, всё работало...