xsharp.eu

Code: Select all

_DLL FUNC WideCharToMultiByte(CodePage AS DWORD, dwFlags AS DWORD, lpWideCharStr AS PTR ,;   //  INTPTR
	cchWideChar AS INT, lpMultiByteStr AS PSZ,;
	cchMultiByte AS INT,lpDefaultChar AS PSZ,;
	lpUsedDefaultChar AS LOGIC PTR );   // INTPTR
	AS INT PASCAL:KERNEL32.WideCharToMultiByte	 
		
FUNCTION W2String2       (bstrVal AS PSZ)    AS STRING  
	
	RETURN psz2string ( bstrVal )	
   
FUNCTION W2String       (bstrVal AS PSZ)    AS STRING  // VO-SDK code

	LOCAL pBuff    := NULL  AS PTR  // INTPTR
	LOCAL cRet          AS STRING
	LOCAL nSize         AS INT

	//  Get Size
	nSize := WideCharToMultiByte(CP_ACP, 0,  bstrVal, -1, pBuff, 0, NULL_PSZ, NULL_PTR) 
	
	IF nSize > 0
		pBuff := MemAlloc( DWORD(nSize) + 1)   
		IF pBuff != NULL_PTR
			//  Convert to VO string
			WideCharToMultiByte(CP_ACP, 0,  bstrVal, -1, pBuff, nSize, NULL_PSZ, NULL_PTR)
			cRet := Mem2String(pBuff, DWORD(nSize) -1 )   //  -1 added KHR
		ENDIF
		MemFree(pBuff)
	ENDIF 
	
	
	RETURN cRet	
	

DEFINE CP_ACP := 0 	
	

FUNCTION Start(  ) AS VOID

// The x# runtime already knows String2W().
// /unsafe must be checked to compile.

? "*" + w2string ( string2w ( "Teststring" ) ) + "*"    // "*TestString*"
? "*" + w2string2 ( string2w ( "Teststring" ) ) + "*"   // "*T*"


RETURN

Code: Select all

FUNCTION Start() AS INT
LOCAL p AS PSZ
p := String2Psz("ABC")
? W2String(p)

Code: Select all

FUNCTION W2String(p AS PTR) AS STRING
	LOCAL IMPLIED cRet := System.Text.StringBuilder{}
	LOCAL nIndex AS INT
	LOCAL pChar AS WORD PTR
	nIndex := 1
	pChar := (WORD PTR)p
	DO WHILE pChar[nIndex] != 0
		cRet:Append(Convert.ToChar(pChar[nIndex]))
		pChar ++
	END DO
RETURN cRet:ToString()