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

ARRAYDESC

構造体
サイズx64: 32 バイト / x86: 20 バイト

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

フィールド

フィールドサイズx64x86説明
tdescElemTYPEDESC16/8+0+0配列要素の型を記述するTYPEDESCである。
cDimsWORD2+16+8配列の次元数を表す。
rgboundsSAFEARRAYBOUND8+20+12各次元の境界(要素数と下限)を保持するSAFEARRAYBOUND配列の先頭である。

各言語での定義

#include <windows.h>

// TYPEDESC  (x64 16 / x86 8 バイト)
typedef struct TYPEDESC {
    _Anonymous_e__Union Anonymous;
    VARENUM vt;
} TYPEDESC;

// SAFEARRAYBOUND  (x64 8 / x86 8 バイト)
typedef struct SAFEARRAYBOUND {
    DWORD cElements;
    INT lLbound;
} SAFEARRAYBOUND;

// ARRAYDESC  (x64 32 / x86 20 バイト)
typedef struct ARRAYDESC {
    TYPEDESC tdescElem;
    WORD cDims;
    SAFEARRAYBOUND rgbounds[1];
} ARRAYDESC;
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 SAFEARRAYBOUND
{
    public uint cElements;
    public int lLbound;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct ARRAYDESC
{
    public TYPEDESC tdescElem;
    public ushort cDims;
    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 1)] public SAFEARRAYBOUND[] rgbounds;
}
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 SAFEARRAYBOUND
    Public cElements As UInteger
    Public lLbound As Integer
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure ARRAYDESC
    Public tdescElem As TYPEDESC
    Public cDims As UShort
    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=1)> Public rgbounds() As SAFEARRAYBOUND
End Structure
import ctypes
from ctypes import wintypes

class TYPEDESC(ctypes.Structure):
    _fields_ = [
        ("Anonymous", _Anonymous_e__Union),
        ("vt", ctypes.c_ushort),
    ]

class SAFEARRAYBOUND(ctypes.Structure):
    _fields_ = [
        ("cElements", wintypes.DWORD),
        ("lLbound", ctypes.c_int),
    ]

class ARRAYDESC(ctypes.Structure):
    _fields_ = [
        ("tdescElem", TYPEDESC),
        ("cDims", ctypes.c_ushort),
        ("rgbounds", SAFEARRAYBOUND * 1),
    ]
#[repr(C)]
pub struct TYPEDESC {
    pub Anonymous: _Anonymous_e__Union,
    pub vt: u16,
}

#[repr(C)]
pub struct SAFEARRAYBOUND {
    pub cElements: u32,
    pub lLbound: i32,
}

#[repr(C)]
pub struct ARRAYDESC {
    pub tdescElem: TYPEDESC,
    pub cDims: u16,
    pub rgbounds: [SAFEARRAYBOUND; 1],
}
import "golang.org/x/sys/windows"

type TYPEDESC struct {
	Anonymous _Anonymous_e__Union
	vt uint16
}

type SAFEARRAYBOUND struct {
	cElements uint32
	lLbound int32
}

type ARRAYDESC struct {
	tdescElem TYPEDESC
	cDims uint16
	rgbounds [1]SAFEARRAYBOUND
}
type
  TYPEDESC = record
    Anonymous: _Anonymous_e__Union;
    vt: Word;
  end;

  SAFEARRAYBOUND = record
    cElements: DWORD;
    lLbound: Integer;
  end;

  ARRAYDESC = record
    tdescElem: TYPEDESC;
    cDims: Word;
    rgbounds: array[0..0] of SAFEARRAYBOUND;
  end;
const TYPEDESC = extern struct {
    Anonymous: _Anonymous_e__Union,
    vt: u16,
};

const SAFEARRAYBOUND = extern struct {
    cElements: u32,
    lLbound: i32,
};

const ARRAYDESC = extern struct {
    tdescElem: TYPEDESC,
    cDims: u16,
    rgbounds: [1]SAFEARRAYBOUND,
};
type
  TYPEDESC {.bycopy.} = object
    Anonymous: _Anonymous_e__Union
    vt: uint16

  SAFEARRAYBOUND {.bycopy.} = object
    cElements: uint32
    lLbound: int32

  ARRAYDESC {.bycopy.} = object
    tdescElem: TYPEDESC
    cDims: uint16
    rgbounds: array[1, SAFEARRAYBOUND]
struct TYPEDESC
{
    _Anonymous_e__Union Anonymous;
    ushort vt;
}

struct SAFEARRAYBOUND
{
    uint cElements;
    int lLbound;
}

struct ARRAYDESC
{
    TYPEDESC tdescElem;
    ushort cDims;
    SAFEARRAYBOUND[1] rgbounds;
}

HSP用 定義

HSP3.7/3.8 は構造体機能が無いため4byte整数配列(dim)+peek/poke で操作(32/64bitでサイズ・位置が異なる場合はタブで分割)。IronHSP は NSTRUCT(#defstruct/stdim/->)で32/64bit共通。

; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x86 レイアウト)
; ARRAYDESC サイズ: 20 バイト(x86)
dim st, 5    ; 4byte整数×5(構造体サイズ 20 / 4 切り上げ)
; tdescElem : TYPEDESC (+0, 8byte)  varptr(st)+0 を基点に操作(8byte:入れ子/配列)
; cDims : WORD (+8, 2byte)  wpoke st,8,値  /  値 = wpeek(st,8)
; rgbounds : SAFEARRAYBOUND (+12, 8byte)  varptr(st)+12 を基点に操作(8byte:入れ子/配列)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。
; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; ARRAYDESC サイズ: 32 バイト(x64)
dim st, 8    ; 4byte整数×8(構造体サイズ 32 / 4 切り上げ)
; tdescElem : TYPEDESC (+0, 16byte)  varptr(st)+0 を基点に操作(16byte:入れ子/配列)
; cDims : WORD (+16, 2byte)  wpoke st,16,値  /  値 = wpeek(st,16)
; rgbounds : SAFEARRAYBOUND (+20, 8byte)  varptr(st)+20 を基点に操作(8byte:入れ子/配列)
; ※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 SAFEARRAYBOUND
    #field int cElements
    #field int lLbound
#endstruct

#defstruct global ARRAYDESC
    #field TYPEDESC tdescElem
    #field short cDims
    #field SAFEARRAYBOUND rgbounds 1
#endstruct

stdim st, ARRAYDESC        ; NSTRUCT 変数を確保
st->cDims = 100
mes "cDims=" + st->cDims