할당 (델파이 XE2)에

Question

다음 코드를 고려없이 유니 코드 변환과 변이체 [바이트의 배열]

function PrepData(StrVal: string; Base64Val: AnsiString): OleVariant; 
begin 
    Result := VarArrayCreate([0, 1], varVariant); 
    Result[0] := StrVal; 
    Result[1] := Base64Val; 
end; 

Base64Val base64로 (따라서 아니오 null 바이트)로 부호화 된 이진 값이다. (OleVariant) 결과은 클라이언트 응용 프로그램과 DataSnap 서버간에 자동으로 마샬링되어 전송됩니다.

Wireshark로 트래픽을 캡처하면 StrVal과 Base64Val이 모두 유니 코드 문자열로 전송됩니다. 가능한 경우 Base64Val의 유니 코드 변환을 피하고 싶습니다. Variant 유형을 모두 살펴본 결과 문자 배열을 전송할 수있는 varString 이외의 문자는 표시되지 않습니다.

변형 배열 배열을 만드는 방법을 보여주는 this question이 있습니다. 나는이 기술을 AnsiString 대신에 사용할 수 있다고 생각하고있다. 그러나 유니 코드 문자열로 변환하지 않고 Variant에 비 유니 코드 문자 데이터의 배열을 할당하는 또 다른 방법이 있습니까?

Answer 1

Delphi의 구현은 맞춤 변형 유형 코드를 사용하여 Variant에 AnsiString 및 UnicodeString을 저장하는 것을 지원합니다. 이 코드는 varString 및 varUString입니다.

그러나 interop는 일반적으로 표준 OLE 변형을 사용하며 OLE 문자열 varOleStr은 16 비트 인코딩입니다. 그것은 당신의 관찰을위한 이유 인 것처럼 보일 것입니다.

16 비트 텍스트로 변환하지 않으려면 데이터를 바이트 배열로 저장해야합니다. 이렇게하면 base64 인코딩이 무의미 해집니다. 페이로드를 인코딩하는 base64를 중지하고 바이너리를 바이트 배열로 보냅니다. 질문의 예와 유지

는

Answer 2

, 이것은 (내 질문에 참조로 다른 질문에 David's answer에서 코드와 주석을 사용하여) 나는 그것을 작동하게하는 방법입니다 DataSnap 서버에 다음

function PrepData(StrVal: string; Data: TBytes): OleVariant; 
var 
    SafeArray: PVarArray; 
begin 
    Result := VarArrayCreate([0, 1], varVariant); 
    Result[0] := StrVal; 
    Result[1] := VarArrayCreate([1, Length(Data)], varByte); 
    SafeArray := VarArrayAsPSafeArray(Result[1]); 
    Move(Pointer(Data)^, SafeArray.Data^, Length(Data)); 
end; 

, I Value을 가정하면,이 같은 OleVariant에의 이진 데이터를 추출 할 수있는 것은 OleVariant에 변형 배열 Result[1]이다 ".이 코드 varString 및 varUString는"

procedure GetBinaryData(Value: Variant; Result: TMemoryStream); 
var 
    SafeArray: PVarArray; 
begin 
    SafeArray := VarArrayAsPSafeArray(Value); 
    Assert(SafeArray.ElementSize=1); 
    Result.Clear; 
    Result.WriteBuffer(SafeArray.Data^, SafeArray.Bounds[0].ElementCount); 
end;