Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];

Вниз

SNMP и Delphi 2009 - непонятки с указателем   Найти похожие ветки 

 
tytus   (2009-08-13 12:07) [0]

Добрый день мастера.
Есть файл Snmp_Api, в нем записи:

 PAsnOctetString = ^TAsnOctetString;
 TAsnOctetString = record
   stream: PByte;
   length: UINT;
   dynam: BOOL;
 end;

 PAsnAny = ^TAsnAny;
 TAsnAny = record
   asnType: BYTE;
   case Integer of      0: (number: TAsnInteger32);          { ASN_INTEGER, ASN_INTEGER32 }
     1: (unsigned32: TAsnUnsigned32);     { ASN_UNSIGNED32 }
     2: (counter64: TAsnCounter64);       { ASN_COUNTER64 }
     3: (str: TAsnOctetString);           { ASN_OCTETSTRING }
     4: (bits: TAsnBits);                 { ASN_BITS }
     5: (obj: TAsnObjectIdentifier);      { ASN_OBJECTIDENTIFIER }
     6: (sequence: TAsnSequence);         { ASN_SEQUENCE }
     7: (address: TAsnIpAddress);         { ASN_IPADDRESS }
     8: (counter: TAsnCounter32);         { ASN_COUNTER32 }
     9: (gauge: TAsnGauge32);             { ASN_GAUGE32 }
    10: (ticks: TAsnTimeticks);           { ASN_TIMETICKS }
    11: (arbitrary: TAsnOpaque);          { ASN_OPAQUE }
 end;

 TAsnObjectName = TAsnObjectIdentifier;
 TAsnObjectSyntax = TAsnAny;

 PSnmpVarBind = ^TSnmpVarBind;
 TSnmpVarBind = record
   name: TAsnObjectName;
   value: TAsnObjectSyntax;
 end;

 PSnmpVarBindList = ^TSnmpVarBindList;
 TSnmpVarBindList = record
   list: PSnmpVarBind;
   len: UINT;
 end;


В главном юните есть процедура, для получения результатов SNMP запросов
procedure TMainFm.PrintVarBind(const VarBind: TSnmpVarBind);
объявлена переменная
var
 P: PByte;


затем, втеле процедуры, определяем тип ответа:

with VarBind.value do
   case asnType of
...
     ASN_OCTETSTRING:
       begin
         A[2] := "Octet String";
         if str.length > 0 then
         begin
           IsAscii := True;
           P := str.stream;
           for i := 0 to str.length - 1 do
           begin
             if not (P^ in [0, 32..127]) then    // <-- ТУТ ОШИБКА!!!
             begin
               IsAscii := False;
               Break;
             end;
             Inc(P);
           end;
...
 end;


В Delphi 2007 этот код работает нормально, длина строки 89 (к примеру). В D2009 длина строки = 1, адрес str.stream равен $59 - вот и ошибка - "read from address $00000059"..

Подскажите, как с этим бороться.


 
DVM ©   (2009-08-13 12:21) [1]

что такое str ?


 
tytus   (2009-08-13 12:34) [2]

>DVM  (13.08.09 12:21) [1]
PAsnAny = ^TAsnAny;
TAsnAny = record
  asnType: BYTE;
  case Integer of      0: (number: TAsnInteger32);          { ASN_INTEGER, ASN_INTEGER32 }
    1: (unsigned32: TAsnUnsigned32);     { ASN_UNSIGNED32 }
    2: (counter64: TAsnCounter64);       { ASN_COUNTER64 }
    3: (str: TAsnOctetString);           { ASN_OCTETSTRING } <-- Вот ОНО - str!!!
    4: (bits: TAsnBits);                 { ASN_BITS }
    5: (obj: TAsnObjectIdentifier);      { ASN_OBJECTIDENTIFIER }
    6: (sequence: TAsnSequence);         { ASN_SEQUENCE }
    7: (address: TAsnIpAddress);         { ASN_IPADDRESS }
    8: (counter: TAsnCounter32);         { ASN_COUNTER32 }
    9: (gauge: TAsnGauge32);             { ASN_GAUGE32 }
   10: (ticks: TAsnTimeticks);           { ASN_TIMETICKS }
   11: (arbitrary: TAsnOpaque);          { ASN_OPAQUE }
end;


 
DVM ©   (2009-08-13 15:07) [3]


> tytus

вероятно у тебя какое то несоответствие между значением str.length и реальной длиной str.stream. Случайно из строки типа string ничего туда не переносилось?


 
tytus   (2009-08-13 15:33) [4]

> DVM ©   (13.08.09 15:07) [3]
да нет, ничего...
вот как отправляю запрос:
1) SnmpMgrStrToOid(PAnsiChar(sOID), @OID);где OID - TAsnObjectIdentifier, sOID - текст эдита.
2) with VarBindList do
   begin
     list :=  SnmpUtilMemAlloc(SizeOf(TSnmpVarBind));
     len := 1;
     list^.name := OID;
     list^.value.asnType := ASN_NULL;
   end;

3) RequestType := SNMP_PDU_GET;
   RetVal := SnmpMgrRequest(Session, RequestType, @VarBindList,
       @ErrorStatus, @ErrorIndex);

4) - получаем ответ
    PrintVarBind(VarBindList.list^);

Несоответствие может произойти, если компиляторы D2007 и D2009 по-разному работают.
В Д2007-ом работает, а в Д2009  - ошибка...

function SnmpMgrRequest(session: PSnmpMgrSession; requestType: Byte; variableBindings: PSnmpVarBindList;
 errorStatus: PAsnInteger32; errorIndex: PAsnInteger32): SNMPAPI; stdcall;

function SnmpMgrRequest; external  "mgmtapi.dll"  name  "SnmpMgrRequest";


 
Сергей М. ©   (2009-08-13 17:18) [5]


> sOID - текст эдита


Что значит "текст эдита" ?
Некая переменная типа string, в которую ты ранее сохранил значение св-ва Edit.Text ? Или что ?


 
Сергей М. ©   (2009-08-13 17:21) [6]

И какого лешего у тебя отсутствует анализ результата. возвращаемого функцией SnmpMgrStrToOid() ? Хотя бы в целях отладки ?


 
tytus   (2009-08-13 17:47) [7]

> Сергей М. ©   (13.08.09 17:18) [5]
именно так.
> Сергей М. ©   (13.08.09 17:21) [6]
анализ есть, не писал для краткости...
 try
...
   if not SnmpMgrStrToOid(PAnsiChar(sOID), @OID) then
   begin
     Raise Exception.CreateFmt("Invalid Oids, ""%s"", specified.", [sOID]);
   end;
...
 finally
   SnmpMgrClose(Session);
 end;


 
Сергей М. ©   (2009-08-13 20:47) [8]


> tytus   (13.08.09 17:47) [7]
> именно так


Ну а раз именно так, то первым параметром ты передал указатель на строку в юникоде, хотя ф-ция ожидает ansi-строку


 
tytus   (2009-08-14 10:08) [9]

> Сергей М. ©   (13.08.09 20:47) [8]

> первым параметром ты передал указатель на строку в юникоде

var
 sOID: AnsiString;
begin
 sOID := ".1.3.6.1.2.1.1.1.0"; <-- это разве не ANSI ???
 SnmpMgrStrToOid(PAnsiChar(sOID), @OID);


к тому же, в процедуре PrintVarBind есть функция
SnmpUtilOidToA(@VarBind.name), которая возвращает заданный OID,
следовательно, строка передается правильно.


 
Сергей М. ©   (2009-08-14 10:16) [10]

Я же спросил:

> Некая переменная типа string .. ?


Ты отвечаешь:

> именно так


А теперь говоришь, что не именно и не так:

> var
>  sOID: AnsiString;


 
tytus   (2009-08-14 10:44) [11]

> Сергей М. ©   (14.08.09 10:16) [10]
Вполне можно было предположить, что я правильно оперировал типами строк... и никоим образом не хотел вас обмануть.
Намутили embarcadero со своим юникодом IDE и всего прочего...
но все равно, хочеться разобраться, в чем тут дело...
Какие еще есть варианты?


 
Дмитрий Белькевич   (2009-08-14 14:12) [12]


> Намутили embarcadero со своим юникодом IDE и всего прочего.
> .. но все равно, хочеться разобраться, в чем тут дело...
> Какие еще есть варианты?


Намутили, если уж на то пошло, еще Майкрософт. А Эмбаркадеро проделало огромадную работу, что бы к этому всему "счастью" приспособиться. Имейте уважение.


 
tytus   (2009-08-14 16:14) [13]

> Дмитрий Белькевич   (14.08.09 14:12) [12]
так почему-же в Д2009 не работает сей код?
Неверно определяется указатель на данные в VarBindList.


 
tytus   (2009-08-17 16:51) [14]

Вот нашел решение:
{$Align 4}



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.88 MB
Время: 0.031 c
15-1250351901
Холивар
2009-08-15 19:58
2009.10.18
Вопрос по вебкамере(разрешениям)


11-1206101255
exero
2008-03-21 15:07
2009.10.18
Печать изображений


2-1250324929
Sly_laban
2009-08-15 12:28
2009.10.18
Fast Report -литература


2-1250586312
Рик
2009-08-18 13:05
2009.10.18
Проблема. Русская кодировка в некоторых функциях.


1-1219514043
ZDO
2008-08-23 21:54
2009.10.18
Монитор каталогов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский