www.nsoft-s.com

Добавлено: **Вт янв 23, 2018 12:18 pm**

здрасте!
Скрипт пишу в первый раз, верно ли я себе представляю задуманное?
- формирую запрос mHTTPSendPostMessage на погодный сайт,
- результат обрабатываю с помощью строковых функций,
- вывожу в общий чат.
с курсом - аналогично.
Или есть другие варианты получения и вывода информации из HTML?
Может в чате реально отобразить HTML фрэйм?

Добавлено: **Вт янв 23, 2018 12:23 pm**

Добрый день.

Формально всё верно. HTML фрейм можно отобразить только в рекламном блоке внизу чата. Но только pure html, без javascript и css. Попробуйте, в админке это легко сделать через "Настройки", "Дополнительно", "Показывать рекламу на клиентах", если есть какой-то определённый линк на ваш web-сервер, например, с готовым html-файлом.

В тексте чата html с нормальным рендерингом вы не вставите, нужно парсить и кидать обычным текстом. CRLF поддерживаются.

Добавлено: **Вт янв 23, 2018 1:34 pm**

Примерно набросал запрос:

Код: Выделить всё

var sResult, s, sCurTemp: string; sCurWind:string; x: integer;
begin
  sResult := mHTTPSendPostMessage('https://www.ventusky.com/sumy', '', 'Accept-Language: ru,en-US;q=0.7,en;q=0.3'+ CRLF +'Accept: text/html,charset=windows-1251,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8', 2000);
  mLogScript(sResult, 'sResult');
//Current Weather
//temperature
  x := pos('<td class="temperature">',sResult);
  s := copy(sResult, x+24, 7);
  sCurTemp := GetNextSt(s,'<');
  mLogScript(sCurTemp, 'curTemp');
 //Wind
  x := pos('>Wind</span>',sResult);
  s := copy(sResult, x+41, 8);
  sCurWind := GetNextSt(s,'<');
  mLogScript(sCurWind, 'sCurWind');
end.

Вопрос: сервер отдает страничку в utf-8. в скрипте это отображается кракозяблами, как это исправить?

Добавлено: **Вт янв 23, 2018 2:12 pm**

Надо посмотреть, почему так, отвечу позже.

Добавлено: **Ср янв 24, 2018 12:50 am**

С кириллицей явно проблемы.
Сделал парсинг данных о погоде через JSON, - всеравно руский шрифт в спарсенных данных отображается кракозяблами

Добавлено: **Ср янв 24, 2018 9:39 am**

Что в коде не так? После включения скрипта в OnPrivateMessage, - все ЛС перестают работать, кроме ЛС с Эльзой.
з.ы. разобрался, упустил result := true;

Добавлено: **Ср янв 24, 2018 11:25 am**

Подскажите, сделать запрос из MyChat Script Language который мог бы пройти авторизацию и работать через это АПИ - не получится, верно я понял?

Каждый запрос, который нуждается в авторизации, сопровождается дополнительным заголовком, вида:

"Authorization: ключ_пользователя: подпись"

Ключи для авторизации необходимо получить в личном кабинете.

Подпись составляется по следующему алгоритму:
массив из передаваемых параметров (GET, POST, PUT, DELETE) сортируется по названию ключа по алфавиту;
из полученного массива формируется строка запроса (например, функция http_build_query в PHP), пример "from=DATEFROM&to=DATETO…";
и далее - соединяется по формуле:
строка = имя_метода строка_запроса md5( строка_запроса ),
где "имя_метода" - строка запроса, начиная от домена (с указанием версии АПИ), до начала перечисления параметров, например - /v1/sip/"
полученная строка хешируется по алгоритму sha1 с секретным ключом пользователя:
хеш = hash( строка, секретный_ключ )
и далее хеш кодируется в base64
подпись = base64_encode( хеш )

Пример на PHP:
ksort($params);
$paramsStr = http_build_query($params, null, '&', PHP_QUERY_RFC1738);
$sign = base64_encode(hash_hmac('sha1', $method . $paramsStr . md5($paramsStr), $secret));

$header = 'Authorization: ' . $userKey . ':' . $sign;

Добавлено: **Ср янв 24, 2018 6:09 pm**

Давайте по порядку. Я сначала отвечу на ваш первый вопрос, потом на остальные, когда разберусь.

Добавлено: **Пн янв 29, 2018 6:23 pm**

С кодировкой разобрались.

Ваш код выглядит теперь вот так:

scriptsource.png

Теперь давайте насчёт API. Я так понимаю, вам нужны функции для md5 и sha1 хешей. Их можно добавить. Но мне непонятна фраза

хеш = hash( строка, секретный_ключ )

Что за секретный ключ? Где увидеть пример работы алгоритма? Хеш считается от строки, секретного ключа там нет.

Добавлено: **Пн янв 29, 2018 6:44 pm**

Ваш код выглядит теперь вот так

Отлично!

Что за секретный ключ? Где увидеть пример работы алгоритма? Хеш считается от строки, секретного ключа там нет

Вся инфа расписана здесь https://zadarma.com/ru/support/api/
Но я думаю функции полезны будут и для других сервисов.

Добавлено: **Пн янв 29, 2018 9:32 pm**

в PHP это реализовано в функции http://php.net/manual/ru/function.hash-hmac.php

Добавлено: **Вт янв 30, 2018 1:30 am**

Реализовано.

Добавлено: **Вт янв 30, 2018 8:16 am**

Реализовано.

Клас! Когда обновление?

Добавлено: **Вт янв 30, 2018 11:24 am**

Сборку сервера могу дать вам сегодня. В личку.

Добавлено: **Вт янв 30, 2018 12:38 pm**

Ок, давайте потестирую.

Добавлено: **Ср янв 31, 2018 8:09 pm**

Отправил личкой ссылку на сборку сервера.

Добавлено: **Ср янв 31, 2018 11:43 pm**

Отправил личкой ссылку на сборку сервера.

Спасибо, проверил новые функции.
Кодировка utf-8 теперь отображается везде корректно.

С отправкой зашифрованного запроса - проблемка.
Если неправильный запрос формирую - получаю в sJSONResult - корректное сообщение об ошибке:

[sJSONResult] {"status":"error","message":"Not authorized"}

Когда начал использовать новые функции, сформировал все правильно, по инструкции, но в ответ теперь ошибки нету - просто в sJSONResult возвращается пустая строка.
Совсем не могу понять куда копать? Долбить поддержку задармы (АПИ которых должны вернуть значения), или может есть способы увидеть, что возвращает сервер после mHTTPSendPostMessage?
Код прилагаю, ключи все верные.

Код: Выделить всё

const
    sParam = '';
    sMetod = '/v1/info/balance/';
    sKey = '1ba2038c0831b3797198';
    sSekret = '7f274be71573ca3645f9';
var
  sJSONResult, sSign, status: string;  
begin
             sSign := EncodeBase64(StrToHex(HMAC_SHA1(sMetod + sParam + StrToHex(MD5(sParam)), sSekret)));
             sJSONResult := mHTTPSendPostMessage('https://api.zadarma.com' + sMetod, sParam, 'Authorization:' + sKey + ':' + sSign, 1000);
             mLogScript(sJSONResult, 'sJSONResult');
             JSONGetString(sJSONResult, 'status', status);
             mLogScript(status, 'status');
      
end.

Добавлено: **Чт фев 01, 2018 1:04 pm**

Поэкспериментировав, я понял что работает не с POST а с GET запросом.
Тогда возвращает JSON.
Здесь есть возможность отправить GET запрос?

Добавлено: **Чт фев 01, 2018 2:55 pm**

GET запрос мы не делали в API. А что, с POST никак?

Добавлено: **Чт фев 01, 2018 4:07 pm**

с POST - никак, техподдержка подтвердила...

Добавлено: **Чт фев 01, 2018 4:08 pm**

Я попробую для GET функцию сделать, позже.

Добавлено: **Чт фев 01, 2018 5:10 pm**

Странная строка:

Код: Выделить всё

sSign := EncodeBase64(StrToHex(HMAC_SHA1(sMetod + sParam + StrToHex(MD5(sParam)), sSekret)));

Зачем StrToHex от StrToHex делать?

Судя по документации от Zadarma, я бы написал sSign := EncodeBase64(HMAC_SHA1(sMetod + sParam + MD5(sParam), sSekret));

Я попробовал сделать GET метод, но у вас в коде скрипта Param пустой. Что туда нужно вставить для проверки? Сейчас я получаю на GET запрос:

Код: Выделить всё

{"status":"error","message":"Not authorized"}

Добавлено: **Чт фев 01, 2018 5:23 pm**

P.S. Получилось

У вас всё Ок, это я накосячил в коде, когда пробовал.

Код: Выделить всё

{"status":"success","balance":10.2637,"currency":"USD"}

Получился такой код:

Код: Выделить всё

const
 sParam = '';
 sMetod = '/v1/info/balance/';
 sKey = '1ba2038c0831b3797198';
 sSekret = '7f274be71573ca3645f9';
var
  sJSONResult, sSign, status: string;  
begin
  sSign := EncodeBase64(StrToHex(HMAC_SHA1(sMetod + sParam + StrToHex(MD5(sParam)), sSekret)));
  sJSONResult := mHTTPSendGetMessage('https://api.zadarma.com' + sMetod, 'Authorization:' + sKey + ':' + sSign, 1000);
  mLogScript(sJSONResult, 'sJSONResult');
  JSONGetString(sJSONResult, 'status', status);
  mLogScript(status, 'status');
end.

https://nsoft-s.com/forum/viewtopic.php?p=29403#p29403

Ссылку на сборку сервера бросил вам личкой.

Добавлено: **Чт фев 01, 2018 9:20 pm**

Клас! Все работает! Теперь такое можно сделать .... [smilie=good.gif]

А у меня еще есть идеи, которые не реализованы - можно вам подбрасывать или уже хватит? [smilie=dance4.gif]

Добавлено: **Чт фев 01, 2018 9:25 pm**

Спасибо вам за такую оперативность!

Добавлено: **Пт фев 02, 2018 2:01 am**

А, ещё вопросик
при настройке скрипта на OnPrivateMessage, получается след. ситуация, я отправляю кодовое слово - и ответ в чат приходит раньше кодового слова... См скрин...
Как это упорядочить? Раньше можно было удалить последнее сообщение, сча - нельзя, какой выход?
з.ы. с этим разобрался, увидел примеры с bFlag := false;

Добавлено: **Пт фев 02, 2018 3:18 pm**

А у меня еще есть идеи, которые не реализованы - можно вам подбрасывать или уже хватит?

Подбрасывайте

Отдельными темами только.

www.nsoft-s.com

Погода, курс валют от Эльзы в общий чат

Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат

Re: Погода, курс валют от Эльзы в общий чат