Hi all,
compiling under 32bit works, except some toANSI/toOEM warnings.
Compiling under 64bit gave me two errors of the same kind in aps.pkg: LongPtr needed.
Code:
External_Function32 ApsOemToCharA "OemToCharA" User32.DLL Pointer hpszOem Pointer hpszWindow Returns Integer
Function APS_OemToChar Global String OemStr Returns String
String CharStr
Integer OemAdress CharAdress grb#
Append OemStr (Character(0))
Move (Repeat(Character(0), (Length(OemStr)))) To CharStr
GetAddress Of OemStr To OemAdress <- LongPtr needed
GetAddress Of CharStr To CharAdress <- LongPtr needed
Move (ApsOemToCharA(OemAdress, CharAdress)) To grb#
Function_Return (CString(CharStr))
End_Function
I changed it to:
Code:
External_Function32 ApsOemToCharA "OemToCharA" User32.DLL Pointer hpszOem Pointer hpszWindow Returns Integer
Function APS_OemToChar Global String OemStr Returns String
String CharStr
Integer grb# // OemAdress CharAdress 23-03-2021 TRU
Longptr OemAdress CharAdress // 23-03-2021 TRU
Append OemStr (Character(0))
Move (Repeat(Character(0), (Length(OemStr)))) To CharStr
GetAddress Of OemStr To OemAdress
GetAddress Of CharStr To CharAdress
Move (ApsOemToCharA(OemAdress, CharAdress)) To grb#
Function_Return (CString(CharStr))
End_Function
and it compiles without errors under 64 and 32 bit.
Is that enough or are there any difficulties to be expected?