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;