wincc c脚本

最新推荐文章于 2024-01-18 19:11:29 发布
最新推荐文章于 2024-01-18 19:11:29 发布
阅读量2.6k 收藏
点赞数
分类专栏： wincc/step7 文章标签： c path object report 2010 脚本
 
作者主题
花落月下
游士

经验值: 157
发帖数: 93
精华帖: 0
主题：OLE Error:0x80020005错误求解！
2010-11-15 12:51:44 楼主
执行完如下代码后：
 #include "recipe.h"
 #define adUseClient  3
 #define adOpenKeyset   1
 #define adLockOptimistic 3
 #define adCmdTable  2
 #define adStateOpen  1
 #define adStateClose   0
 #pragma code ("kernel32.dll");
 #pragma code ();
 extern __object   *cnComasCS;
 __object  *rsPlan=NULL;
 TCHAR   ConnectionString1[_MAX_PATH + 1];
 char    strQuery[_MAX_PATH + 1];
 char   strParam[_MAX_PATH + 1];
 char   strValue[_MAX_PATH + 1];
 char   strPk[_MAX_PATH + 1];
 char   strBatch_ID[_MAX_PATH + 1];
 char   strBrand_ID[_MAX_PATH + 1];
 char   strBrand_Name[_MAX_PATH + 1];
 char    strDCCC_Source[_MAX_PATH + 1];
 char    strDCCC_Dest[_MAX_PATH + 1];
 char    strDCCC[_MAX_PATH + 1];
 char    strCASING[_MAX_PATH + 1];
 char    strCASING_Dest[_MAX_PATH + 1];
 char    strCASING_Source[_MAX_PATH + 1];
 char    strBURLEY[_MAX_PATH + 1];
 char    strBURLEY_Source[_MAX_PATH + 1];
 char    strBURLEY_Dest[_MAX_PATH + 1];
 char    strORIENTAL[_MAX_PATH + 1];
 char    strORIENTAL_Source[_MAX_PATH + 1];
 char    strORIENTAL_Dest[_MAX_PATH + 1];
 char    strDRYING[_MAX_PATH + 1];
 char    strDRYING_Source[_MAX_PATH + 1];
 char    strDRYING_Dest[_MAX_PATH + 1];
 char    strCounter[_MAX_PATH + 1];
 char    strCounter1[_MAX_PATH + 1];
 char   strWeight[_MAX_PATH + 1];
 int   ParamType,ParamID;
 long    tempPk;
 int    Counter;
 int    Counter1;
 if(ComasCS_Open ())
 
 //if (pk==0) {
  //printf("%s WriteReport(long pk %d , char *report %s) WriteReport. PK <=1 !\r\n",TimetoString(), pk, report);
 // return FALSE;
 //}
 
 if((rsPlan= __object_create("ADODB.RecordSet"))==NULL) {
  printf("WriteReport. Recordset not created.\r\n");
  return ;
 }
 //printf("rs is ok\r\n");
 for(Counter1=1;Counter1<=15;Counter1++)
   {
   //printf("1 is ok\r\n");
   sprintf(strCounter1,"%d",Counter1);
       
   sprintf(strPk, "L_Plan_PK%s",strCounter1);
   SetTagDoubleWait(strPk,0); //Return-Type: BOOL 
   //printf("1 is ok!\r\n");
                                 sprintf(strBatch_ID, "L_Plan_Batch%s",strCounter1);
   SetTagDoubleWait(strBatch_ID,0); //Return-Type: BOOL 
                                // printf("2 is ok!\r\n");
 
   sprintf(strBrand_ID, "L_Plan_BrandID%s",strCounter1);
   SetTagDWordWait(strBrand_ID,0); //Return-Type: BOOL 
   //printf("3 is ok!\r\n");
   sprintf(strBrand_Name, "L_Plan_BrandName%s",strCounter1);
   SetTagCharWait(strBrand_Name,"空"); //Return-Type: BOOL 
   //printf("4 is ok!\r\n");
   
   sprintf(strWeight, "L_Plan_Weight%s",strCounter1);
   SetTagDoubleWait(strWeight,0); //Return-Type: BOOL   
 
   sprintf(strDCCC, "ST_L_DCCC%s",strCounter1);
   SetTagByteWait(strDCCC,0); //Return-Type: BOOL 
   //printf("%d\r\n",rsPlan->Fields("ST_DCCC"));
                  //printf("5 is ok!\r\n");
   
   sprintf(strCASING, "ST_L_CASING%s",strCounter1);
   SetTagByteWait(strCASING,0); //Return-Type: BOOL 
    
   sprintf(strBURLEY, "ST_L_BURLEY%s",strCounter1);
   SetTagByteWait(strBURLEY,0); //Return-Type: BOOL 
   
   sprintf(strORIENTAL, "ST_L_ORIENTAL%s",strCounter1);
   SetTagByteWait(strORIENTAL,0); //Return-Type: BOOL  
 
                                 sprintf(strDRYING, "ST_L_DRYING%s",strCounter1);
   SetTagByteWait(strDRYING,0); //Return-Type: BOOL 
   //printf("%d\r\n",rsPlan->Fields("ST_DRYING"));
   //printf("6 is ok!\r\n");
                                 sprintf(strDCCC_Source, "L_DCCC_Source%s",strCounter1);
   SetTagByteWait(strDCCC_Source,0); //Return-Type: BOOL 
                                 //printf("7 is ok!\r\n");
   sprintf(strDCCC_Dest, "L_DCCC_Dest%s",strCounter1);
   SetTagByteWait(strDCCC_Dest,0); //Return-Type: BOOL 
   //printf("8 is ok!\r\n");
   sprintf(strCASING_Source, "L_CASING_Source%s",strCounter1);
   SetTagByteWait(strCASING_Source,0); //Return-Type: BOOL 
                                 //printf("7 is ok!\r\n");
   sprintf(strCASING_Dest, "L_CASING_Dest%s",strCounter1);
   SetTagByteWait(strCASING_Dest,0); //Return-Type: BOOL 
   sprintf(strBURLEY_Source, "L_BURLEY_Source%s",strCounter1);
   SetTagByteWait(strBURLEY_Source,0); //Return-Type: BOOL 
                                 //printf("7 is ok!\r\n");
   sprintf(strBURLEY_Dest, "L_BURLEY_Dest%s",strCounter1);
   SetTagByteWait(strBURLEY_Dest,0); //Return-Type: BOOL 
   sprintf(strORIENTAL_Source, "L_ORIENTAL_Source%s",strCounter1);
   SetTagByteWait(strORIENTAL_Source,0); //Return-Type: BOOL 
                                 //printf("7 is ok!\r\n");
   sprintf(strORIENTAL_Dest, "L_ORIENTAL_Dest%s",strCounter1);
   SetTagByteWait(strORIENTAL_Dest,0); //Return-Type: BOOL 
                                 sprintf(strDRYING_Source, "L_DRYING_Source%s",strCounter1);
   SetTagByteWait(strDRYING_Source,0); //Return-Type: BOOL 
   //printf("9 is ok!\r\n");
   sprintf(strDRYING_Dest, "L_DRYING_Dest%s",strCounter1);
   SetTagByteWait(strDRYING_Dest,0); //Return-Type: BOOL 
   //printf("strCounter1 is %s!\r\n",strCounter1);
   
   }
  //printf("DATA is clear!\r\n");
 sprintf(strQuery, "SELECT * FROM L_PLAN_LIST WHERE ST_DRYING < 30 ORDER BY PK ASC ");
 rsPlan->CursorLocation = adUseClient;
 //rsPlan->CommandTimeout=30;
 rsPlan->Open(strQuery, cnComasCS,adOpenKeyset ,adLockOptimistic);
 //printf("%d",rsPlan->RecordCount());
 if (rsPlan->RecordCount() >0)
 {
  while(!rsPlan->eof)
  {
  
  rsPlan->MoveFirst;
  for(Counter=1;Counter<=rsPlan->RecordCount();Counter++)
   {
   
   sprintf(strCounter,"%d",Counter);
   
   sprintf(strPk, "L_Plan_PK%s",strCounter);
   SetTagDoubleWait(strPk,rsPlan->Fields("PK")); //Return-Type: BOOL 
   //printf("pk is %d\r\n",rsPlan->Fields("PK"));
 
   sprintf(strBrand_ID, "L_Plan_BrandID%s",strCounter);
   SetTagByteWait(strBrand_ID,rsPlan->Fields("BRAND_ID")); //Return-Type: BOOL 
   //printf("Brand_ID is %d\r\n",rsPlan->Fields("BRAND_ID"));
 
                                 sprintf(strBatch_ID, "L_Plan_Batch%s",strCounter);
   SetTagDoubleWait(strBatch_ID,rsPlan->Fields("BATCH_ID")); //Return-Type: BOOL 
   //printf("Bathc_ID is %d\r\n",rsPlan->Fields("BATCH_ID"));
 
   sprintf(strBrand_Name, "L_Plan_BrandName%s",strCounter);
   SetTagCharWait(strBrand_Name,rsPlan->Fields("BRAND_NAME")); //Return-Type: BOOL 
   //printf("BRAND_NAME is %d\r\n",rsPlan->Fields("BRAND_NAME"));
 
   sprintf(strWeight, "L_Plan_Weight%s",strCounter);
   SetTagDoubleWait(strWeight,rsPlan->Fields("WEIGHT")); //Return-Type: BOOL  
 
   sprintf(strDCCC, "ST_L_DCCC%s",strCounter);
   SetTagByteWait(strDCCC,rsPlan->Fields("ST_DCCC")); //Return-Type: BOOL 
   //printf("%d\r\n",rsPlan->Fields("ST_DCCC"));
   
   sprintf(strCASING, "ST_L_CASING%s",strCounter);
   SetTagByteWait(strCASING,rsPlan->Fields("ST_CASING")); //Return-Type: BOOL 
 
   sprintf(strBURLEY, "ST_L_BURLEY%s",strCounter);
   SetTagByteWait(strBURLEY,rsPlan->Fields("ST_BURLEY")); //Return-Type: BOOL 
 
   sprintf(strORIENTAL, "ST_L_ORIENTAL%s",strCounter);
   SetTagByteWait(strORIENTAL,rsPlan->Fields("ST_ORIENTAL")); //Return-Type: BOOL 
 
   sprintf(strDRYING, "ST_L_DRYING%s",strCounter);
   SetTagByteWait(strDRYING,rsPlan->Fields("ST_DRYING")); //Return-Type: BOOL 
   //printf("ST is ok!\r\n");
        
                                 sprintf(strDCCC_Source, "L_DCCC_Source%s",strCounter);
   SetTagByteWait(strDCCC_Source,rsPlan->Fields("DCCC_SOURCE")); //Return-Type: BOOL 
                                 //printf("DCCC_SOURCE is %d!\r\n",rsPlan->Fields("DCCC_SOURCE"));
   
   sprintf(strDCCC_Dest, "L_DCCC_Dest%s",strCounter);
   SetTagByteWait(strDCCC_Dest,rsPlan->Fields("DCCC_DEST")); //Return-Type: BOOL 
 
   sprintf(strCASING_Source, "L_CASING_Source%s",strCounter);
   SetTagByteWait(strCASING_Source,rsPlan->Fields("CASING_SOURCE")); //Return-Type: BOOL 
                                 //printf("DCCC_SOURCE is %d!\r\n",rsPlan->Fields("DCCC_SOURCE"));
   
   sprintf(strCASING_Dest, "L_CASING_Dest%s",strCounter);
   SetTagByteWait(strCASING_Dest,rsPlan->Fields("CASING_DEST")); //Return-Type: BOOL 
 
   sprintf(strBURLEY_Source, "L_BURLEY_Source%s",strCounter);
   SetTagByteWait(strBURLEY_Source,rsPlan->Fields("BURLEY_SOURCE")); //Return-Type: BOOL 
                                 //printf("DCCC_SOURCE is %d!\r\n",rsPlan->Fields("DCCC_SOURCE"));
   
   sprintf(strBURLEY_Dest, "L_BURLEY_Dest%s",strCounter);
   SetTagByteWait(strBURLEY_Dest,rsPlan->Fields("BURLEY_DEST")); //Return-Type: BOOL 
 
   sprintf(strORIENTAL_Source, "L_ORIENTAL_Source%s",strCounter);
   SetTagByteWait(strORIENTAL_Source,rsPlan->Fields("ORIENTAL_SOURCE")); //Return-Type: BOOL 
                                 //printf("DCCC_SOURCE is %d!\r\n",rsPlan->Fields("DCCC_SOURCE"));
   
   sprintf(strORIENTAL_Dest, "L_ORIENTAL_Dest%s",strCounter);
   SetTagByteWait(strORIENTAL_Dest,rsPlan->Fields("ORIENTAL_DEST")); //Return-Type: BOOL 
 
                                 sprintf(strDRYING_Source, "L_DRYING_Source%s",strCounter);
   SetTagByteWait(strDRYING_Source,rsPlan->Fields("DRYING_SOURCE")); //Return-Type: BOOL 
 
   sprintf(strDRYING_Dest, "L_DRYING_Dest%s",strCounter);
   SetTagByteWait(strDRYING_Dest,rsPlan->Fields("DRYING_DEST")); //Return-Type: BOOL 
 
   rsPlan->MoveNext;
   }
  }
 //printf("Data is write!\r\n");
 }
 rsPlan->close();
 cnComasCS->Close;
 }
 
 错误提示：
 OLE Error:0x80020005
 请问是什么原因导致？？
花落月下，月倚骄阳
花落月下
游士

经验值: 157
发帖数: 93
精华帖: 0
主题：回复:OLE Error:0x80020005错误求解！
2010-11-15 15:35:22 1楼
在线求解，希望知道的大侠们告诉下
花落月下，月倚骄阳
linking
游民

经验值: 88
发帖数: 42
精华帖: 0
主题：回复:OLE Error:0x80020005错误求解！
2010-11-15 18:02:20 2楼
这么长，你的问题在哪里？？
www.lingkun.net
  • 上一页
  • 1
  • 下一页
 
 
Lytton_jing
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
WINCC-C脚本大全.pdf
09-26
WINCC-C脚本大全.pdf
Wincc常用C脚本
热门推荐
kobe_okok的博客
04-25 1万+
文章目录1 set/get相关2 用户登录/注册3 操作项目4 弹窗5 操作元素6 WINCC中制作一个保持型按钮7 声光报警8 动画脚本电机风扇旋转（几何---起始角度）：9 物料水平右移动（几何---位置X）（停车后，物料回到原点）10 时间静态文本 1 set/get相关 SetTagPrefix(lpszPictureName, "huamian1","电机1.");//设置变量前缀 SetPictureName(lpszPictureName,"huamian1","BENG");//给画面窗口绑
wincc使用C脚本实现用户登录
yue008的博客
02-16 1万+
C脚本实现用户登录脚本介绍案例介绍程序案例 脚本介绍 登录 #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogin('1') /*PWRTLogin 参数必须是 CHAR 字符。*/ /*它指定了显示对话框的监视器。*/ /*如果只使用一个监视器，那么保留默认参数“1”*/ 注销 #pragma code("useadmin.dll") #include "PWWRT_api.h" #pragma code
c++的声明函数是哪_WinCC中C脚本数据类型全总结，C脚本如何读写WinCC的变量？
weixin_39588223的博客
11-21 849
WinCC的C脚本的编程语言符合ANSI-C标准，它的数据类型与ANSI-C的数据类型一致。要用好C脚本，当然要对各种数据类型了然于胸了。一、ANSI-C数据类型所谓"数据类型"是按照所定义的变量的性质、表示形式、所占据的存储空间等特点来划分的。在C语言中，数据类型可分为：基本数据类型、构造数据类型、指针类型、空类型四大类，如图1所示。1、基本数据类型"基本数据类型"的值不可以再分解为其他类型，它...
wincc-全套脚本总结.zip_WinCC_wincc 全套脚本_wincc脚本
09-21
脚本读写操作script 脚本操作，实现和第三方设备的数据交互，实现实时数据的读取和写入
wincc常用C语言脚本.zip
03-16
wincc常用C语言脚本.zip 介绍了关于wincc常用C语言脚本.zip的详细说明，提供WINCC的技术资料的下载。
WinCC C语言脚本推荐
08-04
WinCC C语言脚本推荐
WinCC-V7.3-C脚本手册 (2).zip_wicc脚本手册_wincc C脚本_wincc c脚本手册_wincc 脚本
07-14
wincc脚本数据手册，最全的C脚本，介绍详细，官方资料
wincc C脚本函数手册.zip
10-21
wincc C脚本函数手册zip,wincc C脚本函数手册
西门子WINCC常用C脚本1
最新发布
01-18 672
获取变量值：GetTagBit(可以是位也可以是字节，字，双字等具体字母不同)取反SetTagBit（"变量名",!GetTagBit（"变量名"））;//赋初始值，初始值可根据实际情况赋值。if(GetTagBit("变量名"))//判断产量启动与否。GetTagBit("A纯水泵"))//判断停止与否。置位：SetTagBit（"变量名",1）复位：SetTagBit（"变量名",0）这是一个取反命令，按下是1，再次按下是0.if(i==360)//等于一圈。if(i
wincc教程从入门到精通
10-20
详细的wincc教程包含深入浅出wincc
wincc 常用C语言编程
12-12
对于wincc的入门者来说，很难能理解C代码，本人共享几个常用的C代码，仅供学习参考！
wincc常用C脚本 完整整理
02-23
wincc常用C脚本，完整整理，常用的代码，快速查找代码，实现功能
phpcms模板嵌入php代码_PHP从入门到精通（一）初识PHP
weixin_39844515的博客
11-02 224
PHP从入门到精通（一）什么是PHP先来一句：“PHP是世界上最好的语言”。额...你懂得...... （此处省略一万字）。自从PHP官方说了一句“PHP是世界上最好的语言”之后，各行各业都开始疯狂玩梗、调侃，包括PHPer。本来程序猿们就是玩梗高手...其实个人认为不管哪种语言，都只是一个工具而已。那什么才是好工具？ 适合你的！任何一门语言，都有适合自己的领域，基础扎实才是王道！PHP入门...
WINCC获取项目路径和打开子画面C脚本
weixin_37928884的博客
01-01 2662
WINCC获取项目路径和打开子画面C脚本
K8s 很难么？带你从头到尾捋一遍，不信你学不会
民工哥的博客
02-23 8683
点击关注公众号，回复“1024”获取2TB学习资源！为什么要学习 Kubernetes?虽然 Docker 已经很强大了，但是在实际使用上还是有诸多不便，比如集群管理、资源调度、文件管理等...
10天智能锁项目实战第1天（了解单片机STM32F401RET6和C语言基础）
北豼不太皮的博客
02-21 3068
10天智能锁项目实战第1天（了解单片机STM32F401RET6和C语言基础）一、学习目标二、了解单片机STM32F401RET6三、C语言基础 一、学习目标 二、了解单片机STM32F401RET6 4、STM32F401RE特征 三、C语言基础 1.数据类型 常用2的次方： 2^7 = 128 2^8 = 256 2^15 = 32768 2^16= 65536 51单片机常见的数据类型： char: 占内存1字节 取值范围：-128~127 -2^7 ~ 2
Android开发（1） | Fragment 的应用——新闻应用
Jormungand_V的博客
02-21 3528
文章目录 news_item.xml： <TextView xmlns:android="http://schemas.android.com/apk/res/android" android:id="@+id/news_title" android:layout_width="match_parent" android:layout_height="wrap_content" android:lines="1" android:ellipsize="
wincc c脚本 弹出脚本
06-23
wincc支持使用C脚本编程，通过编写脚本可以实现一些自定义的功能。 弹出脚本是wincc中的一个常用功能，可以通过编写C脚本实现。弹出脚本通常用于提示用户输入信息或进行一些操作，可以在屏幕上弹出一个对话框，在此...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值