我要疯了！！！谁能给我一个串口通信的实例，需要有源码。

[zbc]

我要疯了！！！谁能给我一个串口通信的实例，需要有源码。最好是通过控件来写的。高手救急啊！！！

[周药师]

lz用的什么控件？？

[yhec]

MSCOMM32.ocx控件只要会用，非常好用！

[yhf365]

我只有Delphi源码...

[xjq2003]

我有BCB源码
用的,PCOMM.dll
代码如下：
、、打开河关闭串口
void __fastcall TFrm_Main::Btn_ComXClick(TObject *Sender)
{
int ret;
portx= Comx1->ItemIndex+1;
bdr=StrToInt(Cbdr->Text);

if(Btn_ComX->Caption=="打开")
{


ret=sio_open(portx);
if(ret==SIO_OK) //ShowMessage("Open COM error1");
if(bdr==4800)
ret = sio_ioctl (portx, B4800, P_NONE | BIT_8 | STOP_1 );
else
ret = sio_ioctl (portx, B9600, P_NONE | BIT_8 | STOP_1 );

if(ret!=SIO_OK)
ShowMessage("打开串口失败");
else
{
Btn_ComX->Caption="关闭";
open1->Visible=true;
close1->Visible=false;
Comok=true;
}

}
else
{
ret=sio_close(portx);
if(ret!=SIO_OK)
ShowMessage("关闭串口失败");
else
{
Comok=false;
open1->Visible=false;
close1->Visible=true;
Btn_ComX->Caption="打开" ;
}
}

}
//用线程接受数据
while(true)
{
Sleep(1);

ret=sio_iqueue(portx); //读串口队列长度 //printf("\nxInData=%x\n",xInData);
if(ret>0)
{
xInData=sio_getch(portx);//读串口里的字符

switch(xInPtr)
{
case 0:
xindex=0;
if(xInData==0xff)
xInPtr++;
xbuf[xindex++]=0xff;
break;
case 1:
…………………………………………

[ZHOUGE]

我有不通过控件的方法。

[失落的羊]

http://www.cppfans.com/d_vcl_files/yb_comm_133.asp

超级好用,详细的代码.吐血推荐

[cptang]

//pcomm.dll
    comState = sio_open(comPort);
    if (comState != SIO_OK )
    {
        ShowMessage("串口 1 打开失败") ;
        return false ;
    }
    else
    {
        comState = sio_ioctl(comPort, B9600	, P_NONE | BIT_8 | STOP_1)  ;
        if (comState != SIO_OK)
        {
            ShowMessage("串口 1 初始化失败") ;
            return false ;
        }
    }


    sio_write(comPort, "@00R", 4);
    Sleep(300) ;
    sio_read(comPort, buf, 70);

[cptang]

或者cvi或者阿波罗控件

我现在一般情况下使用阿波罗

[leeber]

http://www.cppfans.com/d_vcl_files/yb_comm_133.asp

用这个吧，很爽的，国人开发的控件，各版本的代码都有，免费！

[COKING]

#ifndef __COM99
#define __COM99

#define WM_COMDATA WM_APP+201
#define WM_COMERR  WM_APP+202

template <class T1>
union TProcHelper
{
	DWORD __stdcall (*ThdProc)(void*);
	DWORD __stdcall (T1::*ClsProc)(void);
};
//***********************************
class TxCom
{
private:
	bool	tRun;
	HANDLE  hThd;
	HANDLE  hCom;
	HANDLE  hWin;

	char    mComName[16];
	char    mComState[16];

	DWORD   mdwSize;

	OVERLAPPED  xOverlapped;
	OVERLAPPED  wOverlapped;
	OVERLAPPED  rOverlapped;
//***********************************
protected:
	virtual void OnRecv()
	{
		COMSTAT ComStat;
		DWORD   dwError;

		ClearCommError(hCom, &dwError, &ComStat);

		if(ComStat.cbInQue>=mdwSize && IsWindow(hWin))
			SendMessage(hWin,WM_COMDATA,(UINT)this,ComStat.cbInQue);
	}
//***********************************
	virtual void OnError()
	{
		if(IsWindow(hWin))
			PostMessage(hWin,WM_COMERR,(UINT)this,NULL);
	}
//***********************************
    DWORD __stdcall ThreadFunc(void)
    {
        tRun =true;
        SetCommMask(hCom,EV_RXCHAR|EV_ERR);

        while(tRun)
        {
        	DWORD dwMask =0;
            DWORD dwLength =0;

            if (!WaitCommEvent(hCom,&dwMask,&xOverlapped))
            {
                if(::GetLastError() == ERROR_IO_PENDING)
                    ::GetOverlappedResult(hCom, &xOverlapped, &dwLength, TRUE);
                else
                    continue;
            }

            if((dwMask & EV_RXCHAR)==EV_RXCHAR)
                OnRecv();
            else if((dwMask & EV_ERR)==EV_ERR)
                OnError();
        }
        return 0;
    }
//***********************************
public:
    TxCom()
    {
		tRun=false;
		hThd=NULL;
		hWin=NULL;
		hCom=INVALID_HANDLE_VALUE;

		memset(mComName,0,16);
		memset(mComState,0,16);

		mdwSize=0;

		memset(&xOverlapped,0,sizeof(OVERLAPPED));
		memset(&wOverlapped,0,sizeof(OVERLAPPED));
		memset(&rOverlapped,0,sizeof(OVERLAPPED));

		xOverlapped.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
		wOverlapped.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
		rOverlapped.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);

		::InitializeCriticalSection(&_Mutex);
    }
//***********************************
    ~TxCom()
    {
		Close();

		CloseHandle(xOverlapped.hEvent);
		CloseHandle(wOverlapped.hEvent);
		CloseHandle(rOverlapped.hEvent);

		::DeleteCriticalSection(&_Mutex);
    }
//***********************************//
    const HANDLE GetComHandle(void)   
    {
        return  hCom;
    }
//***********************************
    const PCHAR GetComName(void) 
    {
        return  mComName;
    }
//***********************************
    void SetParantWnd(HWND hWnd)
    {
        hWin = hWnd;
    }
//***********************************
    void SetReadSize(DWORD dwSize)  //设置读数据空间
    {
        mdwSize = dwSize;
    }
//***********************************
	void ClearInBuffer()  //清楚接收缓冲区
	{
        ::PurgeComm(hCom, PURGE_RXABORT | PURGE_RXCLEAR );
	}
//***********************************
	void ClearOutBuffer() //清楚发送缓冲区
	{
        ::PurgeComm(hCom, PURGE_TXABORT | PURGE_TXCLEAR );
	}
//***********************************
    bool IsOpen(void) //判断端口是否打开
    {
        return hCom != INVALID_HANDLE_VALUE;
    }
//***********************************
    bool Open(PCHAR strCom,PCHAR strState)//打开指定端口
    {
        if(IsOpen())	return false;

        hCom=CreateFile(strCom,GENERIC_READ|GENERIC_WRITE,
            0,NULL,	OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL|FILE_FLAG_OVERLAPPED,NULL);

        if(!IsOpen())	return false;

        strcpy(mComName,strCom);
        strcpy(mComState,strState);

        SetupComm(hCom,2048,1024);

        COMMTIMEOUTS tmover;
        tmover.ReadIntervalTimeout = MAXWORD;
        tmover.ReadTotalTimeoutMultiplier  = 0;
        tmover.ReadTotalTimeoutConstant    = 0;
        tmover.WriteTotalTimeoutMultiplier = 200;
        tmover.WriteTotalTimeoutConstant   = 2000;
        SetCommTimeouts(hCom,&tmover);

        DCB dcb;
        dcb.DCBlength=sizeof(DCB);
        BuildCommDCB(strState,&dcb);
        SetCommState(hCom,&dcb);

        PurgeComm(hCom,PURGE_TXCLEAR|PURGE_RXCLEAR);

        TProcHelper<TxCom> pHelper;
        pHelper.ClsProc=&TxCom::ThreadFunc;       
        hThd=CreateThread(NULL, 0,pHelper.ThdProc, this, 0, NULL);

        return true;
    }
//***********************************
    bool Close()  //关闭指定端口
    {
        if(IsOpen())
        {
            tRun=false;

            SetCommMask(hCom, 0);
            SetEvent(xOverlapped.hEvent);

            if(::WaitForSingleObject(hThd, 500) != WAIT_OBJECT_0)
                TerminateThread(hThd, 0);
            else
                CloseHandle(hThd);

			hThd=NULL;
            ResetEvent(xOverlapped.hEvent);

            CloseHandle(hCom);
            hCom=INVALID_HANDLE_VALUE;
            memset(mComName,0,16);

            return true;
        }
        return false;
    }
//---------------------------------------------------------------------------
    ULONG Read(char *strbuf,ULONG ilen)   //接收数据
    {
    	if(!IsOpen()) return 0;
    	
        COMSTAT ComStat;
	    DWORD   dwError;

        if(::ClearCommError(hCom, &dwError, &ComStat) && dwError > 0)
        {
            ::PurgeComm(hCom, PURGE_RXABORT | PURGE_RXCLEAR);
            return 0;
        }

        if(ilen>ComStat.cbInQue)    ilen =ComStat.cbInQue;

        DWORD rtlen=0;
	    if(!::ReadFile(hCom,strbuf,ilen,&rtlen,&rOverlapped))
	    {
            if(::GetLastError() == ERROR_IO_PENDING)
                ::GetOverlappedResult(hCom, &rOverlapped, &rtlen, TRUE);
            else
                ::ClearCommError(hCom,&dwError,&ComStat);
		}
	    return rtlen;
    }
//---------------------------------------------------------------------------
    ULONG Write(char *strbuf,ULONG ilen)   //发送数据
    {
    	if(!IsOpen()) return 0;
        
        COMSTAT ComStat;
        DWORD dwError;
        if(::ClearCommError(hCom, &dwError, NULL) && dwError > 0)
            ::PurgeComm(hCom, PURGE_TXABORT | PURGE_TXCLEAR);

        DWORD rtlen=0;
	    if (!::WriteFile(hCom,strbuf,ilen,&rtlen,&wOverlapped))
	    {
            if(::GetLastError() == ERROR_IO_PENDING)
                ::GetOverlappedResult(hCom, &wOverlapped, &rtlen, TRUE);
            else
                ::ClearCommError(hCom,&dwError,&ComStat);
		}
	    return rtlen;
    }
};


#endif

[COKING]

// ::InitializeCriticalSection(&_Mutex);
// ::DeleteCriticalSection(&_Mutex);

[scotte_c]

建议不使用控件，做个类更好用的。

[lovetsfuer]

[Quote=引用 9 楼 leeber 的回复:]
http://www.cppfans.com/d_vcl_files/yb_comm_133.asp

用这个吧，很爽的，国人开发的控件，各版本的代码都有，免费！
[/Quote]
我们用的这个，好使

[azmao]

俺用API。
我使用C++ Builder 6.0调用Win32 API实现的。
首先开一个线程。
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ReadComm =new TRead232(true);
ReadComm->FreeOnTerminate = true;
}
通过一个按钮实现打开/关闭串口
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(Button1->Caption == "打开通讯端口") //按钮名称是"打开通讯端口"？
{
char *ComNo;
DCB dcb;
String Temp;
Temp = "COM"+IntToStr(rdCom->ItemIndex+1);
// TRadioGroup *rdCom; 定义要选择的串口
ComNo = Temp.c_str();
hComm =CreateFile(ComNo,GENERIC_READ|GENERIC_WRITE,
0,NULL,OPEN_EXISTING,0,0);
if(hComm == INVALID_HANDLE_VALUE)
{
MessageBox(0,"打开串口失败!!","Set Error",MB_OK);
return;
}
GetCommState(hComm,&dcb);
dcb.BaudRate = CBR_9600;
dcb.ByteSize = 8;
dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT;
if(!SetCommState(hComm,&dcb))
{
MessageBox(0,"打通讯端口设置错误!!","Set Error",MB_OK);
CloseHandle(hComm);
return;
}
Timer1->Enabled = True;
Button1->Caption = "关闭串口";
Shape1->Brush->Color = clRed;
//启动接收线程

ReadComm->Resume();
}
else
{
Button1->Caption = "打开通讯端口";
CloseHandle(hComm);
Shape1->Brush->Color = clBlack;
Timer1->Enabled = False;
ReadComm->Terminate();

}
}
接收由线程TRead232完成
void __fastcall TRead232::Execute()
{
SetName();
//---- Place thread code here ----
if(!Terminated) Synchronize(ReadData);
}
//---------------------------------------------------------------------------
void __fastcall TRead232::ReadData()
{
Form1->Caption = "Updated in a thread";

String Temp;
char inbuff[1024];
DWORD nBytesRead,dwEvent,dwError;
COMSTAT cs;
if(hComm == INVALID_HANDLE_VALUE)
{
MessageBox(0,"串口失败!!","Set Error",MB_OK);

return;
}
ClearCommError(hComm,&dwError,&cs);
Form1->Edit1->Text = cs.cbInQue;
if(cs.cbInQue > sizeof(inbuff))
{
PurgeComm(hComm,PURGE_RXCLEAR);
return;
}
ReadFile(hComm,inbuff,cs.cbInQue,&nBytesRead,NULL);
inbuff[cs.cbInQue]='\0';
Form1->Memo1->Text =Form1->Memo1->Text+inbuff;
}
发送是定时器TIMER1触发，定时发送的。
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
char SendData[20];
byte ch;
int i;
unsigned long lrc,BS;
if (hComm==0) return;
SendData[0] = 0x41;
SendData[1] = 0x03;
SendData[2] = 0x00;
SendData[3] = 0x01;
SendData[4] = 0x00;
SendData[5] = 0x04;
SendData[6] = 0x1b;
SendData[7] = 0x09;
SendData[8] = '\0';
// BS = 8; // StrLen(SendData);
for(i=0;i<=7;i++)
{
ch = SendData[i];
WriteFile(hComm,&ch,1,&lrc,NULL);
}
}

[draculamx]

我用的是 C++ BUILDER6 和 MS 的 MSCOMM 控件来完成的串口程序，很好用，很简单。。。。
PS：我是用在工业控制程序上，完全没有任何问题。。。。。。

[woxin555]

victor控件太好用了，在往上找找很多

[jody_go]

SPComm可以啊··

[Waiting4you]

俺也推荐一下我的：http://www.cppprog.com/2009/0103/35.html
里面使用的是偶自己写的一个串口类，使用方法：http://blog.csdn.net/Waiting4you/archive/2007/04/14/1564567.aspx

[renhaobin2000]

支持14楼……