十分棘手的串口问题，请高手帮我解决一下 - PLC论坛（非专题） - 中国工控网论坛

论文：干式变压器的发展	下载：横河（Yokogawa）FA-M3系列PLC FL.
手册：S7-300F CPU技术规范	书店：变压器应用与维修——专业技能入门与精通
企业：广州市萝岗区众力机电行	调查：检验一名电气工程师是否称职，衡量标准是什么？
博坛：个人观点：没有配过电控柜和参与过施工的技术人员不是.	博文：基于CDMA（GPRS）的无线数据采集、传输、监控..
博闻：TÜV SÜD功能安全服务 -.	企文：GPRS在煤矿安全生产监测监控的应用

查询工控论坛统计

自动化新闻

登陆：密码：注册密码

搜索：

PLC论坛（非专题）分类

发表人：jiechen111

发表时间：2005/1/24 14:57:00

本栏论题：

十分棘手的串口问题，请高手帮我解决一下 [2569]

    我用vb6。0调用人家写的动态库做了个串口通信的程序，但是我的串口通信程序在Win2000里完全可以用但是到了win98里怎么运行程序就弹出对话框为“无法打开串口”,这是为什么啊？请各位高手指教一下，谢谢！
    VB写的关于串口的程序如下：
    Private Sub StartCom
    Const GENERIC_READ=&H80000000
    Const GENERIC_WRITE=&H40000000
    Const OPEN_EXISTING=3
    Const FILE_ATTRIBUTE_NORMAL=&H80
    Dim SecurityA As SECURITY_ATTRIBUTES


    Dim Temp(5) As String
    FIleName for inpute Lock Read Write As #1
    on Error Resume Next
    Input #1, temp(0),temp(1),temp(2),temp(3),temp(4)
    Close #1

    select case(temp(3))
    Case 0:hCom=CreateFile("COM1",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 1:hCom=CreateFile("COM2",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 2:hCom=CreateFile("COM3",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 3:hCom=CreateFile("COM4",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 4:hCom=CreateFile("COM5",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 5:hCom=CreateFile("COM6",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 6:hCom=CreateFile("COM7",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 7:hCom=CreateFile("COM8",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 8:hCom=CreateFile("COM9",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 9:hCom=CreateFile("COM10",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 10:hCom=CreateFile("COM11",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    Case 11:hCom=CreateFile("COM12",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
    end select
    if hcom=-1 then
    i=MSGBOX("无法打开串口",vbOKONLY,"错误"
    StatusBar1.Panels(1).Text="无法打开串口!"
    else: if iniCom(hcom,Temp(0),8,temp(1),temp(2),Temp(4)=False Then
    i=MsgBOX("串口初始化失败",vbOKONLY,"错误")
    StatusBar1.Panels(1).Text="串口初始化失败!"
    CLoseHandle(hCom)
    else:
    StartCom.Enabled=False
    playCommand.Enabled=False
    stopcom.Enabled=true
    stopcommand.enabled=true
    Combo1.Enabled=True
    searchadd.Enabled=True
    StatusBAR1.Panels(1).Text="串口已成功打开!"
    searchAdd_Click
    end if
    end sub

    调用的动态库程序如下：
    extern"C"_declspec(dellexport)BOOL IniCom(HANDLE hCom, long Baurate,short DataBits,short Parity,short StopBits,short TimeOut)
    {
    DCB dcb
    COMMTIMEOUTS CommTime;
    BOOL Error=TRUE;


    if(hCom==INVALID_HANDLE_value)
    {
    //MessageBox(NULL,"无法打开串口! " ,"故障",MB_IConERROR);
    return FALSE;
    }
    Error=SetupComm(hCom,1024,1024);
    if(!Error)
    {
    //MessageBox(NULL,"设定串口缓冲区时出错! " ,"故障",MB_IConERROR);
    return False;
    }
    GEtCommTimeots(hcom,&CommTimes);
    CommTimes.ReadIntervalTimeout=0x00;//间隔超时(mS);0为不使用
    commTimes.ReadTotalTimeoutMultiplier=0X01;//乘量(mS);总超时=乘量*字节+常量
    commTimes.ReadTotalTimeoutConstant=TimeOut;//OX64;//常量(ms)
    Error=SetcommTimeouts(hCom,&CommTimes);
    if(!Error)
    {
    //MessageBox(NULL,"设定串口读写超时时出错! " ,"故障",MB_IConERROR);
    return FALSE
    }
    Error=GetCommState(hcom,&dcb);
    if (!ERROR)
    {
    //MessageBox(NULL,"读写串口参数时出错! " ,"故障",MB_IConERROR);
    return FALSE
    }
    /********初始化串口参数**********/
    dcb.BaudRate=BaudRate;
    dcb.ByteSize=DataBits;
    dcb.PArity=Parity;
    dcb.StopBits=StopBits;
    /*********结束*******************/
    Error=setCommState(hCom,&dcb);
    if(!ERROR)
    {
    //MessageBox(NULL,"设定串口参数时出错!