如何用Delphi TidSNMP在161端口接收并响应SNMP Get请求？

Hey Craig, let's work through this Windows SNMP agent service challenge together— I’ve dealt with similar requirements before, so here are some actionable suggestions to get you going:

• 重新利用TidSNMP的Agent模式
  你之前可能没注意到TidSNMP其实内置了Agent端支持，完全不用自己去解析原始UDP包。只需要把组件的AgentMode设为amAgent，监听默认的SNMP端口161，然后处理OnGetRequest事件来构造响应即可。

  举个Delphi下的简单示例代码：

  procedure TMySNMPService.IdSNMP1GetRequest(Sender: TObject;
    const RequestID: Integer; const Community: String;
    var PDU: TSNMPPDU; var ErrorStatus, ErrorIndex: Integer);
  var
    VarBind: TSNMPVarBind;
  begin
    // 遍历请求中的每个OID，返回对应值
    for VarBind in PDU.VarBindList do
    begin
      // 匹配自定义OID或标准系统OID
      if VarBind.OID = '.1.3.6.1.2.1.1.1.0' then
      begin
        VarBind.Value := '自定义Windows SNMP代理服务';
        VarBind.ValueType := vtOctetString;
      end
      else if VarBind.OID = '.1.3.6.1.4.1.12345.1.0' then // 自定义企业OID
      begin
        VarBind.Value := '1234';
        VarBind.ValueType := vtInteger;
      end;
    end;
    // 设置无错误状态
    ErrorStatus := 0;
    ErrorIndex := 0;
  end;
  

  初始化时记得设置Port := 161，然后Active := True，把这段逻辑放到Windows服务的启动事件里就能运行起来。

• 适配Windows服务的权限与生命周期
  SNMP的161端口属于特权端口，你的服务需要以管理员权限运行才能绑定这个端口。另外，要在服务的OnStart事件中启动SNMP监听，OnStop事件中停止监听（设置Active := False），确保服务启停时资源能正常释放。

• 备选方案：Windows原生SNMP扩展代理
  如果不想自己处理SNMP协议细节，可以基于Windows自带的SNMP服务开发扩展代理。这个方法不用自己管套接字和消息解析，只需要实现几个标准的SNMP扩展函数（比如SnmpExtensionInit、SnmpExtensionQuery），编译成DLL后注册到系统SNMP服务的扩展代理列表中即可。

  注册时只需要在注册表HKLM\SYSTEM\CurrentControlSet\Services\SNMP\Parameters\ExtensionAgents下添加一个新项，指向你的DLL路径。系统SNMP服务会自动转发对应OID的请求到你的扩展DLL处理。

• 调试与测试技巧

  • 使用snmpget或snmpwalk命令行工具测试，比如：

    snmpget -v 2c -c public localhost .1.3.6.1.2.1.1.1.0
    

  • 服务调试时，可以附加到服务进程，或者在代码中写入日志文件，记录每个请求的OID和响应内容，方便排查问题。

Hope these suggestions help you get your SNMP agent up and running! If you run into specific issues with any of these steps, feel free to dig into the details and ask further questions.

内容的提问来源于stack exchange，提问作者ckglobalroaming