有关delphi与串口通信

Question

我给你写了三个过程，记得给我加分
FUNCTION OpenComm( number :integer ):THandle ;
var dcb : TDCB ;
    comm : pchar ;
begin
     comm := pchar('com' + inttostr(number) );
     result := CreateFile( comm,
                           GENERIC_READ or GENERIC_WRITE,
                           0, {not shared}
                           nil, {no security ??}
                           OPEN_EXISTING,
                           FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,
                           0 {template} );
     GetCommState(result,DCB) ;     WITH DCB DO
     BEGIN
        Baudrate := 9600 ;
        Bytesize := 8 ;
        Parity := 0 ;
        StopBits := 0 ;
     END ;
     SetcommState(result,DCB) ;
end;
//传送数据到串口,handle为OpenComm（）返回的handle.
procedure SendToComm( handle :THandle; date : pchar ) ;
begin
     FileWrite( handle,date^,length(date)) ;
end;
//关闭COM口
procedure CloseComm( handle:THandle ) ;
begin
    CloseHandle( handle ) ;
end;

Answer 1

你可以用控件自己用串口1和串口2通讯,比如用mscomm32

Answer 2

其实串口通讯用SPCOMM控件是比较好的，这个控件带源码，可以看看别人怎么写控件，可以学到好多关于通讯的知识，另外使用非常方便。张国芳

Answer 3

其实串口通讯用SPCOMM控件是比较好的，这个控件带源码，可以看看别人怎么写控件，可以学到好多关于通讯的知识，另外使用非常方便。张国芳

Answer 4

用控件的话，SPCOMM应该是自由软件中最好的，可以多看看，不过估计你现在还看不懂
嘿嘿
[email protected]

Answer 5

我建议你用TSERVERSOCKET  AND  TCLIENTSOCKET 来做；
这是基于有连接数据表的