[Delphi] 중국어 번체<->간체

  function StrConv(const sText: String; Conversion: DWORD): String; overload;
  var
    nSize: Integer;
  begin
    nSize := LCMapString(LOCALE_SYSTEM_DEFAULT, Conversion, PChar(sText),
      Length(sText), nil, 0);
    SetLength(Result, nSize);
    nSize := LCMapString(LOCALE_SYSTEM_DEFAULT, Conversion, PChar(sText),
      Length(sText), PChar(Result), nSize);
    if nSize <= 0 then
      Result := sText
    else
      SetLength(Result, nSize);
  end;

 


uses Windows;


  send_html := StrConv(Html, LCMAP_TRADITIONAL_CHINESE); // 중국어 번체를 간체로
  send_html := StrConv(Html, LCMAP_SIMPLIFIED_CHINESE); // 중국어 간체를 번체로