IADsLargeInteger インターフェイス (iads.h)
IADsLargeInteger インターフェイスは、LargeInteger 型の 64 ビット整数を操作するために使用されます。
継承
IADsLargeInteger インターフェイスは、IDispatch インターフェイスから継承します。
注釈
Visual Basic で IADsLargeInteger を 処理することは、Visual Basic にネイティブの符号なし数値データ型が存在しないという事実によって困難になります。 LowPart または HighPart に高いビット セットが設定されている場合、データ変換でエラーが発生する可能性があります。これにより、Visual Basic で数値が負の値として処理されます。 次の Visual Basic コード例は、Visual Basic で IADsLargeInteger を適切に処理する方法を示しています。
例
次の例は、 IADsLargeInteger オブジェクトを 16 進文字列に変換する方法を示しています。
Dim oDomain As IADs
Dim oLargeInt As LargeInteger
Set oDomain = GetObject("LDAP://DC=fabrikam,DC=com")
Set oLargeInt = oDomain.Get("creationTime")
Debug.Print oLargeInt.HighPart
Debug.Print oLargeInt.LowPart
strTemp = "&H" + CStr(Hex(oLargeInt.HighPart)) + _
CStr(Hex(oLargeInt.LowPart))
Debug.Print strTemp
Visual Basic では、FileTimeToSystemTime API と SystemTimeToVariantTime API を使用して、日付または時刻を表す IADsLargeInteger オブジェクトを時刻 Variant に変換できます。 これを次のコード例に示します。
Public Declare Function FileTimeToSystemTime Lib "kernel32" _
(lpFileTime As FILETIME, _
lpSystemTime As SYSTEMTIME) As Long
Public Declare Function SystemTimeToVariantTime Lib "oleaut32.dll" _
(lpSystemTime As SYSTEMTIME, _
dbTime As Double) As Long
Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
' This function will convert the ADSI data type LargeInteger to
' a Variant time value in Greenwich Mean Time (GMT).
Function LargeInteger_To_Time(oLargeInt As LargeInteger, vTime As Variant)_
As Boolean
On Error Resume Next
Dim pFileTime As FILETIME
Dim pSysTime As SYSTEMTIME
Dim dbTime As Double
Dim lResult As Long
If (oLargeInt.HighPart = 0 And oLargeInt.LowPart = 0) Then
vTime = 0
LargeInteger_To_Time = True
Exit Function
End If
If (oLargeInt.LowPart = -1) Then
vTime = -1
LargeInteger_To_Time = True
Exit Function
End If
pFileTime.dwHighDateTime = oLargeInt.HighPart
pFileTime.dwLowDateTime = oLargeInt.LowPart
' Convert the FileTime to System time.
lResult = FileTimeToSystemTime(pFileTime, pSysTime)
If lResult = 0 Then
LargeInteger_To_Time = False
Debug.Print "FileTimeToSystemTime: " + Err.Number + " - "_
+ Err.Description
Exit Function
End If
' Convert System Time to a Double.
lResult = SystemTimeToVariantTime(pSysTime, dbTime)
If lResult = 0 Then
LargeInteger_To_Time = False
Debug.Print "SystemTimeToVariantTime: " + Err.Number + _
" - " + Err.Description
Exit Function
End If
' Place the double in the variant.
vTime = CDate(dbTime)
LargeInteger_To_Time = True
End Function
次の例は、 IADsLargeInteger を 64 ビット整数に変換する方法を示しています。
HRESULT PrintAccountExpires(LPCWSTR pwszADsPath)
{
if(!pwszADsPath)
{
return E_INVALIDARG;
}
HRESULT hr;
CComPtr<IADs> spads;
// Bind to the object.
hr = ADsGetObject(pwszADsPath, IID_IADs, (LPVOID*)&spads);
if(FAILED(hr))
{
return hr;
}
/*
Get the accountExpires attribute, which is an
IDispatch that contains an IADsLargeInteger.
*/
CComVariant svar;
hr = spads->Get(CComBSTR("accountExpires"), &svar);
if(FAILED(hr))
{
return hr;
}
// Get the IADsLargeInteger interface.
CComPtr<IADsLargeInteger> spli;
hr = svar.pdispVal->QueryInterface(IID_IADsLargeInteger,
(LPVOID*)&spli);
if(FAILED(hr))
{
return hr;
}
// Get the high and low parts of the value.
long lHigh;
long lLow;
hr = spli->get_HighPart(&lHigh);
hr = spli->get_LowPart(&lLow);
// Convert the high and low parts to an __i64.
__int64 i64;
i64 = (ULONG)lHigh;
i64 = (i64 << 32);
i64 = i64 + (ULONG)lLow;
// Print all of the values.
wprintf(L"HighPart = %u, LowPart = %u, Combined = %I64d\n",
lHigh, lLow, i64);
return hr;
}
要件
サポートされている最小のクライアント | Windows Vista |
サポートされている最小のサーバー | Windows Server 2008 |
対象プラットフォーム | Windows |
ヘッダー | iads.h |