【结】指针问题

刺青

在网上找了一个控件，里面有一个事件是这样定义的
TReceiveDataEvent = procedure(Sender: TObject; Buffer: Pointer;
                                  BufferLength: Word) of object;
把控件放到平台后，调用这个事件就变成了procedure TYJ.Comm1ReceiveData(Sender: TObject; Buffer: TObject; BufferLength: Word);   
第二个参数从原来的Pointer变成了TObject类型。请问在平台中，怎么取得Buffer的值？
我是这样写的，但是有错：
procedure TYJ.Comm1ReceiveData(Sender: TObject; Buffer: TObject; BufferLength: Word);
var
  str : string;
begin
  str := ObjectHelper.ToString(Buffer);
   dialogs.ShowMessage(str);
end;

刺青

我用这个控件的其它方法都可以，就这个事件不会用。

zfang

Business 平台目前不支持指针类型变量。Business 平台编译是严格按照.net中间语言的规范来做的，和C#、java一样，已经没有指针和结构体了，直接写一个类来代替。

例如：直接定义一个类

TNav = class(object)
  A: string;
  B: Integer;
  C: string;
end;

刺青

不是很明白你的意思。
1、我想知道，这个控件的事件还可以用吗？
2、第二个参数是串口外接设备（电子天平）传过来的值，要怎么样才能接收这个值呢？是否用你上面说的，定义一个类来代替，怎么来代替呢？

zfang

2楼的意思是，平台中不支持指针，那么可以通过传入一个class的方式。
指针的对应值你转换到class中的响应属性中，然后传入此class就可以了。

刺青

指针的对应值你转换到class中的响应属性中

是不是说要去改控件的源代码，把指针对应的值，转到class中，然后，我在平台上，就接收class的值就可以了？

zfang

对。
就相当于是本来传指针的，改成通过传class的方式。

刺青

哦，可以结帖了。