Histórico da Página

#INCLUDE#include "MsObjecttlpp-core.CHth"

NAMESPACE TesteReflection
MAIN FUNCTION Teste()
  ClasseTeste():New()
RETURN

@annotation AnnotationMethodAnnotationGetMethodsByAnnotation
    property1 as char
@end

@annotationClass AnnotationClassGetMethodsByAnnotation

	Public    Method New()

	@AnnotationGetMethodsByAnnotation(property1 as char
@end

@AnnotationClass("testeClass")
class ClasseUm

	public method New= "Method Annotation")
	Public Method MethodWithAnnotation()

	@AnnotationMethod@AnnotationGetMethodsByAnnotation("testeMethodproperty1 = "Method Annotation")
	publicPublic methodMethod testeMethodAnotherMethodWithAnnotation()

endclassEndClass

METHODMethod NEWNew() CLASSclass ClasseUmGetMethodsByAnnotation
returnReturn selfSelf

methodMethod testeMethodMethodWithAnnotation() CLASSclass ClasseUm
	conout("Teste de metodo")
return

CLASS ClasseTeste
  PUBLIC METHOD NEW()
ENDCLASS


METHOD NEW() CLASS ClasseTeste
  
  local classes := {}
  local methods GetMethodsByAnnotation
Return

Method AnotherMethodWithAnnotation() class GetMethodsByAnnotation
Return

Function u_testGetMethodsByAnnotation()
	Local aRet := {}
  local instance
  
  // Pego todas as classes que possuem a annotation "AnnotationClass"
  classes := Reflection.getClassesByAnnotation("AnnotationClass", "TesteReflection.*")
  
  conout(classes[1])
  
  // Instancio um novo objeto desta classe
  instance :=  &(classes [1] + "():New()")
  
  // Pego todos os metodos dentro da classe que possuem a annotation "AnnotationMethod"
  methods as array
	Local oObj

	oObj := GetMethodsByAnnotation():New()
	aRet := Reflection.getMethodsByAnnotation(instanceoObj, "AnnotationMethodAnnotationGetMethodsByAnnotation")
	if(valType(aRet) == 
  conout(methods[1])
  
  // Executo o metodo encontrado
  &("instance:" + methods[1] + "()")
  
RETURN self"A" .and. len(aRet) > 0)
		aEval(aRet,{|x| Conout(x)} )
	else
		Conout('Nao foi encontrada Annotation com os parametros solicitados')
	endIf
Return