代码之家 › 专栏 › 技术社区 › none

如何用inno setup保存ucs-2le-bom文件

inno-setup unicode

none · 技术社区 · 4 年前

如何使用BOM将字符串保存到UTF-16(UCS-2)编码的文本文件中?

这个 SaveStringsToUTF8File 另存为UTF-8。

使用streams将其保存为ANSI。

var
  i:integer;
begin
  for i := 1 to length(aString) do begin
    Stream.write(aString[i],1);
    Stream.write(#0,1);
  end;
  stream.free;
end;

0 回复 | 直到 4 年前

Martin Prikryl 4 年前

作为Unicode string (在 Unicode version of Inno Setup 一串 AnsiString )有点明智。再加上 UTF-16 LE BOM ( FEFF ):

procedure RtlMoveMemoryFromStringToPtr(Dest: PAnsiChar; Source: string; Len: Integer);
  external 'RtlMoveMemory@kernel32.dll stdcall';
  
function SaveStringToUFT16LEFile(FileName: string; S: string): Boolean;
var
  A: AnsiString;
begin
  S := #$FEFF + S; 
  SetLength(A, Length(S) * 2);
  RtlMoveMemoryFromStringToPtr(A, S, Length(S) * 2);
  Result := SaveStringToFile(FileName, A, False);
end;

这正好相反: Inno Setup Pascal Script - Reading UTF-16 file .

推荐文章

user707779 · Inno安装程序指令“VersionInfo”无效

7 年前

frank hk · Inno安装程序未生成桌面图标

7 年前

IMeMine · 使用/qn(静默)开关从运行部分安装MSI时,Inno Setup AfterInstall过程执行得太早

7 年前

Balaji Vignesh · Inno安装程序印地语文件不工作

7 年前

Dennosaur · Inno安装卸载程序VersionInfo

7 年前

user1239973 · Inno设置工具中的NOICONS开关不工作

7 年前

user285594 · Inno设置-如何在线验证序列号

7 年前

Wurlitzer · 在Inno安装程序中找到应用程序的路径,并将文件复制到该目录

7 年前

Joshua · Inno安装程序基于自定义复选框值设置可卸载指令

7 年前

Johan · 在所有文件的源路径之间选择

7 年前