From: Rogers, J. <rog...@oc...> - 2005-04-20 07:00:16
|
sorry wrong list :-) -----Original Message----- From: Rogers, John=20 Sent: Wednesday, 20 April 2005 4:56 PM To: Perl-Win32-Gui-Users (E-mail) Subject: [perl-win32-gui-users] Win32-API and ghostscript API hi,=20 I want to access the ghostscript API for the gsdll32.dll.=20 been trying this any which way cant make it work, I must be doing some = thing wrong any Ideas ?=20 ###########=20 use strict;=20 use Win32::API;=20 Win32::API::Struct->typedef( REVINFO =3D> qw{=20 CHAR *product;=20 CHAR *copyright;=20 LONG revision;=20 LONG revisiondate;=20 });=20 my $rev =3D Win32::API::Struct->new('REVINFO');=20 Win32::API->new('C:\gs\gs8.15\bin\gsdll32.dll','gsapi_revision','CCNN',V= ) or die "no-worky $! $^E";=20 print $rev->{revision};=20 ###################=20 Regards,=20 John Rogers=20 System Engineer=20 Oc=E9-Australia Limited=20 Telephone: (07) 3212.8127=20 Facsimile: (07) 3312 8101=20 Mobile: 0404 812 903=20 Email: rog...@oc...=20 www.oce.com.au=20 *************************************************************=20 Disclaimer=20 If this e-mail has been sent to you in error, please notify = Oc=E9-Australia Limited immediately and delete this e-mail from your system. Any views expressed in this e-mail are those of the individual sender and may not necessarily reflect the views of Oc=E9-Australia Limited. *************************************************************=20 Disclaimer=20 If this e-mail has been sent to you in error, please notify = Oc=E9-Australia Limited immediately and delete this e-mail from your system. Any views expressed in this e-mail are those of the individual sender and may not necessarily reflect the views of Oc=E9-Australia Limited. |