json строка в NotesHTTPRequest

[swyatogor]

Добрый день..

как вот сюда:

Dim webRequest as NotesHTTPRequest
Set webRequest = NotesSession.CreateHTTPRequest()
Call webRequest.post(URL$, valueV)

в значение valueV воткнуть корректную json строку?
голову уже свернул((

 

[swyatogor]

оказывается вставить саму строку не трабла.. бяда в том что с русскими символами неполучается..

 

[savl]

А если задать заголовок?
Dim webRequest as NotesHTTPRequest
Set webRequest = NotesSession.CreateHTTPRequest()
Call webRequest.SetHeaderField(headerfield$, headervalue$)

Ссылка скрыта от гостей

 

[Domino-Designer]

.Preferstrings = True ?

Ссылка скрыта от гостей

Hi Ulrich – Looks like the Post(URL, ValueV) method of NotesHTTPRequest has a 64k limit too, just like NotesJSONNavigator.

If I pass a ValueV larger than 64k, it gets truncated to 65535 bytes upon post. Tried lots of workarounds including passing a Variant List instead of a string, NotesStreams and so on, sadly nothing gets around the limit.

So although these new classes are OK for simple REST APIs, once you start passing around Base64 encoded JPEGs, both new sets of classes fall over.

 

[swyatogor]

.Preferstrings = True

по разному пробовал.. ссылку видел.. в ней нет инфы как быть не с юникодом)

Call webRequest.SetHeaderField(headerfield$, headervalue$)

что то не канает((

    Call webRequest.SetHeaderField("Content-type", "text/html")
    Call webRequest.SetHeaderField("charset", "windows-1251")

 

[swyatogor]

вобщем решилось вот так:

Function conv(txt As String)
    Dim x As Long
    Dim char As String
    Dim s As String
    Dim i As Long
    
    For i =0 To Len(txt)-1
        char = Mid(txt,i+1,1)
        x& = Uni(char)
        If(x&>127) Then
            s = s + "\u0" + Hex$(x&)
        Else
            s = s + char
        End If
        
    Next
    conv = s

End Function

 

[swyatogor]

небольшое добавление)
кроме этого нуно еще и экранирование сделать было

Function removeCRLF(json As String) As String
    removeCRLF = Replace(Replace(Replace(Replace(Replace(json,|\|,|\\|), Chr(13)+Chr(10), "\n"),Chr(10)+Chr(13), "\n"),|"|,|\"|),Chr(160),"")
End Function

ну и вызов стал вот такой:

conv(removeCRLF(txt))

 

[lmike]

вот как знал - эти ЛС классы только добавят гимора
в java все "просто"
ЗЫЖ жсон передавать правильнее с

Content-Type", "application/json")

и где-то я выкладывал майм преобразование стринга в кодировку, полагаю это сделало бы нужную кодировку из ЛС представления строки, вот что-то типа как Степан

Ссылка скрыта от гостей

 

[rinsk]

небольшое добавление)
кроме этого нуно еще и экранирование сделать было

Function removeCRLF(json As String) As String
    removeCRLF = Replace(Replace(Replace(Replace(Replace(json,|\|,|\\|), Chr(13)+Chr(10), "\n"),Chr(10)+Chr(13), "\n"),|"|,|\"|),Chr(160),"")
End Function

ну и вызов стал вот такой:

conv(removeCRLF(txt))

кодинг\эндкодинг джейсона - опять руками??
Что то они там явно не допилякали...
вот с чем я столкнулся уже. список постепенно обновляется.

Public Function EscapeJSONString(jsonstr$) As String
GoTo begin
errors:Error Err, Error & " |" & GetThreadInfo(1) & " in Line:" & Erl & "|"
begin:On Error GoTo errors
EscapeJSONString=Replace(jsonstr,"\","\\")
EscapeJSONString=Replace(EscapeJSONString,{"},{\"})
EscapeJSONString=Replace(EscapeJSONString,Chr(13),{\r})
EscapeJSONString=Replace(EscapeJSONString,Chr(10),{\n})
EscapeJSONString=Replace(EscapeJSONString,Chr(9),{\t})
EscapeJSONString=Replace(EscapeJSONString,Chr(08),{\b})
EscapeJSONString=Replace(EscapeJSONString,Chr(12),{\f})
EscapeJSONString=Replace(EscapeJSONString,Chr(26),{\u001a})
EscapeJSONString=Replace(EscapeJSONString,Chr(1),{\u0001})
EscapeJSONString=Replace(EscapeJSONString,Chr(2),{\u0002})
EscapeJSONString=Replace(EscapeJSONString,Chr(19),{})
End Function

Вызов ява парсера из LS вносит накладные расходы... так что - опять жуем кактус...