&НаСервере
Процедура УстановитьПараметраКомпоновки(ИмяПараметра, Значение) Экспорт
ПараметрКД = Новый ПараметрКомпоновкиДанных(ИмяПараметра);
ОтборКД = Новый ПолеКомпоновкиДанных(ИмяПараметра);
НастройкиКомпановщика = Отчет.КомпоновщикНастроек.ПолучитьНастройки();
Для Каждого Поле Из НастройкиКомпановщика.ПараметрыДанных.Элементы Цикл
Если Поле.Параметр = ПараметрКД Тогда
Поле.Значение = Значение;
КонецЕсли;
КонецЦикла;
Для Каждого Отбор Из НастройкиКомпановщика.Отбор.Элементы Цикл
Если Отбор.ЛевоеЗначение = ОтборКД Тогда
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
Отбор.Использование = Истина;
Отбор.ПравоеЗначение = Значение;
КонецЕсли;
КонецЦикла;
Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпановщика);
ЭтаФорма.СоздатьЭлементыФормыПользовательскихНастроек(,РежимОтображенияНастроекКомпоновкиДанных.БыстрыйДоступ);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьЕМКНаСервере()
СписТочек = Новый СписокЗначений;
рез=СтрРазделить(отчет.ЕМК,символы.ПС);
для каждого стр из рез цикл
стр=стрзаменить(стр,";","");
СписТочек.Добавить(сокрЛП(стр));
конеццикла;
УстановитьПараметраКомпоновки("ЕдиныйМежсистемныйКод",СписТочек);
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьЕМК(Команда)
ЗаполнитьЕМКНаСервере();
КонецПроцедуры
Сначала прочитаем файл в строку, а затем распарсим полученный json и переберем его в виде массива или выведем текст ошибки:
procedure TForm1.LoadJson(Sender: TObject);
var
url, json : String;
jsd: TJSONData;
error : Boolean;
Arr:TJSONData;
i : integer;
begin
url := 'http://ewrdfwerf.xn--90acbu5aj5f.xn--p1ai/get_events.php';
Try
json := TFPCustomHTTPClient.SimpleGet(url);
Except
json:='{"error": true,"result": "Ошибка получения данных"}';
end;
jsd:=GetJSON(json);
error := jsd.FindPath('error').AsBoolean;
if error=true then begin
MessageDlg(jsd.FindPath('result').AsString, mtInformation,[mbOk],0);
end;
if error=false then
begin
for i:=0 to jsd.FindPath('result').Count-1 do
begin
MessageDlg(jsd.FindPath('result').Items[i].FindPath('title').AsString, mtInformation,[mbOk],0);
end;
end;
end;
Для того чтобы не изобретать велосипеды, необходимо с генерировать шаблоны файлов плагина. Например при помощи этого сервиса. В моём случае плагин называется ssk_read, поэтому далее везде фигурирует в названиях файлов он.
Получится структура папок вида:
Необходимо поместить все файлы в папку /wp_content/plugins..и собственно на этом моменте плагин уже будет доступен в админке для ативации.
Далее попробуем нарисовать страницу настроек в панели администрирования. Для этого добавим в /admin/class-ssk_read-admin.php в функцию конструкта класса хук добавления пункта меню:
И далее в основном теле плагина skk_read.php добавим функцию register_my_config_page, которая непосредственно регистрирует этот пункт меню к выводу на экран:
На этом этапе пока появится только кнопка «сохранить изменения», потому как мы еще не указали ядру, какие именно настройки мы хотим хранить. Для этого добавим в /admin/class-ssk_read-admin.php в функцию конструкта класса хук инициализации настроек:
add_action( 'admin_init', 'ssk_read_fields');
И далее в основном классе ssk_read.php добавим функции регистрации полей и их вывода: