Re: Retrieving Files via 'net with Euphoria Program
Cool Thanks
On Wed, 20 Oct 2004 03:09:14 -0700, Derek Parnell
<guest at rapideuphoria.com> wrote:
>
> posted by: Derek Parnell <ddparnell at bigpond.com>
>
> Tony Steward wrote:
> >
> > I used this routine it works just like clicking on a download link.
> >
> > sequence DummyFirst, DummyLast, DummyMiddle
> > integer handle
> > DummyFirst = "<html>\n<head>\n<meta http-equiv=refresh"
> > & " content=\"0;\nurl="
> > if equal("http", recData[2][1..4]) then
> > DummyMiddle = recData[2]
> > else
> > DummyMiddle = "<a
> > href="http://www.rapideuphoria.com">http://www.rapideuphoria.com</a>" & "\\" &
> > recData[2]
> > end if
> >
> > DummyLast = "\">\n</head>\n</html>"
> >
> > handle=open("download.htm", "w" )
> > puts(handle, DummyFirst & DummyMiddle & DummyLast )
> > close(handle)
> > -- EXECUTE THE Download
> > shellExecute("open","download.htm",SW_SHOWNORMAL)
> >
>
> You don't have to create a dummy file to do this. Try ...
>
> sequence URL
>
> URL = "http://www.rapideuphoria.com"
> shellExecute("open",URL, SW_SHOWNORMAL)
>
> --
> Derek Parnell
> Melbourne, Australia
>
>
> This email was sent to: tony.steward at gmail.com
>
>
>
--
Regards
Tony Steward
www.locksdownunder.com
IF IT IS TO BE IT IS UP TO ME!
|
Not Categorized, Please Help
|
|
