SNMP GET. Перенос кода из VS2014 в C++Builder 6 - C++ Builder - Ответ 8161807

#include <iostream>
#include <Mgmtapi.h>
 
#pragma comment(lib, "Snmpapi.lib")
#pragma comment(lib, "Mgmtapi.lib")
 
using namespace std;
 
int main()
{
    LPSTR OID = ".1.3.6.1.4.1.8000.22.3.3.0";
    SnmpVarBind OIDvarbind = { 0 };
    SnmpMgrStrToOid(OID, &OIDvarbind.name);
    OIDvarbind.value.asnType = ASN_NULL;
    SnmpVarBindList OIDvarbindlist = { 0 };
    OIDvarbindlist.len = 1;
    OIDvarbindlist.list = (SnmpVarBind *)SnmpUtilMemAlloc(OIDvarbindlist.len*sizeof(SnmpVarBind));
    OIDvarbindlist.list = &OIDvarbind;
    
    cout << "Start session!\n";
 
    LPSNMP_MGR_SESSION SNMPSessionArr = SnmpMgrOpen("10.0.0.171", "public", 1000, 0);
 
    AsnInteger errStatus = SNMP_ERRORSTATUS_NOERROR;
    AsnInteger errIndex = 0;
 
    cout << "Send request!\n";
 
    SNMPAPI bx = SnmpMgrRequest(SNMPSessionArr, SNMP_PDU_GET, &OIDvarbindlist, &errStatus, &errIndex);
 
    cout << "Integer=" << OIDvarbindlist.list->value.asnValue.number << endl;
    
    return 0;
}

#include <vcl.h>
#pragma hdrstop
 
#include <Mgmtapi.h>
//#pragma comment(lib, "Snmpapi.lib")
//#pragma comment(lib, "Mgmtapi.lib")
 
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        LPSTR OID = ".1.3.6.1.4.1.8000.22.3.3.0";
    SnmpVarBind OIDvarbind = { 0 };
    SnmpMgrStrToOid(OID, &OIDvarbind.name);
    OIDvarbind.value.asnType = ASN_NULL;
    SnmpVarBindList OIDvarbindlist = { 0 };
    OIDvarbindlist.len = 1;
    OIDvarbindlist.list = (SnmpVarBind *)SnmpUtilMemAlloc(OIDvarbindlist.len*sizeof(SnmpVarBind));
    OIDvarbindlist.list = &OIDvarbind;
 
        LPSNMP_MGR_SESSION SNMPSessionArr = SnmpMgrOpen("10.0.0.171", "public", 1000, 0);
 
        AsnInteger errStatus = SNMP_ERRORSTATUS_NOERROR;
    AsnInteger errIndex = 0;
 
    SNMPAPI bx = SnmpMgrRequest(SNMPSessionArr, SNMP_PDU_GET, &OIDvarbindlist, &errStatus, &errIndex);
 
        AnsiString infostr;
        infostr = "OID = .1.3.6.1.4.1.8000.22.3.3.0 Integer = ";
        infostr += OIDvarbindlist.list->value.asnValue.number;
        Memo1->Lines->Add(infostr);
 
}