Устранение ошибки 'Range check error' при отправке TMemoryStream через IdTrivialFTP в Delphi 2010 и Indy 10

Delphi , Интернет и Сети , FTP

При работе с компонентами Indy в Delphi 2010 вы можете столкнуться с ошибкой 'Range check error' при попытке отправить TMemoryStream через IdTrivialFTP. В этой статье мы рассмотрим причину этой ошибки и способы ее устранения.

Причина ошибки

Ошибка 'Range check error' возникает из-за проблем в коде компонента IdTrivialFTP, который входит в состав Indy 10, поставляемого с Delphi 2010. В частности, проблема связана с неправильной обработкой данных в методе Put() компонента IdTrivialFTP.

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

Для устранения этой ошибки вам необходимо обновить компоненты Indy до последней версии. В настоящее время доступна версия Indy 10.6.2, в которой уже исправлена проблема с компонентом IdTrivialFTP.

Чтобы обновить Indy, выполните следующие шаги:

1. Скачайте последнюю версию Indy с официального сайта (https://www.indyproject.org/) или с зеркала Fulgan (http://www.fulgan.com/mirror/indy/).
2. Распакуйте архив с Indy в папку, например, C:\indy1062.
3. Скопируйте содержимое папки C:\indy1062\Lib\Win32\Release в папку с вашим проектом Delphi.
4. Скопируйте содержимое папки C:\indy1062\Include в папку с вашим проектом Delphi.
5. Обновите ссылки на компоненты Indy в вашем проекте, указав путь к новым файлам.

После обновления Indy до последней версии ошибка 'Range check error' при отправке TMemoryStream через IdTrivialFTP должна быть устранена.

Пример кода

Вот пример кода, который демонстрирует отправку TMemoryStream через IdTrivialFTP после обновления Indy до последней версии:

uses
  IdGlobal, IdTrivialFTP, IdStackOrion, IdTCPStack;

var
  IdTrivialFTP1: TIdTrivialFTP;
  MemStream: TMemoryStream;
  sFileName: string;
begin
  IdTrivialFTP1 := TIdTrivialFTP.Create(nil);
  try
    IdTrivialFTP1.Name := 'IdTrivialFTP1';
    IdTrivialFTP1.Host := 'my-tftp-server-name.contoso.com';
    IdTrivialFTP1.Port := 69;
    IdTrivialFTP1.ReceiveTimeout := 4000;

    MemStream := TMemoryStream.Create;
    try
      // Заполните MemStream данными
      MemStream.Position := 0;
      IdTrivialFTP1.Put(MemStream, sFileName);
    finally
      MemStream.Free;
    end;
  finally
    FreeAndNil(IdTrivialFTP1);
  end;
end;

В этом примере мы создаем экземпляр TIdTrivialFTP, настраиваем его свойства и отправляем TMemoryStream с данными на сервер с помощью метода Put(). После отправки данных мы освобождаем ресурсы, связанные с TMemoryStream и TIdTrivialFTP.

Вывод

При работе с компонентами Indy в Delphi 2010 и Indy 10 вам может встретиться ошибка 'Range check error' при отправке TMemoryStream через IdTrivialFTP. Для устранения этой ошибки необходимо обновить Indy до последней версии, в которой уже исправлена проблема с компонентом IdTrivialFTP. После обновления Indy вы можете использовать компонент IdTrivialFTP для отправки TMemoryStream без каких-либо ошибок.

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

В статье описывается решение проблемы с ошибкой 'Range check error' при отправке TMemoryStream через IdTrivialFTP в Delphi 2010 и Indy 10, которое заключается в обновлении компонентов Indy до последней версии.

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

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

:: Главная :: FTP ::