新手问，OCX的函数调用?

Question

一个ocx控件,其中一个函数原型是：
Bool SendPicture(short ProNum,short Step,long* lpBuff)
  lpBuff表示Byte Buff[]128][512].
加到delphi 后TLIB,它的_TLB是
function SendPicture(ProgNum: Smallint; Step: Smallint; lpBuff: Integer): WordBool; dispid 7;
在delphi中我该如何调用该函数,请举个例子。

Answer 1

var Buff: pointer;
begin
 getMem(Buff, 128 * 512 * sizeOf(byte)); //用 copyMemory, MoveMemory之类的，写到 Buff里 SendPicture(...., Integer(Buff)); FreeMem(Buff);