つづき

構造体、レコード型でのバイナリファイルへ...

　　構造体、レコード型でのバイナリファイルへのアクセス 山中和義 2008/02/29 20:42:14  (修正1回)
　　└つづき 山中和義 2008/02/29 20:42:55  (修正1回)
　　　└つづき（構造体、レコード型サポート関連） 山中和義 2008/02/29 20:44:04  (修正2回)
　　　　└つづき（構造体定義部分） 山中和義 2008/02/29 20:46:12  (修正1回)
　　　　　└つづき 山中和義 2008/02/29 20:49:03  (修正1回)

Re: つづき（構造体定義部分）	返事を書くノートメニュー
山中和義 <drdlxujciw> 2008/02/29 20:49:03 ** この記事は1回修正されてます
つづき LET sz=SizeOf("Long","") IF mm$=UCASE$("biXPelsPerMeter") THEN EXIT SUB LET ofst=ofst+sz LET sz=SizeOf("Long","") IF mm$=UCASE$("biYPelsPerMeter") THEN EXIT SUB LET ofst=ofst+sz LET sz=SizeOf("Long","") IF mm$=UCASE$("biClrUsed") THEN EXIT SUB LET ofst=ofst+sz LET sz=SizeOf("Long","") IF mm$=UCASE$("biClrImportant") THEN EXIT SUB LET ofst=ofst+sz IF m$<>"" THEN PRINT m$;" は ";s$;" のメンバ変数ではありません。" STOP END IF CASE "RGBQUAD" !Type RGBQUAD '4byte ! rgbBlue As Byte '青の濃さ ! rgbGreen As Byte '緑の濃さ ! rgbRed As Byte '赤の濃さ ! rgbReserved As Byte '未使用(常に0) !End Type LET ofst=0 LET sz=SizeOf("Byte","") IF mm$=UCASE$("rgbBlue") THEN EXIT SUB LET ofst=ofst+sz LET sz=SizeOf("Byte","") IF mm$=UCASE$("rgbGreen") THEN EXIT SUB LET ofst=ofst+sz LET sz=SizeOf("Byte","") IF mm$=UCASE$("rgbRed") THEN EXIT SUB LET ofst=ofst+sz LET sz=SizeOf("Byte","") IF mm$=UCASE$("rgbReserved") THEN EXIT SUB LET ofst=ofst+sz IF m$<>"" THEN PRINT m$;" は ";s$;" のメンバ変数ではありません。" STOP END IF CASE ELSE PRINT s$;" は未定義なデータ型です。" STOP END SELECT END SUB

　　　　　　├ネストする構造体の場合（親子関係） 山中和義 2008/03/03 13:19:43  (修正2回)
　　　　　　└SUBStructDefの構造 山中和義 2008/03/04 10:48:06  (修正1回)

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。