Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pure Basic
Войти
Регистрация
Восстановить пароль
 
mcleshiy
3 / 3 / 1
Регистрация: 05.05.2013
Сообщений: 143
#1

Запрос GET для QIWI - Pure Basic

19.01.2018, 18:54. Просмотров 422. Ответов 3
Метки нет (Все метки)

Драсьте. Вот код.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
InitNetwork()
 
Global qiwi_token.s= ""
Global qiwi_number.s = "79619783527"
 
Procedure GetToken()
  If ReadFile(0, "qiwi token.txt")
    qiwi_token = ReadString(0)
    CloseFile(0)
  EndIf
EndProcedure
 
Procedure.s PostToHost(Host$, File$) 
  ConnectionID = OpenNetworkConnection(Host$, 80) 
  If ConnectionID 
    String$ = "" 
    String$ + "GET " + File$ + " HTTP/1.1" + Chr(13) + Chr(10)
    String$ + "Accept: application/json" + Chr(13) + Chr(10)
    String$ + "Content-Type: application/json" + Chr(13) + Chr(10)
    String$ + "Authorization: Bearer "+qiwi_token + Chr(13) + Chr(10)
    Debug String$
    SendNetworkString(ConnectionID, String$) 
    Repeat : Until NetworkClientEvent(ConnectionID) = 2 
    Buffer = AllocateMemory(10000) 
    ReceiveNetworkData(ConnectionID, Buffer, 10000) 
    CloseNetworkConnection(ConnectionID) 
    ProcedureReturn PeekS(Buffer) 
  EndIf 
EndProcedure 
 
GetToken()
 
 
Debug PostToHost("edge.qiwi.com", "/person-profile/v1/profile/current")
Debug PostToHost("edge.qiwi.com", "/payment-history/v1/persons/"+qiwi_number+"/payments?rows=10")
 
; user@server:~$ curl "https://edge.qiwi.com/payment-history/v1/persons/79112223344/payments?rows=10"
;   --header "Accept: application/json"
;   --header "Content-Type: application/json"
;   --header "Authorization: Bearer YUu2qw048gtdsvlk3iu"
; Send
ответы не приходят, но если
http://www.cyberforum.ru/vb-net/thread1460032.html

PureBasic
1
Debug PostToHost("edge.qiwi.com", "/person-profile/v1/profile/current")
заменить на
PureBasic
1
Debug PostToHost("edge.qiwi.com", "person-profile/v1/profile/current")
придёт код ошибки 400, т.е. сервер получает данные. что я делаю не так?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2018, 18:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Запрос GET для QIWI (Pure Basic):

Бот для qiwi/webmoney
Собственно нужен бот, который будет проверять новые платежи. При поступления...

Работа БД с qiwi
Всем привет) Как реализовать такой скрипт? Вот например мне на qiwi пришло 5...

Qiwi класс
Есть qiwi класс Есть скрипт написанный для этого класса Но проблема...

Авторизация на qiwi
Добрый день, прошу помощи, не могу авторизироватся на qiwi, вот код ...

Проверка QIWI
Всем привет! Уважаемые программисты, подскажите, пожалуйста, как проверить...

3
locm
2126 / 854 / 112
Регистрация: 28.10.2011
Сообщений: 2,666
Записей в блоге: 6
19.01.2018, 20:33 #2
PureBasic
1
String$ + "Authorization: Bearer "+qiwi_token + Chr(13) + Chr(10) + Chr(13) + Chr(10)
0
mcleshiy
3 / 3 / 1
Регистрация: 05.05.2013
Сообщений: 143
19.01.2018, 23:03  [ТС] #3
эмм... только вот постоянно приходит код 400. документация говорит, что неверный синтаксис, если посылать запрос как вы указали
0
Faiotti
29 / 30 / 15
Регистрация: 24.01.2018
Сообщений: 132
01.02.2018, 03:22 #4
Следует найти исходник на каком-либо другом языке, отсылающий какой-либо запрос к этому API.
С этим API не работал, но посмотрел документацию и вижу примеры как минимум на curl.

После этого следует сравнить тот и другой запрос с помощью сниффера - например, Fiddler - и плясать от этого.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2018, 03:22
Привет! Вот еще темы с решениями:

Python и Qiwi
Здравствуйте как с помощью питона , авторизоваться на киви , и возвратить из...

Python QIWI
Привет всем, как авторизоваться сейчас в киви? API не предлагать его сложно...

Все в Qiwi
Ребят, мне нужно обменять Яндекс.Деньги и Webmoney на Qiwi Резерв: 16.01 WMZ...

Запрос, использующие в качестве источника данных предыдущий запрос (сумма всех заказов для каждого заказчика)
Здравствуйте! Буду рада любой помощи. Ситуация следующая: имеется запрос,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru