client 如何与 中间层 传输 record

Question

可以自己定义协议啊，大多采用Tclientdataset的data或XML

Answer 1

newwen(wen) 大哥：有demo吗？
简单的几行也行！
不胜感激...

Answer 2

用 olevariant来传啊， data 与 delta都是olevariant型的
自定义一个方法

Answer 3

老保错！
type
  ModuleInfo=record
    mId:integer;
    ModuleName:string;
  end;
  PM=^ModuleInfo
function getinfo(rightstr:string):olevariant;
var
  tmpMI:PM;
begin
  PM^.mId:=111;
  PM^.ModuleName:='1111';
end;如何返回
如何读取返回？

Answer 4

用 olevariant传输对于大量数据如何？

Answer 5

指针不能这样用啊，要分配内存
new(tmpMI);
tmpMI^.mId:=111;
...

Answer 6

用它传小于内存 div 4 的东西都可以

Answer 7

olevariant传输对于大量数据要分段

Answer 8

var
  P: Pointer;
  data: OleVariant;
begin
  Data := VarCreateArray([0, Count], varByte);
  P := VarArrayLock(Data);
  //Write(P^, Buffer);
  VararrayUnLock(Data);
end;
recv:
  Count := VarArrayHighBound(Data);
  P := VarArrayLock(Data);
  //read (P^, DestBuffer, Count);
  VarArrayUnLock(Data);

Answer 9

to  copy_paste(木石三):传小于内存 div 4 的东西确切吗？哪得到的？谢谢

Answer 10

to copy_paste(木石三):
传小于内存 div 4 的东西，数值是从哪找到的，确切吗？谢谢！

Answer 11

传小于内存 div 4 
我只是说个大概（个人感觉:），即说你传的数据太大的话，最好分开来传，这个数据区在传输的时间，在内存可能(??)又建立了一个内存区域来存放，当太大时，GetMem会失败。