VB 6.0 - >デルファイXE2変換

Question

Public Function UTF8FromUTF16(ByRef abytUTF16() As Byte) As Byte() 

    Dim lngByteNum As Long 
    Dim abytUTF8() As Byte 
    Dim lngCharCount As Long 

    On Error GoTo ConversionErr 

    lngCharCount = (UBound(abytUTF16) + 1) \ 2 
    lngByteNum = WideCharToMultiByteArray(CP_UTF8, 0, abytUTF16(0), _ 
     lngCharCount, 0, 0, 0, 0) 

    If lngByteNum > 0 Then 
     ReDim abytUTF8(lngByteNum - 1) 
     lngByteNum = WideCharToMultiByteArray(CP_UTF8, 0, abytUTF16(0), _ 
      lngCharCount, abytUTF8(0), lngByteNum, 0, 0) 
     UTF8FromUTF16 = abytUTF8 
    End If 

    Exit Function 

ConversionErr: 
    MsgBox " Conversion failed " 

End Function 

---

var 
    abytUTF8 : array of Byte; // Global 

function UTF8FromUTF16(sUTF16 : WideString) : pAnsiChar; 
var 
    lngByteNum : integer; 
    lngCharCount : integer; 
begin 
    // On Error GoTo ConversionErr 
    result := nil; 

    lngCharCount := Length(sUTF16); 
    lngByteNum := WideCharToMultiByte(CP_UTF8, 0, @sUTF16[1], 
     lngCharCount, nil, 0, nil, nil); 

    If lngByteNum > 0 Then 
    begin 
     SetLength(abytUTF8, lngByteNum+1); 
     abytUTF8[lngByteNum] := 0; 
     lngByteNum := WideCharToMultiByte(CP_UTF8, 0, @sUTF16[1], 
      lngCharCount, @abytUTF8[0], lngByteNum, nil, nil); 
     result := pAnsiChar(@abytUTF8[0]); 
    End; 
End; 

Answer 1

あなたのコードは、結果の文字列のエンコーディングを設定しません。 Delphi（Delphi 2009以降）では、ANSI文字列のエンコード情報が必要です。それ以外の場合は、デフォルトのシステムロケールが使用されます。

function UTF8FromUTF16(sUTF16: UnicodeString): UTF8String; 
var 
    lngByteNum : integer; 
    lngCharCount : integer; 
begin 
    Result := ''; 

    lngCharCount := Length(sUTF16); 
    if lngCharCount = 0 then Exit; 

    lngByteNum := WideCharToMultiByte(CP_UTF8, 0, @sUTF16[1], lngCharCount, nil, 0, nil, nil); 
    if lngByteNum > 0 then begin 
    SetLength(Result, lngByteNum); 
    WideCharToMultiByte(CP_UTF8, 0, @sUTF16[1], lngCharCount, @Result[1], lngByteNum, nil, nil); 
    end; 
end; 

しかし、あなたはそのすべての必要はありません - Delphiはあなたのための文字列変換を実行します：あなたのコードの作業バージョンがある

function UTF8FromUTF16_2(sUTF16: UnicodeString): UTF8String; 
begin 
    Result := sUTF16; 
end; 

Answer 2

直訳は次のようになります。

function UTF8FromUTF16(const abytUTF16: TBytes): TBytes; 
var 
  lngByteNum: LongInt; 
  abytUTF8: TBytes; 
  lngCharCount: LongInt; 
begin 
  Result := nil; 
    lngCharCount := Length(abytUTF16) div 2; 
  lngByteNum := WideCharToMultiByte(CP_UTF8, 0, PWideChar(abytUTF16), lngCharCount, nil, 0, nil, nil); 
  if lngByteNum > 0 then 
    begin 
    SetLength(abytUTF8, lngByteNum); 
    lngByteNum := WideCharToMultiByte(CP_UTF8, 0, PWideChar(abytUTF16), lngCharCount, PAnsiChar(abytUTF8), lngByteNum, nil, nil); 
    Result := abytUTF8; 
    Exit; 
  end; 
    if GetLastError <> 0 then 
    MessageBox(0, ' Conversion failed ', '', MB_OK); 
end; 

Delphi 2009以降では、はるかに簡単なアプローチがあります：

function UTF8FromUTF16(const abytUTF16: TBytes): TBytes; 
begin 
    Result := TEncoding.Convert(TEncoding.Unicode, TEncoding.UTF8, abytUTF16); 
end; 

バイトの代わりに文字列を使用する場合は、WideStringまたはUnicodeString（どちらもUTF-16でエンコードされている）をUTF8Stringに割り当て、RTLで変換を処理させるだけです。