[aqula]

Рябят помогите плиз. Запутался.
Я тут пытаюсь распечатать штрих-код.
Скачал barcode.pas
Прикрутил юнит.
Теперь хочу его вывести на принтер
Пытаюсь так

Код:

Printer.BeginDoc;
Printer.Canvas.Draw(0, 0, BarCode1);
Printer.EndDoc;

Пишет
[Error] Unit1.pas(52): Incompatible types: 'TGraphic' and 'TBarCode'
Хочет чтоб графический был, а лучше битмап.
Но по сути он и есть битмап только уже в виде объекта.

[poli-smen]

Сообщение от aqula

Рябят помогите плиз. Запутался.
Я тут пытаюсь распечатать штрих-код.
Скачал barcode.pas
Прикрутил юнит.
Теперь хочу его вывести на принтер
Пытаюсь так

Код:

Printer.BeginDoc;
Printer.Canvas.Draw(0, 0, BarCode1);
Printer.EndDoc;

Пишет
[Error] Unit1.pas(52): Incompatible types: 'TGraphic' and 'TBarCode'
Хочет чтоб графический был, а лучше битмап.
Но по сути он и есть битмап только уже в виде объекта.

Нет. Если бы он действительно был TBitmap, то в этом месте не ругался бы.

[aqula]

Тогда получается его надо преобразовать или сохранить в этот TBitmap или TGraphic?
Как бы это сделать?

[poli-smen]

Сообщение от aqula

Тогда получается его надо преобразовать или сохранить в этот TBitmap или TGraphic?
Как бы это сделать?

Тебе нужно либо прочитать документацию на этот объект, либо поизучать файл barcode.pas. У меня нет ни того ни другого, поэтому единственное что я мог по поводу этой ошибки написать, я уже написал выше.

p.s. Вообще нет такого понятия как "Печать объекта", так как "объект" это абстрактное понятие, его невозможно увидеть. А раз невозможно увидеть, то и распечатать тоже невозможно.

[aqula]

Согласен. Тут правильнее было бы сказать "печать компонента".
Вот сам barcode.pas
_http://www.delphisources.ru/pages/sources/raznoe/2007_year/barcode39.html
И мне его надо напечатать на бумаге. Помоги.

[aqula]

многие говорят надо преобразовать в битмап и можно сделать что-то типа этого

Код:

uses
  Printers;
...
Printer.BeginDoc;
try
  Printer.Canvas.Draw (PosX, PosY, FBarcodeBitmap);
finally
  Printer.EndDoc;
end;

А как это делается? Сложновато для меня. Помогите плиииз.

[poli-smen]

Сообщение от aqula

Согласен. Тут правильнее было бы сказать "печать компонента".
Вот сам barcode.pas
_http://www.delphisources.ru/pages/sources/raznoe/2007_year/barcode39.html
И мне его надо напечатать на бумаге. Помоги.

Посмотрел я этот компонент.
К сожалению он не позволяет рисовать себя на произвольной канве без соответствующей доработки.
Однако его можно распечатать обходным путём:
Положи на форму панель (TPanel) и на эту панель кинь этот компонент (TBarCode). Теперь можно распечатывать на принтере эту панель со всем её содержимым следующим образом:

Код:

Panel1.PaintTo(Printer.Canvas, 10, 20);