On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение



Пост N: 24
Зарегистрирован: 12.05.14
ссылка на сообщение  Отправлено: 23.07.21 09:58. Заголовок: Получение JSON


Всем привет!
Поставлена задача передать данные из базы на некий портал через JSON. К сожалению, никогда с этим не сталкивался. Если кто-то занимался таким, помогите пожалуйста!

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 9 [только новые]


постоянный участник




Пост N: 3795
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 23.07.21 10:53. Заголовок: Allcome http://www...


Allcome
http://www.kresin.ru/hrbfaq_3.html#Doc13_12
поищите темы в поиске сайта по слову "json"

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 25
Зарегистрирован: 12.05.14
ссылка на сообщение  Отправлено: 23.07.21 11:01. Заголовок: SergKis, спасибо, по..


SergKis, спасибо, поищу!!!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 3796
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 23.07.21 11:15. Заголовок: посмотрите Changelog..


посмотрите Changelog.txt в minigui там ссылки на примеры

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 26
Зарегистрирован: 12.05.14
ссылка на сообщение  Отправлено: 23.07.21 11:54. Заголовок: SergKis, посмотрю об..


SergKis, посмотрю обязательно, спасибо

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 1709
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 23.07.21 12:42. Заголовок: Allcome пишет: Пост..


Allcome пишет:

 цитата:
Поставлена задача передать данные из базы на некий портал через JSON


Самый простой способ через OLE


 

cjSon := '{ "order": { "ID": "ASC" }, "start" : "'+ hb_ntoc(nStart) + '", "select": [ "*", "UF_*" ] }'
cRet := PostJson( cUrl, cjSon )

Func PostJson( cUrl, cJson )
local oHttp := CreateObject( 'MSXML2.XMLHTTP' )
oHttp:Open( "POST", cUrl, .F. )
oHttp:SetRequestHeader( "Content-Type","application/json")
oHttp:Send( cJson )
return oHttp:ResponseBody


PostJson() можно на hb_tip() сделать если тот что выше будет капризничать

PS. сам Json или строкой делаем или через hash, например пишем запись в json
 
Func Rec2JSON()
LOCAL n := 0
LOCAL aFields
LOCAL cJson := ""
LOCAL aH := hb_Hash()
for n := 1 TO Fcount()
aH[FieldName(n)] := FieldGet(n)
end
cJson := hb_JsonEncode( aH )
Return cJson


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 27
Зарегистрирован: 12.05.14
ссылка на сообщение  Отправлено: 23.07.21 15:51. Заголовок: Haz, благодарствую!..


Haz, благодарствую!

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 28
Зарегистрирован: 12.05.14
ссылка на сообщение  Отправлено: 26.07.21 15:06. Заголовок: Я получил json строк..


Я получил json строку. А как её посмотреть, отправить и получить ответ?
Помогите, пожалуйста, товарищи!!!

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 7416
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 26.07.21 15:16. Заголовок: Allcome пишет: Я по..


Allcome пишет:

 цитата:
Я получил json строку. А как её посмотреть


? Hb_valtoexp(json)

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 29
Зарегистрирован: 12.05.14
ссылка на сообщение  Отправлено: 26.07.21 15:24. Заголовок: Dima, спасибо!..


Dima, спасибо!

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 12
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет