OleVariant 流到 TStringList 优化

Question

我的服务器通过 COM/DCOM 调用将字符串流作为 OleVariant 返回。 此代码适用于客户端，但可能需要改进。 欢迎提示。

作为后续，如果服务器将 OleVariant 流返回为 UTF-8，会怎样？ 客户端将其转换为 unicode 的最佳方法是什么？

procedure TClientToServer.GetText(       mode     : integer;
                                                 const infoText : widestring;
                                                      txt         : TStrings);
var
  size        : integer;
  dataP       : pointer;
  data        : OleVariant;
  strStream   : TStringStream;
begin
  txt.Clear;
  data:= fDComServer.GetData( mode,infoText);
  if VarIsNull(data) then Exit;
  size:= VarArrayHighBound(data,1) + 1;
  dataP:= VarArrayLock( data);
  try
    strStream:= TStringStream.Create;
    try
      strStream.Write( dataP^,size);
      strStream.Seek(0,0);
      txt.LoadFromStream( strStream);
    finally
      strStream.Free;
    end;
  finally
    VarArrayUnlock( data);
  end;
end;

编辑： 选择 UTF8 意味着在网络上使用的带宽更少，并且在以后实现基于 UTF8 字符串的 http 协议接口时，我可以或多或少完整地重用 COM/DCOM 例程。

感谢 David 为我指出正确的方向来稍微修剪代码。

这是更新的程序：

procedure TClientToServer.GetText(       mode     : integer;
                                   const infoText : widestring;
                                         txt         : TStrings);
var
  size    : integer;
  dataP   : Pointer;
  data    : OleVariant;
  utf8Str : Utf8String;
begin
  txt.Clear;
  data:= fDComServer.GetData( mode,infoText);
  if VarIsNull(data) then Exit;
  size:= VarArrayHighBound(data,1) + 1;
  dataP:= VarArrayLock( data);
  try
    SetString( utf8Str, PAnsiChar(dataP), size);
    txt.Text:= utf8Str;
  finally
    VarArrayUnlock( data);
  end;
end;

Answer 1

你并不真的需要字符串流。您可以调用SetString() 来创建一个包含dataP 内容的Delphi 字符串，然后将该字符串分配给txt.Text。如果您有 UTF8 数据，则将 UTF8 字符串传递给 SetString()。

使用SetString() 仍然涉及中间缓冲区分配，所以我想真正好的是只读TStream 后代，您可以传递一个指针和一个大小。您可以将该流传递给TStrings.LoadFromStream。写这样的东西很容易。

你真的有性能问题吗？如果不是，那为什么要改变你目前的方法。