Functions.FRead4 方法 |
命名空间: XSharp.Core
FUNCTION FRead4( ptrHandle AS IntPtr, ptrBufferVar AS BYTE[], dwBytes AS DWORD, lAnsi AS LOGIC ) AS DWORD
提示: |
---|
在 Ansi 环境中,如 Visual Objects,OEM 和 Ansi 之间的转换是相关的。 在 Unicode 环境中,这种转换不仅仅是 OEM 和 Ansi 之间的转换,还包括 Unicode 和 Ansi 或 Unicode 和 OEM 之间的转换。 对于这些转换,运行时使用 Windows 代码页 和 DOS 代码页的当前值。 |
1DEFINE F_BLOCK := 128 2Function Start() 3 LOCAL cBuffer AS PTR 4 cBuffer := MemAlloc(F_BLOCK) 5 IF cBuffer = NULL PTR 6 RETURN FALSE 7 ENDIF 8 ptrHandle := FOpen2("temp.txt", FO_READ) 9 IF ptrHandle = F_ERROR 10 ? DOSErrString(FError()) 11 RETURN FALSE 12 ELSE 13 IF FRead4(ptrHandle, cBuffer, F_BLOCK, FALSE) != F_BLOCK 14 ? DOSErrString(FError()) 15 RETURN FALSE 16 ENDIF 17 FClose(ptrHandle) 18 ENDIF 19 MemFree(cBuffer) 20 RETURN TRUE