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

OLESTREAMVTBL

構造体
サイズx64: 16 バイト / x86: 8 バイト

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

フィールド

フィールドサイズx64x86説明
GetINT_PTR8/4+0+0OLE1ストリームから読み取るコールバック関数へのポインタ(INT_PTR表現)。
PutINT_PTR8/4+8+4OLE1ストリームへ書き込むコールバック関数へのポインタ(INT_PTR表現)。

各言語での定義

#include <windows.h>

// OLESTREAMVTBL  (x64 16 / x86 8 バイト)
typedef struct OLESTREAMVTBL {
    INT_PTR Get;
    INT_PTR Put;
} OLESTREAMVTBL;
using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct OLESTREAMVTBL
{
    public IntPtr Get;
    public IntPtr Put;
}
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure OLESTREAMVTBL
    Public Get As IntPtr
    Public Put As IntPtr
End Structure
import ctypes
from ctypes import wintypes

class OLESTREAMVTBL(ctypes.Structure):
    _fields_ = [
        ("Get", ctypes.c_ssize_t),
        ("Put", ctypes.c_ssize_t),
    ]
#[repr(C)]
pub struct OLESTREAMVTBL {
    pub Get: isize,
    pub Put: isize,
}
import "golang.org/x/sys/windows"

type OLESTREAMVTBL struct {
	Get uintptr
	Put uintptr
}
type
  OLESTREAMVTBL = record
    Get: NativeInt;
    Put: NativeInt;
  end;
const OLESTREAMVTBL = extern struct {
    Get: isize,
    Put: isize,
};
type
  OLESTREAMVTBL {.bycopy.} = object
    Get: int
    Put: int
struct OLESTREAMVTBL
{
    ptrdiff_t Get;
    ptrdiff_t Put;
}

HSP用 定義

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

; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x86 レイアウト)
; OLESTREAMVTBL サイズ: 8 バイト(x86)
dim st, 2    ; 4byte整数×2(構造体サイズ 8 / 4 切り上げ)
; Get : INT_PTR (+0, 4byte)  st.0 = 値  /  値 = st.0   (lpoke/lpeek も可)
; Put : INT_PTR (+4, 4byte)  st.1 = 値  /  値 = st.1   (lpoke/lpeek も可)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。
; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; OLESTREAMVTBL サイズ: 16 バイト(x64)
dim st, 4    ; 4byte整数×4(構造体サイズ 16 / 4 切り上げ)
; Get : INT_PTR (+0, 8byte)  qpoke st,0,値 / qpeek(st,0)  ※IronHSPのみ。3.7/3.8は lpoke st,0,下位 : lpoke st,4,上位
; Put : INT_PTR (+8, 8byte)  qpoke st,8,値 / qpeek(st,8)  ※IronHSPのみ。3.7/3.8は lpoke st,8,下位 : lpoke st,12,上位
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。
; IronHSP は NSTRUCT(構造体)をサポート。32bit/64bit どちらでも同じコードで動作します。
#defstruct global OLESTREAMVTBL
    #field intptr Get
    #field intptr Put
#endstruct

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