Thanks
chris
www.perl-resume.com
----- Original Message -----
From: Reini Urban <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, January 15, 2001 12:40 PM
Subject: Re: [perl-win32-gui-users] VB dialup code
> christopher sagayam schrieb:
> > can anyone tell me the equivalent of
> > "Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
> > "InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
> > ByVal dwReserved As Long) As Long"
> > in perl ?
> >
> > I mean the vb code is accessing a function present in the wininet.dll I
> > believe ..how to do the same using PERL...
>
> "Declare" is the FFI statement which declares a VB function as external,
> defined dynamically.
> The perl counterpart would be using one of the modules
> Win32::API (also written by Aldo), FFI or C::Dynalib.
>
> You normally don't need a FFI as in VB to declare functions. you just
> have a look into various modules if they aren't defined statically there.
> E.g. Win32::GUI defines all Win32 GUI methods and callbacks.
> Win32::RASE e.g. has your required function defined statically.
>
> however to answer your question, the perl equivalent is:
>
> # VB: "Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
> # "InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As
Long,
> # ByVal dwReserved As Long) As Long"
>
> use Win32::API;
> $InternetGoOnline = new Win32::API("wininet", "InternetGoOnlineA",
[P,N,N],
> N);
>
> # sample usage:
> $url = "http://www.myserver.com\0";; # ASCIIZ string!
> $result = $InternetGoOnline->Call($url,0,0);
>
> The FFI and C::Dynalib syntax is similar. FFI is the newest,
> supports arbitrary callbacks and is generally the best, but has a GPL
license
> only.
> C::Dynalib and Win32::API have a perl license.
> --
> Reini Urban
> http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
