in reply to "pointers" for calling a DLL
ok, maybe we're getting somewhere, but
my $filename = Variant(VT_BSTR|VT_BYREF, VT_NULL);
is returning "1" for $filename when it was returning "0" before.
UPDATE: I don't know if this helps but, I tested this out in VB (I know, I know, yuk...). In order to get this library to work, I had to use the "Call" function on the GetFileName method. Here's the VB code.
Dim rawfile As XrawFile Set rawfile = New XrawFile filename = "C:\Program Files\ProMassXcali\TestData\oligos\oligo01.raw" rawfile.Open (filename) Dim return_filename As String Call rawfile.GetFileName(return_filename) MsgBox return_filename
Any other clues about how I could get this to work under Win32::OLE?
thanks, chinman
|
---|
In Section
Seekers of Perl Wisdom