这是有效的代码与更新的Delphi版本？
// handle HTTP request "example.com/products?ProductID=123" procedure TMyRESTfulService.HandleRequest([QueryParam] ProductID: string);
在此示例中,参数“ProductID”归因于[QueryParam].如果这是Delphi中的有效代码,还必须有一种方法来编写基于RTTI的代码来查找归因参数类型信息.
看到我上一个问题Which language elements can be annotated using attributes language feature of Delphi?,其中列出了一些已报告使用属性的语言元素.该列表中缺少参数的属性.
解决方法
是的你可以：
program Project1;
{$APPTYPE CONSOLE}
uses
Rtti,SysUtils;
type
QueryParamAttribute = class(TCustomAttribute)
end;
TMyRESTfulService = class
procedure HandleRequest([QueryParam] ProductID: string);
end;
procedure TMyRESTfulService.HandleRequest(ProductID: string);
begin
end;
var
ctx: TRttiContext;
t: TRttiType;
m: TRttiMethod;
p: TRttiParameter;
a: TCustomAttribute;
begin
try
t := ctx.GetType(TMyRESTfulService);
m := t.GetMethod('HandleRequest');
for p in m.GetParameters do
for a in p.GetAttributes do
Writeln('Attribute "',a.ClassName,'" found on parameter "',p.Name,'"');
except
on E: Exception do
Writeln(E.ClassName,': ',E.Message);
end;
Readln;
end.