D
D!m@n
Доброго времени суток!
Есть код, который берет из инета содержимое веб-страницы и запихивает в поле текущего документа. Сама веб-страница в Win-1251.
В результате в поле вместо русских букв - абракадабра.
Провел эксперимент: если сохранить содержимое этого поля в файле с помощью NotesStream, используя кодировку Unicode, а потом открыть в браузере как Win-1251 - то появляются русские буквы
О чем это говорит? И как привести получаемый контент к нормальному виду?
Код прилагаю.
Заранее спасибо!
Есть код, который берет из инета содержимое веб-страницы и запихивает в поле текущего документа. Сама веб-страница в Win-1251.
В результате в поле вместо русских букв - абракадабра.
Провел эксперимент: если сохранить содержимое этого поля в файле с помощью NotesStream, используя кодировку Unicode, а потом открыть в браузере как Win-1251 - то появляются русские буквы

О чем это говорит? И как привести получаемый контент к нормальному виду?
Код прилагаю.
Заранее спасибо!
Код:
Dim uiw As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim thisdoc As NotesDocument
Dim httpobj As Variant
Dim url As String
Set uidoc=uiw.CurrentDocument
Set thisdoc=uidoc.Document
url=thisdoc.URL(0)
Set httpobj=CreateObject("winhttp.winhttprequest.5.1")
Call httpobj.Open("GET", url, False)
'это кодировка самой строки - урла (?)
httpobj.Option(2) = "Windows-1251" ' WinHttpRequestOption_URLCodePage = 2
Call httpobj.SetRequestHeader ("Accept-Language", "ru")
httpobj.SetRequestHeader "Accept-Charset", "Windows-1251"
httpobj.setRequestHeader "Accept-Encoding", "gzip, deflate"
httpobj.setRequestHeader "Content-Language", "ru"
httpobj.setRequestHeader "Content-Charset", "Windows-1251"
httpobj.setRequestHeader "Content-Encoding", "gzip, deflate"
httpobj.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=Windows-1251"
httpobj.setRequestHeader "CACHE_CONTROL", "no-cache"
httpobj.setRequestHeader "CONNECTION", "Close"
Call httpobj.Send()
Call thisdoc.ReplaceItemValue("receivedText", httpobj.ResponseText)
Call uidoc.Refresh
Set httpobj=Nothing