powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / PUT json
7 сообщений из 7, страница 1 из 1
PUT json
    #39445795
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте! Пытаюсь создать запись на сервере, получаю

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
{
  "timestamp" : "2017-04-28T00:26:24+0300",
  "status" : 400,
  "error" : "Bad Request",
  "exception" : "org.springframework.http.converter.HttpMessageNotReadableException",
  "message" : "Bad Request",
  "path" : "/1.0/user/backlog"
}



Что может быть не так?

процедура:
Код: vbnet
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.
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "PUT", sBaseUrl & "/1.0/user/backlog", False
    http.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
    http.setRequestHeader "Authorization", "AccessToken " & sToken
    http.setRequestHeader "X-User-Authorization", sAuthoriztion
    
    
Dim bPOST() As Byte, PostData As String
    PostData = PostData & "{"
    PostData = PostData & ",""address-type-to"":""DEFAULT"""
    PostData = PostData & ",""given-name"":""" & GET_PersonalName_By_Type(tFirmContragent, "N") & """"
    PostData = PostData & ",""house-to"":""" & GET_House_By_Address(tClientAddress) & """"
    PostData = PostData & ",""index-to"":" & GET_PostCode_By_AddressDatas(tClientAddress_Datas)
    PostData = PostData & ",""mail-category"":""" & CategoryRPO & """"
    PostData = PostData & ",""mail-direct"":643"
    PostData = PostData & ",""mail-type"":""" & TypeRPO & """"
    PostData = PostData & ",""mass"":" & iWeight
    PostData = PostData & ",""middle-name"":""" & GET_PersonalName_By_Type(tFirmContragent, "P") & """"
    PostData = PostData & ",""order-num"":""" & Format(nz(Me.Controls(Me!txt_Frm_Prfx & "ID"), 0), "000000") & """"
    PostData = PostData & ",""place-to"":""" & GET_City_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""insr-value"":" & nz(Me.Controls(Me!txt_Frm_Prfx & "Sum_Declared_Value"), 0) * 100
    PostData = PostData & ",""postoffice-code"":""" & 111033 & """"
    PostData = PostData & ",""region-to"":""" & GET_RegionName_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""street-to"":""" & GET_Street_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""surname"":""" & GET_PersonalName_By_Type(tFirmContragent, "S") & """"
    PostData = PostData & ",""tel-address"":" & tFirmContragent_Phone
    PostData = PostData & ",""fragile"":false"
    PostData = PostData & "}"
    
    bPOST = StrConv(PostData, vbFromUnicode)
    http.send (bPOST)

    
    GetText = GET_JSON_decode(http.ResponseText)
    Set http = Nothing
...
Рейтинг: 0 / 0
PUT json
    #39445875
UTF-8,
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
style1,

пишешь, что будешь передавать данные в
Код: vbnet
1.
charset=UTF-8"


а по факту, передаёшь в "default code page of the system" (который наверняка не UTF-8)
Код: vbnet
1.
bPOST = StrConv(PostData, vbFromUnicode)


это как минимум
...
Рейтинг: 0 / 0
PUT json
    #39445951
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UTF-8,,
в UTF-8 строку тоже переводил... такой же ответ
...
Рейтинг: 0 / 0
PUT json
    #39446008
aleks2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть такая хрень Telerik Fiddler Web Debugger. Бесплатная.

Позволяет увидеть любой вебзапрос с вашего компутера.

1. Можно увидеть.
2. Если есть возможность отправить правильный запрос "другими средствами" - можно сравнить.
3. И починить.
...
Рейтинг: 0 / 0
PUT json
    #39446286
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
aleks2,

Удобная программка, спасибо.
Ничем она мне правда не помогла.
...
Рейтинг: 0 / 0
PUT json
    #39446450
UTF-8,
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
style1UTF-8,,
в UTF-8 строку тоже переводил... такой же ответпоказывай, как "переводил"
...
Рейтинг: 0 / 0
PUT json
    #39446471
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UTF-8,,
вот здесь взял функцию http://www.sql.ru/forum/1004364/opentextfile-utf-8?hl=encodeutf8
EncodeUTF8()

запрос
Код: java
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
{
"address-type-to":"DEFAULT",
"given-name":"Александр",
"house-to":"123",
"index-to":236010,
"mail-category":"SIMPLE",
"mail-direct":643,
"mail-type":"POSTAL_PARCEL",
"mass":120,
"middle-name":"",
"order-num":"000210",
"place-to":"Калининград г",
"postoffice-code":"111033",
"region-to":"Калининградская обл",
"street-to":"Красносельская ул",
"surname":"Качинский",
"tel-address":89161234567,
"fragile":false
}
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / PUT json
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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