Question

delphi olevariant 转化成 string，请问哪个高手了解 服务器回调后，返回olevariant 类型的数据

Answer 1

VarToStr()
如果返回的是一个数组的话
var
UTempPoint: Pointer;
UOutArr: array[1..6] of string;//假设返回的是1维数组有6个元素
begin
UTempPoint := VarArrayLock(返回的OleVariant变量);//锁定输出变体数组
try
Move(UTempPoint^,UOutArr[1],6*SizeOf(string));
finally
VarArrayUnlock(UTemp);//解锁
end;
//这时UOutArr[1]..UOutArr[6]里面都是string类型的数据了
//ShowMessage(UOutArr[1]);
end;

Answer 2

var
UTempPoint: Pointer;
UOutArr: array[1..6] of string;//假设返回的是1维数组有6个元素
begin
UTempPoint := VarArrayLock(返回的OleVariant变量);//锁定输出变体数组
try
Move(UTempPoint^,UOutArr[1],6*SizeOf(string));
finally
VarArrayUnlock(UTemp);//解锁
end;
//这时UOutArr[1]..UOutArr[6]里面都是string类型的数据了
//ShowMessage(UOutArr[1]);
end;

Answer 3

VarToStr()