Как объявить результат метода как TArray?

Question

[Moses Fender]

Коллеги, что-то у меня голова разболелась от происходящего, не сочтите за труд, укажите, что я делаю не так.

Есть два интерфейса:

type

  ITubeVideo = interface(IInterface)
    [TubeVideoGUID]
    function getOrigin: string;
    function getMOID: string;
    function getMTitle: string;
    function getMDescription: string;
    property TubeOrigin: string read getOrigin;
    property mOID: string read getMOID;
    property mTitle: string read getMTitle;
    property mDescription: string read getMDescription;
  end;

  ITubeVideoList = interface(IInterface)
    [TubeVideoListGUID]
    function getVideos: TArray<ITubeVideo>;
    property Videos: TArray<ITubeVideo> read getVideos;
  end;

Плохо начинается уже в реализации getVideos:

function TTubeSearch.getVideos: TArray<ITubeVideo>;
begin
  Result := TArray<ITubeVideo>(Fresults);
end;

Дебугер говорит, что это Pointer($...) as ITubeVideoList, начинённый кучкой Pointer($...) as ITubeVideo. При попытке получить интерфейс элемента массива ITubeVideo, вываливается AccessViolation вот тут (модуль System).

Если всё делать без интерфейсов, работает просто замечательно. И даже с интерфейсами, если отдельный объект ITubeVideo создать — всё работает. Но если из массива — что-то ему мешает.

Comments

[d'Ivan]

Не выкладывай код картинкой.

[Hemul GM]

"Fresults" - это что? Какой тип, откуда?

[Moses Fender]

Hemul GM,

TVideo = class(TInterfacedPersistent, ITubeVideo)
  private
    Fid: string;
  public
    function getMOID: string;
    property mOID: string read getMOid;
  end;

  TTubeSearch = class(TInterfacedPersistent, ITubeVideoList)
  private
    Fresults: TArray<TVideo>;
  public
// Этот метод класса
    property results: TArray<TVideo> read Fresults write Fresults;
// А это реализация геттера из интерфейса
    function getVideos: TArray<ITubeVideo>;
    property Videos: TArray<ITubeVideo> read getVideos;
  end;

[Hemul GM]

Moses Fender, зачем ты в Fresults объекты хранишь? Переделай на массив интерфейсов.

Если у тебя используется интерфейсные объекты, никогда не храни и не используй ссылку на класс, а используй ссылку на интерфейс

[Moses Fender]

Hemul GM, Это объекты, полученные из JSON Data binding, сериализатору, который из JSON раскладывает в них данные, нужен конкретный объект, интерфейсы он отказывается понимать.

Answer 1

[Freeman]

Плохо начинается уже в реализации getVideos

Потому что массив объектов ≠ массив интерфейсов. При присвоении одиночного объекта переменной-интерфейсу компилятор вставляет свою магию с QueryInterface и всем остальным, и всё работает прозрачно для программиста. А тут надо создавать всё вручную, если требуется возвращать именно массив интерфейсов. Либо же забить на объекты и в массиве держать сразу интерфейсы, предварительно убедившись, что при уничтожении массива они должным образом финализируются.

Comments

[Moses Fender]

Спасибо! Вот примерно такая мысль у меня крутилась, но не мог её оформить в что-то понятное самому себе. Теперь что-то стало доходить. Попробую приделать свой QueryInterface в этом объекте.

[Freeman]

Попробую приделать свой QueryInterface в этом объекте.

Свой компилятор приделать не забудьте. Который от Embarcedero — приводит указатель (ничего не делает), и какой бы правильный не был QueryInterface — он тупо не вызывается.

Я, кстати, мог напутать с конкретной реализацией: QueryInterface вроде должен вызываться для получения интерфейса из интерфейса, а для получения интерфейса из объекта служит GetInterface, который на вашем скрине. Давно туда не заглядывал. Но сути это не меняет: собственный компилятор писать всё равно придется.