Hola a todos.
¿Alguien sabe cómo puedo usar la información contenida en la estructura TPropInfo?
Concretaré un poco más. Estoy usando la función GetPropInfo() de la unit TypInfo para "capturar" unas propiedades de varios objetos. Esta función me devuelve un PPropInfo:
Código Delphi
[-]TYPE
PPropInfo = ^TPropInfo;
TPropInfo = packed record
PropType: PPTypeInfo;
GetProc: Pointer;
SetProc: Pointer;
StoredProc: Pointer;
Index: Integer;
Default: Longint;
NameIndex: SmallInt;
Name: ShortString;
end;
Yo sé que cuando GetPropInfo() devuelve un valor distinto de nil, es que la propiedad en cuestión está declarada como published en el objeto. Y también sé que el TPropInfo al cual apunta el PPropInfo devuelto, contiene información de dicha propiedad. Lo que necesito saber es cómo hacer uso de esta información.
En el TPropInfo hay un GetProc y un SetProc. Sus nombres me hacen pensar que son dos punteros a función y procedimiento respectivamente que me dan acceso a los idems llamados por el read y el write de la propiedad, respectivamente. ¿Me equivoco?
¿Puedo hacer uso del GetProc y SetProc para trabajar con la propiedad como si tuviera acceso directo a ella por medio del objeto al que pertenece?
Lo he intentado pero me da errores de access violation en cuanto intento usar el GetProc y SetProc como punteros a la función y procedimiento a los cuales creo que apuntan.
Resumo un poco la prueba que he realizado:
- Me he recorrido el Components de un TForm.
- A cada Component contenido en el Components le he buscado su propiedad DataSource usando la función GetPropInfo().
- Si la tiene, compruebo que sea distinto de nil el GetProc del TPropInfo al que apunta el PPropInfo que he obtenido.
- Si el GetProc apunta a algo distinto de nil, por medio de casting le asigno su valor a un puntero a función, para así intentar acceder al valor contenido por la propiedad que busqué (DataSource).
- Pero cuando intento hacer uso de ese puntero a función para comprobar el valor de la propiedad DataSource es cuando me salta el mensaje de error.
Para el casting del puntero a función me he creado esto, ya que de este tipo es la función a la cual llama el read de la propiedad DataSource:
Código Delphi
[-]
type T_GetDataSource = function : TDataSource;
También he intentado crearlo así:
Código Delphi
[-]
type T_GetDataSource = function : TDataSource of object;
Pero así no me compila el casting.
Gracias.