Question

我正在使用jsPDF在Web应用程序中创建PDF文档，将该文档发送到Perl，并让Perl通过电子邮件发送，并且工作正常。但是，当我将图像添加到PDF文档时，它不再有效，因为Adobe Reader说该文件已损坏。该应用程序是巨大的，所以这里有一个类似相关代码的存根，以相同的方式行事：

HTML：

<!DOCTYPE html>
<html>
    <head>
        <script src="https://<myserver>/js/jquery.js"></script>
        <script src="https://<myserver>/js/jspdf.js"></script>
        <script src="https://<myserver>/js/jspdf.plugin.addimage.js"></script>      
        <script src="https://<myserver>/test/pdf.js"></script>
    </head>
    <body>
        <input type="submit" id="go">
    </body>
</html>

JS：

$(document).ready(function() {
    $('#go').on('click',function() {
        //create PDF
        var imgData = 'data:image/jpeg;base64,<dataurlencoded image string>';
        var doc = new jsPDF('p','pt','a4');
        doc.addImage(imgData, 'JPEG', 22, 22, 138, 28);     
        doc.text(30, 120, 'Lorem Ipsum!');
        var perl_pdf = doc.output();

        //send PDF to perl and have perl email it
        $.ajax({
            type: "POST",
            url: "https://<myserver>/cgi-bin/pdf.pl", 
            contentType: "application/x-www-form-urlencoded; charset=UTF-8",
            dataType: "json",
            data: "perl_pdf="+encodeURIComponent(perl_pdf),
            error: function(XMLHttpRequest, textStatus, errorThrown) { 
                alert("error:  "+ XMLHttpRequest.responseText + ", textStatus: " + textStatus + ", errorThrown: " + errorThrown);
            }, 
            success: function(data){
                alert("Success: "+data.success);
            } 
       });
    });     
});

perl的：

#!d:/perl/bin/perl.exe -w
use strict;
use warnings;
use CGI qw(:all);
use MIME::Lite;
use MIME::Base64;

my $q = CGI->new();
my $pdf_doc = $q->param('perl_pdf');

open (OUTFILE, '>pdf.pdf') or die "Could not open file";
binmode(OUTFILE);
print OUTFILE decode_base64($pdf_doc);
close OUTFILE;

my $from_address = '<from_address>';
my $to_address = '<to_address>';
my $mail_host = '<smtp_server>';

my $subject = 'PDF Test';
my $message_body = "The PDF is attached...\n\n";

my $my_file = 'pdf.pdf';
my $out_file = 'test.pdf';

my $msg = MIME::Lite->new (
    From => $from_address,
    To => $to_address,
    Subject => $subject,
    Type => 'multipart/mixed') or die "Cannot create multipart container:  $!\n";

$msg->attach (
    Type => 'TEXT',
    Data => $message_body) or die "Cannot attach text: $!\n";

$msg->attach (
    Type => 'application/pdf',
    Path => $my_file,
    Filename => $out_file,
    Disposition => 'attachment') or die "Cannot attach file: $!\n";

MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send;

my $json = qq{{"success" : "This worked"}};
print $q->header(-type => "application/json", -charset => "utf-8");
print $json;

如果我用...替换Ajax调用和输出创建

doc.output('dataurlnewwindow',{});

...然后它正确地显示在新的浏览器选项卡中，因此我知道图像正在正确插入。从我在搜索中发现的内容来看，这似乎是一些编码问题，但我还没有找到问题的解决方案。如何将带有图像的PDF文档成功发送到服务器上的Perl，以便它不会损坏？

Answer 1

此问题已在最新版本的JSPDF中解决。如果您使用xmlhttprequest.send或作为ajax调用的一部分将带有图像的PDF作为表单数据发送到服务器。

请使用jsPDF.output('blob')代替jsPDF.output()。

发送到服务器时不会破坏pdf。

Answer 2

好的，这可能对您没有帮助，因为您使用的是Windows，只能说明：

我的测试perl脚本称为app.pl：

#!/usr/bin/env perl
use strict;
use warnings;
use CGI qw(:all);

my $q = CGI->new();
my $pdf_doc = $q->param('perl_pdf');

open (my $fp, '>', 'pdf.pdf') or die "Could not open file";
print $fp $pdf_doc;
close $fp;
print "OK\n";

有一个名为x.pdf的pdf文件。

$ ls -l x.pdf
-rw-r--r--@ 1 jm  staff  100838 18 mar 19:20 x.pdf

在端口3000上运行简单的测试Web服务器

plackup --port 3000 -MPlack::App::WrapCGI -e 'Plack::App::WrapCGI->new( script => "./app.pl", execute => 1)->to_app'

表示：

HTTP::Server::PSGI: Accepting connections at http://0:3000/

从另一个通过curl命令发送base64编码文件的终端

$ curl -i -F perl_pdf="$(base64 < x.pdf)" 0:3000/

响应：

HTTP/1.0 200 OK
Date: Tue, 18 Mar 2014 20:15:40 GMT
Server: HTTP::Server::PSGI
Content-Length: 3

OK

服务器说：

127.0.0.1 - - [18/Mar/2014:21:06:00 +0100] "POST / HTTP/1.1" 200 3 "-" "curl/7.35.0"

并保存文件pdf.pdf该文件具有base64编码内容。

$ ls -la pdf.pdf
-rw-r--r--  1 jm  staff  134452 18 mar 21:06 pdf.pdf

解码

$ base64 -D < pdf.pdf >decoded.pdf

并与原始

进行比较

$ cmp decoded.pdf x.pdf
$ ls -la decoded.pdf 
-rw-r--r--  1 jm  staff  100838 18 mar 21:18 decoded.pdf

没有区别 - 发送pdf - 成功。

不幸的是，无法帮到你更多，因为：

您正在使用Windows
我不知道Javascript ......

考虑检查：

Answer 3

我发现了问题。在将图像添加到PDF之前，将文件发送到Perl无需编码，显然是因为在发送字符串时没有（或没有相关的）二进制信息丢失。当然，添加图像会将非常相关的二进制信息添加到无法在urlencoded消息中发送的字符串中。编码/解码应该已经解决了这个问题，但是......

我尝试了许多不同的Base64编码/解码方法，但我的文件仍然最终损坏了。我最后偶然发现了类似的问题，有人提到将字符串作为URL的一部分发送会将+符号转换为空格。我删除了Perl端的解码，看看编码的字符串是什么样的，整个字符串中确实有几个空格。用

转换它们

$pdf_doc =~ s/ /+/g;

在Perl写入文件之前修复了问题。现在可以在服务器端的Adobe中提取该文件。

生成的pdf图像损坏发送到服务器的pdf

3 个答案: