[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);

[YVitaliy]

Так любая канва его может печатать на себе без доработок
Можно печатать таким способом:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var bmp:TBitMap;
begin
  bmp:=TBitMap.Create;
   try
    bmp.Width:=BarCode1.Width;
    bmp.Height:=BarCode1.Height;
    bmp.Canvas.CopyRect(rect(0,0,bmp.Width,bmp.Height),BarCode1.Canvas ,
                        rect(0,0,BarCode1.Width,BarCode1.Height));
    //printer.PrinterIndex:=1;
    printer.BeginDoc;
    printer.Canvas.Draw(0,0,bmp);
    printer.EndDoc;
   finally
     bmp.Free;
   end;
end;

Но версия с TPanel, возможно, более "компактна" в плане кода.

[poli-smen]

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

Так любая канва его может печатать на себе без доработок
Можно печатать таким способом:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var bmp:TBitMap;
begin
  bmp:=TBitMap.Create;
   try
    bmp.Width:=BarCode1.Width;
    bmp.Height:=BarCode1.Height;
    bmp.Canvas.CopyRect(rect(0,0,bmp.Width,bmp.Height),BarCode1.Canvas ,
                        rect(0,0,BarCode1.Width,BarCode1.Height));
    //printer.PrinterIndex:=1;
    printer.BeginDoc;
    printer.Canvas.Draw(0,0,bmp);
    printer.EndDoc;
   finally
     bmp.Free;
   end;
end;

Но версия с TPanel, возможно, более "компактна" в плане кода.

Версия с TPanel лучше не потому что компактнее, а потому что будет работать даже если эта панель перекрыта (полностью или частично) другим окном и даже если будет находиться на скрытой форме. А вот с обычным копированием одной канвы на другую в таких случаях фокус не пройдёт.

Но вообще лучше доработать компонент, чтобы он мог выводить штрих-код на произвольную канву, тогда можно будет вывести например в метафайл, а уже с этим метафайлом можно творить что угодно без потери качества (в отличие от TBitmap).

[aqula]

Спасибо ребят.
Первые трудности.
По методу Poli-smen'a у меня появляется ошибка при компиляции и при запуске процедуры
.
Project Project.exe raised exception class Eprinter with message "Printer is not currently printing". Process stopped. Use Step or Run to continue.

А по методу YVitaliy

Картинка получается не четкой и маленькой
Как это можно исправить. Тут можно найти pdf примера печати. http://www.aqula.ru/barcode.pdf
Как можно почетче распечатать и без ошибок?

[poli-smen]

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

Спасибо ребят.
Первые трудности.
По методу Poli-smen'a у меня появляется ошибка при компиляции и при запуске процедуры
.
Project Project.exe raised exception class Eprinter with message "Printer is not currently printing". Process stopped. Use Step or Run to continue.

А ты делаешь перед этим "Printer.BeginDoc", а после этого "Printer.EndDoc"?

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

А по методу YVitaliy

Картинка получается не четкой и маленькой
Как это можно исправить.

Непонятно почему у тебя так плохо пропечаталось. У меня по методу YVitaliy нормально печатается (главное чтобы при печати компонента со штрих-кодом не была перекрыта чем либо).
А чтобы увеличить масштаб - вместо Draw используй StretchDraw.

И повторю ещё раз что идеальнее всего было бы доделать этот компонент, чтобы он мог пропечатывать штрих-код на произвольной канве.

[aqula]

Сообщение от poli-smen

А ты делаешь перед этим "Printer.BeginDoc", а после этого "Printer.EndDoc"?

Да про бегин и энд я забыл. Добавил - стал печатать. Вот распечатал в пдф вашим методом.
http://www.aqula.ru/barcode1.pdf

Сообщение от poli-smen

Непонятно почему у тебя так плохо пропечаталось. У меня по методу YVitaliy нормально печатается (главное чтобы при печати компонента со штрих-кодом не была перекрыта чем либо).

Что касается перекрываний вот моя формочка.
Вроде ничем не перекрывается.

Сообщение от poli-smen

И повторю ещё раз что идеальнее всего было бы доделать этот компонент, чтобы он мог пропечатывать штрих-код на произвольной канве.

Я не совсем понимаю что такое канва. А сейчас он как пропечатывает? Как масштабирует на листе? Видать что мне это будет сложно доделать.