Add Variable to Web Address

[RKPSR]

I have the following code attached to a button that works fine downloading a file from a fixed web address. I would like to add a variable to the web address so that a user could provide a sub-directory name (by filling in a field which is a global variable) and thereby download a file from that specific location (such as "http://downloads/VARIABLE/xyz.com/test.xls":


dim options as P
options.close_on_complete=.t.
http_download("http://downloads.xyz.com/test.xls", "c:\program files\Census Data 2004\test.xls",.f.,options)


Any code suggestions would be appreciated. Thanks...Rick

[T Sayers]

RE: Add Variable to Web Address

Rick,

I am not on my A5 machine at the moment, but this should work...


dim options as P
options.close_on_complete=.t.

dim global folder as c
dim server as c = "http://downloads.xyz.com/"
dim filename as c = "test.xls"
dim downloadurl as c
downloadurl = server + folder + chr(47) + filename
'Now, the test file may be at the server root, OR users may
'have entered slashes with the folder name so we need to catch
'and fix any double slashes
strtran(downloadurl, "://", "qwerty")
strtran(downloadurl, "//", chr(47))
strtran(downloadurl, "qwerty","://")

http_download(downloadurl,c:\program files\Census Data 2004\test.xls,.f.,options)



Any code suggestions would be appreciated. Thanks...Rick

[T Sayers]

RE: Add Variable to Web Address

Actually, thinking about it, this code doesn't pop up a box to ask the user for the folder, and the folder var doesn't exist prior to the code being run so the folder var would be blank, SO...

Either make a global variable called 'folder' and delete the line...
dim global folder as c
...that way you can give the user access to the folder var from anywhere,
OR
put the following line in after dim global folder...
folder = ui_get_text("Folder path", "Enter the Folder path e.g. \"HR/Staff reports\

[T Sayers]

RE: Add Variable to Web Address

Oops. What happened there?

The last line got chopped. It should read...

folder = ui_get_text("Folder path", "Enter the Folder path e.g. \"HR/Staff reports\"")

[RKPSR]

RE: Add Variable to Web Address

Trevor...I really appreciate your efforts. After various attempts, I still can't get the file to download properly from the sub-directory. The code is below, and as you can see I'm defining the sub-directory via the global variable "password" but without success. Not sure whether http_download()has trouble with the variable "downloadurl". It did require the quotes to prevent an "expected value" error message.


dim options as P
options.close_on_complete=.t.
dim global password as c
dim server as c="http://downloads.xyz.com/"
dim filename as c="census.xls"
dim downloadurl as c
downloadurl = server + password + chr(47)+ filename
http_download("downloadurl","c:\program files\Census Data 2004\census.xls",.f.,options)


Feel free to comment. Thanks again for the help.

Rick

[RKPSR]

RE: Add Variable to Web Address

Trevor..I stopped being stupid and removed the quotes("")from the variable inside the function and it works just fine.

Your code was most helpful. Thanks again.

Rick