First off, I'm new to both Jasper Reports and Web services. I'm trying to create a web service that will send back a file to my Perl client. I'm having some issues getting it to work. I was wondering if anyone knew the best way to send a file a Perl client? I'm currently testing with a SOAP java web service that is supposed to send back a byte array. I know byte arrays use alot of memeory so I have been looking into Datahandlers and Servlets but I havn't found anything that will send back the file to my client without an error. Any help would be apperciated. I'm passing in XML data as a string to the service.
JAVA WEB SERVICE CODE-----------------------------------------------------------------------------------------
public byte[] sendBack(String sourceData){
String path = "C:/testing/";
JasperReport jasperReport;
JasperPrint jasperPrint;
JRXmlDataSource xmlDataSource;
ByteArrayOutputStream byteArrayOutputStream = new ByteArrayOutputStream();
try{
DocumentBuilder dBuilder = DocumentBuilderFactory.newInstance()
.newDocumentBuilder();
Document doc = dBuilder.parse(sourceData);
xmlDataSource = new JRXmlDataSource(doc,"/Foo/Bar");
String templateName = path + "foobar.jrxml"; //JRXML template path
jasperReport = JasperCompileManager.compileReport(templateName);
HashMap parameters = new HashMap();
jasperPrint = JasperFillManager.fillReport(jasperReport, parameters, xmlDataSource);
JasperExportManager.exportReportToPdfStream(jasperPrint,byteArrayOutputStream);
byte[] d = byteArrayOutputStream.toByteArray();
return d;
}catch(Exception e){
System.out.println(e);
}
return null;
}
-----------------------------------------------------------------------------------------------
PERL CLIENT CODE
use Data::Dumper;
use File::Slurp;
use strict;
use warnings;
use SOAP::Lite;
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>Print Page</title>\n";
print "</head>\n";
print "<body><h1><b>Printing</b></h1>\n";
my $xmlString = read_file('TESTDATASOURCE.xml');
my $line = $xmlString;
{
$line =~ s/\t+//g; #strip all tabs
$line =~ s/\n+//g; #strip all new lines
}
my $client = SOAP::Lite->new();
$client = $client->service('http://localhost:8080/jasperWebTest1/services/jasperWebServiceTest?WSDL');
my $result = $client->sendBack($line);
my $pdf_data = $result;
open my $ofh, '>:raw', 'output.pdf'
or die "Could not write: $!";
print {$ofh} $pdf_data;
close $ofh;
print "</body></html>";
exit(0);
0 Answers:
No answers yet
