Byte в OleVariant

← →
_Anton (2005-07-21 14:23) [0]

Как правильно преобразовать из массива Byte в OleVariant?
(необходимо записать данные в тег XML)
делал много и по-разному - string(H: byte) режет строку на нуле

← →
Digitman © (2005-07-21 14:31) [1]

v: OleVariant;
ba: TByteArray;

..

v := VarArrayCreate([LoIndex, HiIndex], varByte);
for i:= LoIndex to HiIndex do
v[i] := ba[i];

сойдет ?

← →
REA (2005-07-21 14:35) [2]

DynArrayToVariant еще

← →
_Anton (2005-07-21 15:25) [3]

у меня буфер Byte:
Sign_Buf: PBYTE;
SignLen : DWORD;

SignLen :=512;
GetMem(Sign_Buf, SignLen);

и тег XML:
att: IXMLDOMAttribute;

att.value := ???

Есть ли что-то конкретное в Delphi для этого??

← →
Digitman © (2005-07-21 15:34) [4]

сошлись на офиц.документ, утверждающий что олей-вариантная переменная, которая должна выступать в кач-ве правой части выражения присвоения св-ва att.value, обязана хранить данные такого-то типа

← →
_Anton (2005-07-21 15:46) [5]

тут проблема в том, что надо записать буфер данных в XML тег
и всё;
просто при преобразовании att.value := string(Sign_Buf)
в тег иногда записывается не весь буфер - подозреваю, что проблема как раз в этом преобразовании (после какого-то символа
в двоичном виде - строка больше не считывается)

← →
Digitman © (2005-07-21 15:50) [6]

> в двоичном виде - строка больше не считывается

какого ж шута ты хранишь строковые данные в виде массива байт ?
кой-какие элементы которого, видимо, являются терминирующими символами при преобразовании вида string(Sign_Buf) ?

обычная AnsiString чем не удалась ? в кач-ве источника данных для последующего преобразования ?

← →
isasa © (2005-07-21 16:10) [7]

Живой премер.
На стороне клиента

........................
function DynArrayToVar(var buf; dataLen: cardinal): variant; var p : pointer; begin Result:=VarArrayCreate([0, dataLen], varByte); p:=VarArrayLock(Result); move(buf, p^, dataLen); VarArrayUnlock(Result); end;
.........................
Вызвваем метод интерф.
propInterf.Components:=DynArrayToVar(Data.Comp, (high(Data.Comp)-low(Data.Comp)+1)*sizeof(rComponent));
......................
где
Data.Comp стр-ра типа
type rComponent = record id : integer; Xi, dXi : double; end; TrComponent = array of rComponent;
На стороне сервера (IDL)
...............
property Components: OleVariant write Set_Components;
..................
прием структуры procedure TautoFLClass.Set_Components(value: OleVariant); var pArr : ParComponent; dataLen : Cardinal; i : integer; begin dataLen:=VarArrayHighBound(Value, VarArrayDimCount(Value)); i:=dataLen div SizeOf(rComponent); SetLength(Fks, i); SetLength(FXi, i); SetLength(FdXi, i); pArr:=VarArrayLock(Value); for i:=low(Fks) to high(Fks) do begin Fks[i]:=pArr^[i].id; FXi[i]:=pArr^[i].Xi*0.01; FdXi[i]:=pArr^[i].dXi; end; VarArrayUnLock(Value); end;

Пропустил
type ParComponent = ^TrComponent;

← →
_Anton (2005-07-21 16:23) [9]

!!!
есть же стандартное решение - и именно так всегда и делают
в таких случаях :

BinToHex(PCHAR(pSign_Buf),Sign_Buf_Array, dwSignLen);

и кода - две строчки :)

Всем спасибо.

Было но не пошло.
В конце концов, отработает идея упаковки массива байтов в массив вариант.
Накладные расходы большие, но работает ка часы

Byte в OleVariant Найти похожие ветки