perl2exe ?

[Roman Fordinal]

Wednesday, October 30, 2002, 10:56:20 AM, you wrote:

LP> ZDravim Perlisty

LP> Muzete mi napsat neco blizsiho o perlapp. Co to potrebuje a kde se to vezme.
LP> Perklad do binarky pod Wokna me velmi zajima.
perlapp produkuje ako sucat PDK 5.0 spolocnost www.activestate.com
je tam volne na stiahnutie plne fcny trial na 21 dni.
priklad kodu je napr.
tu uz vyuzivam nadstavby ako GUI::Loft a GUI::AxWindow
prajem vela zabavy :)

#!/usr/local/bin/perl
use strict;
use Win32::GUI;
use Win32::GUI::Loft;
use Win32::GUI::AxWindow;
use FetchInspector;

eval
{
 winConfig();
};
Win32::GUI::MessageBox(0, "Error: $@", "Fetch URL Demo") if($@);

my $Control;

sub winConfig
{
 my $objDesign = Win32::GUI::Loft::Design->newLoad("statistic.gld");
 my $objInspector = FetchInspector->new();
 my $win = $objDesign->buildWindow(undef, $objInspector);

 $win->form_subtype->InsertItem("graph_day");

 $win->form_db->InsertItem("spravy");

 $win->form_host->InsertItem("localhost");

 $win->Show();

 $Control = new Win32::GUI::AxWindow  (
                -parent  => $win->gbBrowse,
                -name    => "Control",
                -control => "{8856F961-340A-11D0-A96B-00C04FD705A2}",
                -pos     => [2, 8],
                -size    => [431, 240],
 );
 $Control->CallMethod("Navigate", 'http://localhost');

 Win32::GUI::Dialog();
 return(1);
}

sub ::btnCancel_Click
{
 defined(my $win = $Win32::GUI::Loft::window{mainWin}) or return(1);
 return(-1);
}

sub ::btnOK_Click
{
 defined(my $win = $Win32::GUI::Loft::window{mainWin}) or return(1);

 $Control->CallMethod("Navigate",
        "http://localhost/core.pl?type=".$win->form_subtype->Text().
        "&x=".$win->form_x->Text().
        "&y=".$win->form_y->Text().
        "&host=".$win->form_host->Text().
        "&db=".$win->form_db->Text().
        "&pomer=".$win->form_pomer->GetCheck().
        "&no=".$win->form_no->Text().
        "&t=".time.
        "&only=".$win->form_only->GetCheck());
 return(1);
}

sub ::mainWin_Terminate
{
 defined(my $win = $Win32::GUI::Loft::window{mainWin}) or return(1);
 return(-1);
}
#EOF


  

:
:..                      Roman Fordinal
:.: fordinal na slovanet.sk