Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Внизстандартный способ получить 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c