Ken,

Thanks. That works just fine for me.


-Henry



From: Ken Cornetet
Sent: Thu 2/24/2005 9:55 AM
To: henry; perl-win32-users@listserv.ActiveState.com; perl-win32-admin@[...].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@[...].com
[mailto:perl-win32-users-bounces@[...].com] On Behalf Of
henry
Sent: Wednesday, February 23, 2005 5:23 PM
To: perl-win32-users@listserv.ActiveState.com;
perl-win32-admin@[...].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