Как взять объект по адресу в интернете?

DNT

Постоялец форума
Lotus team
12.10.2005
594
2
#1
Есть например ссылочка:

"http://fin.1c.ua/1c/cb/840.tsv"

Как на LS "взять" этот текст, чтоб потом обрабатывать его как текстовую строку?
Как указать проксю? Имя и пароль?
Спасибки.
 
R

rols

#3
URL url = new URL("http://fin.1c.ua/1c/cb/840.tsv");
InputStream stream = url.openStream();
BufferedReader reader = new BufferedReader(new InputStreamReader(stream, "windows-1251"));
например так используя яву!
 

DNT

Постоялец форума
Lotus team
12.10.2005
594
2
#5
Вопщем, порывшись по форуму, решил сделать таким способом:
...
url = "http://www......"
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Const HTTPREQUEST_PROXYSETTING_PROXY = 2
Const AutoLogonPolicy_Always = 0
Dim httpobj As Variant
Print "Create оbject winhttp.winhttprequest.5.1 ..."
Set httpobj=CreateObject("winhttp.winhttprequest.5.1")
Print "Object winhttp.winhttprequest.5.1 CREATED !!!"
httpobj.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "195.32.1.10:3128", ""
Call httpobj.Open("GET", url, False)
httpobj.SetCredentials "domain\user","password",HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
httpobj.SetAutoLogonPolicy AutoLogonPolicy_Always
httpobj.setRequestHeader "CACHE_CONTROL", "no-cache"
httpobj.setRequestHeader "CONNECTION", "Close"
Call httpobj.Send("")
ProcessPage$=httpobj.ResponseText
Set httpobj=Nothing​
...

В итоге в переменной ProcessPage$ я получаю запрашиваемую страничку и далее работаю с ней.
Так вот, на локалке работает, на серваке по расписанию не хочет:

ругается "cannot create automation object" на строке Set httpobj=CreateObject("winhttp.winhttprequest.5.1")

На агенте стоит "2. Allow restricted ..."

Как бороться?
 

DNT

Постоялец форума
Lotus team
12.10.2005
594
2
#6
Незнаю как, но сегодня ночью агент отработал ...
Будем посмотреть ...