Архивы Павел - Страница 42 из 286

Grafana: правильное выставление времени на графике

23.01.2023 Павел Грибов Linux

К сожалению так и не смог докопаться до истины, почему при отображении графика на панели, время сбивается в непонятные значения +3 часа. Хотя и в настройках панели и в настройках отображения везде установлено руками UTC+3. Пришлось решать проблему кардинально, изменив время в запросе:

SELECT CONVERT_TZ(m_data.dt,'+00:00','-03:00') as dt ,CAST(m_data.value as int) as 'Mikrotik'  FROM m_data.m_data 
WHERE m_data.place=10 and m_data.source=12 and m_data.value_type=1 order by dt limit 500

1 2	SELECT CONVERT_TZ(m_data.dt,'+00:00','-03:00') as dt ,CAST(m_data.value as int) as 'Mikrotik' FROM m_data.m_data WHERE m_data.place=10 and m_data.source=12 and m_data.value_type=1 order by dt limit 500

Оставить комментарий datetime, grafana, utc

Microtik: включение API и вывод уровня сигнала wifi соеднинений

21.01.2023 Павел Грибов Linux

Вывести уровни сигнала соединений:

/interface wireless registration-table> print

1	/interface wireless registration-table> print

Включить сервис API:

/ip service> enable 5

1	/ip service> enable 5

Оставить комментарий api, mikrotik, wifi

1С: Программная установка пользовательских настроек при открытии отчёта СКД

20.01.2023 Павел Грибов 1C


&НаСервере
Процедура УстановитьПараметраКомпоновки(ИмяПараметра, Значение) Экспорт
	
	ПараметрКД = Новый ПараметрКомпоновкиДанных(ИмяПараметра);
	ОтборКД = Новый ПолеКомпоновкиДанных(ИмяПараметра);
	
	НастройкиКомпановщика = Отчет.КомпоновщикНастроек.ПолучитьНастройки();
	
	Для Каждого Поле Из НастройкиКомпановщика.ПараметрыДанных.Элементы Цикл
		Если Поле.Параметр = ПараметрКД Тогда
			Поле.Значение = Значение;
		КонецЕсли;
	КонецЦикла;
	
	Для Каждого Отбор Из НастройкиКомпановщика.Отбор.Элементы Цикл
		Если Отбор.ЛевоеЗначение = ОтборКД Тогда
			Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
			Отбор.Использование = Истина;
			Отбор.ПравоеЗначение = Значение;
		КонецЕсли;
	КонецЦикла;
	
	Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпановщика);
	ЭтаФорма.СоздатьЭлементыФормыПользовательскихНастроек(,РежимОтображенияНастроекКомпоновкиДанных.БыстрыйДоступ);	
	
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьЕМКНаСервере()
	
  СписТочек = Новый СписокЗначений;
  рез=СтрРазделить(отчет.ЕМК,символы.ПС);
  для каждого стр из рез цикл
	  стр=стрзаменить(стр,";","");
	  СписТочек.Добавить(сокрЛП(стр));
  конеццикла;	  
  УстановитьПараметраКомпоновки("ЕдиныйМежсистемныйКод",СписТочек);
   
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьЕМК(Команда)	
	ЗаполнитьЕМКНаСервере();
КонецПроцедуры

&НаСервере

Процедура УстановитьПараметраКомпоновки(ИмяПараметра, Значение) Экспорт

ПараметрКД = Новый ПараметрКомпоновкиДанных(ИмяПараметра);

ОтборКД = Новый ПолеКомпоновкиДанных(ИмяПараметра);

НастройкиКомпановщика = Отчет.КомпоновщикНастроек.ПолучитьНастройки();

Для Каждого Поле Из НастройкиКомпановщика.ПараметрыДанных.Элементы Цикл

Если Поле.Параметр = ПараметрКД Тогда

Поле.Значение = Значение;

КонецЕсли;

КонецЦикла;

Для Каждого Отбор Из НастройкиКомпановщика.Отбор.Элементы Цикл

Если Отбор.ЛевоеЗначение = ОтборКД Тогда

Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;

Отбор.Использование = Истина;

Отбор.ПравоеЗначение = Значение;

КонецЕсли;

КонецЦикла;

Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпановщика);

ЭтаФорма.СоздатьЭлементыФормыПользовательскихНастроек(,РежимОтображенияНастроекКомпоновкиДанных.БыстрыйДоступ);

КонецПроцедуры

&НаСервере

Процедура ЗаполнитьЕМКНаСервере()

СписТочек = Новый СписокЗначений;

рез=СтрРазделить(отчет.ЕМК,символы.ПС);

для каждого стр из рез цикл

стр=стрзаменить(стр,";","");

СписТочек.Добавить(сокрЛП(стр));

конеццикла;

УстановитьПараметраКомпоновки("ЕдиныйМежсистемныйКод",СписТочек);

КонецПроцедуры

&НаКлиенте

Процедура ЗаполнитьЕМК(Команда)

ЗаполнитьЕМКНаСервере();

КонецПроцедуры

Оставить комментарий заполнение значений, скд

Lazarus: получение текущего логина пользователя

18.01.2023 Павел Грибов Lazarus

Решим задачу кросплатформенно:

procedure TForm1.GetUserLogin(Sender: TObject);
{$IFDEF MSWINDOWS}
const
  envVar = 'USERNAME';
{$ENDIF}
{$IFDEF UNIX}
  envVar = 'USER';
{$ENDIF}
begin
   user_login:=SysUtils.GetEnvironmentVariable(envVar);
   MessageDlg(user_login, mtInformation,[mbOk],0);
end;

procedure TForm1.GetUserLogin(Sender: TObject);

{$IFDEF MSWINDOWS}

const

envVar = 'USERNAME';

{$ENDIF}

{$IFDEF UNIX}

envVar = 'USER';

{$ENDIF}

begin

user_login:=SysUtils.GetEnvironmentVariable(envVar);

MessageDlg(user_login, mtInformation,[mbOk],0);

end;

Оставить комментарий linux, user, username, Windows, логин, текущий пользователь

Lazarus: чтение и разбор Json

18.01.2023 Павел Грибов Lazarus

Задача: прочитать Json с URL и распарсить его

Решение:

На неком удалённом ресурсе находится файл вида:

{
"error": false,
"result": [
{
"dt": "2023-01-16T10:49:14",
"url": "https://rfefe.грибовы.рф/?p=41",
"title": "Очень важное уведомление",
"text": "Олала",
"read": true
},
{
"dt": "2023-01-15T10:49:14",
"url": "https://erferf.грибовы.рф/?p=40",
"title": "Очень важное уведомление 2",
"text": "Олала 2",
"read": false
}
]
}

{

"error": false,

"result": [

{

"dt": "2023-01-16T10:49:14",

"url": "https://rfefe.грибовы.рф/?p=41",

"title": "Очень важное уведомление",

"text": "Олала",

"read": true

{

"dt": "2023-01-15T10:49:14",

"url": "https://erferf.грибовы.рф/?p=40",

"title": "Очень важное уведомление 2",

"text": "Олала 2",

"read": false

}

]

}

Сначала прочитаем файл в строку, а затем распарсим полученный 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;

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;

Оставить комментарий array json, json, получить файл с url

« 1 … 40 41 42 43 44 … 286 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31