Re: Known issues with Win32::OLE?

-----Mensaje original----- 
From: Philip Prindeville
Sent: Friday, August 24, 2012 2:37 PM

> > On 8/23/12 3:34 AM, Brian Raven wrote:
> > 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.
>

You're initializing the x86 vars, not x64 vars. I just tried the 
installation of Win32::GuiTest from CPAN (with a script I wrote - called 
"cpan" too - to automate those things because the regular cpan app didn't 
work well for me for several reasons, but basically it downloads the latest 
version from CPAN, checks for dependencies and installs the necessary with 
MSVS vars set up and nmake). I installed Win32::GuiTest for Perl 5.16 x64. 
This is the log of my script:


#######################
Setting environment for using Microsoft Visual Studio 2010 x64 tools.

D:\src>cpan Win32::GuiTest

Looking for module Win32::GuiTest
Win32::GuiTest is not installed. Fetching information and requirements.
Downloaded source from CPAN to folder D:/src/Win32-GuiTest-1.60
Checking dependencies for Win32::GuiTest (Win32::GuiTest)

This module requires me to install the following modules and dependencies:

Win32::GuiTest


Deciding best install order.
Done. Testing order:

OK!             Win32::GuiTest

Do you want me to start the installation process? [y]


###############################################################################
Changing to dir D:/src/Win32-GuiTest-1.60
Checking if your kit is complete...
Looks good
Writing Makefile for Win32::GuiTest
Writing MYMETA.yml and MYMETA.json

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
        D:\usr\bin\perl.exe -ID:/usr/lib -ID:/usr/lib 
D:\usr\lib\ExtUtils\xsubpp  -typemap D:\usr\lib\ExtUtils\typemap -typemap 
perlobject.map -typemap typemap GuiTest.xs >xstmp.c && 
D:\usr\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 -D_CRT_SECURE_NO_DEPRECATE -D_CRT_NONSTDC_NO_DEPRECATE 
 -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\" 
"-ID:\usr\lib\CORE"   GuiTest.cpp
GuiTest.cpp
GuiTest.xs(135) : warning C4267: '=' : conversion from 'size_t' to 'int', 
possible loss of data
GuiTest.xs(153) : warning C4244: 'initializing' : conversion from 'WPARAM' 
to 'int', possible loss of data
GuiTest.xs(154) : warning C4244: 'initializing' : conversion from 'LPARAM' 
to 'int', possible loss of data
GuiTest.xs(159) : warning C4244: 'initializing' : conversion from 'WPARAM' 
to 'int', possible loss of data
GuiTest.xs(160) : warning C4244: 'initializing' : conversion from 'LPARAM' 
to 'BOOL', possible loss of data
GuiTest.xs(174) : warning C4244: 'initializing' : conversion from 'LPARAM' 
to 'BOOL', possible loss of data
GuiTest.xs(274) : warning C4244: 'initializing' : conversion from 'WPARAM' 
to 'int', possible loss of data
GuiTest.xs(278) : warning C4244: 'initializing' : conversion from 'WPARAM' 
to 'int', possible loss of data
GuiTest.xs(609) : warning C4244: 'initializing' : conversion from 'LRESULT' 
to 'int', possible loss of data
GuiTest.xs(1098) : warning C4244: 'initializing' : conversion from 'LRESULT' 
to 'int', possible loss of data
GuiTest.xs(1115) : warning C4244: '=' : conversion from 'LRESULT' to 'int', 
possible loss of data
GuiTest.xs(1152) : warning C4244: '=' : conversion from 'LRESULT' to 'int', 
possible loss of data
GuiTest.xs(1410) : warning C4244: 'initializing' : conversion from 'LRESULT' 
to 'int', possible loss of data
GuiTest.xs(1430) : warning C4244: 'initializing' : conversion from 'LRESULT' 
to 'int', possible loss of data
GuiTest.xs(1460) : warning C4244: '=' : conversion from 'LRESULT' to 'int', 
possible loss of data
GuiTest.xs(1473) : warning C4244: 'initializing' : conversion from 'LRESULT' 
to 'int', possible loss of data
GuiTest.xs(1510) : warning C4267: '=' : conversion from 'size_t' to 'int', 
possible loss of data
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 -D_CRT_SECURE_NO_DEPRECATE -D_CRT_NONSTDC_NO_DEPRECATE 
 -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\" 
"-ID:\usr\lib\CORE"   DibSect.cpp
DibSect.cpp
DibSect.cpp(120) : warning C4334: '<<' : result of 32-bit shift implicitly 
converted to 64 bits (was 64-bit shift intended?)
Running Mkbootstrap for Win32::GuiTest ()
        D:\usr\bin\perl.exe -MExtUtils::Command -e chmod -- 644 GuiTest.bs
        D:\usr\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:"D:/usr/lib/CORE"  -machine:AMD64 
"/manifestdependency:type='Win32' name='Microsoft.Windows.Common-Controls' 
version='6.0.0.0' processorArchitecture='*' 
publicKeyToken='6595b64144ccf1df' language='*'" GuiTest.obj DibSect.obj 
D:\usr\lib\CORE\perl516.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
   Creating library blib\arch\auto\Win32\GuiTest\GuiTest.lib and object 
blib\arch\auto\Win32\GuiTest\GuiTest.exp
Generating code
Finished generating code
        if exist blib\arch\auto\Win32\GuiTest\GuiTest.dll.manifest 
mt -nologo -manifest 
blib\arch\auto\Win32\GuiTest\GuiTest.dll.manifest -outputresource:blib\arch\auto\Win32\GuiTest\GuiTest.dll;2
        if exist blib\arch\auto\Win32\GuiTest\GuiTest.dll.manifest del 
blib\arch\auto\Win32\GuiTest\GuiTest.dll.manifest
        D:\usr\bin\perl.exe -MExtUtils::Command -e chmod -- 755 
blib\arch\auto\Win32\GuiTest\GuiTest.dll
        D:\usr\bin\perl.exe -MExtUtils::Command -e cp -- GuiTest.bs 
blib\arch\auto\Win32\GuiTest\GuiTest.bs
        D:\usr\bin\perl.exe -MExtUtils::Command -e chmod -- 644 
blib\arch\auto\Win32\GuiTest\GuiTest.bs


----------------------- TESTING ------------------------------
> nmake test


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

        D:\usr\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 
'blib\lib', 'blib\arch')" t/*.t
t/01_basic.t ..... ok
t/02_calc.t ...... skipped: this test is phased out
t/03_cpl.t ....... ok
t/04_std.t ....... ok
t/05_which.t ..... ok
t/06_sendkeys.t .. ok
All tests successful.
Files=6, Tests=72,  7 wallclock secs ( 0.05 usr +  0.05 sys =  0.09 CPU)
Result: PASS

Do you want me to install? [y]
> nmake install


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

Files found in blib\arch: installing files in blib\lib into architecture 
dependent library tree
Installing D:\usr\site\lib\auto\Win32\GuiTest\GuiTest.bs
Installing D:\usr\site\lib\auto\Win32\GuiTest\GuiTest.dll
Installing D:\usr\site\lib\auto\Win32\GuiTest\GuiTest.exp
Installing D:\usr\site\lib\auto\Win32\GuiTest\GuiTest.lib
Installing D:\usr\site\lib\auto\Win32\GuiTest\GuiTest.pdb
Installing D:\usr\site\lib\Win32\GuiTest.pm
Installing D:\usr\site\lib\Win32\GuiTest\Cmd.pm
Installing D:\usr\site\lib\Win32\GuiTest\Examples.pm
Installing D:\usr\site\lib\Win32\GuiTest\GuiTest.pc
Appending installation info to D:/usr/lib/perllocal.pod

Done. Quiting now.

###############################

HTH

Francisco



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