Скачать: CL | DM;

стандартный способ получить 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c