Re: Known issues with Win32::OLE?

On 8/23/12 3:34 AM, Brian Raven wrote:
>> -----Original Message-----
>> From: [email protected] [mailto:activeperl-
>> [email protected]] On Behalf Of Philip Prindeville
>> Sent: 22 August 2012 22:52
>> To: [email protected]
>> Subject: Known issues with Win32::OLE?
>>
>> I was originally going to check the list archives before posting, but I
>> get a 403 from pipermail on the website, so can't do that.
>>
>> I'm running ActiveState perl (community version) on Win7-x64 updated,
>> and wrote the following simple/stupid test program.
>>
>> #!/usr/bin/perl -w
>>
>> use strict;
>> use warnings;
>>
>> sub obj_cb($)
>> {
>>   my $obj = shift;
>>   my $class = Win32::OLE->QueryObjectType($obj);
>>   printf STDERR "%s=>%s\n", $obj, $class; }
>>
>> my $count = Win32::OLE->EnumAllObjects(\&obj_cb);
>>
>> printf STDERR "count=%d\n", $count;
>>
>> exit 1;
>>
>> and running it (both as myself and as Administrator) I get:
>>
>> count=0
>>
>> Anyone have a simple/stupid program that detects whatever programs are
>> present that are manipulable via OLE?
>>
>> I'm trying to get up to speed on Win32::OLE so I can write some test-
>> automation tools to exercise our products' GUIs.
> 
> I may be missing something, but if you want to test a GUI, wouldn't something like Win32::GuiTest be more useful?
> 
> 
> --
> Brian Raven

I could not get it to build on Win7-x64:

C:\Users\philipp\Desktop\tests\Win32-GuiTest-1.60>vcvars32.bat
Setting environment for using Microsoft Visual Studio 2010 x86 tools.

C:\Users\philipp\Desktop\tests\Win32-GuiTest-1.60>perl makefile.pl
Checking if your kit is complete...
Looks good
Writing Makefile for Win32::GuiTest
Writing MYMETA.yml

C:\Users\philipp\Desktop\tests\Win32-GuiTest-1.60>nmake

Microsoft (R) Program Maintenance Utility Version 10.00.30319.01
Copyright (C) Microsoft Corporation.  All rights reserved.

cp lib/Win32/GuiTest/GuiTest.pc blib\lib\Win32\GuiTest\GuiTest.pc
cp lib/Win32/GuiTest/Examples.pm blib\lib\Win32\GuiTest\Examples.pm
cp lib/Win32/GuiTest.pm blib\lib\Win32\GuiTest.pm
cp lib/Win32/GuiTest/Cmd.pm blib\lib\Win32\GuiTest\Cmd.pm
         C:\Perl64\bin\perl.exe -IC:\Perl64\lib -IC:\Perl64\lib C:\Perl64\lib\ExtUtils\xsubpp  -typemap C:\Perl64\lib\ExtUtils\typemap -typemap perlobject.map -typemap typemap GuiTest.xs >xstmp.c && C:\Perl64\bin\perl.exe -MExtUtils::Command -e "mv" -- xstmp.c GuiTest.cpp
         cl -c    -nologo -GF -W3 -MD -Zi -DNDEBUG -Ox -GL -fp:precise -DWIN32 -D_CONSOLE -DNO_STRICT -DWIN64 -DCONSERVATIVE -DPERL_TEXTMODE_SCRIPTS -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -MD -Zi -DNDEBUG -Ox -GL -fp:precise    -DVERSION=\"1.60\"  -DXS_VERSION=\"1.60\"  "-IC:\Perl64\lib\CORE"   GuiTest.cpp
GuiTest.cpp
GuiTest.xs(264) : warning C4996: 'sprintf': This function or variable may be unsafe. Consider using sprintf_s instead. To disable deprecation, use _CRT_SECURE_NO_WARNINGS. See online help for details.
         c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\INCLUDE\stdio.h(371) : see declaration of 'sprintf'
GuiTest.xs(589) : warning C4996: 'sprintf': This function or variable may be unsafe. Consider using sprintf_s instead. To disable deprecation, use _CRT_SECURE_NO_WARNINGS. See online help for details.
         c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\INCLUDE\stdio.h(371) : see declaration of 'sprintf'
GuiTest.xs(1569) : warning C4996: 'strnicmp': The POSIX name for this item is deprecated. Instead, use the ISO C++ conformant name: _strnicmp. See online help for details.
         c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\INCLUDE\string.h(248) : see declaration of 'strnicmp'
GuiTest.xs(1753) : warning C4244: '=' : conversion from 'IV' to 'LONG', possible loss of data
         cl -c    -nologo -GF -W3 -MD -Zi -DNDEBUG -Ox -GL -fp:precise -DWIN32 -D_CONSOLE -DNO_STRICT -DWIN64 -DCONSERVATIVE -DPERL_TEXTMODE_SCRIPTS -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -MD -Zi -DNDEBUG -Ox -GL -fp:precise    -DVERSION=\"1.60\"  -DXS_VERSION=\"1.60\"  "-IC:\Perl64\lib\CORE"   DibSect.cpp
DibSect.cpp
DibSect.cpp(230) : warning C4996: 'fopen': This function or variable may be unsafe. Consider using fopen_s instead. To disable deprecation, use _CRT_SECURE_NO_WARNINGS. See online help for details.
         c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\INCLUDE\stdio.h(234) : see declaration of 'fopen'
Running Mkbootstrap for Win32::GuiTest ()
         C:\Perl64\bin\perl.exe -MExtUtils::Command -e "chmod" -- 644 GuiTest.bs
         C:\Perl64\bin\perl.exe -MExtUtils::Mksymlists  -e "Mksymlists('NAME'=>\"Win32::GuiTest\", 'DLBASE' => 'GuiTest', 'DL_FUNCS' => {  }, 'FUNCLIST' => [], 'IMPORTS' => {  }, 'DL_VARS' => []);"
         link -out:blib\arch\auto\Win32\GuiTest\GuiTest.dll -dll -nologo -nodefaultlib -debug -opt:ref,icf -ltcg  -libpath:"C:\Perl64\lib\CORE"  -machine:AMD64 GuiTest.obj DibSect.obj   C:\Perl64\lib\CORE\perl514.lib oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib  comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib comctl32.lib  msvcrt.lib -def:GuiTest.def
GuiTest.obj : fatal error LNK1112: module machine type 'X86' conflicts with target machine type 'x64'
NMAKE : fatal error U1077: '"c:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\BIN\link.EXE"' : return code '0x458'
Stop.

C:\Users\philipp\Desktop\tests\Win32-GuiTest-1.60>




_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs