Re^2: dll calling problems

Hi Ive been in touch with the vendor, and they confirm that both the dll and the function are correct,the paramaters are string,numeric,numeric,numeric,string

so my amended code now looks like this, however I still get the same error ('Cant call method "Call" on an undefined value at line 12'),
am I doing some thing wrong, or should I just learn VB so I can use the vendor example...

use Win32::API;

my $DataToEncode = "Test1 Test2 Test3";

my $return_sring = undef;

use Win32::API;
  $function = Win32::API->new(
      'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P']
  );

   my $string =  $function->Call('FontEncode');
[download]

Thanks

Comment on Re^2: dll calling problems Download Code

Replies are listed 'Best First'.
Re^3: dll calling problems by syphilis (Archbishop) on Jun 18, 2008 at 23:57 UTC
`use Win32::API; my $DataToEncode = "Test1 Test2 Test3"; my $return_sring = undef; use Win32::API; $function = Win32::API->new( 'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'] ); my $string = $function->Call('FontEncode');` [download] There are still some inconsistencies in the above code - and these inconsistencies may be preventing the thing from working (there might also be Win32::API bugs that mean it's never gunna work anyway). I think you still need to specify the return type in new: `$function = Win32::API->new( 'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'], 'P' );` [download] You could also try the 2 following renditions: `$function = Win32::API->new( 'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'], 'P', + '_cdecl' );` [download] and `$function = Win32::API->new( 'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'], 'P', + '__stdcall' );` [download] Since FontEncode takes 5 arguments, Call() also needs to be given 5 arguments - a string, an int, an int, an int, and a string (in that order): `my $string = $function->Call($str1, $n1, $n2, $n3, $str2);` [download] Finally, $string may need to be large enough to accommodate the return string: `my $string = '' x 500; # Big enough ? $string = $function->Call($str1, $n1, $n2, $n3, $str2);` [download] Without access to the dll it's hard to provide good assistance. If you can't get anywhere with it using Win32::API, then VB might be your best approach. XS/Inline::C would also be options - and they provide excellent milage. I far prefer Inline::C over Win32::API, any day. However, for that to be an option, you also need the relevant header (.h) file and import lib (.lib) - as well as a Microsoft C compiler. (Actually, MinGW usually works fine, too - and doesn't even need the import lib. But I don't think you can use MinGW where COM is involved.) Cheers, Rob	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: dll calling problems
by syphilis (Archbishop) on Jun 18, 2008 at 23:57 UTC

use Win32::API; my $DataToEncode = "Test1 Test2 Test3"; my $return_sring = undef; use Win32::API; $function = Win32::API->new( 'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'] ); my $string = $function->Call('FontEncode');
[download]

  $function = Win32::API->new(
      'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'], 'P'
  );
[download]

  $function = Win32::API->new(
      'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'], 'P',
+ '_cdecl'
  );
[download]

  $function = Win32::API->new(
      'IDAutomationDMATRIX6', 'FontEncode',['P','N','N','N','P'], 'P',
+ '__stdcall'
  );
[download]

my $string =  $function->Call($str1, $n1, $n2, $n3, $str2);
[download]

my $string = '' x 500; # Big enough ?
$string =  $function->Call($str1, $n1, $n2, $n3, $str2);
[download]

[reply]
[d/l]
[select]