盒子论坛 v2.1

1:環境英文版win10
2:問題:將一個UTF8的中文文件，轉成ASCII後存成ANSI檔。。

可是，在自已(中文WIN10)跑起來都是正常，也都是ANSI檔，但是在客戶端時，就沒法存成中文的ANSI檔，再怎麼存都是UTF8，且內文也都是亂碼(檔案COPY回中文WIN10內查看)。。。

搞到快瘋了，請教各位大大有解嗎?
----------------------------------------------
-

作者：

dbyoung (dbyoung)	★☆☆☆☆	-
	普通会员

2021/6/23 20:34:54

1楼：

TStringList.LoadFromFile('...', TEncoding.UTF8);
TStringList.SaveToFile('...', TEncoding.ANSI);
----------------------------------------------
武汉天气不好

作者：

jihjun (jih)	★☆☆☆☆	-
	普通会员

2021/6/23 22:20:14

2楼：

感謝您
TStringList.LoadFromFile('...', TEncoding.UTF8);
TStringList.SaveToFile('...', TEncoding.ANSI);
這方式在中文win10 內存檔是正確的。
但是在客戶英文win10 存檔，一樣是UTF8。。。
delphi 版本是 10.4.2
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2021/6/23 22:22:56

2楼：

1楼的代码在纯英文系统下并不能达到预期目的，因为英文系统中默认代码页不是中文，所以转换出来的结果不对，必须用以下代码才可以：
procedure ConvertUTF8ToAnsi(const ASourceFile, ATargetFile: string);
var
  encoding: TMBCSEncoding;
begin
  encoding := TMBCSEncoding.Create(950); //950繁体中文，936简体中文
  try
    with TStringList.Create do try
      LoadFromFile(ASourceFile, TEncoding.UTF8);
      SaveToFile(ATargetFile, encoding);
    finally
      Free;
    end;
  finally
    encoding.Free;
  end;
end;
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

lsuper (lsuper)	★☆☆☆☆	-
	盒子活跃会员

2021/6/23 23:04:21

3楼：

unicode -> ansi -> unicode 转化，由于转换平面不完全匹配会导致某些内容丢失；早在 ansi 的 delphi 时代，如：

a1, a2: ansistring;
w: widestring;

a1 := ...
w := a1;
a2 := w;

就会有可能 a1 <> a2 !
----------------------------------------------
-

作者：

jihjun (jih)	★☆☆☆☆	-
	普通会员

2021/6/23 23:30:24

4楼：

還有一個問題
a1 : String ;
a2 : ansiString ;
a1 := '中文 ;
a2 := AnsiString(a1) ;

在中文win10 a2='中文'，可以正常轉換，但是在英文win10 ,a2='??'....
即使將a2寫入檔案，在中文win10內查詢瀏覽，一樣是??
但是一樣的程式，在中文win10 內都是正常，寫入也正常....
真的快被搞瘋了
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2021/6/23 23:37:06

5楼：

在英文系统转换中文必须指定代码页！否则转换会出错，因为你这样写用的是默认代码页，英文系统下默认代码页不是中文。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

jihjun (jih)	★☆☆☆☆	-
	普通会员

2021/6/23 23:40:50

6楼：

可否請大大教導一下
a1 : String ;
a2 : ansiString ;
a1 := '中文 ;
a2 := AnsiString(a1) ;

這樣的轉換，用甚麼方式可以指定 "代碼頁"

感激~~~~
----------------------------------------------
-

作者：

keymark (嬲)	▲▲▲△△	-
	普通会员

2021/6/24 8:51:13

7楼：

ansistring(936);
大约是这样。
----------------------------------------------
[alias] co = clone --recurse-submodules up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速

https://www.cctry.com/>http://qalculate.github.io/downloads.html

https://www.cctry.com/

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2021/6/24 9:23:23

8楼：

简单起见是用SetAnsiString(@a2, PChar(a1), Length(a1), 936)，当然也可以直接用Windows API WideCharToMultiByte。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

wg961423 (麦子仲肥)	★☆☆☆☆	-
	盒子活跃会员

2021/6/24 9:42:37

9楼：

统一用UTF8不就好了
----------------------------------------------
-

作者：

littlestone08 (littlestone08)	★☆☆☆☆	-
	普通会员

2021/7/22 17:36:57

10楼：

楼主最终用的哪个方法呢？
----------------------------------------------
我和我追逐的梦，擦肩而过

作者：

hi100 (hi100)	▲▲▲▲△	-
	普通会员

2021/7/23 11:29:20

11楼：

试试这个：
type
  TLanguage = (tNone,tEnglish,tGBChs,tBig5,tGBCht);

var
  Map: array[1..13468] of array[1..2] of integer;

function FindBig5(ACodeValue: Integer): string;
var
  a, b, i, m, j: Integer;
  F: Boolean;
  c1, c2: Char;
begin
  a := 0;
  b := 13468;
  i := (a + b) shr 1;
  F := False;
  m := 0;
  while not F do
  begin
    m := Map[i][1];
    if ACodeValue = m then
    begin
      F := True;
      m := Map[i][2];
      for j := i downto 0 do
      begin
        if Map[j][1] = ACodeValue then
          m := Map[j][2]
        else
          break;
      end;

      Break;
    end else
    if ACodeValue > m then
    begin
      a := i + 1;
    end else
    begin
      b := i - 1;
    end;

    i := (a + b) shr 1;

    if a > b then Break;
  end;
  if not F then
    m := ACodeValue;

  c1 := chr(m shr 8);
  c2 := chr(m mod 256);

  Result := c1 + c2;
end;

function L_(AChsStr: string): string;
var
  i: Integer;
  c1, c2, c3: Integer;
begin
  Result := '';
  c2 := 0;
  for i := 1 to Length(AChsStr) do
  begin
    c1 := ord(AChsStr[i]);
    if c2 <> 0 then
    begin
      c3 := (c2 shl 8) + c1;
      Result := Result + FindBig5(c3);
      c2 := 0;
    end else
    if c1 >= 128 then
    begin
      c2 := c1;
    end else
    begin
      Result := Result + AChsStr[i];
    end;
  end;
end;

//获取操作系统默认语言
// -1、无效 0、英语 1、简体中文 3、繁体中文
function GetSysDefaultLg: TLanguage;
var
  LangID: Integer;
begin
  Result := tNone;
  LangID := GetSystemDefaultLangID;
  if LangID = ((SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH) then
    Result := tEnglish //美国英语
  else if LangID = ((SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE) then
    Result := tGBChs //简体中文
  else if LangID = ((SUBLANG_CHINESE_TRADITIONAL shl 10) or LANG_CHINESE) then
    Result := tBig5; //繁体中文
end;

调用方法：
Label1.Caption := L_('注册名称');
----------------------------------------------
-

作者：

hi100 (hi100)	▲▲▲▲△	-
	普通会员

2021/7/23 11:31:19

12楼：

看错了，以为是简繁体的问题，不过代码也放在这里吧，希望能帮到有需要的人
----------------------------------------------
-

信息

登陆以后才能回复