## Load URL stack
## By Eric Chatonet
## 7/10/05
## http://www.sosmartsoftware.com/
on preOpenStack
set the style of this stack to modeless
set the loc of this stack to the screenLoc
end preOpenStack
------------------------------
on preOpenCard
if the short name of me <> the short name of this stack then exit preOpenCard
put empty into fld "UserInfo"
put empty into fld "UserInfo2"
set the thumbPos of sb "Progress" to 0
end preOpenCard
------------------------------
on closeStack
if the short name of me <> the short name of this stack then exit closeStack
CloseSubstacks --
UnloadAllUrls --
end closeStack
------------------------------
on CloseSubstacks
repeat for each line tSubStack in the substacks of this stack
close stack tSubStack
end repeat
end CloseSubstacks
------------------------------
on UnloadAllUrls
local tUrl
-----
repeat for each line tUrl in the cachedURLs
unload URL tUrl
end repeat
end UnloadAllUrls
P>on linkClicked pLink set the linkText of the clickChunk to empty switch pLink case "sosmartsoftware.com" revGoUrl "http://www.sosmartsoftware.com" break default lock screen repeat 2 find string pLink in target end repeat find empty unlock screen end switch end linkClicked X cREVGeometryCacheIDs 1120920444330 10221115824545996 10321118333234592 10151120920450292 10261120970996883 10301118327321787 10041120974866267 10341118328890823 10101118328265702 10081121071103439 10461121000236414 10351120920424547 10241121000236415 10361121000236416 10371118327373933 10061121000236420 10411118328937685 10121120971869846 16001121000221140 10451121000236421 10431121000236422 10441120920585665 10271120920330455 10191120920379612 10211120918553789 10171121071193478 1047 cREVGeometrycache total 26order 1115824545996 1121071193478 cREVGeneral scriptChecksum ~/>[ bookmarks handlerList linkClicked breakPoints scriptSelection char 53 to 52 prevHandler preOpenCard tempScript script ?on linkClicked pLink
set the linkText of the clickChunk to empty
switch pLink
case "sosmartsoftware.com"
revGoUrl "http://www.sosmartsoftware.com"
break
default
lock screen
repeat 2
find string pLink in target
end repeat
find empty
unlock screen
end switch
end linkClicked
@ SSS.png Hon mouseDown revGoUrl "http://www.sosmartsoftware.com" end mouseDown 0 " -PNG IHDR " . pHYs .# .#x?v 9iCCPPhotoshop ICC profile xڝwTTϽwz0z.0. Qf Ml@DEHb!(`HPb0dFJ|yyǽgs{. $O ./ 'z8WGб x 0Y驾A@$/7z HeOOҬT _lN:K"N3"$F/JPrb[䥟}Qd [Sl1x{#bG\NoX3I[ql2 $ 8xtr p/8 pCfq.Knjm͠{r28?.)ɩL^6 g,qm"[Z[Z~Q7%" 3R `̊j[~ : w! $E}kyhyRm333 : }=#vʉe tqX)I)B>== <8Xȉ9on mouseDown
revGoUrl "http://www.sosmartsoftware.com"
end mouseDown
Tabs } on menuPick pNew,pOld hide grp pOld show grp pNew if the menuhistory of me = 2 then select text of fld "Url1" else if the menuhistory of me = 3 then select text of fld "Url2" unlock screen with visual effect dissolve very fast end menuPick General Load URL Get URL cREVGeneral scriptChecksum d zq [1=,˻ bookmarks revUniqueID 1120918553789 handlerList menuPickscriptSelection char 238 to 237 prevHandler menuPick tempScript scripton menuPick pNew,pOld
hide grp pOld
show grp pNew
if the menuhistory of me = 2 then select text of fld "Url1"
else if the menuhistory of me = 3 then select text of fld "Url2"
unlock screen with visual effect dissolve very fast
end menuPick
Load URL a ( 6 cREVGeneral revUniqueID 1120920379612 Url1 )` , f cREVGeneral revUniqueID 1118327321787 http://www.runrev.com Load Url Ep## LOAD URL METHOD SCRIPT ---------------------------------------- on mouseUp local tUrl,tFldName ----- put fld "Url1" into tUrl -- the url we want to load if tUrl = empty or not IsAValidUrl(tUrl) then answer error "The url does not seem a valid url." with "Sorry" -- -- see the IsAValidUrl function below else put the short name of fld 2 into tFldName -- the field which displays information when downloading LoadUrlWithMessage tUrl,tFldName -- -- see below end if end mouseUp ---------------------------------------- function IsAValidUrl pUrl return matchText(pUrl,"^((ht|f)tp(s?))\://([0-9a-zA-Z" \ & "\-]+\.)+[a-zA-Z]{2,6}(\:[0-9]+)?(/\S*)?$") -- regex expression which return true or false end IsAValidUrl ---------------------------------------- on LoadUrlWithMessage pUrl,pFldName -- 2 parameters: the url and the short name of the field which displays information set the uCancelMessage of this stack to false -- this custom property is used to trigger when the user clicks on the Cancel button unload url pUrl -- cleanup for demo: you will not use this line in real scripts load url pUrl -- main command ShowInfo pUrl,pFldName -- -- ShowInfo (see below) is a pending message which monitors download status every 10 milliseconds end LoadUrlWithMessage ---------------------------------------- on ShowInfo pUrl,pFldName local tStatus,tResult ----- put URLStatus(pUrl) into tStatus -- see the URLStatus function in the docs switch case the uCancelMessage of this stack -- means the uCancelMessage of this stack = true set the thumbPos of sb "Progress" to 0 put "Download canceled" into fld pFldName disable btn "Cancel" unload url pUrl -- cleanup: the user canceled then you clear the cache exit to top case word 1 of tStatus = "queued" set the thumbPos of sb "Progress" to 0 put "Queued to" && UrlDomain(pUrl) into fld pFldName -- see this function below break case word 1 of tStatus = "contacted" case word 1 of tStatus = "requested" set the thumbPos of sb "Progress" to 0 put "Contacting" && UrlDomain(pUrl) into fld pFldName -- see this function below enable btn "Cancel" break case word 1 of tStatus = "error" set the thumbPos of sb "Progress" to 0 put "Sorry: invalid URL or no connection" into fld pFldName disable btn "Cancel" exit to top case tStatus = empty set the thumbPos of sb "Progress" to 0 put "Sorry: invalid URL" into fld pFldName disable btn "Cancel" exit to top case word 1 of tStatus = "timeout" set the thumbPos of sb "Progress" to 0 put "Sorry: time out" into fld pFldName disable btn "Cancel" exit to top case word 1 of tStatus = "cached" set the thumbPos of sb "Progress" to the endValue of sb "Progress" put "Download complete" into fld pFldName disable btn "Cancel" DisplayData pUrl -- -- see this handler below exit ShowInfo case item 1 of tStatus = "loading" if the number of items of tStatus > 2 then -- last item of urlStatus (total bytes to download) can be empty set the endValue of sb "Progress" to item -1 of tStatus set the thumbPos of sb "Progress" to item -2 of tStatus end if put "Downloading" && UrlFile(pUrl) into fld pFldName -- see this function below break end switch send "ShowInfo" && pUrl & comma & pFldName to me in 10 milliseconds -- message sent every 10 milliseconds end ShowInfo ---------------------------------------- on DisplayData pUrl switch UrlExtension(pUrl,1) -- : see this function below case "gz" switch UrlExtension(pUrl,2) -- case "rev" -- compressed rev stack case "mc" -- compressed metacard stack go decompress(url pUrl) break default -- other compressed file type answer info "File not supported." with "Sorry" as sheet end switch break case "rev" -- compressed rev stack case "mc" -- metacard stack go url pUrl break default -- assumes it's html set the htmlText of fld "Display" of stack "LCDisplay" to url pUrl -- LCDisplay is a substack set the label of stack "LCDisplay" to pUrl -- for demo purposes put the result into tResult -- error management if tResult <> empty then close stack "LCDisplay" -- LCDisplay is a substack answer error "Error:" && tResult as sheet else modeless stack "LCDisplay" -- LCDisplay is a substack end if end switch end DisplayData ---------------------------------------- function UrlExtension pUrl,pItem set the itemDel to "." return item - pItem of pUrl end UrlExtension ---------------------------------------- function UrlDomain pUrl -- additional cosmetic function :-) set the itemDel to slash return item 3 of pUrl end UrlDomain ---------------------------------------- function UrlFile pUrl -- additional cosmetic function :-) set the itemDel to slash return item -1 of pUrl end UrlFile R ;Click here to load and display the currently specified url cREVGeneral scriptChecksum YwX`&GaZR breakPoints handlerList ZmouseUp IsAValidUrl LoadUrlWithMessage ShowInfo DisplayData UrlExtension UrlDomain UrlFilescriptSelection char 29 to 28 revUniqueID 1118327373933 bookmarks tempScript prevHandler ShowInfoscript 2## LOAD URL METHOD SCRIPT
----------------------------------------
on mouseUp
local tUrl,tFldName
-----
put fld "Url1" into tUrl -- the url we want to load
if tUrl = empty or not IsAValidUrl(tUrl) then
answer error "The url does not seem a valid url." with "Sorry" --
-- see the IsAValidUrl function below
else
put the short name of fld 2 into tFldName
-- the field which displays information when downloading
LoadUrlWithMessage tUrl,tFldName --
-- see below
end if
end mouseUp
----------------------------------------
function IsAValidUrl pUrl
return matchText(pUrl,"^((ht|f)tp(s?))\://([0-9a-zA-Z" \
& "\-]+\.)+[a-zA-Z]{2,6}(\:[0-9]+)?(/\S*)?$")
-- regex expression which return true or false
end IsAValidUrl
----------------------------------------
on LoadUrlWithMessage pUrl,pFldName
-- 2 parameters: the url and the short name of the field which displays information
set the uCancelMessage of this stack to false
-- this custom property is used to trigger when the user clicks on the Cancel button
unload url pUrl -- cleanup for demo: you will not use this line in real scripts
load url pUrl -- main command
ShowInfo pUrl,pFldName --
-- ShowInfo (see below) is a pending message which monitors download status every 10 milliseconds
end LoadUrlWithMessage
----------------------------------------
on ShowInfo pUrl,pFldName
local tStatus,tResult
-----
put URLStatus(pUrl) into tStatus -- see the URLStatus function in the docs
switch
case the uCancelMessage of this stack -- means the uCancelMessage of this stack = true
set the thumbPos of sb "Progress" to 0
put "Download canceled" into fld pFldName
disable btn "Cancel"
unload url pUrl -- cleanup: the user canceled then you clear the cache
exit to top
case word 1 of tStatus = "queued"
set the thumbPos of sb "Progress" to 0
put "Queued to" && UrlDomain(pUrl) into fld pFldName -- see this function below
break
case word 1 of tStatus = "contacted"
case word 1 of tStatus = "requested"
set the thumbPos of sb "Progress" to 0
put "Contacting" && UrlDomain(pUrl) into fld pFldName -- see this function below
enable btn "Cancel"
break
case word 1 of tStatus = "error"
set the thumbPos of sb "Progress" to 0
put "Sorry: invalid URL or no connection" into fld pFldName
disable btn "Cancel"
exit to top
case tStatus = empty
set the thumbPos of sb "Progress" to 0
put "Sorry: invalid URL" into fld pFldName
disable btn "Cancel"
exit to top
case word 1 of tStatus = "timeout"
set the thumbPos of sb "Progress" to 0
put "Sorry: time out" into fld pFldName
disable btn "Cancel"
exit to top
case word 1 of tStatus = "cached"
set the thumbPos of sb "Progress" to the endValue of sb "Progress"
put "Download complete" into fld pFldName
disable btn "Cancel"
DisplayData pUrl --
-- see this handler below
exit ShowInfo
case item 1 of tStatus = "loading"
if the number of items of tStatus > 2 then
-- last item of urlStatus (total bytes to download) can be empty
set the endValue of sb "Progress" to item -1 of tStatus
set the thumbPos of sb "Progress" to item -2 of tStatus
end if
put "Downloading" && UrlFile(pUrl) into fld pFldName -- see this function below
break
end switch
send "ShowInfo" && pUrl & comma & pFldName to me in 10 milliseconds
-- message sent every 10 milliseconds
end ShowInfo
----------------------------------------
on DisplayData pUrl
switch UrlExtension(pUrl,1) -- : see this function below
case "gz"
switch UrlExtension(pUrl,2) --
case "rev" -- compressed rev stack
case "mc" -- compressed metacard stack
go decompress(url pUrl)
break
default -- other compressed file type
answer info "File not supported." with "Sorry" as sheet
end switch
break
case "rev" -- compressed rev stack
case "mc" -- metacard stack
go url pUrl
break
default -- assumes it's html
set the htmlText of fld "Display" of stack "LCDisplay" to url pUrl
-- LCDisplay is a substack
set the label of stack "LCDisplay" to pUrl -- for demo purposes
put the result into tResult
-- error management
if tResult <> empty then
close stack "LCDisplay"
-- LCDisplay is a substack
answer error "Error:" && tResult as sheet
else
modeless stack "LCDisplay"
-- LCDisplay is a substack
end if
end switch
end DisplayData
----------------------------------------
function UrlExtension pUrl,pItem
set the itemDel to "."
return item - pItem of pUrl
end UrlExtension
----------------------------------------
function UrlDomain pUrl
-- additional cosmetic function :-)
set the itemDel to slash
return item 3 of pUrl
end UrlDomain
----------------------------------------
function UrlFile pUrl
-- additional cosmetic function :-)
set the itemDel to slash
return item -1 of pUrl
end UrlFile
Progress ia 3 7 P 73860 cREVGeneral revUniqueID 1118328265702 Cancel Ep Gon mouseUp set the uCancelMessage of this stack to true end mouseUp f R cREVGeneral scriptChecksum I3 RHyc" bookmarks revUniqueID 1118328890823 handlerList mouseUpscriptSelection char 1 to 69 prevHandler mouseUp tempScript scripton mouseUp
set the uCancelMessage of this stack to true
end mouseUp
UserInfo @ , cREVGeneral revUniqueID 1118328937685 Load URL )` @ , / cREVGeneral scriptChecksum ُ B~ revUniqueID 1120920330455 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Load URL Method 5This second section explores the following features: @ 4 $ Advantages of the Load Url method @ 1600 ! Disadvantages @ 1600 Refering to an Url @ 1600 The Loadcommand @ 1600 ) Monitoringthe load command by oneself @ 1600 & 5 Allowing the user to cancel a download in progress @ 1600 2 Using the libURL commands @ 1600 0 Displaying the contents of the downloaded Url @ 1600 - Clearing the cache @ 1600 " Vocabulary used in this section @ 1600 glossary/command.xml #Advantages of the Load Url method: " The load command is non-blocking, so it does not stop the current handler or the user actions while the download is completed. @ 1600 glossary/command.xml glossary/nondashblocking.xml " " glossary/handler.xml D K glossary/download.xml j r >In fact the load command downloads the URL in the background. dictionary/load_command.xml glossary/command.xml dictionary/URL_keyword.xml ' * j In addition, this method allows to monitor the download by checking the URLStatus function (see below). @ 1600 H "dictionary/URLStatus_function.xml J S *dictionary/function_control_structure.xml T IThen the process is much more reliable than by using the get URL method. *dictionary/function_control_structure.xml H *dictionary/function_control_structure.xml Disadvantages *dictionary/function_control_structure.xml *dictionary/function_control_structure.xml T To take all advantages of download monitoring a lot of scripting is necessary :-) @ 1600 *dictionary/function_control_structure.xml Q Refering to an url When your scripts refer to any url, the engine fisrt has a look to the contents of the cachedUrls (the urls that have been downloaded and copied to the cache using the load command). The cachedUrls function returns all cached urls, one per line. @ 1600 { glossary/download.xml } glossary/cache.xml dictionary/load_command.xml glossary/command.xml H If the url is already cached, Rev uses it otherwise Rev downloads it. (see Displayingthe contents of the downloaded Url below). @ 1600 G H M - z glossary/command.xml glossary/command.xml The Loadcommand glossary/command.xml glossary/command.xml 6See the docs for a complete overview of this command. glossary/command.xml 5 #But here are some tips and tricks: glossary/command.xml " glossary/command.xml The command allows to specify a call back message: it seems to be its strong point. But in fact, you will prefer to send a message repeatedly by yourself (a pending message) to check the download process since the callback message is only sent when download is completed: @ 1600 C D load url tUrl -- main command @ @ hh"" ShowInfo tUrl -- @ hh"" B -- ShowInfo is a pending message which monitors download status @ hh"" ? -- see below @ hh"" 'Monitoringthe load command by oneself glossary/command.xml & And there is a built-in function named UrlStatus (see in the docs), which is much more efficient than the callback message you can send with the load command. MHere are listed all the different status returned by the urlStatus function: on ShowInfo pUrl @ local tStatus @ ----- @ hh"" # put URLStatus(pUrl) into tStatus @ @ switch @ $ case word 1 of tStatus = "queued" @on mouseUp
edit script of btn "Load Url"
end mouseUp
Option Menu u 8on menuPick pItem put pItem into fld 1 end menuPick , H GChoose an url example in this menu or type your own in the field below http://www.runrev.com http://www.runrev.com http://www.google.com/ http://www.sosmartsoftware.com/?r=revolution_index&l=en http://www.sosmartsoftware.com/downloads/AnswerPatch26.rev cREVGeneral scriptChecksum R} b$ revUniqueID 1120974866267 bookmarks handlerList menuPick tempScript prevHandler scriptSelection char 41 to 40scripton menuPick pItem
put pItem into fld 1
end menuPick
General i ( D cREVGeneral revUniqueID 1120920450292 General )` @ , H cREVGeneral scriptChecksum ُ B~ revUniqueID 1120920444330 bookmarks handlerList tempScript prevHandler linkClickedscriptSelection char 1 to 0script #How-To Stack #018 by Eric Chatonet @ " @ 7/12/05 Initial release @ 37/23/05 Added libURLSetStatusCallback description @ @ # 712/3/05 Added explanations about canceling a download @ / ) in progress with the Load URL method. @ @ % @ oThis stack shows how to retrieve data from the internet and discuss 2 different methods: load url and get url. @ n CNote that this tutorial does not explore any method using sockets. @ B Enjoy! @ @ 4This first section explores the following features: @ 3 @ < Why would you choose to use Load Url rather than Get Url? @ 1600 9 ( Checking the user internet connection @ 1600 % Checking an url validity @ 1600 $ Displaying the contents of an url @ 1600 ! " Vocabulary used in this section @ 1600 @ @ :Why would you choose to use Load Url rather than Get Url? 9 ]Advantages and disadvantages of both methods are discussed further in their repective panes. \ sBut keep in mind first that you might prefer to use Load Url method for long downloads anf Get Url for short ones: r This means that to download a web page (usually from 1 to 10 KB) you might prefer the Get Url method but for downloading a 500 KB file, the Load Url seems preferable. 5Of course, this depends on the connection speed too. 4 &Checking the user internet connection % j Before downloading any data from the web, the first thing to do is to check if the user is connected:-) @ 1600 g As Rev does not provide any function to check this, the easiest way to achieve it is to try to download a well known url like http://www.google.com/ or an url from your own web server. @ 1600 ~There are other methods that don't rely that specific web sites are on line but they appear less reliable in practical terms. } 7You can use a very simple function like the following: function IsInternetConnected @ blue / return url "http://www.google.com/" <> empty @ blue & end IsInternetConnected @ brown The function will return the html source of the page or empty if there is no connection *to the specified page*. It's the reason why you will prefer to use a very reliable url the contents of which is light in order to be fast... @ 1600 0 EAnd you will use a conditional structure to check user's connection: if IsInternetConnected() then @ brown @ brownon mouseUp
if IsInternetConnected() then answer info "You are connected to the internet." as sheet
else answer error "You are not connected to the internet." as sheet
end mouseUp
------------------------------
function IsInternetConnected
return url "http://www.google.com/" <> empty
end IsInternetConnected
scripton mouseUp
if IsInternetConnected() then answer info "You are connected to the internet." as sheet
else answer error "You are not connected to the internet." as sheet
end mouseUp
------------------------------
function IsInternetConnected
return url "http://www.google.com/" <> empty
end IsInternetConnected
@ Flche2.png PNG IHDR Kpl_ pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?,Xv$ϯ.?~~e'P#@ 11 @ ?~23_k_?V@p /÷>|()%ţ,%-F2\@ *n w JU牓/_ o_ū(II` b`AM]Nk5 _ ,? d +@ 021~K?@fӬ ~W XXY};w<||| ߿}Kw^W @ koǑ74;Gڷo_߿uLL7qe` &Fqϟ_sPuFFf bA8`(10r =zk~ Tx NP `=l|, IENDB` cREVGeneral revUniqueID 1120971869846 Print... Ep Xon mouseUp revPrintField the name of field (the hilitedText of btn tabs) end mouseUp v3 R *Click here to print current pane contents cREVGeometry Master,expectedRect 320,586,420,609Master,scalebottomDistance Master,movevDistance -26Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,scalerightDistance Master,moveVObjectRef cardMaster,moveVAbsolute trueMaster,cardRanking 1 Master,moveV trueMaster,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum ] 5Xt+( bookmarks revUniqueID 1115824545996 handlerList mouseUpscriptSelection char 91 to 90 prevHandler mouseUp tempScript scripton mouseUp
revPrintField the name of field (the hilitedText of btn tabs)
end mouseUp
Get URL a ( 6 cREVGeneral revUniqueID 1121000236414 Url2 )` , f cREVGeneral revUniqueID 1121000236415 http://www.runrev.com Get URL Ep## GET URL METHOD SCRIPT ---------------------------------------- on mouseUp local tUrl,tFldName ----- put fld "url2" into tUrl -- the url we want to load if tUrl = empty or not IsAValidUrl(tUrl) then answer error "The url does not seem a valid url." with "Sorry" -- -- see the IsAValidUrl function below else set the cursor to watch put "Downloading" into fld "UserInfo2" -- information when downloading put url tUrl into tPage if "## GET URL METHOD SCRIPT
----------------------------------------
on mouseUp
local tUrl,tFldName
-----
put fld "url2" into tUrl -- the url we want to load
if tUrl = empty or not IsAValidUrl(tUrl) then
answer error "The url does not seem a valid url." with "Sorry" --
-- see the IsAValidUrl function below
else
set the cursor to watch
put "Downloading" into fld "UserInfo2"
-- information when downloading
put url tUrl into tPage
if "<frameset" is in tPage then
put BuildHTMLFromFrames(tPage) into tPage --
-- then put the right html text into the variable
-- see this function below
end if
-----
put "Download complete" into fld "UserInfo2"
DisplayData tUrl,tPage --
-- see this handler below
end if
end mouseUp
----------------------------------------
function IsAValidUrl pUrl
return matchText(pUrl,"^((ht|f)tp(s?))\://([0-9a-zA-Z" \
& "\-]+\.)+[a-zA-Z]{2,6}(\:[0-9]+)?(/\S*)?$")
-- regex expression which return true or false
end IsAValidUrl
----------------------------------------
function BuildHTMLFromFrames pUrl
local tPage,tPageLinks,tUrl,tText,tUrlSource
-----
set the itemDel to slash
put url pUrl into tPage
put ExtractLinks(tPage) into tPageLinks --
-- see this function below
-----
repeat for each line tUrl in tPageLinks
if "http" is in tUrl then
-- absolute path
put url tUrl & cr after tText
else
-- relative path converted to absolute path
put pUrl into tUrlSource
put tUrl into last item of tUrlSource
put url tUrlSource & cr after tText
end if
end repeat
-----
return char 1 to -2 of tText
end BuildHTMLFromFrames
---------------------------------
function ExtractLinks pSource
local tLine,tItem,tUrlList
-----
-- Ken Ray provided a regex to do this but it appeared 2 times slower and not as well reliable :-)
-- so I prefered to keep the following one I have wrotten
set the itemDel to numToChar(29)
-- arbitrary but reliable item delimiter: can't be typed by the user
repeat for each line tLine in pSource
if (".htm" is in tLine) or ("http:" is in tLine) or ("https:" is in tLine) then
-- here are some urls
replace quote with numToChar(29) in tLine
repeat for each item tItem in tLine
if ((".htm" is in tItem) or ("http:" is in tItem) or \
("https:" is in tLine)) and not (("microsoft" is in tItem) \
or ("netscape" is in tItem) or ("apple" is in tItem)) \
then put tItem & cr after tUrlList
end repeat
end if
end repeat
return char 1 to -2 of tUrlList
end ExtractLinks
----------------------------------------
on DisplayData pUrl,pData
switch UrlExtension(pUrl,1) -- see this function below
case "gz"
switch UrlExtension(pUrl,2) --
case "rev" -- compressed rev stack
case "mc" -- compressed metacard stack
go decompress(pData)
break
default -- other compressed file type
answer info "File not supported." with "Sorry" as sheet
end switch
break
case "rev" -- compressed rev stack
case "mc" -- metacard stack
go stack pData
break
default -- assumes it's html
set the htmlText of fld "Display" of stack "LCDisplay" to pData
-- LCDisplay is a substack
set the label of stack "LCDisplay" to pUrl -- for demo purposes
put the result into tResult
-- error management
if tResult <> empty then
close stack "LCDisplay"
-- LCDisplay is a substack
answer error "Error:" && tResult as sheet
else
modeless stack "LCDisplay"
-- LCDisplay is a substack
end if
end switch
end DisplayData
----------------------------------------
function UrlExtension pUrl,pItem
set the itemDel to "."
return item - pItem of pUrl
end UrlExtension
Get URL )` @ , / cREVGeneral revUniqueID 1121000236420 Get URL Method 4This third section explores the following features: @ 3 # Advantages of the Get Url method @ 1600 Disadvantages @ 1600 The Get Url command @ 1600 Parsing framed pages @ 1600 Displaying Url contents @ 1600 " Vocabulary used in this section @ 1600 !Advantages of the Get Url method Quick scripting. This method is enough to retrieve the HTML text from a web page but, from a ergonomic point of view, might appear a bit light for downloading large files or usual downloads without a broadband connection. @ 1600 B C *dictionary/function_control_structure.xml *dictionary/function_control_structure.xml Disadvantages *dictionary/function_control_structure.xml *dictionary/function_control_structure.xml The get Url command is blocking, so it stops the current handler or the user actions while the download is completed. With a broadband connection and for most of web pages, it's not a real problem. @ 1600 glossary/command.xml glossary/nondashblocking.xml ! glossary/handler.xml ; B glossary/download.xml a i ^ h By way of consequence you are unable to follow download steps and to indicate these ones to the user. @ 1600 ? @ ' S Mastering the process is less reliable but can appear sufficient for most cases. @ 1600 F G The Get url command F In fact what I call the Get Url method can be used in various ways: @ 1600 D get urlon mouseUp
edit script of btn "Get Url"
end mouseUp
Option Menu uput pItem into fld "Url2"
end menuPick
UserInfo2 @ , cREVGeneral revUniqueID 1121071103439 Paypal ep Kon mouseUp revGoUrl UrlDecode(the uPaypalURL of this stack) end mouseUp ,3 R CClick here to support development by making a donation with Paypal Donate... cREVGeometry Master,movevDistance -26Master,scalebottomDistance Master,expectedRect 320,586,420,609Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum :|vDm8 revUniqueID 1121071193478 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 74 to 73scripton mouseUp
revGoUrl UrlDecode(the uPaypalURL of this stack)
end mouseUp
LCDisplay 3 ^LEi http://www.runrev.com U Lucida Grande W Lucida Grande @U Lucida Grande @W Lucida Grande @W Lucida Grande U Lucida Grande U Lucida Grande @U Lucida Grande @U Lucida Grande W Lucida Grande U Lucida Grande cREVGeometryCache stackID 1005 @ Ei cREVGeometryCacheIDs 1120966353211 1004 cREVGeometrycache total 1order 1120966353211 Display )` E[ cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -15Master,expectedRect 0,-1,400,385Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance 0 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1120966353211 ` 4 Y