Переезд приложений Presentation Manager с OS/2 на Windows: поиск эквивалентов функций

Delphi , ОС и Железо , Windows

Переезд приложений с одной операционной системы на другую – задача непростая, особенно если речь идет о системах с разными API и подходами к программированию. В данном случае, студенту университета необходимо перенести приложение Presentation Manager, разработанное для OS/2, на Windows, используя языки C и Pascal. Вопрос заключается в поиске эквивалентов функций OS/2 для Windows API.

Оригинальный заголовок:

Описание проблемы (вопрос):

Студенту университета поставлена задача по переводу приложения Presentation Manager, написанного для операционной системы OS/2, на платформу Windows. Необходимо найти эквиваленты функций OS/2 в Windows API, так как не все функции имеют прямое соответствие. Поиск руководств и ресурсов в интернете не дал результатов, и студент обращается за помощью.

Список функций для переноса:

GpiCharStringAt
GpiErase
GpiQueryFontMetrics
GpiQueryTextBox
WinBeginPaint
WinCreateMsgQueue
WinCreateStdWindow
WinDefWindowProc
WinDestroyMsgQueue
WinDestroyWindow
WinDispatchMsg
WinEndPaint
WinGetMsg
WinGetPS
WinInitialize
WinQuerySysValue
WinQueryWindow
WinRegisterClass
WinReleasePS
WinScrollWindow
WinSendMsg
WinTerminate
WinWindowFromID

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

В качестве ресурса для поиска эквивалентов функций OS/2 в Windows API было предложено обратиться к книгам "OS/2 Presentation Manager Programming" и "Programming Windows 95" от Чарльза Петцольда. Также рекомендуется использовать ArcaOS (обновленная версия OS/2 Warp 4.52) и компилятор Open Watcom для тестирования кода в виртуальной машине.

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

Поскольку не все функции имеют точные аналоги, было предложено обратить внимание на проект WINE, который занимается эмуляцией Windows API для Unix-подобных систем. Однако студент указал, что WINE не подходит для его задачи.

Примеры перевода функций:

Для примера рассмотрим функцию WinBeginPaint, которая используется для начала процесса рисования в окне. В Windows API аналогичной функцией будет BeginPaint.

procedure TForm1.Button1Click(Sender: TObject);
var
  hdc: HDC;
begin
  hdc := BeginPaint(Handle, nil);
  // Здесь код для рисования
  EndPaint(Handle, nil);
end;

Функция GpiErase может быть заменена на FillRect для закрашивания области окна.

procedure TForm1.FormCreate(Sender: TObject);
var
  Rect: TRect;
begin
  Rect := Rect(0, 0, ClientWidth, ClientHeight);
  FillRect(Handle, Rect, ColorToBrush(clWhite));
end;

Остальные функции потребуют аналогичного анализа и поиска эквивалентов в Windows API.

Заключение:

Переезд приложений с OS/2 на Windows требует глубокого понимания обеих платформ и их API. Использование рекомендованных ресурсов и примеров кода поможет студенту в решении поставленной задачи.

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

Переезд приложения Presentation Manager, разработанного для OS/2, на платформу Windows требует поиска эквивалентов функций OS/2 в Windows API.

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

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

:: Главная :: Windows ::