1. HTML question
- Posted by sixs at ida.net
Sep 28, 2003
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C385DF.01CD9F80
charset="iso-8859-1"
I am submitting a line to get a web page.
When I put the line in Windows Explorer I get the page.
When I have this line submitted in a Euphoria program it tells me I =
can't find the page.Should I have a special charcter or ?
The last field I have defined asobject, sequence.
JIM
http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER=3DKKD
------=_NextPart_000_0008_01C385DF.01CD9F80
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1226" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I am submitting a line to get a web=20
page.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>When I put the line in Windows Explorer =
I get the=20
page.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>When I have this line submitted in a =
Euphoria=20
program it tells me I can't find the page.Should I have a special =
charcter or=20
?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>The last field I have defined asobject, =
sequence.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>JIM</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2><A=20
href=3D"http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER=3DKKD"=
http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER=3DKKD</A></FO=
------=_NextPart_000_0008_01C385DF.01CD9F80--
2. Re: HTML question
- Posted by rml at rubis.trix.net
Sep 29, 2003
Hi Jim;
How did you submit the line using euphoria ?
Send the code so we can see what's going wrong.
Rubens
At 19:38 28/9/2003, you wrote:
>When I put the line in Windows Explorer I get the page.
>When I have this line submitted in a Euphoria program it tells me I can't
>find the page.Should I have a special charcter or ?
>The last field I have defined asobject, sequence.
>JIM
>
>><http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER=KKD>http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER=KKD
>
>
>
>TOPICA - Start your own email discussion group. FREE!
3. Re: HTML question
- Posted by sixs at ida.net
Sep 29, 2003
Here is the procedure to call the web pageThis is some code part of which is
from eutcp
===================================
procedure onClick_GoButton(atom id, atom event, sequence params)
integer urlLength, htmlfilelength
sequence URLtext, htmltext, htmlfile, htmldef, line_return, wwwperiod,
wwwdef
htmldef = ".html"
wwwdef = "www."
line_return = "\n"
proxy = "" -- if you have no proxy
--proxy = "209.249.147.13:8080" -- proxy details here if you use one
remote_file =
"http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER='KKD'" --&
stockID
local_file = "yahoo.html"
puts(1,remote_file &"\n")
--trace(3)
-- show a little intro
setText(RE,"Download Web File Demo\n")
-- initiaise tcp4u
if tcp4u_init() != TCP4U_SUCCESS then
wait_abort("tcp4u_init error")
end if
-- these are the defaults but included for testing
http4u_set_buffer_size(4096)
http4u_set_timeout(60)
-- get the file
setText(RE, ("...downloading file \nfrom '%s'" )) --, \nto '%s' \nusing
proxy '%s'\n",))
-- ({remote_file, local_file, proxy}) )
URLtext = getText(URLBox)
urlLength = length(URLtext)
if urlLength < 8 then
setText(errBox, "too short URL")
return
end if
setText(errBox, URLtext )
htmlfile = URLtext[7..urlLength]
htmlfilelength = length(htmlfile)
wwwperiod = htmlfile[1..4]
if compare(wwwperiod, wwwdef) then
htmlfile = htmlfile[5..htmlfilelength]
end if
--htmltext = line[1..length(URLBox)]
htmlfile = lTrim(htmlfile)
setText(RE, htmlfile & line_return )
htmlfile = (htmlfile & htmldef)
setText(RE, htmlfile & line_return )
htmlfile = "c:\\euphoria\\demo\\eutcp\\ down.html" --& htmlfile
setText(RE, htmlfile & line_return )
return_code = http4u_get_file(URLtext, NULL,
"c:\\euphoria\\demo\\eutcp\\rapideuphoria.html")
setText(RE,"Error downloading file '%s'\n") --,
({http4u_error_string(return_code)}) )
setText(RE, return_code & line_return )
if return_code = HTTP4U_SUCCESS then
setText(RE, "...file downloaded successfully\n")
else
setText(RE, "Error downloading file '%s'\n") --,
{http4u_error_string(ret)} )
end if
end procedure
----- Original Message -----
From: <rml at rubis.trix.net>
To: "EUforum" <EUforum at topica.com>
Sent: Sunday, September 28, 2003 6:18 PM
Subject: Re: HTML question
>
>
> Hi Jim;
>
> How did you submit the line using euphoria ?
> Send the code so we can see what's going wrong.
>
>
> Rubens
>
> At 19:38 28/9/2003, you wrote:
>
> >When I put the line in Windows Explorer I get the page.
> >When I have this line submitted in a Euphoria program it tells me I can't
> >find the page.Should I have a special charcter or ?
> >The last field I have defined asobject, sequence.
> >JIM
> >
>
><http://webservices.pcquote.com/cgi-bin/excelget.exe?TICKER=KKD>http://webs
ervices.pcquote.com/cgi-bin/excelget.exe?TICKER=KKD
> >
> >
> >TOPICA - Start your own email discussion group. FREE!
>
> --^----------------------------------------------------------------
> This email was sent to: sixs at ida.net
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
