pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

asn1util.pas - support for encoding of 64bit MIB element

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@229 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2021-06-18 13:16:38 +00:00
parent b0bd027e70
commit 6c49b09f77
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
asn1util.pas
View File

@ -1,9 +1,9 @@
{==============================================================================|
| Project : Ararat Synapse | 002.001.000 |
| Project : Ararat Synapse | 002.001.001 |
|==============================================================================|
| Content: support for ASN.1 BER coding and decoding |
|==============================================================================|
| Copyright (c)1999-2014, Lukas Gebauer |
| Copyright (c)1999-2021, Lukas Gebauer |
| All rights reserved. |
| |
| Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. |
|==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c) 1999-2014 |
| Portions created by Lukas Gebauer are Copyright (c) 1999-2021 |
| Portions created by Hernan Sanchez are Copyright (c) 2000. |
| All Rights Reserved. |
|==============================================================================|
@ -378,9 +378,9 @@ end;
{==============================================================================}
function MibToId(Mib: String): AnsiString;
var
x: Integer;
x: int64;
function WalkInt(var s: String): Integer;
function WalkInt(var s: String): int64;
var
x: Integer;
t: AnsiString;
@ -396,7 +396,7 @@ var
t := Copy(s, 1, x - 1);
s := Copy(s, x + 1, Length(s) - x);
end;
Result := StrToIntDef(t, 0);
Result := StrToInt64Def(t, 0);
end;
begin
@ -414,7 +414,8 @@ end;
{==============================================================================}
function IdToMib(const Id: AnsiString): String;
var
x, y, n: Integer;
x, y: int64;
n: Integer;
begin
Result := '';
n := 1;