Fastreport и Fastscript

lucky

имеем вот такой код

    TfrxReport frxReport = TfrxReport.Create( Application );
    frxReport.LoadFromFile("scriptreport.fr3");
    
    TfrxMasterData mData = frxReport.FindObject("ObjectsData");
    mData.Dataset = MyDataSet;

   frxReport.ShowReport();

в результате получаем ошибку Набор данных "" не найден.

Как добавить из скрипта таблицу MyDataSet в отчет frxReport->DataSets и frxReport->EnabledDataSets????

lucky

Написал вот такие функции

void TReport::InitScript( TfsScript* fsScript )
    {
        TfsClassVariable* fsClass = fsScript->FindClass( "TfrxReport" );
        fsClass->AddMethod("function AddDataSet(DataSet:TDataSet,Name:String=''):TfrxCustomDBDataSet",ScriptFunction.CallMethod);
}

    Variant __fastcall TReport::TScriptFunction::CallMethod(System::TObject* Instance, TMetaClass* ClassType,
        const AnsiString MethodName, Variant &Params)
    {
        if(MethodName == "ADDDATASET")
        {
            TfrxReport* frxReport = dynamic_cast<TfrxReport*>(Instance);
            if(frxReport)
            {
                TfrxDBDataset* frxDBDataSet = new TfrxDBDataset(frxReport->Owner);
                TDataSet* DataSet = (TDataSet*)((int)Params.GetElement(0));
                AnsiString Name = VarToStr(Params.GetElement(1));
                if(Name == "")
                    Name = DataSet->Name;
                frxDBDataSet->UserName = Name;
                frxDBDataSet->DataSet  = DataSet;
                frxReport->DataSets->Add(frxDBDataSet);
                frxReport->EnabledDataSets->Add(frxDBDataSet);
                ShowMessage(frxReport->GetAlias(frxDBDataSet));
                return (int)frxDBDataSet;
            }
        }
   }

результат тот же самый....

lucky

Уважаемые разработчики, вы может все таки ответите как создавать объекты отчета с датасетами и бэндами динамически в скриптах???

lucky

Разработчики продолжают радовать оперативностью своих ответов...