3

我正在使用 jsPDF 在 Web 应用程序中创建 PDF 文档，将该文档发送到 Perl，并让 Perl 通过电子邮件发送它，它工作正常。但是，当我将图像添加到 PDF 文档时，它不再起作用，因为 Adob​​e 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，以免损坏？

4

3 回答 3

1

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

请使用jsPDF.output('blob')而不是jsPDF.output().

发送到服务器时，这不会损坏 pdf。

于 2015-09-16T14:57:05.207 回答
0

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

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

$pdf_doc =~ s/ /+/g;

在让 Perl 写入文件之前解决了这个问题。现在可以在服务器端的 Adob​​e 中提取该文件。

于 2014-03-20T16:36:24.220 回答
0

好的，这可能对您没有帮助，因为您使用的是 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";

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

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

在端口 3000 上运行一个简单的测试网络服务器

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...

考虑检查：

于 2014-03-18T20:16:47.343 回答