当前位置：工控论坛 > > 产品 > OPC

不懂safearray在delphi中怎么用，求源码！ 点击：2538 | 回复：14



gongkongedit

    
  • 精华：1099帖
  • 求助：0帖
  • 帖子：14392帖 | 54470回
  • 年度积分：0
  • 历史总积分：622
  • 注册：2008年9月08日
发表于：2003-08-05 08:38:00
楼主
到OPCItems.additem(...)中间的参数基本上都是psafearray的，有没有delphi自动化接口的client源码啊？？？或用过psafearray的老大指点一下 beansex@21cn.com
分享到：
收藏 邀请回答 回复楼主 举报



zhangchaoyu

  • 精华：0帖
  • 求助：0帖
  • 帖子：6帖 | 59回
  • 年度积分：0
  • 历史总积分：88
  • 注册：2003年9月03日
发表于：2003-07-29 12:04:00
1楼
begin deleteOPCItems:=MyOPCServer1.OPCGroups.Item(trim(ConnFm.ListBox1.Items[ConnFm.ListBox1.ItemIndex])).OPCItems; ArrayBounds.lLbound:=1; ArrayBounds.cElements:=1; arServerHandles:=SafeArrayCreate(varInteger,1,ArrayBounds); SafeArrayAccessData(arServerHandles,Mypointer);
回复 引用 举报

zhangchaoyu

  • 精华：0帖
  • 求助：0帖
  • 帖子：6帖 | 59回
  • 年度积分：0
  • 历史总积分：88
  • 注册：2003年9月03日
发表于：2003-07-29 12:04:00
2楼
像下面这样使用PSafeArray： procedure TConnFm.D2Click(Sender: TObject); var deleteOPCItems:OPCItems; arServerHandles:PSafeArray; arErrors:PSafeArray; MyPointer:pointer; ArrayBounds:TSafeArrayBound; type IntegerArray=array of integer;
回复 引用 举报

zhangchaoyu

  • 精华：0帖
  • 求助：0帖
  • 帖子：6帖 | 59回
  • 年度积分：0
  • 历史总积分：88
  • 注册：2003年9月03日
发表于：2003-07-29 12:05:00
3楼
IntegerArray(Mypointer)[0]:=deleteOPCItems.Item(trim(ConnFm.ListBox2.Items[ConnFm.ListBox2.ItemIndex])).ServerHandle;; deleteOPCItems.Remove(1,arServerHandles,arErrors);
回复 引用 举报

zhangchaoyu

  • 精华：0帖
  • 求助：0帖
  • 帖子：6帖 | 59回
  • 年度积分：0
  • 历史总积分：88
  • 注册：2003年9月03日
发表于：2003-07-29 12:05:00
4楼
回复 引用 举报

XIAO菜

  • 精华：8帖
  • 求助：0帖
  • 帖子：75帖 | 1108回
  • 年度积分：0
  • 历史总积分：1610
  • 注册：2002年7月18日
发表于：2003-07-29 14:26:00
5楼
楼上的兄弟，能将原码帖出来吗？？？
回复 引用 举报

zhangchaoyu

  • 精华：0帖
  • 求助：0帖
  • 帖子：6帖 | 59回
  • 年度积分：0
  • 历史总积分：88
  • 注册：2003年9月03日
发表于：2003-07-31 14:01:00
6楼
我写的就是我用的原代码啊
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:19:00
7楼
fdf
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:26:00
8楼
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:27:00
9楼
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:29:00
10楼
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:29:00
11楼
请教destroyer: 我用delphi 6.0时
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:30:00
12楼
undeclared identifier : psafeArray
回复 引用 举报

yang1995_2003

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 7回
  • 年度积分：0
  • 历史总积分：13
  • 注册：2003年8月02日
发表于：2003-08-02 23:31:00
13楼
请教destroyer: 我用delphi 6.0时，出现 undeclared identifier :psafeArray undeclared identifier :TSafeArrayBound 是缺什么库或引用吗？ 请指教。谢谢 yang1995@263.net 我才知道不能用单引号，否则不能发表。笨蛋
回复 引用 举报

tuolin

  • 精华：0帖
  • 求助：0帖
  • 帖子：11帖 | 117回
  • 年度积分：0
  • 历史总积分：134
  • 注册：2004年3月01日
发表于：2003-08-05 08:38:00
14楼
DELPHI中引用如下： pSafeArray：就不会出错了. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师