DelphiのVMT (Virtual Method Table)

Ktz @ktz_alias

Delphiムズいー ＞＜ https://t.co/q347WhLq1X 個数の後の6byteと各メソッド名の間の6byteの意味が分からないー

Owl's perspective @owlsperspective

@ktz_alias 8バイトアライメントになってる、ってことでは？

Ktz @ktz_alias

@owlsperspective 最初の6byteはそれっぽいですね。しかし名称間の6byteは別の理由のような気が・・・

Owl's perspective @owlsperspective

@ktz_alias VMTはどこが詳しかったんだっけな…クイックリファレンスだっけ？ちょっと見てみよう

Owl's perspective @owlsperspective

@ktz_alias あー違うなー。6はエントリごとの TMethod = packed record Size: Word; Address: Pointer; Name: packed ShortString; ... end; の先頭2要素(続く

Owl's perspective @owlsperspective

@ktz_alias Size(2バイト)、Address(4バイト)をスキップするためのもの、だけど、 https://t.co/6dSu4SYG5g のコードって動くのかな？

Owl's perspective @owlsperspective

@ktz_alias 手元のDelphiクイックリファレンス ISBN4-87311-040-8 の3章実行時型情報の3.2.1にある擬似コードとテーブル構造が違うと思うんだよね。

Owl's perspective @owlsperspective

@ktz_alias この本が絶版状態というのは非常に悔やまれる。eBookで復刻していただけないものか。

Ktz @ktz_alias

@owlsperspective ワケあってDelphi3を相手にしているので、今のバージョンでは動かないかも・・・

Ktz @ktz_alias

@owlsperspective 引っこ抜いてきた元がDelphi7用のdunitなので、ある程度は耐えれるかもしれないけど・・・

Owl's perspective @owlsperspective

@ktz_alias Delphi 3ならたぶんクイックリファレンスの話がそのまま使えるので、先頭2バイトのサイズを見ながら4バイトスキップして次にあるNUL終端文字列を取って、次の要素(先頭のサイズが1つのレコードのサイズ)に進む、とすればいいと思います

Owl's perspective @owlsperspective

@ktz_alias さっきのTMethod構造体は...のところにエクストラメンバーがいるので、Sizeメンバでポインタを進めていく必要がある、と書かれています。

Ktz @ktz_alias

@owlsperspective なるほど、解説ありがとうございます。