dll calling problems

skywalker has asked for the wisdom of the Perl Monks concerning the following question:

Hi I have a C++ compiled dll that is a licenced product, as a result I can not get at the source code, can I use win32::API or win32::OLE to access the object, the dll is an 'Active X COM DLL'.

I have a supplied VB example, can I port this to perl??

#VB code example
DataToEncode = InputString.Text
Dim DMFontEncoder As DMATRIXLib.Datamatrix
Set DMFontEncoder = New Datamatrix
DMFontEncoder.FontEncode DataToEncode, 0, 0, 0, Printable_string
PrintableBarcodeString = Printable_string
[download]

I have tried the API and OLE, but can not get either to function without errors

API perl Code

use Win32::API;

my $DataToEncode = "Test1 Test2 Test3";

use Win32::API;
  $function = Win32::API->new(
      'IDAutomationDMATRIX6.DLL', 'FontEncode',
  );
  $function->Call($DataToEncode);
[download]

Dan

Back to Seekers of Perl Wisdom