Вверх ↑
Этот топик читают: Гость
Ответов: 286
Рейтинг: 5
#31: 2017-10-02 15:38:08 ЛС | профиль | цитата
Не получится.В первом запросе получается токен и секрет необходимый для второго запроса.Не могу понять почему HTTPClient неправильно отрабатывает запрос с access_token.А он вообще предназначен для работы с https
карма: 0

0
Ответов: 4621
Рейтинг: 746
#32: 2017-10-02 15:44:32 ЛС | профиль | цитата
Но в браузере второй запрос работает! Повтори его на HTTPClient (тупо скопируй готовый URL) и сообщи о результате. Если получит тот же результат, что в браузере - значит, у тебя проблема с обработкой результата первого запроса и формированием второго (о чём и свидетельствует ошибка аутентификации).

Редактировалось 1 раз(а), последний 2017-10-02 16:00:43
карма: 26

0
Ответов: 286
Рейтинг: 5
#33: 2017-10-02 16:10:55 ЛС | профиль | цитата
Да ты прав.Все работает если готовый урл напрямую подавать.И что теперь делать?
карма: 0

0
Ответов: 4621
Рейтинг: 746
#34: 2017-10-02 16:14:39 ЛС | профиль | цитата
Разбираться почему неправильно работает схема между двумя запросами. Внимательно смотри что у тебя выдаёт первый запрос и FormatStr после первого запроса.
карма: 26

0
Ответов: 286
Рейтинг: 5
#35: 2017-10-02 16:35:29 ЛС | профиль | цитата
Все башка уже кругом.Так самое интересное я урл для второго запроса для подачи напрямую беру в разрыве между подачей его на HTTPClient.Значит первый запрос и FormatStr после первого запроса работает правильно.

Add(HTTPClient,15812528,329,147)
{
EncType=1
Boundary=""
Point(PostData)
link(URL,14280894:FString,[])
link(onFinish,15577976:doEvent1,[])
}
Add(Thread,11610816,266,147)
{
FastStop=0
link(onExec,15812528:doLoadString,[])
}
Add(Button,4806645,161,140)
{
Left=955
Top=60
Width=100
Height=35
Font=[MS Sans Serif,10,1,0,1]
Caption="Первый"
link(onClick,9425255:doEvent1,[])
}
Add(Memo,1887413,994,273)
{
Left=30
Top=170
Width=900
Height=115
FileName="1.txt"
ScrollBars=3
}
Add(BlockFind,9560056,413,154)
{
IncludeBlock=1
StartBlock="{"access_token":""
EndBlock="","expires_in"
link(onSearch,8708102:doValue,[])
}
Add(Hub,15577976,378,154)
{
OutCount=4
link(onEvent1,9560056:doSearch,[])
link(onEvent2,514870:doSearch,[(402,167)(402,209)])
}
Add(BlockFind,514870,413,203)
{
IncludeBlock=1
StartBlock="secret":""
EndBlock=""}"
link(onSearch,3229096:doValue,[])
}
Add(Memory,8708102,469,154)
{
}
Add(Memory,3229096,476,203)
{
link(onData,12075861:doString,[])
}
Add(FormatStr,13345695,763,203)
{
Mask="https://api.vk.com:443/method/execute.getUserInfo?access_token=%1&sig=%2\r\n"
Point(FString)
link(onFString,8310882:doText,[])
link(Str1,762216:Var2,[(769,181)(510,181)])
link(Str2,16587885:Value,[(776,191)(744,191)(744,247)(713,247)])
}
Add(FormatStr,12075861,539,203)
{
Mask="/method/execute.getUserInfo?access_token=%1%2"
Point(FString)
link(onFString,4759444:doHashsum,[])
link(Str1,762216:Var3,[(545,195)])
link(Str2,3229096:Value,[(552,191)(517,191)(517,247)(482,247)])
}
Add(Hashsum,4759444,595,203)
{
link(onResult,11835991:doModify,[])
link(Data,12075861:FString,[(601,191)(573,191)(573,247)(545,247)])
}
Add(StrCase,11835991,651,203)
{
link(onModify,16587885:doValue,[])
}
Add(Memory,16587885,707,203)
{
link(onData,13345695:doString,[])
}
Add(GetDataEx,762216,504,190)
{
Angle=3
link(Data,8708102:Value,[(475,195)])
}
Add(Thread,2724903,854,266)
{
FastStop=0
link(onExec,5232470:doLoadString,[])
}
Add(Charset,2355244,945,273)
{
Type=7
}
Add(FormatStr,14280894,329,98)
{
Mask="https://oauth.vk.com:443/token?grant_type=password&scope=nohttps&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username=%1&password=%2"
Point(FString)
link(Str1,8165020:Text,[(335,82)(300,82)])
link(Str2,7065608:Text,[(342,82)(363,82)])
}
Add(Edit,8165020,294,35)
{
Left=55
Top=10
Width=165
Text=""
}
Add(Edit,7065608,357,35)
{
Left=255
Top=10
Width=195
Text=""
}
Add(Hub,9425255,210,140)
{
link(onEvent1,14280894:doString,[(276,146)(276,104)])
link(onEvent2,11610816:doStart,[])
}
Add(HTTPClient,5232470,903,266)
{
link(URL,8770407:Text,[(909,244)(895,244)])
link(onFinish,1887413:doAdd,[])
}
Add(Edit,8310882,819,203)
{
Left=35
Top=75
Width=890
Text="Первый копировать"
link(Str,13345695:FString,[(825,191)(797,191)(797,247)(769,247)])
}
Add(Button,14886303,799,270)
{
Left=950
Top=125
Width=100
Height=35
Font=[MS Sans Serif,10,1,0,1]
Caption="Второй"
link(onClick,2724903:doStart,[(843,276)(843,272)])
}
Add(Edit,8770407,889,203)
{
Left=35
Top=125
Width=890
Text="Второй"
}

карма: 0

0
Ответов: 4621
Рейтинг: 746
#36: 2017-10-02 16:53:01 ЛС | профиль | цитата
У тебя в последнем FormatStr в конце лишний перевод строки. Прямо в свойстве Mask (не открывая редактора) убери в конце \r\n и пробуй.
карма: 26

0
Ответов: 286
Рейтинг: 5
#37: 2017-10-03 05:18:55 ЛС | профиль | цитата
Netspirit спасибо.Вот что значит невнимательность.Уже хотел бросать это чертово айпи
карма: 0

0
37
Сообщение
...
Прикрепленные файлы
(файлы не залиты)