把WideString转换成unicode stream代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】把WideString转换成unicode stream

作者:jellyvice / 发布于2013/12/3/ 776

procedure WideStringToUnicodeStream(const Str: WideString;
 const Stm: Classes.TStream);
var
 UnicodeMarker: Word; // Marker that begins unicode
begin
 // Write out unicode marker
 UnicodeMarker := $FEFF;
 Stm.WriteBuffer(UnicodeMarker, SizeOf(Word));
 // Write unicode text
 Stm.WriteBuffer(
  Windows.PByte(PWideChar(Str))^, SizeOf(WideChar) * Length(Str)
 );
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　成unicode　　stream　

同语言下

可能有用的

jellyvice贡献的其它代码(28)