I am interested in accessing the Internet from OI.

A discussion in March suggested the following code:

subroutine internet(parent)

declare function Get_Property, ShellExecute

handle=Get_Property(Parent, 'HANDLE')

Op='

File=c:\windows\internet.tst'

Params='

dir=C:\windows\'

x=ShellExecute(Handle, Op, File, Params, Dir, 1)

return

However, I get a SYS1000 (unable to find ShellExecute).

Anyone know what needs to be added?

How can Netscape be run once the connection is established?

Rose-

The code snippet you've displayed appears to try to launch a browser. Is this what you want to do, or do you want to make your data available to the web?

Mike

Rose,

ShellExcute is a Windows API function exported from an external DLL (SHELL.DLL), so as this is not an integral Basic+ function we need to create a 'pointer' to it so that OI can find it. Some of these pointers to API functions are already defined ( such as FindWindow ) but in the case of ShellExecute we have to do this ourselves. Creating these pointers is covered in the Basic+ On-Line help, and also in this document Aliasing DLL Functions and I suggest you look at these first. But anyway,

1) Go into the System Editor and open a new record

2) On the first line enter the name of the DLL without it's extension, in this case SHELL

3) On the next line we need to enter the parameter types of the API function we wish to call, so enter

USHORT PASCAL ShellExecute( USHORT, LPCHAR, LPCHAR, LPCHAR, LPCHAR, SHORT )

4) Save the record in the SYSPROCS table as DLL_SHELL

5) In the System Editor Exec line execute the command "RUN DECLARE_FCNS 'DLL_SHELL'"

You should now have a pointer to the DLL function and be able to use it like any other Basic+ function.

One word of warning…whenever you are passing a string to a DLL function, remember to append a Char(0) to the end of it, otherwise you may get some unpredictable results!

[email protected]

Sprezzatura Ltd

World Leaders in all things RevSoft

Mike,

I dont know what I'm doing!

I copied the code from an earlier discussion.

I just wanted to access the Internet via Netscape and through an OI program.

Do you know of any code to do this?

Rose:

The following code placed on the click event of a butto

launched Netscape and opened the rev home page for me.

x=Utility("RUNWIN","C:\PROGRA~1\NETSCAPE\COMMUN~1\PROGRAM\NETSCAPE.EXE www.revelation.com")

Hope this helps

Bob Carten

[email protected]

RETURN 0

View this thread on the forum...