874251225f
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
30 lines
1.1 KiB
Perl
30 lines
1.1 KiB
Perl
use lib 'lib';
|
|
use lib '../lib';
|
|
use MyInterfaces::BarCode::BarCodeSoap;
|
|
my $interface = MyInterfaces::BarCode::BarCodeSoap->new();
|
|
my $barcode = $interface->GenerateBarCode( {
|
|
BarCodeParam => { # MyTypes::BarCodeData
|
|
Height => 42, # int
|
|
Width => 120, # int
|
|
Angle => 90, # int
|
|
Ratio => 1, # int
|
|
Module => 1, # int
|
|
Left => 10, # int
|
|
Top => 10, # int
|
|
CheckSum => 0, # boolean
|
|
FontName => 'Arial', # string
|
|
BarColor => 'black', # string
|
|
BGColor => 'white', # string
|
|
FontSize => 6.25, # float
|
|
barcodeOption => 'Both', # BarcodeOption
|
|
barcodeType => 'CodeMSI', # BarcodeType
|
|
checkSumMethod => 'None', # CheckSumMethod
|
|
showTextPosition => 'TopLeft', # ShowTextPosition
|
|
BarCodeImageFormat => 'PNG', # ImageFormats
|
|
},
|
|
BarCodeText => 'JustSomeText', # string
|
|
},
|
|
);
|
|
die $barcode if not ($barcode);
|
|
print $barcode;
|