Win32 API 日本語リファレンス
ホームStorage.FileSystem › TAPE_PREPARE

TAPE_PREPARE

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

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

フィールド

フィールドサイズx64x86説明
OperationPREPARE_TAPE_OPERATION4+0+0テープに対する準備操作(ロード/巻き戻し/取り出し等)。
ImmediateBOOLEAN1+4+4TRUEなら完了を待たず即座に制御を返す。

各言語での定義

#include <windows.h>

// TAPE_PREPARE  (x64 8 / x86 8 バイト)
typedef struct TAPE_PREPARE {
    PREPARE_TAPE_OPERATION Operation;
    BOOLEAN Immediate;
} TAPE_PREPARE;
using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct TAPE_PREPARE
{
    public uint Operation;
    [MarshalAs(UnmanagedType.U1)] public bool Immediate;
}
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure TAPE_PREPARE
    Public Operation As UInteger
    <MarshalAs(UnmanagedType.U1)> Public Immediate As Boolean
End Structure
import ctypes
from ctypes import wintypes

class TAPE_PREPARE(ctypes.Structure):
    _fields_ = [
        ("Operation", wintypes.DWORD),
        ("Immediate", ctypes.c_byte),
    ]
#[repr(C)]
pub struct TAPE_PREPARE {
    pub Operation: u32,
    pub Immediate: u8,
}
import "golang.org/x/sys/windows"

type TAPE_PREPARE struct {
	Operation uint32
	Immediate byte
}
type
  TAPE_PREPARE = record
    Operation: DWORD;
    Immediate: ByteBool;
  end;
const TAPE_PREPARE = extern struct {
    Operation: u32,
    Immediate: u8,
};
type
  TAPE_PREPARE {.bycopy.} = object
    Operation: uint32
    Immediate: uint8
struct TAPE_PREPARE
{
    uint Operation;
    ubyte Immediate;
}

HSP用 定義

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

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

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