sample_099.md

Home

Converting strings between ANSI and OEM

Code:

DECLARE SHORT CharToOem IN user32;
	STRING lpszSrc,;
	STRING @ lpszDst

DECLARE SHORT OemToChar IN user32;
	STRING lpszSrc,;
	STRING @ lpszDst

* source string of Cyrillic characters (1251)
lcSrc = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÜÛÚÝÞß" +;
	"àáâãäåæçèéêëìíîïðñòóôõö÷øùüûúýþÿ"

* a buffer for destination string
lcDst = SPACE(Len(lcSrc))
	
? lcSrc

* converting from ANSI to OEM
= CharToOem (lcSrc, @lcDst)
? lcDst

* converting back from OEM to ANSI
= OemToChar (lcDst, @lcSrc)
? lcSrc  

---

Listed functions:

CharToOem
OemToChar