Переход с 32-битного на 64-битный Delphi: решения проблемы с ассемблерными инструкциями в MS SQL клиенте

Delphi , Базы данных , SQL

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

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

Разработчик столкнулся с проблемой, что метод, используемый для перечисления серверов MS SQL на локальной сети из 32-битного приложения на Delphi, содержит ассемблерный код, который не компилируется в 64-битной версии. В частности, проблема касается функции PtCreateADOObject, которая использует ассемблер для сохранения и восстановления состояния FPU вокруг вызова CoCreateInstance.

Подход к решению

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

type
  TFPControlState = {$IFDEF CPUX86}Word{$ENDIF}{$IFDEF CPUX64}UInt32{$ENDIF};

function GetFPControlState: TFPControlState;
begin
  {$IFDEF CPUX86}
  Result := Get8087CW;
  {$ENDIF}
  {$IFDEF CPUX64}
  Result := GetMXCSR;
  {$ENDIF}
end;

procedure SetFPControlState(const Value: TFPControlState);
begin
  {$IFDEF CPUX86}
  Set8087CW(Value);
  {$ENDIF}
  {$IFDEF CPUX64}
  SetMXCSR(Value);
  {$ENDIF}
end;

Используя эти функции, можно переписать функцию PtCreateADOObject без использования ассемблера:

function PtCreateADOObject(const ClassID: TGUID): IUnknown;
var
  Status: HResult;
  FPControlState: TFPControlState;
begin
  FPControlState := GetFPControlState;
  Status := CoCreateInstance(
    ClassID,
    nil,
    CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
    IUnknown,
    Result
  );
  SetFPControlState(FPControlState);
  OleCheck(Status);
end;

Пример перечисления серверов

Для перечисления серверов MS SQL можно использовать следующий код, который адаптирован для работы в 64-битной среде:

uses
  ActiveX, ComObj, OleDB, DB, ADOInt, ADODB;

procedure ListAvailableSQLServers(Names: TStringList);
var
  // ... (код для перечисления серверов)
end;

procedure GetServer;
var
  oItems: TStringList;
begin
  oItems:= TStringList.Create;
  try
    ListAvailableSQLServers(oItems);
    // Обработка списка серверов
    ShowMessage(oItems.Text);
  finally
    oItems.Free;
  end;
end;

Заключение

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

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

Переход с 32-битной на 64-битную версию Delphi требует адаптации ассемблерного кода для сохранения совместимости с MS SQL клиентом.

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

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

:: Главная :: SQL ::