Changeset 695 for trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab
- Timestamp:
- Mar 23, 2009, 12:44:20 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab
r682 r695 490 490 ' サロゲートペアや結合文字列 (Combining Character Sequence)の途中でバッファが途切れている場合に対応する 491 491 ' ToDo: エラー処理 492 Dim mbLen = WideCharToMultiByte(cp, 0, src, size , 0, 0, 0, 0)492 Dim mbLen = WideCharToMultiByte(cp, 0, src, size As Long, 0, 0, 0, 0) 493 493 Dim mbBuf = GC_malloc_atomic(mbLen) 494 WideCharToMultiByte(cp, 0, src, size , mbBuf, mbLen, 0, 0)494 WideCharToMultiByte(cp, 0, src, size As Long, mbBuf, mbLen, 0, 0) 495 495 s.Write(mbBuf, 0, mbLen) 496 496 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.