https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=408910&view=findpost&p=3672340 Tue, 31 May 2016 04:09:15 +0000 https://forum.sources.ru/index.php?showtopic=408910&view=findpost&p=3672340 http://www.codeproject.com/Articles/9024/H...nsion-agent-DLL

Проблема заключается в том что при запуске службы моя DLL выгружается после загрузки функции SnmpExtensionInit в логах винды также ошибки.

function SnmpExtensionInit(dwUptimeReference: DWORD;var phSubagentTrapEvent: PHandle;
var pFirstSupportedRegion: PAsnObjectIdentifier): BOOL; export; stdcall;
begin
g_hSimulateTrap := CreateEvent(nil, false, false,nil);

pFirstSupportedRegion := @MIB_OidPrefix;
phSubagentTrapEvent := @g_hSimulateTrap;

g_hTrapGenThread := CreateThread(nil,0, @TrapGenThread,nil,0,ThreadId1);

g_dwStartTime := GetTickCount();

Result := SNMPAPI_NOERROR;
end;

если экспортировать только одну функцию SnmpExtensionInit DLL выгружается без ошибок, при добавлении SnmpExtensionQuery в логах винды сразу ошибка "Код исключения: 0xc0000005 Смещение ошибки: 0x00729e62"

function SnmpExtensionQuery(bPduType: BYTE; pVarBindList: PSnmpVarBindList;
pErrorStatus, pErrorIndex: PAsnInteger32): BOOL; export; stdcall;

SnmpExtensionQuery пока пустая

exports
SnmpExtensionInit,
SnmpExtensionQuery;
// SnmpExtensionClose;
// SnmpExtensionTrap;
begin
New(MIB_OidPrefix);
MIB_OidPrefix^.idLength := Length(g_unMyOIDPrefix);
MIB_OidPrefix^.ids :=@g_unMyOIDPrefix;
ThreadId1 :=0;
end;]]> ldem0n Delphi: Сетевое программирование