- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试调用通过 RTTI 获取的构造函数(运行 D2010 版本 14.0.3593.25826)。构造函数采用字符串和对象的混合作为其参数,所有这些都应初始化为 ''
或 nil
。 (免责声明:我知道所需的构造函数将是具有最多参数的构造函数,因此看起来很奇怪,尽管设计不是最理想的。)
代码如下:
program sb_rtti;
{$APPTYPE CONSOLE}
uses RTTI, TypInfo, SysUtils;
type
TMyClass = class (TObject)
FField1: string;
FObject1: TObject;
public
constructor Create(Field1: string = ''; Object1: TObject = nil);
end;
constructor TMyClass.Create(Field1: string; Object1: TObject);
begin
FField1 := Field1;
FObject1 := Object1;
end;
function GetConstructor(rType: TRttiType) : TRttiMethod;
var
MaxParams: integer;
Methods: TArray<TRttiMethod>;
Method: TRttiMethod;
Params: TArray<TRttiParameter>;
begin
Methods := rType.GetMethods('Create');
MaxParams := 0;
for Method in Methods do begin
Params := Method.GetParameters();
if (Length(Params) > MaxParams) then begin
Result := Method;
MaxParams := Length(Params);
end;
end;
end;
procedure InitializeParam(Param: TRttiParameter; ActualParam: TValue);
begin
if (Param.ParamType.TypeKind = TTypeKind.tkClass) then begin
ActualParam := TValue.From<TObject>(nil);
end else if (Param.ParamType.TypeKind = TTypeKind.tkString) then begin
ActualParam := TValue.From<string>('');
end else if (Param.ParamType.TypeKind = TTypeKind.tkUString) then begin
ActualParam := TValue.From<UnicodeString>('');
end else begin
// Other types goes here
end;
end;
var
Context: TRttiContext;
Constr: TRttiMethod;
Params: TArray<TRttiParameter>;
ResultValue: TValue;
rType: TRttiType;
ActualParams: array of TValue;
i: integer;
CurrentParam: TRttiParameter;
begin
Context := TRttiContext.Create();
rType := Context.GetType(TypeInfo(TMyClass));
Constr := GetConstructor(rType);
try
if (Constr <> nil) then begin
Params := Constr.GetParameters();
SetLength(ActualParams, Length(Params));
for i := 0 to Length(Params) - 1 do begin
CurrentParam := Params[i] as TRttiParameter;
InitializeParam(CurrentParam, ActualParams[i]);
end;
ResultValue := Constr.Invoke(rType.AsInstance.MetaclassType, ActualParams);
end;
except
on E : Exception do
WriteLn(E.ToString);
end;
ReadLn;
end.
现在,当执行 ResultValue := Constr.Invoke(rType.AsInstance.MetaclassType, ActualParams);
行时,会引发 EInvalidCast 异常。该异常可以追溯到第 1336 行的 TValue.Cast
方法。
但是,问题的实质似乎是在调用堆栈的前一点处找到的,更准确地说是在 rtti.pas 中的第 4093 行 (argList[currArg] := Args[i].Cast(parList [i].ParamType.Handle);
).
我敢打赌,我正在以不应该的方式使用 rtti,但是,我找不到任何地方描述的“正确方法”。有人能指出我正确的方向吗?谢谢!
最佳答案
您在 InitializeParam
过程中遇到问题,因为在分配 ActualParam
参数时,您正在设置该参数的本地副本的值 - 请记住TValue
(ActualParam
的类型)是一条记录。因此,要解决此问题,您必须将 ActualParam
作为 var 参数传递。
procedure InitializeParam(Param: TRttiParameter; var ActualParam: TValue);
关于Delphi:调用构造函数引发 EInvalidCast,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7846824/
我正在尝试调用通过 RTTI 获取的构造函数(运行 D2010 版本 14.0.3593.25826)。构造函数采用字符串和对象的混合作为其参数,所有这些都应初始化为 '' 或 nil。 (免责声明:
我编写了一个接口(interface)来包装 Windows Threadpool API,其中许多函数返回普通的 Pointer 类型。 现在我正在编写测试并想使用 delphi-mocks fra
我正在尝试使用TRttiProperty.SetValue过程通过rtti分配一个对象过程类型的属性,但是当我尝试制作时会引发此异常赋值EInvalidCast:无效的类类型转换 此示例应用程序显示了
我是一名优秀的程序员,十分优秀!