delphi中dll中怎样添加mscomm控件??有事例最好!!谢谢!!

解决方案 »

  1.   

    1 注册:Regsvr32 MSCOMM32.OCX
    2 在注册表中加入:regedit[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905]
    @ = "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
      

  2.   

    library USEEEE;
    uses
      SysUtils,
      Classes,
      ActiveX,
      windows,
      Dialogs,
      MSCommLib_TLB;   ///project ->import type library->mscomm32.ocxvar
      MSComm1: TMSComm;
    begin
    .....
    end////自己没有试过瞎说的
      

  3.   

    对了,mscomm怎样生成??
    mscomm1:=tmscomm.create??
    邮箱:faihxf4972sohu.com
    qq:306925615
      

  4.   

    能否帮忙顶一下?http://community.csdn.net/Expert/topic/3096/3096600.xml?temp=.980343
      

  5.   

    我也在想这个问题,郁闷死了!
      有知道这方面的大虾发点信息给我撒!
        我的  E_mail : [email protected]
       谢谢拉!
      

  6.   

    http://edu.omron.com.cn/pdfdown.asp?id=22http://www.gjwtech.com/scomm/scdelphiserialcomm.htm
      

  7.   

    -_-~~!!   
    给你一个例程,别人写的
    library USEEEE;
    uses
      SysUtils,
      Classes,
      ActiveX,
      windows,
      Dialogs,
      MSCommLib_TLB;   ///project ->import type library->mscomm32.ocx{$R *.res}var
      MSComm1: TMSComm;
      CommFlag:integer;
      CommParams:boolean;
      MachineID:integer;
      CommPort:integer;//该函数用来对mscomm控件进行初始化设置
    //参数:机器号,端口号
    //返回值:  0 : 成功
    //         -1 : 某个操作未终止,不能置状态
    //         -2 : Comm操作出现异常,COM口或设备问题function SetCommParams(oCommPort:integer):integer;stdcall;
    var
       rel:integer;
    begin
       rel:=0;   //如果在进行其他操作,则设置不能改变
       if CommFlag<>0 then
       begin
          //返回错误-1
          result:=-1;
          exit;
       end;   //置初始化标志
       CommFlag:=0;
       //将传入参数赋值给全局变量:机器号和端口
          CommPort:=oCommPort;
       //初始化ActiveX组件
       CoInitialize(nil);
       
       try
          //创建msComm实例
          msComm1:=TmsComm.Create(msComm1);
          //初始化对应端口的COMM
          msComm1.CommPort:=CommPort;
       except
          //捕获异常,则返回-2
          rel:=-2;
       end;   CommParams:=true;
       //返回
       result:=rel;
    end;
      

  8.   

    project ->import type library... 将dll变成unit或者安装即可
      

  9.   

    我把程序做成dll是不是不用安装activex(mscomm32.ocx)那???
    dll是不是可以被其他的编程工具使用