olevariant

[ehsanyazdan]

سلام
کسی می دونه چطور می شه یک
olevariant
رو به یک آرایه از بایت ها تبدیل کرد؟

[vcldeveloper]

var
MyVariantData : OleVariant;
MyArray : TBytes;
begin
DynArrayFromVariant(Pointer(MyArray),MyVariantData ,TypeInfo(TBytes));
end;