Url: String;
Свойство Url определяет адрес Веб-страницы, либо путь и наименование файла, из которых будет производиться импорт данных.
Для выполнения примера предполагается наличие в репозитории задачи ETL с идентификатором "Etl" и в корневом каталоге диска С HTML файла "Data.html".
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
EtlTask: IEtlTask;
EtlProvider: IEtlPlainDataProvider;
WebProvider: IDtWebProvider;
WxProvider: IWxRectangle;
WxETLProvider: IWxETLObject;
Begin
MB := MetabaseClass.Active;
//Поиск задачи ETL. Объект репозитория с идентификатором "ETL"
MObj := MB.ItemById("Etl").Edit;
EtlTask := MObj As IEtlTask;
//Начало создания источника
//Создание объекта "Импорт из Web"
EtlProvider := EtlTask.Create(EtlObjectType.PlainDataWebProvider) As IEtlPlainDataProvider;
EtlProvider := EtlProvider.Edit;
EtlProvider.Id := "Web_Provider";
EtlProvider.Name := "Импорт из Web";
EtlProvider.Description := "Импорт из Web";
//Настройка источника данных
WebProvider := EtlProvider.Provider As IDtWebProvider;
WebProvider.HasHeader := True;
WebProvider.TableIdentificationType := DtWebTableIdentificationType.ByNumber;
WebProvider.TableNumber := 1;
WebProvider.Url := "c:\Data.html";
EtlProvider.FillDefault;
//Сохраняем источник
EtlProvider.Save;
//Конец создания источника
//Начало создания визуального объекта
WxProvider := EtlTask.Workspace.CreateRectangle;
WxETLProvider := New WxETLObject.Create;
WxETLProvider.ETLObject := EtlProvider;
WxProvider.Style.TextPosition := WxTextPosition.Bottom;
WxProvider.Style.PictureMarginTop := -10;
WxProvider.PinPosition := New GxPointF.Create(50, 50);
WxProvider.Extension := WxETLProvider As IWxShapeExtension;
//Конец создания визуального объекта
//Сохранение задачи Etl
MObj.Save;
End Sub Main;
После выполнения примера в задаче ETL будет создан объект «Импорт из Web». Данный источник будет импортировать данные из HTML файла "Data.html". Будет импортироваться первая имеющаяся в файле таблица. Из первой строки таблицы будут импортироваться наименования полей.
См. также: