delphi - 在 Delphi 中使用 SNMP

Question

将 SNMP V2 警报功能集成到现有 Delphi 软件中的最佳方法是什么？

有哪些著名的 Delphi 库吗？集成用其他语言构建的 SNMP 库是否更容易？

谢谢!

Answer 1

嗯，您可以使用 Indy-SNMP(由 Delphi 提供)组件。这是一个小示例(控制台)，它返回主机的 sysDescr:

    program snmptest;

    {$APPTYPE Console}

    uses
      SysUtils, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdSNMP;

    var
      Snmp: TIdSNMP;
      Idx: Integer;

    begin
      Snmp := TIdSNMP.Create(nil);
      try
        Snmp.Query.Host := 'Hostname or IP'; //insert your host here...
        Snmp.Query.Community := 'public';
        Snmp.Query.PDUType := PDUGetRequest;
        Snmp.Query.MIBAdd('1.3.6.1.2.1.1.1.0','');

        if Snmp.SendQuery then
        begin
          WriteLn('Replies: ' + IntToStr(Snmp.Reply.ValueCount));
          for Idx := 0 to Snmp.Reply.ValueCount - 1 do
            WriteLn(Snmp.Reply.Value[0]);
        end;
      finally
        Snmp.Free;
      end;
    end. 

如果您搜索“Delphi SNMP”，还有更多示例。