Win32 API 日本語リファレンス
ホームSystem.Com › VARDESC

VARDESC

構造体
サイズx64: 64 バイト / x86: 36 バイト

サイズ=各フィールドのバイト数(x64/x86 で異なる場合は x64/x86 と併記)。x64/x86 列=フィールドのバイトオフセット(HSPで dupptr / lpoke / wpoke 等に使用)。

フィールド

フィールドサイズx64x86説明
memidINT4+0+0変数を識別するメンバーID。タイプ情報内で一意のディスパッチID(MEMBERID)を保持する。
lpstrSchemaLPWSTR8/4+8+4予約済みフィールド。将来の使用のためのスキーマ文字列で通常はNULL。
Anonymous_Anonymous_e__Union8/4+16+8変数の格納形態を表す共用体。インスタンス変数のオフセットまたは定数値へのポインタを保持する。
elemdescVarELEMDESC32/16+24+12変数の型情報を記述するELEMDESC構造体。データ型とパラメータ属性を含む。
wVarFlagsVARFLAGS2+56+28変数の属性を示すVARFLAGSフラグ。読み取り専用や非表示などの特性をビットで表す。
varkindVARKIND4+60+32変数の種類を示すVARKIND列挙値。インスタンス変数、静的、定数、ディスパッチのいずれかを区別する。

共用体: _Anonymous_e__Union x64 8B / x86 4B

フィールドサイズx64x86
oInstDWORD4+0+0
lpvarValueVARIANT*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 Structure
import 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: int32
struct 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 非対応)。必要に応じ手動でアクセス。