delphi中dll中怎样添加mscomm控件??有事例最好!!谢谢!!
解决方案 »
- 跟风节日快乐
- 关于List index out of bounds(0)
- 『我的Delphi用不成了,各位大侠有没有遇到这样的情况,请帮我出谋划策。急啊~!』
- 用代码在form上添加Label的问题
- 唉!今天给我喜欢的女孩说我喜欢她……
- 请问rave for delphi7即delphi7的报表控件怎么用?谢谢!
- 请问popupmenu(右键)菜单怎样用左键点击弹出?
- 求助:如何做“WINDOW优化大师”式窗口?
- 短日期格式和长日期格式的转换问题!
- 请问怎样在DELPHI中调用自己写的ORACLE的包中的过程mypack.myproc(a out char_array)(返回一数组)
- delphi中有没有判断是否为数值数据的函数,象VB中的isnumeric
- 一个连接的问题
2 在注册表中加入:regedit[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905]
@ = "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
uses
SysUtils,
Classes,
ActiveX,
windows,
Dialogs,
MSCommLib_TLB; ///project ->import type library->mscomm32.ocxvar
MSComm1: TMSComm;
begin
.....
end////自己没有试过瞎说的
mscomm1:=tmscomm.create??
邮箱:faihxf4972sohu.com
qq:306925615
有知道这方面的大虾发点信息给我撒!
我的 E_mail : [email protected]
谢谢拉!
顶
给你一个例程,别人写的
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;
dll是不是可以被其他的编程工具使用