RO의 가져오기 저장 프로세스 반환 값(In, Out 매개 변수)

1488 단어 저장 프로세스
{

      uRODynamicRequest, uROClasses, uRODL

}

var

  lParam:TRORequestParam;

  lArray:DataParameterArray;

  aParam:DataParameter;

begin

  with DARemoteCommand1.ExecuteCall do

  begin

    MethodName := 'ExecuteCommandEx';

    Params.Clear();

    OutgoingCommandNameParameter  := Params.Add('aCommandName', rtString, fIn).Name;

    OutgoingParametersParameter   := Params.Add('aOutgoingParameterArray', rtUserDefined, fIn, 'DataParameterArray').Name;

    IncomingParametersParameter   := Params.Add('aIncomingParameterArray', rtUserDefined, fOut, 'DataParameterArray').Name;

    IncomingAffectedRowsParameter := Params.Add('Result', rtInteger, fResult).Name;

    ParamByName(OutgoingCommandNameParameter).Value := '     ';

    //    ,           ,        

    lArray := DataParameterArray.Create();

    aParam 	 := lArray.Add();

    aParam.Name  := '      ';

    aParam.Value := '     ';

    aParam       := lArray.Add();

    aParam.Name  := '      ';

    aParam.Value := '     (   )';



    lParam := Params.FindParam(OutgoingParametersParameter);

    lParam.AsComplexType := lArray;

    lParam.OwnsComplexType := true;

    Execute();



    lParam := Params.FindParam(IncomingParametersParameter);

    lArray := DataParameterArray(lParam.AsComplexType);

    ShowMessage(lArray[1].Value);//lArray[0]-    lArray[1]-     

  end;

end;

좋은 웹페이지 즐겨찾기