说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

顾客显示屏的问题,打不开端口?

编辑:说三道四文库 发布时间:2017-10-20 05:03
HTML文档下载 WORD文档下载 PDF文档下载
大家有没有用过DIY-POS(川田科技) PD-LED8N顾客显示屏,有用过的看看。
我的编程环境是DELPHI5.0,操作系统是WIN2000SERVER
将DLL文件拷贝到应用程序的目录下了,
程序运行运行的时候显示 “端口打开失败”。
用测试程序是可以正常使用的,这就确定系统是没有问题的。但是我的代码错在哪里?
-----------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    pbflag : Boolean ;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function com_init(com:Integer; baud:Dword):Boolean;stdcall;external 'api_com.dll';
function com_rest:Boolean;stdcall;external 'api_com.dll';
function com_send(buf:PChar; len:Integer):Boolean;stdcall;external 'api_com.dll';


implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  pbflag := Com_init(1,2400);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Com_rest;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if pbflag then
   begin
       showmessage('端口打开成功');
   end
   else
   begin
       showmessage('端口打开失败');
   end;


end;

end.
-------------------
问题解决了,是我自己忘记挂上事件而已,很低级错误喔。
谁跟贴,就跟分咯。
怎么没有人回复啊,我如何结贴啊?
CSDN你说我应该如何结贴,
又不允许我删除这个帖子,
放在这里又没有人回。。。。如何结
最近又扣我的信誉分。。。
过分,过分
现在可以结了^_^
Operation InVersion:拯救了LinkedIn的大修项目 五步走战略——Avocado在最初几周内迅速扩大30倍 NoSQL产品测评:Cassandra、MongoDB、Couchbase和Aerospike 谷歌眼镜开箱评测:比想象更精致 Pinterest谈实战经验:如何在两年内实现零到数百亿的月访问 初创公司Instart Logic:专为电子出版商和网站站长解决“痛点” 未来即卖芯片又卖服务!Intel收购软件厂商Mashery 继MSN之后,微软又开始整合Skype与Lync服务 阿里将推AMOS智能机 斥资10亿鼓励开发App AMPLab开发重构的Hadoop版本Tachyon:吞吐量要比HDFS高300多倍 一名理科生的创业路 十大界面原型与布局工具 Google产品经理Kenneth Norton:如何与工程师共事 如何创建自适应系统来增强用户体验 Jolla下月展示首款Sailfish手机 将重点发展中国区 海外1GB大容量游戏,国内渠道如何分发? 真正的能源大户是WiFi网络 数据中心只是“伪军” CloudFlare创始人传奇人生:7岁编程,法学博士,获哈佛商学院最高荣誉 2013云计算深入实践 jQuery 2.0发布 不再支持IE 6/7/8 Google再发力,更新Dart M4! 【多图】鼠标、光驱等13个即将消失的PC技术 直击OpenStack美国峰会:分享五大经验收获 Project Savanna:让Hadoop运行在OpenStack之上 看Go桌面技术副总,如何解读Facebook Home 增长最快的游戏公司Supercell 你学得会? 移动周报:为什么我们出不了IT神童? AWS、VMware和OpenStack谁是赢家? 消息称苹果正在寻找新任CEO取代库克 请别人云亦云 PC仍然重要且活得很好 比预想晚几年!IBM x86服务器或终将卖给联想 嵌入文件夹窗格怎么使用 创业中的软件公司招人(有兴趣的弟兄进来看看) 数据库中事务的特点及其应用,急,不够再给分500,在线,急。 关于对话框.高分请教 创业中的软件公司招人(有兴趣的弟兄进来看看) 做的网站在IE5.0和IE6.0显示的问题 寻找采用WebSnap 技术的例子? matrxII观后感 关于JSP文件和BEAN的存放 创业中的软件公司招人(有兴趣的弟兄进来看看) c#做的程序可以直接在新安装的win98下(没有.net环境)跑吗?有经验的请留步 c#做的程序可以直接在新安装的win98下(没有.net环境)跑吗?有经验的请留步 存储过程分页有点问题,谁帮我看一下 基础问题!困扰我! 请哥哥姐姐帮忙,把下面的代码转换成VC代码 大家case工具都用到什么程度? 为什么编译的可执行文件在其他计算机无法运行? ACCESS操作问题,高手... 我是刚刚入门,请帮助 怎样把一个已建好的主域服务器更改域名(在线等) 如何得到DataGrid控件里面的某行某列得值? 关于rave报表的问题 weblogic部属程序问题! 组合查询的问题 怎样在改变一个下拉菜单,不刷新页面的情况下,改变另一个菜单的内容??? 有使用BCG库的朋友吗?有些问题不明白,想讨论一下。 sqlmangr.exe文件受到了损坏,应该怎么做恢复[急] 请问,广东的高程报名在什么时候?谢谢! lwangzi(磊子)请关注 win2000下读注册表的怪问题??? 在线等待,急急急 菜鸟百问之一 在VS.NET中无法调试ASP.NET应用程序 从一个表select等好久也没有东西返回,别的表正常,这是为什么呀 大哥大姐: 请问BC与DELPHI有什么区别 ? 问个小问题,权当散分 怎么把终端服务的3389端口号改为自己需要的端口? 怎么样使用实体bean来修改数据库中的记录? 高手请进!!急 如何知道打开子窗体的父窗体是谁 关于XML转换的问题!!请高手进!! *.xfm是什么文件?? 打包难题 help me 来这里问一下, DELPHI与C++ BUILDER 有什么区别 ? 北京时尚-- 海淀vs朝阳 (转) 请问:如何显示通过get来传递过来的带“+”的变量?(显示“+”会丢失) 如何获取指定范围内的随机数,急! 各位GGMM,请多关照新来的MM! applet中的swing可不可以用Look and Feel 请问如何获取字符串里特定字节,马上给分,谢谢, 高分:如何使用将datagrid放在Repeater控件中 转化asp--》asp.net c#版本,有经验借鉴一下么? Oracle的备份!!! 六年级部分同学去划船,若每条船上坐5人,有14人没有船可乘,若每条船上坐7人,则有1条船上还可乘4人,六年...六年级部分同学去划船,若每条船上坐5人,有14人没有船可乘,若每条船上坐7人,则有1 如图所示,甲是一个带正电的小物块,乙是一个不带电的绝缘物块,甲、乙叠放在一起静置于粗糙的水平地板上,地板上方空间有水平方向的匀强磁场,现用水平恒力拉乙物块,使甲、乙无相对滑动 1 改为一般疑问句并作否定回答:I can see a cat on the floor.2 You can't play basketball here.改为祈使句.3 Tom can drive the car.(对Tom进行提问) 猜 迷语 趣填成语 125 八分之七 问这个是什么成语?猜 迷语 趣填成语 125八分之七 问这两个是什么成语? a>b>c>1,p=2[(a+b)/2-(ab)^1/2〕,q=3[(a+b+c)/3-(abc)^1/3],比较pq的大小 改为一般疑问句,并作肯定和否定回答.1.I'm helrful! _____________________________________________2.I often read books and wash TV. ________________________________________ 四年级的一些同学去划船,如果每条船坐6人,将有8人不能上船:如果每条船坐8人,会多出一条船.他们租了几条船?一共有几位同学?用方程解,记住,麻烦写清楚点 求 低 字开头的诗句 怎样可以使花瓶里的花开的更久阿?买回家的花插花瓶里第二天就枯萎了,怎么回事呢,在花店都可以开一周左右的.怎样才能开的更久些啊/? 题:六年级部分同学去划船,若每条船上坐5人,有14人没有船可乘,若每条船上坐7人,则有一条船还可乘4人.问:六年级有多少名同学去划船? 求用matlab解复杂方程组的解以下四个方程,需要求,r,ox1,oy1,x11sprt(r^2-(-0.08632-ox1)^2)-oy1=2.872(-0.08632-ox1)/sprt(r^2-(-0.08632-ox1)^2)=-0.009518sprt(r^2-(x11-ox1)^2)-oy1=0.343*(x11-1.236)^2+3.0(x11-ox1)/sprt(r^2-(x11-ox1)^2)=2*0. 花瓶里的花开得真新鲜中的新鲜什么意思 每条船能坐6人,54名同学排好对,按照先后顺序上船:彬彬排在第8个,应坐在第()条船上.强强排在第24个,应坐在第()条船上.军军坐在第6条船上,他排的位置应在第()到()个. Matlab s=solve('x(e^(1/(y*26))-1)=1','x(e^(1.5/(y*26))-1)=80');s.x,s.yError using ==> mupadmexError in MuPAD command:cannot differentiate equation [numeric::fsolve]Error in ==> sym.sym>sym.mupadmexnout at 2018out = mupadmex(fcn,args{:});Error in ==> 子谓韶, 尽美矣,又尽善也. 谓武, 尽美矣,未尽善也. 找成语 子谓韶, 尽美矣,又尽 力的合成中,做出平行四边形后,如何求借合力 求用matlab解以下2元复杂方程组:1987*4*(1-t)*[1/(1-x)+1/x]+[6*(3150-2300)*x+2*(2300-6300)]*t=0-1987*4*(1-t)*[1/((1-x)^2)-1/(x^2))+6*t*(3150-2300)=0满目热泪等高手们赐教 子谓《韶》:“尽美矣,又尽善也.”谓《武》:“尽美矣,未尽善也.”(是什么成语的原型)子谓《韶》:“尽美矣,又尽善也.”谓《武》:“尽美矣,未尽善也.”成语:( )急 平行四边形对角线怎么求知道边长 就是物理中的合力!力是90N 120N 夹角为30度 希望详细一些!最好别用数学符号 有汉字代替一下 电脑上数学符号有些看不懂!如2²平方 用2的平方代替 谢谢! 已知点a(a-1,2a-3)在一次函数y等于x加一的图像上,则实数a等于 “子谓《韶》:‘尽美矣,又尽善也.’谓《武》:‘尽美矣,未尽善也.’” 这句话里有个什么成语 android 开发 Intent的intent.putExtra问题:请问可以把数据传入自己当前所在的Activity中么?代码如下:int id=1;int point=1000;public class MillionaireGame extends Activity{\x05 Intent intent=getIntent();\x05 String ids=intent.getS 阅读《康巴藏族民居》作者按___________的顺序,先介绍了康巴藏族民居的_____;接着介绍了_____;然后介绍了_______;最后介绍了_______.后面的空我大致猜出来了,就第一个空不晓得,一个空给十分啊 子谓《韵》:“尽美矣,又尽善也.”谓《武》:“尽美矣,未尽善也”成语 android intent 与message的关系android 的intent与android message消息处理机制有什么关系和区别么 "雨是最寻常的,一下就是三两天"写出春雨的什么特征? 照样子写出恰当的成语 技术好 技术(百里挑一) 文章好 文笔( ) 态度好 对人( ) 天气好 天空( ) 向量题求解1111 已知I J为互相垂直的向量,a=i-2j b=i+入j 切a与b的夹角为锐角求入取值范围````详细点```谢谢了啊我记得当时老师讲了一个什么A的摸*B得模>0 然后怎么算的``你能从这个角度分析下 形容一个人先自已放弃自已而后被人放弃的成语 口才好的成语是什么?态度好的成语是什么?天气好的成语是什么? They like P.E.and music.改为否定句 阅读文,往往一排建筑有几十户人家,宛如古代城堡,很是壮观.一幢建筑内的房间大小、结构布局安排得非常合理,很像内地城市建造的多单元式的楼房;不过这儿的名句都带有一个大庭院,院门也 在氯化铜(Cucl2)的电解池中,10s内有N1=5×1018个铜离子和N2=1.0×1019个氯离子通过某横截面.求通过该在氯化铜(Cucl2)的电解池中,10s内有N1=5×1018个铜离子和N2=1.0×1019个氯离子通过某横截面。 在匀强电场中一带正电的小物体沿粗糙绝缘水平板向右运动在匀强电场中一带正电的小物体沿粗糙绝缘水平板向右运动,经过A点时的动能为100 J,到达B点时动能减少了原来的4/5,减少的动能中 雨是最寻常的,一下就是三两天可以用什么四字词语来概括它的特点同志们啊,求你们啦 仿照“山那边的山啊,铁青着脸”造一个句子:水那边的水啊,、、、、、、、 打一个成语是什么 雨是最寻常的,一下就是两三天,用4字词语概括 已经过了N2了,还用过N1吗 根据谜面写成语赤橙绿蓝紫武大郎请客加起来是五句 请问怎么才能提高写作能力 我老师说多看书 但我喜欢的书没有优美的语句 而且别人推荐给我的书我又不喜欢我真的很想写好作文 我用肉眼看日环食了怎么办?好担心眼睛.用眼睛看日环食会有什么症状?我看到的是,像月亮形状的那样。是用手机拍摄的,现在眼睛没什么感觉。就是看网上说用肉眼看不好,不知道会有什 125成语什么意思 山村:写出四个同类的词 为什么 日环食时,肉眼看到的是太阳的光球层 而不是日冕和色球不太懂 记得据说日环食的时候不能用眼睛直接看太阳 要戴眼镜 为什么 Android开发中Intent的具体用法? 写出四个相近的词寒假作业 已经用肉眼观察了日环食怎么办? android 应用开发中的 Activity ,Intent, 写出四个跟“坚韧”同类的词 改为一般疑问句并作否定回答Dave does his homework in the evening 平行四边形有几条对角线? 英语作文football clud35词 一个圆弧,已知其半径,其余两点在同一条直线上 怎么确定这个圆弧 平行四边形两条对角线的平方和=? 一正方形光滑竖直放置的绝缘板边长为L处在竖直向下的匀强磁场和水平向右的匀强电场中磁感应强度大小为B, 知了从生长到食用要多久 OM为角平分线,求证OA/OB=AM/BM 如图甲带正电,乙是不带电的绝缘物块,甲乙叠放在一起、如图3甲带正电,乙是不带电的绝缘物块,甲乙叠放在一起,置于粗糙的水平地板上,地板上方空间有垂直纸面向里的匀强磁场,现用一水平 锥形怎么画 驾驶室人1个变3个 交警找出车祸肇事男人偷偷找小三 原配二奶联手起诉丈夫斯诺登将在俄“遥助”德国 作证“监听2013年是“男”还是“女”?哈里王子遭英国报刊窃听房租过高 白领伦敦上班巴塞罗那居住坐温州16家企业3500万元建起污水处浙江290多家企事业单位赴沪求贤70杭州建兰中学千岛湖建新校 2014年美一涂鸦街区将拆迁 艺术家联名告开发媒体揭秘美国监听手段:大使馆屋顶材料美无人机操作员:像僵尸一样执行任务 “罗莎”向偏西方向移动 东部地区雾霾杭州小区取消固定车位引争执 一位大伯杭州大妈100岁生日 家庭四世同堂齐法国总理呼吁民众避免使用暴力手段来解美无人机操作员:遥控飞机阿富汗杀人 杭州国际马拉松赛今天上午开跑 景区单委内瑞拉总统谴责推特强删其推特粉丝媒体揭秘美国监听手段:大使馆屋顶材料美无人机操作员:操纵飞机在阿富汗杀人暴风科技的妖股逻辑:大盘越差它越好 有“前科”的拉勾:踢走合伙人、恶意竞本周新增78家挂牌企业 股票发行34有人30岁就把自己杀死了,只是到75我们为什么总会回到靠股市楼市来拯救经南京多措并举限制高价墓 新建经营性公专访日本一药社社长:中国人为何赴日爆巴黎市中心传“巨大爆炸声响” 或发生李安:这世界上唯一扛得住岁月摧残的就资深核保专家爆料:年轻人选购保险的秘德国为什么没有“德国梦”?从原创文章被抄袭到如今天朝的工业困局一位北京妈妈,看房三个月后,终于崩溃亚洲最穷的几个国家,看完后我沉默了.愚人节A股的深V表演,能否使多头发起官方公布7大非法集资典型,小心别再被P2P机构博弈:先入互金协会还是先工网贷进校园就是“坑爹”?别总说P2P不行,算笔账就明白了网络女主播混进重庆大学女生宿舍 卫生全国房租最贵百城出炉 这个地方竟上榜
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘