Delphi + SNMP

[hack]

Вот собственоо вопрос - поставлена задача - опросить ИПБ (SMART-APC) - 8шт по SNMP и получить ответы от них.

Трапы вроде бы нашел:
Текущее U на входе: .1.3.6.1.4.1.318.1.1.1.3.2.1.0
Текущее U на выходе: .1.3.6.1.4.1.318.1.1.1.4.2.1.0
Макс. U на входе за последние 60 сек: .1.3.6.1.4.1.318.1.1.1.3.2.3.0
Мин. U на входе за последние 60 сек: .1.3.6.1.4.1.318.1.1.1.3.2.2.0
Нагрузка в %: .1.3.6.1.4.1.318.1.1.1.4.2.3.0
Емкость батареи в %: .1.3.6.1.4.1.318.1.1.1.2.2.1.0

Т.к. никогда не работал с этим протоколом успел только почитать статьи с общими понятиями. Поискал на форумах - инфы очень мало, а то что есть пока ещё понять не сумел. Если кто уже пытался реализовать подобное, просьба отписаться, насколько сложна поставленная задача.
ЗЫ Имеется IdSnmp и IpwSNMPAgent, но как уже говорил - опыта работы с SNMP - 0.0.

[hack]

Т.к. никто видимо не работал с SNMP пришлось самому поднапрячься и своять простенькую процедуру с использованием компонента IdSnmp из пакета INDY.
Вот код (может кому и пригодится) :

    var
     i:integer;
begin
  with snmp.Reply do begin
   SNMP.active:=true;
   SNMP.Query.Clear;
   SNMP.Query.Host:='192.168.0.37';
   SNMP.Query.Port:=161;

    begin //Начало запроса № 1
    SNMP.Query.MIBAdd(Format('1.3.6.1.4.1.318.1.1.1.3.2.1.0', [i]), '');;
    SNMP.Query.PDUType:=PDUGetRequest;
    SNMP.SendQuery;
    if SNMP.SendQuery then
    for i := 0 to SNMP.Reply.ValueCount - 1 do
    Label5.Caption:=SNMP.Reply.Value[i] + ' V'
    else
    Label5.Caption:='Нет отклика';
    SNMP.Active:=false;
    end; //Конец опроса № 1
end;

[Malish22]

Здраствуйте hack!!!
Наткнулся на этот форум и меня заинтересовала Ваш опрос ИПБ (SMART-APC) - 8шт по SNMP и получить ответы от них. Давно искал такую программу и о чудо! нашол.
Я в этом деле новичек, недавно начал изучать делфи. И хотелось бы узнать можно ли сделать такой-же опрос для ИБП Matsh 3000, у меня их 3 штуки. Только я незнаю трапы. Правда нашел какой-то sysObjectID=1.3.6.1.2.1.33.2 но незнаю что это.
И если Вас не затруднит скиньте пожайлуста программу мне на мыло([email protected]), хотябы посмотреть как она выглядит.
ПОЖАЙЛУСТА ПОМОГИТЕ РАЗОБРАТСЯ ПЛИИИИЗ!!!!!!!!!!!!!!!

[hack]

Проект закрыт - исходники посмотрю на работе в понедельник. Если там нет, то увы, только скомпилированный exe_шник с жестко прописанными IP.
ЗЫ Отправил - проверяйте почту.

[Malish22]

Спасибо за отклик!!!!!!
Если не будет исходников, то не могли бы Вы подсказать как мне узнать свои трапы.
Спасибо заранее!

[hack]

Я Вам проект отправил с исходниками - правда это какой то промежуточный вариант, далекий от совершенства. А свои упсы опросите с помощью cfgCreator от фирмы Claridion. Там все интуитивно понятно.

[Malish22]

здраствуйте!!!
ОГРОМНОЕ ВАМ СПАСИБО.
Буду разбиратся.

[hack]

Да уж удачи вам.

[wellrus]

А не расскажете в кратце что это из себя представляет. Первый раз слышу про ИПБ (SMART-APC). Возможно пригодится в жизни. Определение бесперебойника?

[hack]

Почитайте тут. У нас используются SURT8000RMXL.

[Malish22]

Здраствуйте!!!
Разобрался огромное СПАСИБО!!!
Еще один вопрос? А Вы незнаете как можно вывести данные вернее построить график визуально с помощью компонента TChart.

[hack]

У меня графики строились на основе log файлов:
Пример кода:

procedure TForm3.sButton2Click(Sender : TObject);
var
  i, param : integer;
  f, fA, fB : TStrings;
begin
  Chart1.Series[0].Clear;
  Chart1.Series[1].Clear;
  Chart1.Title.Text.Clear;
  if sCheckBox1.Checked then
    begin
      {строим графики по всем ИБП}
      Chart1.Title.Text.Add('Entrance pressure of a power line in the area of all UPS');
      fA := TStringList.Create();
      fA.LoadFromFile(ExtractFileDir(Application.ExeName) +
        '\Logs\Log_UPS1.log');
      for i := 0 to fA.Count - 1 do
        begin
          param := (StrToIntDef(ExtractField(fA.Strings[i], 5, ' '), -1));
          if param <> -1 then
            begin
              chart1.Series[0].AddXY(i, param, '', clRed)
            end;
        end;
      fA.Free;
      fB := TStringList.Create();
      fB.LoadFromFile(ExtractFileDir(Application.ExeName) +
        '\Logs\Log_UPS2.log');
      for i := 0 to fB.Count - 1 do
        begin
          param := (StrToIntDef(ExtractField(fB.Strings[i], 5, ' '), -1));
          if param <> -1 then
            begin
              chart1.Series[1].AddXY(i, param, '', clBlue)
            end;
        end;
      fB.Free;
    end
  else
    begin
      {Строим график только по выбранному ИБП}
      Chart1.Series[0].Clear;
      Chart1.Title.Text.Clear;
      Chart1.Title.Text.Add('Entrance pressure of a power line in the area of UPS № ' + IntToStr(sRadioGroup1.ItemIndex + 1));
      f := TStringList.Create();
      f.LoadFromFile(ExtractFileDir(Application.ExeName) + '\Logs\Log_UPS' +
        IntToStr(sRadioGroup1.ItemIndex + 1) + '.log');
      for i := 0 to f.Count - 1 do
        begin
          param := (StrToIntDef(ExtractField(f.Strings[i], 5, ' '), -1));
          if param <> -1 then
            begin
              chart1.Series[0].AddXY(i, param, '', clRed)
            end;
        end;
      f.Free;
    end;
end;

function TForm3.ExtractField(Str : string; Index : integer;
  Space : Char) : string;
var
  Count, i : integer;
begin
  i := 0;
  Count := 0;
  Result := '';
  while (str[i] = ' ') do
    begin
      i := i + 1
    end;
  while (Count <> Index) and (i <= Length(Str)) do
    begin
      Inc(i);
      if ((Str[i] = Space) or (i = 1)) then
        begin
          Inc(Count)
        end;
      while (str[i] = ' ') or (str[i] = Space) do
        begin
          i := i + 1
        end;
    end;
  while (Str[i] <> Space) and (i <= Length(Str)) do
    begin
      Result := Result + Str[i];
      Inc(i);
    end;
end;

[czuryk]

hack, помогите еще одному новичку в деле УПСов попробовать разобраться в проблеме! Тоже хочу научится опрашивать UPS (у меня APС Smart 1500). Если вас не затруднит скиньте тоже код на мейл
sevboma<гав>gmail.com
Буду очень благодарен!