Отправлено: 23.07.21 09:58. Заголовок: Получение JSON

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

 Отправлено: 23.07.21 10:53. Заголовок: Allcome http://www...

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

 Отправлено: 23.07.21 11:01. Заголовок: SergKis, спасибо, по..

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

 Отправлено: 23.07.21 11:15. Заголовок: посмотрите Changelog..

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

 Отправлено: 23.07.21 11:54. Заголовок: SergKis, посмотрю об..

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

 Отправлено: 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 
 

 Отправлено: 23.07.21 15:51. Заголовок: Haz, благодарствую!..

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

 Отправлено: 26.07.21 15:06. Заголовок: Я получил json строк..

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

 Отправлено: 26.07.21 15:16. Заголовок: Allcome пишет: Я по..

Allcome пишет:

цитата:

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

? Hb_valtoexp(json)

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

Dima, спасибо!

 Отправлено: 24.09.21 09:09. Заголовок: Прошу помощи! При до..

Прошу помощи!
При добавлении в сборку библиотеки выдаётся следующее

d:/HB/HB30/lib/win/mingw/libhbcurls.a(core.o):core.c:(.text+0x438c): undefined reference to `curl_easy_getinfo'

и так по каждой функции

 Отправлено: 24.09.21 10:32. Заголовок: Allcome Видимо собр..

Allcome
Видимо HBCURL собрал не правильно
У меня батник такой и живет в ....core-master\contrib\hbcurl\

 
 set PATH=%PATH%;C:\MinGW\bin;c:\hb32mingw\bin\ 
 set HB_WITH_CURL=c:\curl\7791\include 
 set HB_STATIC_CURL=yes 
 c:\hb32mingw\bin\hbmk2 hbcurl  
 

 Отправлено: 24.09.21 10:39. Заголовок: После сборки получим..

После сборки получим
libhbcurl.a libhbcurls.a liblibcurl.a которые ложим в папку ...lib\win\mingw\ там где живет MINGW
И 2 либы из поставки LIBCURL (libcurl.a libcurl.dll.a ) так же ложим туда же
Свежий libcurl.dll ложим в папку со свей прогой

 Отправлено: 24.09.21 13:01. Заголовок: Dima пишет: там где..

Dima пишет:

цитата:

там где живет MINGW

Очепятка в папку Harbour

 Отправлено: 24.09.21 13:13. Заголовок: Спасибо Дима! Буду ..

Спасибо Дима!
Буду делать сейчас.

 Отправлено: 24.09.21 13:33. Заголовок: Dima, вопрос в догон..

Dima, вопрос в догонку. У меня нет файла hbcurl.prg. Где его взять? Подскажи пожалуйста.

 Отправлено: 24.09.21 13:59. Заголовок: Allcome пишет: У ме..

Allcome пишет:

цитата:

У меня нет файла hbcurl.prg. Где его взять? Подскажи пожалуйста

А откуда он вдруг нарисовался ?
Cтандартно в сырцах живут:
core.c
hbcurl.ch
hbcurl.hbc
hbcurl.hbm
hbcurl.hbp
hbcurls.hbp
hbcurl.hbx

Сырцы Harbour можно взять по первой ссылке в Теме

 Отправлено: 24.09.21 15:52. Заголовок: Не идёт всё равно d..

Не идёт всё равно

d:\HB\HB30\contrib\hbcurl>0

d:\HB\HB30\contrib\hbcurl>set PATH=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;
C:\Windows\System32\WindowsPowerShell\v1.0\;D:\hwgui\include\;D:\hwgui\lib\;
d:\hb\db30\bin;:\HB\HB30\bin;c:\hb32mingw\bin\

d:\HB\HB30\contrib\hbcurl>set HB_WITH_CURL=d:\HB\HB30\include\

d:\HB\HB30\contrib\hbcurl>set HB_STATIC_CURL=yes

d:\HB\HB30\contrib\hbcurl>d:\HB\HB30\bin\hbmk2 hbcurl
hbmk2: Building sub-project (level 2): hbcurls.hbp
hbmk2: Error: Missing dependency: curl

 Отправлено: 24.09.21 16:52. Заголовок: Так где же живет Har..

Так где же живет Harbour ?
Тут c:\hb32mingw или тут d:\HB\HB30

Allcome пишет:

цитата:

;:\HB\HB30\bin

Буквы еще по ходу не хватает

Allcome пишет:

цитата:

d:\HB\HB30\bin\hbmk2

Это под Borland что ли сборка ?

 Отправлено: 24.09.21 16:56. Заголовок: Allcome пишет: set ..

Allcome пишет:

цитата:

set HB_WITH_CURL=d:\HB\HB30\include\

Dima пишет:

цитата:

set HB_WITH_CURL=c:\curl\7791\include

Уверен что дистриб CURL живет именно тут d:\HB\HB30\include\ ?
У меня последний я тут поселил и его качнуть надо по ходу c:\curl\7791\
Тут брать https://curl.se/windows/dl-7.79.1/curl-7.79.1-win32-mingw.zip

 Отправлено: 27.09.21 09:04. Заголовок: Спасибо за подсказку..

Спасибо за подсказку.
Следующая ошибка:

d:\HB\HB30\contrib\hbcurl>set HB_WITH_CURL=d:\hb\curl\include\

d:\HB\HB30\contrib\hbcurl>set HB_STATIC_CURL=yes

d:\HB\HB30\contrib\hbcurl>d:\HB\HB30\bin\hbmk2 hbcurl
hbmk2: Building sub-project (level 2): hbcurls.hbp
hbmk2: Dependency 'curl' found: d:\hb\curl\include
hbmk2: Compiling Harbour sources...
Harbour 3.0.0 (Rev. 16951)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'hbcurl.hbx'...
Lines 50, Functions/Procedures 1
Generating C source output to '.hbmk\win\bcc\hbcurls\hbcurl.c'... Done.
hbmk2: Compiling...
.hbmk\win\bcc\hbcurls\hbcurl.c:
core.c:
Error E2139 core.c 119: Declaration missing ;
Error E2451 core.c 530: Undefined symbol 'pHash' in function PHB_CURL_free
Error E2451 core.c 532: Undefined symbol 'pHash' in function PHB_CURL_free
Error E2451 core.c 533: Undefined symbol 'pHash' in function PHB_CURL_free
*** 4 errors in Compile ***
hbmk2: Error: Running C/C++ compiler. 1
bcc32.exe -c -q -d -6 -O2 -OS -Ov -Oi -Oc -DCURL_STATICLIB -DHBMK_HAS_CURL -tWM
-w -Q -w-sig- -n.hbmk\win\bcc\hbcurls -Ic:\Borland\BCC55\Include -Id:\HB\HB30\i
nclude -Id:\hb\curl\include .hbmk\win\bcc\hbcurls\hbcurl.c core.c

Что со мной не так?

 Отправлено: 27.09.21 09:12. Заголовок: Allcome пишет: Что ..

Allcome пишет:

цитата:

Что со мной не так?

При чем тут BCC ?
Сборка должна быть выполнена под компилятор MINGW и Harbour собранный им же

 Отправлено: 27.09.21 10:11. Заголовок: Подправил пути, но в..

Подправил пути, но всё равно ошибки.

d:\HB\HB30\contrib\hbcurl>set HB_WITH_CURL=d:\hb\curl\include\
d:\HB\HB30\contrib\hbcurl>set HB_STATIC_CURL=yes

d:\HB\HB30\contrib\hbcurl>d:\HB\HB30\bin\hbmk2 hbcurl
hbmk2: Building sub-project (level 2): hbcurls.hbp
hbmk2: Dependency 'curl' found: d:\hb\curl\include
hbmk2: Compiling...
../../../../core.c:119:4: error: expected specifier-qualifier-list before 'PHB_HASH_TABLE'
../../../../core.c: In function 'PHB_CURL_free':
../../../../core.c:530:15: error: 'struct _HB_CURL' has no member named 'pHash'
../../../../core.c:532:32: error: 'struct _HB_CURL' has no member named 'pHash'
../../../../core.c:533:14: error: 'struct _HB_CURL' has no member named 'pHash'
hbmk2: Error: Running C/C++ compiler. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -DCURL_STATIC
LIB -DHBMK_HAS_CURL -W -Wall -pipe -Id:/HB/HB30/include -Id:/hb/curl/include ../
../../../core.c

 Отправлено: 27.09.21 11:00. Заголовок: Allcome Еще раз вним..

Allcome Еще раз внимательно смотрим батник что я дал

 
  set PATH=%PATH%;C:\MinGW\bin;c:\hb32mingw\bin\  
  set HB_WITH_CURL=c:\curl\7791\include  
  set HB_STATIC_CURL=yes  
  c:\hb32mingw\bin\hbmk2 hbcurl   
 

Таким его и оставь НО подправив пути
C:\MinGW дорога к компилятору MINGW
c:\hb32mingw дорога к Harbour собранного под MINGW
c:\curl\7791 дорога к распакованному дистрибутиву LIBCURL
взятому ТУТ например
Всё должно получиться

 Отправлено: 27.09.21 12:00. Заголовок: Dima Там HB30 похож..

Dima
Там HB30 похоже

 Отправлено: 27.09.21 13:06. Заголовок: SergKis пишет: Там ..

SergKis пишет:

цитата:

Там HB30 похоже

По именам папок похоже так...

 Отправлено: 28.09.21 10:33. Заголовок: Не желает собираться..

Не желает собираться. Таже ошибка. Попробую harbour пересобрать, может в этом дело.
Спасибо за помощь.

 Отправлено: 28.09.21 11:01. Заголовок: Allcome пишет: Попр..

Allcome пишет:

цитата:

Попробую harbour пересобрать, может в этом дело

Сырцы только свежие возьми и как соберешь номер версии (сборки) Harbour в студию