OmniThread:如何在SetParameter中传递TRect

Question

在使用OmniThread库的程序中，如何在SetParameter中传递TRect？示例：

procedure TestParameters(const ATask: IOmniTask);
begin
  // how can I access the TRect here?
end;
FTestTask := CreateTask(TestParameters, 'TestParameters')
               .MonitorWith(OTLMonitor)
               .SetParameter('FormRect', Self.ClientRect) // does not work
               .Run;

如何在SetParameter中使用不同类型有一个通用规则吗？

Answer 1

使用TOmniValue.FromRecord<T>和TOmniValue.ToRecord<T>。

procedure TestParameters(const ATask: IOmniTask);
var
  formRect: TRect;
begin
  formRect := ATask.Param['FormRect'].ToRecord<TRect>;
end;
FTestTask := CreateTask(TestParameters, 'TestParameters')
               .MonitorWith(OTLMonitor)
               .SetParameter('FormRect', TOmniValue.FromRecord<TRect>(ClientRect))
               .Run;