ホーム › System.Com › VARDESC
VARDESC
構造体サイズ=各フィールドのバイト数(x64/x86 で異なる場合は x64/x86 と併記)。x64/x86 列=フィールドのバイトオフセット(HSPで dupptr / lpoke / wpoke 等に使用)。
フィールド
| フィールド | 型 | サイズ | x64 | x86 | 説明 |
|---|---|---|---|---|---|
| memid | INT | 4 | +0 | +0 | 変数を識別するメンバーID。タイプ情報内で一意のディスパッチID(MEMBERID)を保持する。 |
| lpstrSchema | LPWSTR | 8/4 | +8 | +4 | 予約済みフィールド。将来の使用のためのスキーマ文字列で通常はNULL。 |
| Anonymous | _Anonymous_e__Union | 8/4 | +16 | +8 | 変数の格納形態を表す共用体。インスタンス変数のオフセットまたは定数値へのポインタを保持する。 |
| elemdescVar | ELEMDESC | 32/16 | +24 | +12 | 変数の型情報を記述するELEMDESC構造体。データ型とパラメータ属性を含む。 |
| wVarFlags | VARFLAGS | 2 | +56 | +28 | 変数の属性を示すVARFLAGSフラグ。読み取り専用や非表示などの特性をビットで表す。 |
| varkind | VARKIND | 4 | +60 | +32 | 変数の種類を示すVARKIND列挙値。インスタンス変数、静的、定数、ディスパッチのいずれかを区別する。 |
共用体: _Anonymous_e__Union x64 8B / x86 4B
| フィールド | 型 | サイズ | x64 | x86 |
|---|---|---|---|---|
| oInst | DWORD | 4 | +0 | +0 |
| lpvarValue | VARIANT* | 8/4 | +0 | +0 |
各言語での定義
#include <windows.h>
// TYPEDESC (x64 16 / x86 8 バイト)
typedef struct TYPEDESC {
_Anonymous_e__Union Anonymous;
VARENUM vt;
} TYPEDESC;
// ELEMDESC (x64 32 / x86 16 バイト)
typedef struct ELEMDESC {
TYPEDESC tdesc;
_Anonymous_e__Union Anonymous;
} ELEMDESC;
// VARDESC (x64 64 / x86 36 バイト)
typedef struct VARDESC {
INT memid;
LPWSTR lpstrSchema;
_Anonymous_e__Union Anonymous;
ELEMDESC elemdescVar;
VARFLAGS wVarFlags;
VARKIND varkind;
} VARDESC;using System;
using System.Runtime.InteropServices;
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct TYPEDESC
{
public _Anonymous_e__Union Anonymous;
public ushort vt;
}
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct ELEMDESC
{
public TYPEDESC tdesc;
public _Anonymous_e__Union Anonymous;
}
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct VARDESC
{
public int memid;
public IntPtr lpstrSchema;
public _Anonymous_e__Union Anonymous;
public ELEMDESC elemdescVar;
public ushort wVarFlags;
public int varkind;
}Imports System.Runtime.InteropServices
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure TYPEDESC
Public Anonymous As _Anonymous_e__Union
Public vt As UShort
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure ELEMDESC
Public tdesc As TYPEDESC
Public Anonymous As _Anonymous_e__Union
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure VARDESC
Public memid As Integer
Public lpstrSchema As IntPtr
Public Anonymous As _Anonymous_e__Union
Public elemdescVar As ELEMDESC
Public wVarFlags As UShort
Public varkind As Integer
End Structureimport ctypes
from ctypes import wintypes
class TYPEDESC(ctypes.Structure):
_fields_ = [
("Anonymous", _Anonymous_e__Union),
("vt", ctypes.c_ushort),
]
class ELEMDESC(ctypes.Structure):
_fields_ = [
("tdesc", TYPEDESC),
("Anonymous", _Anonymous_e__Union),
]
class VARDESC(ctypes.Structure):
_fields_ = [
("memid", ctypes.c_int),
("lpstrSchema", ctypes.c_void_p),
("Anonymous", _Anonymous_e__Union),
("elemdescVar", ELEMDESC),
("wVarFlags", ctypes.c_ushort),
("varkind", ctypes.c_int),
]#[repr(C)]
pub struct TYPEDESC {
pub Anonymous: _Anonymous_e__Union,
pub vt: u16,
}
#[repr(C)]
pub struct ELEMDESC {
pub tdesc: TYPEDESC,
pub Anonymous: _Anonymous_e__Union,
}
#[repr(C)]
pub struct VARDESC {
pub memid: i32,
pub lpstrSchema: *mut core::ffi::c_void,
pub Anonymous: _Anonymous_e__Union,
pub elemdescVar: ELEMDESC,
pub wVarFlags: u16,
pub varkind: i32,
}import "golang.org/x/sys/windows"
type TYPEDESC struct {
Anonymous _Anonymous_e__Union
vt uint16
}
type ELEMDESC struct {
tdesc TYPEDESC
Anonymous _Anonymous_e__Union
}
type VARDESC struct {
memid int32
lpstrSchema uintptr
Anonymous _Anonymous_e__Union
elemdescVar ELEMDESC
wVarFlags uint16
varkind int32
}type
TYPEDESC = record
Anonymous: _Anonymous_e__Union;
vt: Word;
end;
ELEMDESC = record
tdesc: TYPEDESC;
Anonymous: _Anonymous_e__Union;
end;
VARDESC = record
memid: Integer;
lpstrSchema: Pointer;
Anonymous: _Anonymous_e__Union;
elemdescVar: ELEMDESC;
wVarFlags: Word;
varkind: Integer;
end;const TYPEDESC = extern struct {
Anonymous: _Anonymous_e__Union,
vt: u16,
};
const ELEMDESC = extern struct {
tdesc: TYPEDESC,
Anonymous: _Anonymous_e__Union,
};
const VARDESC = extern struct {
memid: i32,
lpstrSchema: ?*anyopaque,
Anonymous: _Anonymous_e__Union,
elemdescVar: ELEMDESC,
wVarFlags: u16,
varkind: i32,
};type
TYPEDESC {.bycopy.} = object
Anonymous: _Anonymous_e__Union
vt: uint16
ELEMDESC {.bycopy.} = object
tdesc: TYPEDESC
Anonymous: _Anonymous_e__Union
VARDESC {.bycopy.} = object
memid: int32
lpstrSchema: pointer
Anonymous: _Anonymous_e__Union
elemdescVar: ELEMDESC
wVarFlags: uint16
varkind: int32struct TYPEDESC
{
_Anonymous_e__Union Anonymous;
ushort vt;
}
struct ELEMDESC
{
TYPEDESC tdesc;
_Anonymous_e__Union Anonymous;
}
struct VARDESC
{
int memid;
void* lpstrSchema;
_Anonymous_e__Union Anonymous;
ELEMDESC elemdescVar;
ushort wVarFlags;
int varkind;
}HSP用 定義
HSP3.7/3.8 は構造体機能が無いため4byte整数配列(dim)+peek/poke で操作(32/64bitでサイズ・位置が異なる場合はタブで分割)。IronHSP は NSTRUCT(#defstruct/stdim/->)で32/64bit共通。
; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x86 レイアウト)
; VARDESC サイズ: 36 バイト(x86)
dim st, 9 ; 4byte整数×9(構造体サイズ 36 / 4 切り上げ)
; memid : INT (+0, 4byte) st.0 = 値 / 値 = st.0 (lpoke/lpeek も可)
; lpstrSchema : LPWSTR (+4, 4byte) st.1 = 値 / 値 = st.1 (lpoke/lpeek も可)
; Anonymous : _Anonymous_e__Union (+8, 4byte) varptr(st)+8 を基点に操作(4byte:入れ子/配列)
; elemdescVar : ELEMDESC (+12, 16byte) varptr(st)+12 を基点に操作(16byte:入れ子/配列)
; wVarFlags : VARFLAGS (+28, 2byte) wpoke st,28,値 / 値 = wpeek(st,28)
; varkind : VARKIND (+32, 4byte) st.8 = 値 / 値 = st.8 (lpoke/lpeek も可)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; VARDESC サイズ: 64 バイト(x64)
dim st, 16 ; 4byte整数×16(構造体サイズ 64 / 4 切り上げ)
; memid : INT (+0, 4byte) st.0 = 値 / 値 = st.0 (lpoke/lpeek も可)
; lpstrSchema : LPWSTR (+8, 8byte) qpoke st,8,値 / qpeek(st,8) ※IronHSPのみ。3.7/3.8は lpoke st,8,下位 : lpoke st,12,上位
; Anonymous : _Anonymous_e__Union (+16, 8byte) varptr(st)+16 を基点に操作(8byte:入れ子/配列)
; elemdescVar : ELEMDESC (+24, 32byte) varptr(st)+24 を基点に操作(32byte:入れ子/配列)
; wVarFlags : VARFLAGS (+56, 2byte) wpoke st,56,値 / 値 = wpeek(st,56)
; varkind : VARKIND (+60, 4byte) st.15 = 値 / 値 = st.15 (lpoke/lpeek も可)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。; IronHSP は NSTRUCT(構造体)をサポート。32bit/64bit どちらでも同じコードで動作します。
; ※GUID・入れ子構造体はデフォルト型でないため、依存する #defstruct を先に定義(下記に同梱)。
#defstruct global TYPEDESC
#field byte Anonymous 8
#field short vt
#endstruct
#defstruct global ELEMDESC
#field TYPEDESC tdesc
#field byte Anonymous 16
#endstruct
#defstruct global VARDESC
#field int memid
#field intptr lpstrSchema
#field byte Anonymous 8
#field ELEMDESC elemdescVar
#field short wVarFlags
#field int varkind
#endstruct
stdim st, VARDESC ; NSTRUCT 変数を確保
st->memid = 100
mes "memid=" + st->memid
; ※union フィールドは byte 列で確保(NSTRUCT は union 非対応)。必要に応じ手動でアクセス。