Re: Retrieving Files via 'net with Euphoria Program

new topic     » goto parent     » topic index » view thread      » older message » newer message 

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

new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu