Исправление ошибок при миграции кода из Delphi 6 в Delphi 10.2 Tokyo: работа с типами и указателями

Delphi , Синтаксис , Память и Указатели

При миграции кода из Delphi 6 в более новые версии, такие как Delphi 10.2 Tokyo, разработчики могут столкнуться с различными ошибками, связанными с изменениями в типизации и управлении памятью. Одной из таких проблем является несовместимость типов при работе с указателями и массивами строк.

Описание проблемы

В коде, представленном в контексте, используется указатель на массив строк (^PChar), который пытаются привести к массиву строк (array of PChar). В Delphi 10.2 Tokyo это приводит к ошибке несовместимости типов.

type
  PServEnt = ^TServEnt;
  TServEnt = packed record
    s_name: PChar;                 // официальное имя сервиса
    s_aliases: ^PChar;             // список псевдонимов
    s_port: Smallint;              // используемый протокол
    s_proto: PChar;                // номер порта
  end;

function TIdStackWindows.WSGetServByPort(
  const APortNumber: Integer): TIdStrings;
var
  ps: PServEnt;
  i: integer;
  p: array of PChar;
begin
  Result := TIdStringList.Create;
  p := nil;
  try
    ps := GetServByPort(HToNs(APortNumber), nil);
    if ps <> nil then
    begin
      Result.Add(ps^.s_name);
      i := 0;
      p := Pointer(ps^.s_aliases); // ошибка: несовместимые типы 'Динамический массив' и 'Указатель'
      while p[i] <> nil do
      begin
        Result.Add(PChar(p[i]));
        inc(i);
      end;
    end;
  except
    Result.Free;
  end;
end;

Подтвержденный ответ

Ошибка в коде связана с попыткой привести указатель к динамическому массиву, что некорректно, так как динамический массив в Delphi содержит дополнительную информацию, такую как длина массива и счетчик ссылок. Вместо этого следует использовать арифметику указателей.

function TIdStackWindows.WSGetServByPort(
  const APortNumber: Integer): TIdStrings;
var
  ps: PServEnt;
  p: PPChar;
begin
  Result := TIdStringList.Create;
  try
    ps := GetServByPort(HToNs(APortNumber), nil);
    if ps <> nil then
    begin
      Result.Add(ps^.s_name);
      p := PPChar(ps^.s_aliases); // приведение типа, необходимое из-за использования неименованного типа в записи Indy
      while p^ <> nil do
      begin
        Result.Add(p^);
        inc(p);
      end;
    end;
  except
    Result.Free;
    raise;
  end;
end;

Также стоит отметить, что обработка исключений была исправлена для корректного освобождения ресурсов.

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

В случае использования типов из библиотеки Indy, которые не могут быть изменены, необходимо использовать приведение типов. В Delphi 2009 и более новых версиях следует использовать PPAnsiChar вместо PPChar, так как функция getservbyport() возвращает данные в виде Ansi-строк.

Заключение

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

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

При миграции кода из Delphi 6 в Delphi 10.2 Tokyo необходимо учитывать изменения в типизации, что может привести к ошибкам при работе с указателями и массивами строк.

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

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

:: Главная :: Память и Указатели ::