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

Тема в разделе "Lotus - Программирование", создана пользователем DNT, 29 май 2008.

  1. DNT

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    Есть например ссылочка:

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

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    notesDatabase.GetDocumentByURL
     
  3. rols

    rols Гость

    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"));
    например так используя яву!
     
  4. Sandr

    Sandr Гость

    поройдесь на форуме, была целая тема...
     
  5. DNT

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    Вопщем, порывшись по форуму, решил сделать таким способом:
    ...
    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 ..."

    Как бороться?
     
  6. DNT

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    Незнаю как, но сегодня ночью агент отработал ...
    Будем посмотреть ...
     
Загрузка...

Поделиться этой страницей