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

Question

Eli

delphi

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

Коллеги, у меня возникли трудности с пониманием текущей ситуации, и я был бы признателен за ваши рекомендации относительно того, что я делаю неправильно. 

У меня имеются два интерфейса:

```delphi
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:

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

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

Что именно может быть неправильным в данной реализации?

21 октября 2024 г. 7:43

Ответы на вопрос 2

Похожие вопросы

Answer 1

Ваша проблема, связанная с Access Violation, скорее всего вызвана неправильным управлением памятью и указателями в вашем массиве `Fresults`. Давайте рассмотрим, что может пойти неправильно и как это можно исправить.

### Причины проблем:

1. **Неправильное приведение типов**: Если `Fresults` не является массивом интерфейсов, то попытка привести `Fresults` к `TArray<ITubeVideo>` может вызывать ошибки. Убедитесь, что `Fresults` действительно инициализирован и содержит valid интерфейсы.

2. **Управление интерфейсами**: В Delphi для работы с интерфейсами нужно помнить, что интерфейсы управляются через счётчики ссылок. Если вы используете указатели напрямую, это может привести к утечкам памяти или неправильному обращению к освобожденной памяти.

### Рекомендации по исправлению:

1. **Инициализация и заполнение `Fresults`**:
   Убедитесь, что массив `Fresults` правильно инициализирован и заполнен экземплярами реализации интерфейса `ITubeVideo`. Например:
   ```delphi
   var
     Video: ITubeVideo;
   begin
     // предположим, что у вас есть метод, который создает и возвращает интерфейс
     Video := CreateTubeVideo(); // Создаем экземпляр
     Fresults := Fresults + [Video]; // Добавляем в массив
   end;
   ```

2. **Правильный возврат `TArray<ITubeVideo>`**:
   Если `Fresults` является массивом `ITubeVideo`, то код, который вы написали, в целом корректен. Но чтобы избежать ошибки, убедитесь, что `Fresults` — это именно массив интерфейсов:
   ```delphi
   var
     Fresults: TArray<ITubeVideo>;
   ```

3. **Проверка перед возвратом**:
   При возврате использовать дополнительные проверки, чтобы убедиться, что массив не содержит `nil` элементов, например:
   ```delphi
   function TTubeSearch.getVideos: TArray<ITubeVideo>;
   var
     i: Integer;
   begin
     // Фильтруем nil элементы
     Result := TArray<ITubeVideo>.Create();
     for i := 0 to High(Fresults) do
     begin
       if Assigned(Fresults[i]) then
         Result := Result + [Fresults[i]];
     end;
   end;
   ```

4. **Отладка**: Используйте отладчик, чтобы проверить, что именно находится в `Fresults` перед тем, как передать его или использовать. Если необходимо, выводите информацию о каждом элементе.

Проверьте эти рекомендации, и если проблема все еще останется, попробуйте изолировать код, чтобы лучше понять, на каком этапе происходит ошибка.

Answer 2

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