[prev in list] [next in list] [prev in thread] [next in thread]
List: perl-win32-users
Subject: RE: Bitmap Display
From: henry <henry () hish ! net>
Date: 2005-02-24 18:49:04
Message-ID: 2EA3F6E0-B342-4AFA-BD1F-1A5730D3FD38 () mimectl
[Download RAW message or body]
[Attachment #2 (multipart/alternative)]
Ken,
Thanks. That works just fine for me.
-Henry
From: Ken Cornetet
Sent: Thu 2/24/2005 9:55 AM
To: hescobar@travelone.net
serv.ActiveState.com
Subject: RE: Bitmap Display
Drive IE via OLE
use strict;
use Win32;
use Win32::OLE;
my $ie = Win32::OLE->new('InternetExplorer.Application');
$ie->Navigate("about:blank");
$ie->{Toolbar} = 0;
$ie->{StatusBar} = 0;
$ie->{Width} = 800;
$ie->{Height} = 400;
$ie->{Left} = 0;
$ie->{Top} = 0;
while( $ie->{Busy} ) {
Win32::Sleep(200);
}
$ie->{Visible} = 1;
$ie->Document->Body->{InnerHTML} = '<h1>Please Wait...</h1><img
src="file://c:\gifs\peasant.jpg">';
# Rem put your code here. For testing, we 'll just sleep for a while
sleep(10);
$ie->Quit;
exit 0;
-----Original Message-----
From: perl-win32-users-bounces@listserv.ActiveState.com
[mailto:perl-win32-users-bounces@listserv.ActiveState.com] On Behalf Of
henry
Sent: Wednesday, February 23, 2005 5:23 PM
To: hescobar@travelone.net
perl-win32-admin@listserv.ActiveState.com
Subject: Bitmap Display
OK folks, here's my dilemma. I'm not a TK or Win32:GUI user and am not
sure if they are the right tools for this. I'm trying to display a
bitmap with a JPG/BMP/GIF file to tell people to wait while the script
runs. I'd also like to include a little caption below the pic. I guess
I'm looking to make it look like some of those application startup
splash screens. If anyone knows what's a nice quick way to do this (one
that doesn't include becoming a TK guru) I'd appreciate any help or
pointer. Thanks in advance.
-Henry
[Attachment #5 (text/html)]
<HTML dir=ltr><HEAD></HEAD>
<BODY>
<DIV id=idOWAReplyText94316 dir=ltr>
<DIV dir=ltr><FONT face=Arial color=#000000 size=2>Ken,</FONT></DIV>
<DIV dir=ltr><FONT face=Arial size=2><BR>Thanks. That works just fine for \
me.</FONT></DIV> <DIV dir=ltr><FONT face=Arial color=#000000 \
size=2></FONT> </DIV></DIV> <DIV id=idSignature71235>
<DIV><FONT face=Arial color=#000000 size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>-Henry</FONT></DIV></DIV>
<DIV dir=ltr><BR>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> Ken Cornetet<BR><B>Sent:</B> Thu 2/24/2005 9:55 \
AM<BR><B>To:</B> henry; perl-win32-users@listserv.ActiveState.com; \
perl-win32-admin@listserv.ActiveState.com<BR><B>Subject:</B> RE: Bitmap \
Display<BR></FONT><BR></DIV> <DIV><PRE style="WORD-WRAP: break-word">Drive IE via OLE
use strict;
use Win32;
use Win32::OLE;
my $ie = Win32::OLE->new('InternetExplorer.Application');
$ie->Navigate("about:blank");
$ie->{Toolbar} = 0;
$ie->{StatusBar} = 0;
$ie->{Width} = 800;
$ie->{Height} = 400;
$ie->{Left} = 0;
$ie->{Top} = 0;
while( $ie->{Busy} ) {
Win32::Sleep(200);
}
$ie->{Visible} = 1;
$ie->Document->Body->{InnerHTML} = '<h1>Please \
Wait...</h1><img src="file://c:\gifs\peasant.jpg">';
# Rem put your code here. For testing, we 'll just sleep for a while
sleep(10);
$ie->Quit;
exit 0;
-----Original Message-----
From: perl-win32-users-bounces@listserv.ActiveState.com
[mailto:perl-win32-users-bounces@listserv.ActiveState.com] On Behalf Of
henry
Sent: Wednesday, February 23, 2005 5:23 PM
To: hescobar@travelone.net
perl-win32-admin@listserv.ActiveState.com
Subject: Bitmap Display
OK folks, here's my dilemma. I'm not a TK or Win32:GUI user and am not
sure if they are the right tools for this. I'm trying to display a
bitmap with a JPG/BMP/GIF file to tell people to wait while the script
runs. I'd also like to include a little caption below the pic. I guess
I'm looking to make it look like some of those application startup
splash screens. If anyone knows what's a nice quick way to do this (one
that doesn't include becoming a TK guru) I'd appreciate any help or
pointer. Thanks in advance.
-Henry
</PRE></DIV></BODY></HTML>
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic