AnsiString을 유니 코드 문자열로 변환

Question

D2006 프로그램을 D2010으로 변환 중입니다. 데이터베이스의 문자열 당 하나의 바이트에 하나의 값을 저장하고 LoadFromStream이있는 컨트롤에로드해야하므로 내 문자열을 스트림에 쓰고 LoadFromStream과 함께 사용해야합니다. 그러나 그것은 효과가 없었습니다. 이 문제를 연구하면서 AnsiString에서 Unicode 문자열로의 변환이 실제로 어떻게 작동하는지 이해하지 못한다는 것을 알게되었습니다. 다음은 내가 혼란스러워하는 문제를 보여주는 독립 실행 형 코드입니다.

procedure TForm1.Button1Click(Sender: TObject); {$O-} 
var 
    sBuffer: String; 
    oStringStream: TStringStream; 
    sAnsiString: AnsiString; 
    sUnicodeString: String; 
    iSize1, 
    iSize2: Word; 
begin 
    sAnsiString := '12345'; 
    oStringStream := TStringStream.Create(sBuffer); 
    sUnicodeString := sAnsiString; 
    iSize1 := StringElementSize(sAnsiString); 
    iSize2 := StringElementSize(sUnicodeString); 
    oStringStream.WriteString(sUnicodeString); 
end; 

마지막 줄에 중단하고, oStringStream의 바이트 속성을 검사하는 경우

, 당신은 다음과 같습니다 것을 볼 수 있습니다 :

Bytes (49 {$31}, 50 {$32}, 51 {$33}, 52 {$34}, 53 {$35} 

나는 그것이

처럼 보일 수 있음을 예상하고 있었다

(49 {$31}, 00 {$00}, 50 {$32}, 00 {$00}, 51 {$33}, 00 {$00}, 
52 {$34}, 00 {$00}, 53 {$35}, 00 {$00} ... 

분명히 내 기대치가 잘못되었습니다. 그렇다면 AnsiString을 유니 코드로 변환하는 방법은 무엇입니까?

한 번에 스트림에서 2 바이트를 읽으므로 올바른 결과를 얻지 못하고 있지만받는 데이터가 그런 방식으로 정렬되어 있지 않습니다. LoadFromStream에 유니 코드 문자열 기반의 데이터 스트림을 제공하려면 어떻게해야합니까?

도움 주셔서 감사합니다.

Answer 1

oStringStream.WriteString 매개 변수의 유형은 무엇입니까? AnsiString이면 유니 코드에서 Ansi 로의 암시 적 변환이 있으며 이는 사용자의 예제를 설명합니다.

---

업데이트 : 이제 진짜 질문은 TStringStream이 데이터를 내부적으로 저장하는 방법입니다. 다음의 코드 샘플 (2,009 델파이)

procedure TForm1.Button1Click(Sender: TObject); 
var 
    S: string; 
    SS: TStringStream; 

begin 
    S:= 'asdfg'; 
    SS:= TStringStream.Create(S); // 1 byte per char 
    SS.WriteString('321'); 
    Label1.Caption:= SS.DataString; 
    SS.Free; 
end; 

TStringStream 내부적 기본 시스템 ANSI 인코딩 (문자 당 1 바이트)를 사용한다. constructor 및 WriteString 프로시 저는 문자열 인수를 유니 코드에서 ANSI로 변환합니다. 당신의 단일 바이트 문자를 ASCII가 아니라 기반으로하는 경우

LoadFromStream(stream, TEncoding.ASCII); 

:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    S: string; 
    SS: TStringStream; 

begin 
    S:= 'asdfg'; 
    SS:= TStringStream.Create(S, TEncoding.Unicode); // 2 bytes per char 
    SS.WriteString('321'); 
    Label1.Caption:= SS.DataString; 
    SS.Free; 
end; 

Answer 2

내가 사용하려는 생각 :

당신이 명시 적으로 생성자에서 인코딩을 선언해야이 동작을 재정의하려면 코드 페이지에서 다음과 같이 작동 할 수 있습니다.

LoadFromStream(stream, TEncoding.GetEncoding(1252)); 

여기서 "1252"는 코드 페이지입니다. ur 단일 바이트 텍스트가 기반으로합니다.

Answer 3

스트림 형식은 주로 TStringStream.Encoding에 따라 다릅니다. 귀하의 예제에서 사용 된 코드 페이지는 sBuffer와 동일해야합니다 (TStringStream.Create의 암시를 참조하십시오).

oStringStream.WriteString(sUnicodeStream);은 단일 바이트로 저장되는 것으로 보이므로 sBuffer는 Ansistring 또는 RawByteString으로 가정합니다.

이제 ... 왜 읽는 데 실패합니까? 당신은 우리가 그 스트림에서 다시 읽는 방법에 대한 예제를 아직주지 못했습니다.