Серый форум — AHK: Проблемы с кодировкой при HTTP запросе.

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (Malcev) — Tue, 15 Jan 2019 07:46:44 +0000

wisgest, мне кажется, что ваш вариант неправильный.
Вы получаете массив байтов, а записываете его как текст.
Правильно делать как-то так:

whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "http://185.228.233.140:7777/?method=message.get&login=Randewoo&message_id=1", false)
whr.Send()

ADODBStream := ComObjCreate("ADODB.Stream")
ADODBStream.Type := 1 ; Binary data
ADODBStream.Mode  := 3 ;adModeReadWrite
ADODBStream.Open()
ADODBStream.Write(whr.ResponseBody)
ADODBStream.Position := 0
ADODBStream.Type := 2 ;adTypeText
ADODBStream.Charset := "UTF-8"

MsgBox, % ADODBStream.ReadText()
ADODBStream.Close()

Хотя зачем использовать вообще ADODBStream, когда можно взять напрямую из памяти?

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (wisgest) — Tue, 15 Jan 2019 05:37:10 +0000

teadrinker, а у меня их нет.
Попробовал

MsgBox, % Substr(ADODBStream.ReadText(), 3)

— начинается сразу с «response"{"code":503,…».

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (teadrinker) — Mon, 14 Jan 2019 21:31:08 +0000

Я тоже так предположил, но зачем он в тексте.

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (stealzy) — Mon, 14 Jan 2019 21:17:38 +0000

BOM

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (teadrinker) — Mon, 14 Jan 2019 18:57:39 +0000

wisgest, ваш почему-то выдаёт два нечитаемых знака в начале текста:

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (Finx) — Mon, 14 Jan 2019 17:45:18 +0000

teadrinker, wisgest, большое Вам спасибо. Все работает!

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (wisgest) — Mon, 14 Jan 2019 15:18:22 +0000

Вот ещё на всякий случай способ:

whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "http://185.228.233.140:7777/?method=message.get&login=Randewoo&message_id=1", false)
whr.Send()

ADODBStream := ComObjCreate("ADODB.Stream")
ADODBStream.Type := 2 ;adTypeText
ADODBStream.Mode  := 3 ;adModeReadWrite
ADODBStream.Open()
;ADODBStream.Charset := "UTF-16"
ADODBStream.WriteText(whr.ResponseBody)
ADODBStream.Position := 0
ADODBStream.Charset := "UTF-8"

MsgBox, % ADODBStream.ReadText()
ADODBStream.Close()

Re: AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (teadrinker) — Mon, 14 Jan 2019 14:09:14 +0000

Возможные варианты:

url := "http://185.228.233.140:7777/?method=message.get&login=Randewoo&message_id=1"
whr := ComObjCreate("Microsoft.XmlHttp")
whr.Open("GET", url, false)
whr.Send()
MsgBox, % whr.ResponseText

url := "http://185.228.233.140:7777/?method=message.get&login=Randewoo&message_id=1"
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", url, false)
whr.Send()
body := whr.responseBody
pdata := NumGet(ComObjValue(body) + 8 + A_PtrSize)
length := body.MaxIndex() - body.MinIndex() + 1
MsgBox, % text := StrGet(pdata, length, "utf-8")

AHK: Проблемы с кодировкой при HTTP запросе.

null@example.com (Finx) — Mon, 14 Jan 2019 12:46:13 +0000

Привет.
Собственно, проблема в том, что я не могу получить корректный текст (кириллицу) из HTTP запроса.
Вот сам запрос:

http://185.228.233.140:7777/?method=message.get&login=Randewoo&message_id=1

В браузере (по крайней мере - у меня) все отлично работает, кириллица корректно отображается.
Но когда я делаю этот-же запрос, но через AHK, у меня выводит следующее вот это - http://prntscr.com/m6zg9m
Я указывал разные заголовки, которые указаны в браузере. Но ничего не сработало.
Вот сам код:


execute(array) {
		whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
		whr.Open("GET", this.scheme "://" this.domain this.build_http_array(array), true)
		whr.SetRequestHeader("Content-Type", "application/json;q=0.9,*/*;q=0.8")
		whr.SetRequestHeader("Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3")
		whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:64.0) Gecko/20100101 Firefox/64.0")
		whr.Send()
		whr.WaitForResponse()
		FileAppend, % whr.ResponseText
		, % A_MyDocuments "\requests_log.txt"
		, UTF-8
		return ParseJson(whr.ResponseText)
}

Буду очень благодарен за помощь!