Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите Очень срочно / 6 сообщений из 6, страница 1 из 1
18.01.2016, 10:38
    #39149385
*\/*#*
*\/*#*
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите Очень срочно
Для запроса наименования банка по БИК
использую такой код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim strData As String
Dim strResponse As String
Dim objHTTP As Object
Dim strpost As String
strData = "postparam=postval&postparam2=postval2"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "post", "http://www.bik-info.ru/api.html?type=xml&bik=046014327", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send strData
strResponse = objHTTP.responseText
'обработка строки strResponse


но ответ приходит кракозябрами.
на сайте написано www.bik-info.ru:
В формате XML: http://www.bik-info.ru/api.html?type=xml&bik=НОМЕР_БИК (Кодировка Windows-1251)
как исправить помогите очень надо и очень срочно. Нужно делать платежки а наименование банка не получается узнать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2016, 11:17
    #39149411
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите Очень срочно
*\/*#*,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim strData As String
Dim strResponse As String
Dim objHTTP As Object
Dim strpost As String
strData = "postparam=postval&postparam2=postval2"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "post", "http://www.bik-info.ru/api.html?type=xml&bik=046014327", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Accept-Charset", "Windows-1251" 'Попробуйте так
objHTTP.send strData
strResponse = objHTTP.responseText
'обработка строки strResponse
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2016, 11:47
    #39149452
*\/*#*
*\/*#*
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите Очень срочно
Agapov_stas,

не помогло,
теже самые кракозябры и при присоединении .dbf файлов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2016, 12:10
    #39149482
2993
2993
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите Очень срочно
*\/*#*,

17807383
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2016, 12:42
    #39149522
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите Очень срочно
Найти в реестре: ...\JET\4.0\Engines\Xbase "DataCodePage"=OEM и поменять на "DataCodePage"=ANSI
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2016, 13:32
    #39149583
*\/*#*
*\/*#*
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите Очень срочно
2993,

Спасибо использовал код по ссылке. Все работает на ура. Еще раз спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите Очень срочно / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 166ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1614060]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 23ms
total:  166ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]