OberonCore

Конечно строгая типизация в компонентном паскале дело хорошее. Но это головная боль для тех кто пользует WinApi функции.

Как передать параметр типа WinApi.PtrSTR в функцию WinApi.MessageBoxA?


Например:



На такое компилятор ругнется. Типы не соответствуют. Если вместо Msg передать указатель, SYSTEM.ADR(Msg):
Res:=WinApi.MessgaeBoxA(HWnd, SYSTEM.ADR(Msg), "Сообщение" , {4,5});

То тоже ругается.

Если Msg перевести к типу WinApi.PtrSTR с помощью SYSTEM.VAL(WinApi.PtrSTR, Msg):
Res:=WinApi.MessgaeBoxA(HWnd, SYSTEM.VAL(WinApi.PtrSTR, Msg), "Сообщение" , {4,5});
То проглотит. Но при запуске выведет ошибку...

Как поуму передавать в функции WinApi параметры?

Не забывайте, что в КП CHAR двубайтовый, юникодовский. Поменяйте в вышеприведенном примере ARRAY OF CHAR на ARRAY OF SHORTCHAR - и все заработает.

Однако, с таким типом Msg: ARRAY 255 OF SHORTCHAR;

Log.String(Msg) отказывается работать.

----------------------------------
И ещё. Что лучше сделать, что бы во всей программе использовались одинаковые типы?
Создать один модуль, например, Types, где собрать все пользовательские типы. И в каждом модуле импортировать только их, что бы была совместимость.

Или TYPE MyType = ARRAY 20 OF INTEGER; в модуле1
Будет ли он соответствовать:
TYPE MyType = ARRAY 20 OF INTEGER; в модуле2

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


Log.String(LONG(Msg)).
А вообще-то не используйте SHORTCHAR нигде, кроме модулей, которые работают с системой. Приводите обычный CHAR: SHORT(CHAR), или, если в строке используются русские символы, MtStrings.Short.