in reply to Re: save http image data
in thread save http image data

Hi kcella,

Sorry it took me so long to reply.
Have you had a look at Win32::IE::Mechanize?
"This module tries to be a sort of drop-in replacement for WWW::Mechanize. It uses Win32::OLE to manipulate the Internet Explorer."

I think you should have a read at the documentation for this module, it may be the answer to your problem.

Martin

Replies are listed 'Best First'.
Re^3: save http image data
by kcella (Beadle) on Oct 12, 2005 at 22:33 UTC
    Yes. Actually I was already using Win32::OLE before with IE, but there was no way to save image data without having it being interactive.

    It looks like I will have to use WWW::Mechanize to save data and then use IE::Mechanize for any javascript I need to handle. I was just hoping for a cleaner way to handle the save functionality.

    Thanks for all the help, at least I now have some modules I can use that help make my code more concise.

    thanks,
    Kevin
[reply]
      Perhaps I am not picking up what you are saying properly.
      What is to stop you using Win32::IE::Mechanize to do all of this?

      You can use it to open an IE window:
      #!/usr/bin/perl
use Win32::IE::Mechanize;
my $ie = Win32::IE::Mechanize->new( visible => 0 ); # you wanted it no
+t to be a visable window right?

      [download]
      which will be able deal with the JavaScript.
      You could use the $ie->images method similarly to the way you were going to use WWW::Mechanize's $mech->images.
      If I am not understanding some part of the problem let me know.

      Hope this helps.

      Martin
[reply]
[d/l]
[select]
        While getting all the images references in the current page is helpful, I need to save them to disk. There is no non-interactive way to do this with Win32::IE::Mechanize.

        $ie->get($url, ":content_file"=>$file);

        The above method does not work for image data. I also get an empty file if I do the following: 
        open(OUT, ">$file");<br>
print OUT $ie->content;<br>
close(OUT);

        [download]
        thanks,
        Kevin
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom