Loading ...
Sorry, an error occurred while loading the content.

Re: [perlguitest] Re: DibSect is not working, please help

Expand Messages
  • Nicole Sheldon
    Victor, CPAN wants to install version 1.3 by default. Is there a way to set CPAN to get a different version? PPM does not find Win32::GuiTest at all. Anyone
    Message 1 of 11 , Nov 8, 2004
    View Source
    • 0 Attachment
      Victor,

      CPAN "wants" to install version 1.3 by default. Is
      there a way to set CPAN to get a different version?
      PPM does not find Win32::GuiTest at all.

      Anyone know a link to get version 1.50.2-ad?

      Thanks!

      Installations on CPAN (at least that I can see):

      ftp://ftp.perl.org/pub/CPAN/authors/id/E/ER/ERNGUI/CHECKSUMS
      16147 1999-11-14 ERNGUI/Win32-GuiTest-0.3.zip
      15244 2000-01-07 ERNGUI/Win32-GuiTest-0.4.zip
      16138 2000-03-11 ERNGUI/Win32-GuiTest-0.5.zip
      18293 2000-03-12 ERNGUI/Win32-GuiTest-0.6.zip
      32075 2000-11-19 ERNGUI/Win32-GuiTest-0.7.zip
      34020 2000-12-24 ERNGUI/Win32-GuiTest-0.8.zip
      34439 2001-01-04 ERNGUI/Win32-GuiTest-0.9.zip
      36317 2001-06-03 ERNGUI/Win32-GuiTest-1.0.zip
      46524 2001-06-17 ERNGUI/Win32-GuiTest-1.1.zip
      49701 2001-11-04 ERNGUI/Win32-GuiTest-1.2.zip
      58103 2001-12-02 ERNGUI/Win32-GuiTest-1.3.zip


      --- Victor Ziv <victor_ziv@...> wrote:

      >
      >
      > Hi,
      >
      > You've probably installed Win32::GuiTest module from
      > the current Active State ppd. If so, DibSect is not
      > there indeed. The current Active State repository
      > version for the module is 1.30, while CPAN archive
      > makes it for ver. 1.50.2-ad, which does provides
      > DibSect.
      >
      > By the way, I've tryied to install the module on
      > Perl
      > v5.8.4 with MS nmake and it went bats. The
      > Win32-GuiTest.ppd included with the 1.50.2-ad
      > package
      > did the job though.
      >
      > Cheers.
      >
      >
      > --- Nicole Sheldon <snikki326@...> wrote:
      >
      > >
      > > Dennis,
      > >
      > > I get the following error when I run the example
      > > code below:
      > >
      > > Can't locate object method "new" via package
      > > "Win32::GuiTest::DibSect" (perhaps you forgot to
      > > load
      > > "Win32::GuiTest::DibSect"?) at
      > > C:\OCR\Dev\testDibSect.pl line 7.
      > >
      > >
      > > Which seems bazaar to me because I have access
      > to
      > > the rest of the GuiTest functionality. This type
      > of
      > > error almost always originates from having a
      > missing
      > > piece of the total package - in this case the
      > piece
      > > is
      > > the DibSect module associated with GuiTest.
      > >
      > > I have tried searching for DibSect on my HD and
      > I
      > > thought it should be at
      > > C:\perl\site\lib\win32\GuiTest\DibSect. It isn't.
      > > The
      > > only file I can find is
      > > C:\perl\site\lib\win32\GuiTest.pm.
      > >
      > > I have even tried different installations of
      > > GuiTest
      > > to no avail.
      > >
      > > Any ideas?
      > >
      > > I do not think the problem is a code problem
      > > (syntax
      > > error, etc.) but is more likely an installation
      > > issue.
      > > I base this conclusion on the below code not
      > working
      > > even though I executed it verbatim. If it works
      > for
      > > Dennis I thought it should work for me too :(
      > >
      > >
      > > Thanks!
      > >
      > >
      > > --- "Dennis K. Paulsen"
      > <ctrondlpaulsden@...>
      > > wrote:
      > >
      > > >
      > > >
      > > > Hello,
      > > >
      > > > The following example works for me... Note the
      > > case
      > > > sensitivity
      > > > of "Win32::GuiTest"...
      > > >
      > > >
      > > > #!/usr/bin/perl -w
      > > >
      > > > use Win32::GuiTest qw(:ALL);
      > > >
      > > >
      > > > $ds = new Win32::GuiTest::DibSect;
      > > >
      > > >
      > > > my @windows = FindWindowLike(0, "C",0); #,
      > > > "^XLMAIN\$");
      > > > for (@windows) {
      > > > SetForegroundWindow($_);
      > > > $ds->CopyWindow($_);
      > > > $ds->ToGrayScale();
      > > > $ds->SaveAs("c:\\bla.bmp");
      > > > $ds->ToClipboard();
      > > > }
      > > >
      > > >
      > > >
      > > > Regards,
      > > > Dennis K. Paulsen
      > > >
      > > > --- In perlguitest@yahoogroups.com, "snikki326"
      > > > <snikki326@y...>
      > > > wrote:
      > > > >
      > > > >
      > > > > Hello,
      > > > >
      > > > > I get an error when I try to use
      > > > Win32::GUITest::DibSect
      > > > >
      > > > > For example:
      > > > > -----------------------------
      > > > > #!/usr/bin/perl -w
      > > > > use Win32::GUITest;
      > > > >
      > > > > $ds = new Win32::GUITest::DibSect;
      > > > >
      > > > > my @windows = FindWindowLike(0, "MY
      > WINDOW",0);
      > > #,
      > > > "^XLMAIN\$");
      > > > > for (@windows) {
      > > > > SetForegroundWindow($_);
      > > > > $ds->CopyWindow($_);
      > > > > $ds->ToGrayScale();
      > > > > $ds->SaveAs("c:\bla.bmp");
      > > > > $ds->ToClipboard();
      > > > > }
      > > > > -----------------------------
      > > > >
      > > > > However, the script crashes on:
      > > > > $ds = new Win32::GUITest::DibSect;
      > > > >
      > > > > The error message is:
      > > > > Can't locate object method "new" via
      > > > > package "Win32::GUITest::DibSect" (perhaps you
      > > > forgot to
      > > > > load "Win32::GUITest::DibSect"?) at
      > > testDibSect.pl
      > > > line 5.
      > > > >
      > > > > Which is a very elementary error. It means
      > that
      > > > DibSect is not
      > > > > there.
      > > > >
      > > > > Can anyone suggest any way of getting DibSect
      > to
      > > > work? The only
      > > > > reference I can find is
      > > > http://search.cpan.org/~ctrondlp/Win32-
      > > > > GuiTest-1.50.2-ad/guitest.pm
      > > > >
      > > > >
      > > > > And that is very sparse at best.
      > > > >
      > > > > Anyone know how to get documentation on
      > DibSect?
      > > > >
      > > > > Thanks!
      > > >
      > > >
      > > >
      > > >
      > >
      > >
      > >
      > >
      > >
      >
      >
      >
      >
      > __________________________________
      > Do you Yahoo!?
      > Check out the new Yahoo! Front Page.
      > www.yahoo.com
      >
      >
      >
      >
      >
      >
    • Victor Ziv
      Hi Nicole, Here is the link to ver. 1.50.2-ad on the CPAN archive. http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-ad/ You can manually download the ZIP
      Message 2 of 11 , Nov 8, 2004
      View Source
      • 0 Attachment
        Hi Nicole,

        Here is the link to ver. 1.50.2-ad on the CPAN
        archive.
        http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-ad/

        You can manually download the ZIP file and extract
        somewhere on your local disk.

        The INSTALLATION part of readme.html (comes with the
        package) stands for the following:


        -- start of quote

        If you are using ActivePerl 5.6
        (http://www.activestate.com/Products/ActivePerl/index.html)
        you can install the binary package I am including
        instead. You will need to enter PPM (Perl Package
        Manager) from the command-line. Once you have
        extracted the files I send you to a directory of your
        machine, enter PPM and do like this:

        C:\TEMP>ppm
        PPM interactive shell (2.0) - type 'help' for
        available commands.
        PPM> install C:\temp\win32-guitest.ppd
        Install package 'C:\temp\win32-guitest.ppd?'
        (y/N): Y
        Retrieving package 'C:\temp\win32-guitest.ppd'...
        Writing
        C:\Perl\site\lib\auto\Win32\GuiTest\.packlist
        PPM>

        I extracted them to 'c:\temp', please use the
        directory where you extracted the files instead.

        -- end of quote


        I ran the above procedure on Active State Perl 5.8.3
        and it worked all right. You'll probably have to
        uninstall the ver. 1.3 before...

        Hope it helps.

        Victor.

        --- Nicole Sheldon <snikki326@...> wrote:

        >
        > Victor,
        >
        > CPAN "wants" to install version 1.3 by default.
        > Is
        > there a way to set CPAN to get a different version?
        > PPM does not find Win32::GuiTest at all.
        >
        > Anyone know a link to get version 1.50.2-ad?
        >
        > Thanks!
        >
        > Installations on CPAN (at least that I can see):
        >
        >
        ftp://ftp.perl.org/pub/CPAN/authors/id/E/ER/ERNGUI/CHECKSUMS
        > 16147 1999-11-14 ERNGUI/Win32-GuiTest-0.3.zip
        > 15244 2000-01-07 ERNGUI/Win32-GuiTest-0.4.zip
        > 16138 2000-03-11 ERNGUI/Win32-GuiTest-0.5.zip
        > 18293 2000-03-12 ERNGUI/Win32-GuiTest-0.6.zip
        > 32075 2000-11-19 ERNGUI/Win32-GuiTest-0.7.zip
        > 34020 2000-12-24 ERNGUI/Win32-GuiTest-0.8.zip
        > 34439 2001-01-04 ERNGUI/Win32-GuiTest-0.9.zip
        > 36317 2001-06-03 ERNGUI/Win32-GuiTest-1.0.zip
        > 46524 2001-06-17 ERNGUI/Win32-GuiTest-1.1.zip
        > 49701 2001-11-04 ERNGUI/Win32-GuiTest-1.2.zip
        > 58103 2001-12-02 ERNGUI/Win32-GuiTest-1.3.zip
        >
        >
        > --- Victor Ziv <victor_ziv@...> wrote:
        >
        > >
        > >
        > > Hi,
        > >
        > > You've probably installed Win32::GuiTest module
        > from
        > > the current Active State ppd. If so, DibSect is
        > not
        > > there indeed. The current Active State repository
        > > version for the module is 1.30, while CPAN archive
        > > makes it for ver. 1.50.2-ad, which does provides
        > > DibSect.
        > >
        > > By the way, I've tryied to install the module on
        > > Perl
        > > v5.8.4 with MS nmake and it went bats. The
        > > Win32-GuiTest.ppd included with the 1.50.2-ad
        > > package
        > > did the job though.
        > >
        > > Cheers.
        > >
        > >
        > > --- Nicole Sheldon <snikki326@...> wrote:
        > >
        > > >
        > > > Dennis,
        > > >
        > > > I get the following error when I run the
        > example
        > > > code below:
        > > >
        > > > Can't locate object method "new" via package
        > > > "Win32::GuiTest::DibSect" (perhaps you forgot to
        > > > load
        > > > "Win32::GuiTest::DibSect"?) at
        > > > C:\OCR\Dev\testDibSect.pl line 7.
        > > >
        > > >
        > > > Which seems bazaar to me because I have access
        > > to
        > > > the rest of the GuiTest functionality. This type
        > > of
        > > > error almost always originates from having a
        > > missing
        > > > piece of the total package - in this case the
        > > piece
        > > > is
        > > > the DibSect module associated with GuiTest.
        > > >
        > > > I have tried searching for DibSect on my HD
        > and
        > > I
        > > > thought it should be at
        > > > C:\perl\site\lib\win32\GuiTest\DibSect. It
        > isn't.
        > > > The
        > > > only file I can find is
        > > > C:\perl\site\lib\win32\GuiTest.pm.
        > > >
        > > > I have even tried different installations of
        > > > GuiTest
        > > > to no avail.
        > > >
        > > > Any ideas?
        > > >
        > > > I do not think the problem is a code problem
        > > > (syntax
        > > > error, etc.) but is more likely an installation
        > > > issue.
        > > > I base this conclusion on the below code not
        > > working
        > > > even though I executed it verbatim. If it works
        > > for
        > > > Dennis I thought it should work for me too :(
        > > >
        > > >
        > > > Thanks!
        > > >
        > > >
        > > > --- "Dennis K. Paulsen"
        > > <ctrondlpaulsden@...>
        > > > wrote:
        > > >
        > > > >
        > > > >
        > > > > Hello,
        > > > >
        > > > > The following example works for me... Note
        > the
        > > > case
        > > > > sensitivity
        > > > > of "Win32::GuiTest"...
        > > > >
        > > > >
        > > > > #!/usr/bin/perl -w
        > > > >
        > > > > use Win32::GuiTest qw(:ALL);
        > > > >
        > > > >
        > > > > $ds = new Win32::GuiTest::DibSect;
        > > > >
        > > > >
        > > > > my @windows = FindWindowLike(0, "C",0); #,
        > > > > "^XLMAIN\$");
        > > > > for (@windows) {
        > > > > SetForegroundWindow($_);
        > > > > $ds->CopyWindow($_);
        > > > > $ds->ToGrayScale();
        > > > > $ds->SaveAs("c:\\bla.bmp");
        > > > > $ds->ToClipboard();
        > > > > }
        > > > >
        > > > >
        > > > >
        > > > > Regards,
        > > > > Dennis K. Paulsen
        > > > >
        > > > > --- In perlguitest@yahoogroups.com,
        > "snikki326"
        > > > > <snikki326@y...>
        > > > > wrote:
        > > > > >
        > > > > >
        > > > > > Hello,
        > > > > >
        > > > > > I get an error when I try to use
        > > > > Win32::GUITest::DibSect
        > > > > >
        > > > > > For example:
        > > > > > -----------------------------
        > > > > > #!/usr/bin/perl -w
        > > > > > use Win32::GUITest;
        > > > > >
        > > > > > $ds = new Win32::GUITest::DibSect;
        > > > > >
        > > > > > my @windows = FindWindowLike(0, "MY
        > > WINDOW",0);
        > > > #,
        > > > > "^XLMAIN\$");
        > > > > > for (@windows) {
        > > > > > SetForegroundWindow($_);
        > > > > > $ds->CopyWindow($_);
        > > > > > $ds->ToGrayScale();
        > > > > > $ds->SaveAs("c:\bla.bmp");
        > > > > > $ds->ToClipboard();
        > > > > > }
        > > > > > -----------------------------
        > > > > >
        > > > > > However, the script crashes on:
        > > > > > $ds = new Win32::GUITest::DibSect;
        > > > > >
        > > > > > The error message is:
        > > > > > Can't locate object method "new" via
        > > > > > package "Win32::GUITest::DibSect" (perhaps
        > you
        > > > > forgot to
        > > > > > load "Win32::GUITest::DibSect"?) at
        > > > testDibSect.pl
        > > > > line 5.
        > > > > >
        > > > > > Which is a very elementary error. It means
        > > that
        > > > > DibSect is not
        > > > > > there.
        > > > > >
        > > > > > Can anyone suggest any way of getting
        > DibSect
        > > to
        > > > > work? The only
        > > > > > reference I can find is
        >
        === message truncated ===




        __________________________________
        Do you Yahoo!?
        Check out the new Yahoo! Front Page.
        www.yahoo.com
      • Nicole Sheldon
        Victor, Thanks! That was it. After uninstalling v1.3 using: ppm uninstall Win32-GuiTest I installed the newer version using: install
        Message 3 of 11 , Nov 8, 2004
        View Source
        • 0 Attachment
          Victor,

          Thanks! That was it.

          After uninstalling v1.3 using:
          ppm> uninstall Win32-GuiTest

          I installed the newer version using:
          install
          C:\temp\Win32-GuiTest-1.50.2-ad\Win32-GuiTest.ppd

          After that, my test program worked perfectly!

          Thanks again,

          N


          BTW, for future reference, the test script is:

          # testDibSect.pl

          use Win32::GuiTest qw(:ALL);

          $ds = new Win32::GuiTest::DibSect();

          my @windows = FindWindowLike(0, "C",0);

          for (@windows) {
          SetForegroundWindow($_);
          $ds->CopyWindow($_);
          $ds->ToGrayScale();
          $ds->SaveAs("c:\\bla.bmp");
          $ds->ToClipboard();
          }


          --- Victor Ziv <victor_ziv@...> wrote:

          >
          > Hi Nicole,
          >
          > Here is the link to ver. 1.50.2-ad on the CPAN
          > archive.
          >
          http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-ad/
          >
          > You can manually download the ZIP file and extract
          > somewhere on your local disk.
          >
          > The INSTALLATION part of readme.html (comes with the
          > package) stands for the following:
          >
          >
          > -- start of quote
          >
          > If you are using ActivePerl 5.6
          >
          (http://www.activestate.com/Products/ActivePerl/index.html)
          > you can install the binary package I am including
          > instead. You will need to enter PPM (Perl Package
          > Manager) from the command-line. Once you have
          > extracted the files I send you to a directory of
          > your
          > machine, enter PPM and do like this:
          >
          > C:\TEMP>ppm
          > PPM interactive shell (2.0) - type 'help' for
          > available commands.
          > PPM> install C:\temp\win32-guitest.ppd
          > Install package 'C:\temp\win32-guitest.ppd?'
          > (y/N): Y
          > Retrieving package
          > 'C:\temp\win32-guitest.ppd'...
          > Writing
          > C:\Perl\site\lib\auto\Win32\GuiTest\.packlist
          > PPM>
          >
          > I extracted them to 'c:\temp', please use the
          > directory where you extracted the files instead.
          >
          > -- end of quote
          >
          >
          > I ran the above procedure on Active State Perl 5.8.3
          > and it worked all right. You'll probably have to
          > uninstall the ver. 1.3 before...
          >
          > Hope it helps.
          >
          > Victor.
          >
        Your message has been successfully submitted and would be delivered to recipients shortly.