стандартный способ получить OleVariant в виде бинарных данных

← →
yaJohn © (2003-02-15 15:26) [0]

Существует ли стандартный способ получить OleVariant в виде бинарных данных, или, например, сохранить в потоке. И само собой потом прочитать обратно.
OleVariant может быть любым, массив втч. Случай интерфейса в варианте не рассматривается. Наиболее интересно - массив массивов.

← →
asmith (2003-02-15 15:30) [1]

function VarToDataPacket(const V: OleVariant): PSafeArray;
var
Size : integer;
begin
if VarIsNull(V) then
Result := nil
else
begin
Size := VarArrayHighBound(V, 1);
if not (VarIsArray(V) and (Size > 0)) then
raise EFOpenError.Create("SafeArray convert error");
Result := tagVARIANT(V).PArray;
end;
end;

procedure DataPacketToStream(const DataPacket : PSafeArray; Stream : TStream);
var
Size : Integer;
DataPtr : Pointer;
begin
if Assigned(DataPacket) then
begin
OleCheck(SafeArrayGetUBound(DataPacket, 1, Size));
Inc(Size);
Stream.Position := 0;
SafeArrayAccessData(DataPacket, DataPtr);
try
Stream.Write(DataPtr^, Size);
finally
SafeArrayUnAccessData(DataPacket);
end;
end;
end;

стандартный способ получить OleVariant в виде бинарных данных Найти похожие ветки