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

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

编辑:说三道四文库 发布时间:2018-02-24 12:21
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你说我应该如何结贴,
又不允许我删除这个帖子,
放在这里又没有人回。。。。如何结
最近又扣我的信誉分。。。
过分,过分
现在可以结了^_^
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘