Skip Menu |
 

This queue is for tickets about the PDF-API2 CPAN distribution.

Report information
The Basics
Id: 29103
Status: resolved
Priority: 0/
Queue: PDF-API2

People
Owner: Nobody in particular
Requestors: boronk [...] boronk.de
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: Video and Audio
Download (untitled) / with headers
text/plain 184b
Hello, As far as I know, it is possible for Adobe Acrobat to embed flash, video and audiofiles in a PDF. Now would it be possible to integrate these features in PDF::API2 Christian
what do you have in mind?
From: boronk [...] boronk.de
Download (untitled) / with headers
text/plain 260b
On Sa. 01. Sep. 2007, 21:11:50, AREIBENS wrote: Show quoted text
> what do you have in mind?
Things like shown in this PDF: http://www.acrobatusers.com/tutorials/2006/adding_video/adding_video.pdf Such features do exist as far as I know since PDF 1.3 or earlier. Christian
Download (untitled) / with headers
text/plain 815b
please insert the following in Annotation.pm and report if it is sufficient for you purpose: #--------------------------------------------------------- =item $ant->movie $file, $contentype, %opts Defines the annotation as a movie from $file with $contentype and options %opts (-rect). =cut sub movie { my ($self,$file,$contentype,%opts)=@_; $self->{Subtype}=PDFName('Movie'); $self->{A}=PDFBool(1); $self->{Movie}=PDFDict(); $self->{Movie}->{F}=PDFDict(); $self->{' apipdf'}->new_obj($self->{Movie}->{F}); my $f=$self->{Movie}->{F}; $f->{Type}=PDFStr('EmbeddedFile'); $f->{Subtype}=PDFStr($contentype); $f->{' streamfile'}=$file; $self->rect(@{$opts{-rect}}) if(defined $opts{-rect}); return($self); } #---------------------------------------------------------
Download (untitled) / with headers
text/plain 644b
sorry, squashed some bugs. #---- =item $ant->movie $file, $contentype, %opts Defines the annotation as a movie from $file with $contentype and options %opts (-rect). =cut sub movie { my ($self,$file,$contentype,%opts)=@_; $self->{Subtype}=PDFName('Movie'); $self->{A}=PDFBool(1); $self->{Movie}=PDFDict(); $self->{Movie}->{F}=PDFDict(); $self->{' apipdf'}->new_obj($self->{Movie}->{F}); my $f=$self->{Movie}->{F}; $f->{Type}=PDFName('EmbeddedFile'); $f->{Subtype}=PDFName($contentype); $f->{' streamfile'}=$file; $self->rect(@{$opts{-rect}}) if(defined $opts{-rect}); return($self); } #----
not answered


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.