¿Cómo puedo obtener el nombre de una clase si tengo la dirección de la clase/VMT única

Question

Al leer here,

el VMT también contiene un número de campos “mágicas” para apoyar características como enlace de los padres de clase, tamaño de la instancia, nombre de la clase, método dinámico mesa, publicada mesa de métodos, publicada mesa de campos, mesa de RTTI, mesa de inicialización para los campos de magia, el desuso de automatización OLE tabla de despacho y las interfaces implementadas mesa

Parece que el VMT no incluye un campo que contiene el nombre de la unidad donde se define la clase. ¿Hay alguna 'magia del compilador' involucrada?

Answer 1

No veo por qué el VMT debería estar involucrado aquí. TObject ya expone un class function UnitName para eso.

System.TObject.UnitName

Answer 2

VMT incluye un puntero a la clase RTTI (proporcionada por ClassInfo método); clase RTTI incluye un nombre de unidad de clase. Como un ejercicio que puede obtener el nombre de la unidad del puntero del VMT, he escrito este (probado en Delphi XE):

uses TypInfo; 

type 
    TObj = class 

    end; 

procedure TForm1.Button3Click(Sender: TObject); 
var 
    Obj: TObj; // dummy obj instance 
    VMT: Pointer; 
    P: Pointer; // class info 

begin 
// you can get VMT pointer so 
    Obj:= TObj.Create; 
    VMT:= PPointer(Obj)^; 
    Obj.Free; 
// or so 
    VMT:= Pointer(TObj); 

    P:= PPointer(PByte(VMT) + vmtTypeInfo)^; 
    if P <> nil then 
    ShowMessage(GetTypeData(P).UnitName); 
end; 

Answer 3

procedure MessageException(E: Exception); 
var 
    TI: TypInfo.PTypeInfo; 
begin 
    TI := E.ClassInfo; 
    if Assigned(TI) then 
    begin 
    Dialogs.MessageDlg(TypInfo.GetTypeData(TI).UnitName + '.' + 
     E.ClassName + ': ' + E.Message, Dialogs.mtError, [Dialogs.mbOK], 0, Dialogs.mbOK); 
    end 
    else 
    begin 
    Dialogs.MessageDlg(E.ClassName + ': ' + E.Message, Dialogs.mtError, [Dialogs.mbOK], 0, Dialogs.mbOK); 
    end; 
end; 

Tenga en cuenta que ClassInfo debe ser probado para nula. P.ej. SysUtils.ERangeError no lo tiene.