Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: разработка для Web > Формирование PDFдокумента из скрипта


Автор: Tanuxx 4.3.2008, 08:42
Формирую PDF документ, а текст на вторую страницу вывести не могу!!!! Подскажите, надоело  хуже керосину :((((((

Автор: ginnie 4.3.2008, 08:52
Tanuxx,  а можно еще раз, но поподробнее?

Автор: Tanuxx 4.3.2008, 08:57
use PDF::API2;

......
$pdf = PDF::API2->new;

$fnt = $pdf->corefont('Verdana', -encode => 'cp1251');
$fntb = $pdf->corefont('Verdana-Bold', -encode => 'cp1251');

$page = $pdf->page;
$page->mediabox('A4');

$gfx->textlabel($xmin+$bleft, $ymin-$btop-$delta*$j, $fnt, 12, 'something');

 все пока в порядке, документ создается, текст выводится...

Добавляю страницу
$pdf->page();
$gfx1 = $page->gfx;
$gfx1->textlabel($xmin+$bleft, $ymin-$btop, $fnt, 12, '123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
в результате текст тоже на первой странице, а вторая пустая
ну надоело, не понимаю..... или день такой, или я не знаю кто :(

Автор: ginnie 4.3.2008, 12:03
Может не

Код

$pdf->page();


а

Код

$page = $pdf->page();

Автор: Tanuxx 4.3.2008, 12:39
Уважаемый Шустрый!!!!! Благодарность моя не знает границ, с утра сидела тупо глядя в экран smile)))!!!!

Автор: ginnie 4.3.2008, 12:44
Шустрый - это характеристика, а зовут меня ginnie  smile Рад был помочь!

Автор: tema_4uvak 13.3.2008, 03:19
Я не совсем по теме, но так как возможно совсем не по теме не хотел создавать новую тему, чтобы не засорять форум.

Мне нужно из имеющегося midi-файла сформировать pdf документ в котором будут ноты. (ведь в миди по сути записаны дорожки к каждому инструменту и у каждого инструмента свои ноты). Также в конечном результате можно иметь не pdf а что-нибудь, чтобы вывести это на страничку в browser.

Вопрос1: Возможно ли это вообще сделать посредством Perl?
Вопрос2: Чем это вообще возможно сделать, и чем предпочтительнее и проще?

Заранее спасибо. Если это совсем не по адресу, то просьба не удалять это в течении 2х-3х дней после того как кто-то ответит. А то я даже не знаю где это спрашивать :(

Автор: KSURi 13.3.2008, 12:14
tema_4uvak, вот этот модуль посмотрите:
http://search.cpan.org/~sburke/MIDI-Perl-0.81/lib/MIDI.pm

Добавлено через 3 минуты и 59 секунд
запускать не пробовал, но судя по названию - что-то похожее smile
http://interglacial.com/~sburke/midi-perl/scripts/midiparse.pl

Автор: tema_4uvak 13.3.2008, 21:26
Спасибо большое. Проясните, пожалуйста, ещё один момент: нужно ли для работы этого скрипта подключать дополнительные библиотеки, что-то настраивать и т.д. или достаточно просто Perl без каких-либо дополнений. (Извините, если вопрос глупый, я с Perl почти не знаком)

Автор: KSURi 13.3.2008, 22:32
Нужно. Ссылку на модуль я привел выше

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)