Название статьи: "Освобождение памяти переменных в Веб-сервисах на Delphi: решение ошибки 'Invalid Pointer'"

Delphi , Программа и Интерфейс , Процессы и Сервисы

Освобождение памяти переменных в Веб-сервисах на Delphi: решение ошибки 'Invalid Pointer'

При работе с веб-сервисами в среде разработки Delphi может возникнуть проблема, связанная с утечкой памяти, что приводит к возникновению ошибки "Invalid Pointer". Это происходит, когда объекты, используемые для работы с веб-сервисами, не освобождаются должным образом после завершения их использования. В данной статье мы рассмотрим, как правильно освободить переменные, используемые веб-сервисами, на примере компонента THTTPRIO.

Проблема

Пользователь столкнулся с проблемой, когда при закрытии формы, в которой используется веб-сервис, возникала ошибка "Invalid Pointer". Это указывало на то, что объект, связанный с веб-сервисом, не был корректно освобожден. В коде использовался следующий подход:

HttpPrincipal.WSDLLocation := FrmPrincipal.edtWS.Text;
HttpPrincipal.Service := 'CADServicesService';
HttpPrincipal.Port := 'CADServices';
Trinity := HttpPrincipal as CADServices;

Где HttpPrincipal является экземпляром THTTPRIO, а CADServices - это единица, содержащая все процедуры и функции веб-сервиса.

Решение проблемы

Подтвержденное решение заключается в том, чтобы создавать компонент THTTPRIO во время выполнения программы, а не на этапе дизайна. Это позволяет гарантировать корректное освобождение ресурсов после их использования. Пример функции для создания объекта веб-сервиса:

function GetCadServices(Addr : String): CadServices;
const
  defSvc  = 'CADServicesService';
  defPrt  = 'CADServices';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  RIO := THTTPRIO.Create(nil);
  try
    Result := (RIO as CadServices);
    RIO.WSDLLocation := Addr;
    RIO.Service := defSvc;
    RIO.Port := defPrt;
  finally
    if (Result = nil) then // если объект не был создан (nil), то освобождаем RIO
      RIO.Free;
  end;
end;

Использование функции:

Trinity := GetCadServices(FrmPrincipal.edtWS.Text);

При создании объекта THTTPRIO во время выполнения программы, важно не забыть освободить его после использования, особенно в блоке finally. Это гарантирует освобождение памяти, даже если создание объекта веб-сервиса по каким-то причинам не удалось (объект Result остался nil).

Альтернативный ответ

Если компонент THTTPRIO создан как компонент дизайна, то его освобождение будет зависеть от владельца компонента. В таком случае, если владелец не удален, компонент THTTPRIO также не будет освобожден автоматически.

Заключение

Использование THTTPRIO как компонента, созданного во время выполнения программы, является ключом к решению проблемы утечек памяти. Это позволяет разработчикам избежать ошибки "Invalid Pointer", связанной с неправильным освобождением памяти. Важно помнить о корректном управлении ресурсами в программе, особенно при работе с внешними сервисами и компонентами, которые могут удерживать данные в памяти после завершения их использования.

Создано по материалам из источника по ссылке.

Проблема утечек памяти в веб-сервисах на Delphi, связанная с неправильным освобождением объектов `THTTPRIO`, приводит к ошибке 'Invalid Pointer', и решается путем создания `THTTPRIO` в режиме выполнения и его корректного освобождения после использования.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессы и Сервисы ::