RE: [perl-win32-gui-users] Is possible to modify LWP module in order to avoid a frozen window ?

[Guillem C. W. <vac...@es...>]

Perfect !
Thanks !

I have readed lwpcook while I was understanding http and https but I didn't
pay attention in the last lines !!

If someone want to use it, the content is not $res->content  !!! is the
concatenation(?) of all the $chunk's.

This is not the best way of resolving the frozen window, but It works good.

Thanks again !

-----Mensaje original-----
De: Flame <gu...@us...>
Para: Guillem Cunillera Wefers <vac...@es...>
CC: perlwin32gui <per...@li...>
Fecha: dilluns, 29 / abril / 2002 21:01
Asunto: Re: [perl-win32-gui-users] Is possible to modify LWP module in order
to avoid a frozen window ?


>Sorry if this was already said, but I haven't had time to pay much
>attention lately, and this post caught my interest.  I originally wrote
>this for a program I never released.  Some of what it does may or may
>not be helpful, just edit it to suit your needs.
>
>ok, heres the simple way to keep your dialog active:
>
>my $total = 0;
>my $expected;
>my $result = "";
>$UA->request(HTTP::Request->new(GET=>'www.whatever.com'),
>      sub {
>
>         my($chunk,$res) = @_;
>
>         #Total amount of data downloaded
>         $total += length($chunk);
>
>         #Not important unless you are using the below if statement for
>a status or progress bar.
>         unless(defined $expected){
>            $expected = $res->content_length || 0;
>         }
>
>        #Add the new data to the old data.
>        $result .= $chunk;
>
>         #In this program, I had a status bar, and I was reporting the
>progress on it, could also be used with a progress bar...  Remove if not
>needed.
>         if($expected){
>            $win->StatusBar->Text("Rescieving: $total / $expected");
>         }else{
>            $win->StatusBar->Text("Rescieving: $total / ???");
>         }
>
>         #This is the key!  Keeps the window alive.
>         Win32::GUI::DoEvents() >= 0 or exit;
>
>   });
>
>I'm afraid I can't go into much detail at the moment to explain it, but
>if you have any questions, feel free to ask.
>