关于串口通讯的问题

Question

本人对delphi网络通讯不太熟悉，最近被一些问题所迷惑，请各位高手指点：
   一台客户机通过RAS拨号，与远程RAS服务器主机建立连接后，应该采用什么方式
进行通信，是不是一定要用串口方式通信，能否使用一些delphi别的网络通信方法进行
通信，比如使用Tclientsocket,Tserversocket控件的方法通信，或FTP上传下载的
方法通信。
   另外什么情况下要使用串口通信？

Answer 1

你的问题和delphi无关。
拨号成功后，在你的程序看来，就好像是用网线镰到服务器上，请随意使用服务器提供的服务。你的数据如何通过串口出去协议底层都已做好了，不需要考虑。
--
什么情况下？你的老板的要求下。

Answer 2

我现在必须将数据按自己定的协议进行打包后发送，而不是整个文本一起发过去，而且还要接受对方发来的数据包，是不是一定要用串口通信。
采用拨号连接，而不是更据IP地址连接，是不是要用串口通信？
delphi的其他网络编程，例如HTTP，FTP，SOCKET等好象不需要将数据打包后发送，串口通信与一般基于WWW的网络通信区别在哪里，什么应用使用串口通信？

Answer 3

串口通讯的协议有：RS-232，RS—422和RS－485，不过这都是底层的协议，它的电气标准我有，需要的话发e-mail给我,[email protected]
我做的是PC和PLC串行通讯，控件使的MSCOM。串行通讯大部分是用在工业现场，嵌入式PC使用较多。高性能计算机一般使用TCP/IP, HTTP等。我觉得如果你要自定义传输协议，最好能自己设计一个数据收发器。

Answer 4

用远程拨号上去，直接可以用tcp/ip协议用ftp，socket，file协议都可以你可以访问接入计算机所在的局域网的其他计算机。
主要在接入的计算机上装好一个接入的连接就可以了
远程拨号的用户名密码也要设置，其他的出理，你完全可以当作局域网来处理，不过速度慢而已

Answer 5

上面说的和串口通讯无关也可以通过modem直接进行数据的传输，用modem的v22或者v23数据传输协议。不过传输速度很慢只有1200个字节每秒。建议采用远程拨号的方式

Answer 6

串口通讯主要用于pc和一些设备进行数据交互，当然要有自己的交互协议如果pc想通过modem走PSTN通讯，还是用tcp/iP那一套东西

Answer 7

感谢楼上各位高手的指点，现在小弟参与的项目要求如下：客户在自己的PC上，填好一张报表，然后通过远程拨号，与一台服务器建立连接，然后将这张报表上的数据按一定的协议打包发给服务器，服务器返回处理信息。现在用Delphi来做，应该采用什么方法，什么控件来做？本人水平不高，请说得详细，具体些，小弟不胜感激。

Answer 8

使用 Pcomm.dll 连接库声明如下
(*********************************************************************
    PComm.pas
     -- PComm Lib unit for Delphi (32 bit version).
    History:   Date       Author         Comment
               5/29/98    Casper         Wrote it.
              12/11/98   Casper  Update  
              04/27/99    Casper         Update
                                         (add sio_ActXon, sio_ActXoff,
                                              sio_break_ex)
**********************************************************************)unit PComm;interfaceconst
  { baud rate setting }
  B50 = $0;
  B75 = $1;
  B110 = $2;
  B134 = $3;
  B150 = $4;
  B300 = $5;
  B600 = $6;
  B1200 = $7;
  B1800 = $8;
  B2400 = $9;
  B4800 = $A;
  B7200 = $B;
  B9600 = $C;
  B19200 = $D;
  B38400 = $E;
  B57600 = $F;
  B115200 = $10;
  B230400 = $11;
  B460800 = $12;
  B921600 = $13;  { data bit }
  BIT_5 = $0;
  BIT_6 = $1;
  BIT_7 = $2;
  BIT_8 = $3;  { stop bit }
  STOP_1 = $0;
  STOP_2 = $4;  { parity }
  P_EVEN = $18;
  P_ODD  = $8;
  P_SPC  = $38;
  P_MRK  = $28;
  P_NONE = $0;  { modem control setting }
  C_DTR = $1;
  C_RTS = $2;  { modem line status }
  S_CTS = $1;
  S_DSR = $2;
  S_RI  = $4;
  S_CD  = $8;  { error code }
  SIO_OK           = 0;
  SIO_BADPORT      = -1;  { No such port or port not opened }
  SIO_OUTCONTROL   = -2;  { Can't control board }
  SIO_NODATA       = -4;  { No data to read or no buffer to write }
  SIO_OPENFAIL     = -5;   { No such port or port has opened }
  SIO_RTS_BY_HW    = -6;  { Can't set because H/W flowctrl }
  SIO_BADPARM      = -7;  { Bad parameter }
  SIO_WIN32FAIL    = -8;  (* Call win32 function fail, please call }
                             GetLastError to get the error code *)
  SIO_BOARDNOTSUPPORT  = -9;  { Board does not support this function}
  SIO_FAIL         = -10; { PComm function run result fail }
  SIO_ABORT_WRITE  = -11; { Write has blocked, and user abort write }
  SIO_WRITETIMEOUT = -12; { Write timeout has happened }  { file transfer error code }
  SIOFT_OK           = 0;
  SIOFT_BADPORT      = -1; { No such port or port not open }
  SIOFT_TIMEOUT      = -2; { Protocol timeout }
  SIOFT_ABORT        = -3; { User key abort }
  SIOFT_FUNC         = -4; { Func return abort }
  SIOFT_FOPEN        = -5; { Can not open files }
  SIOFT_CANABORT     = -6; { Ymodem CAN signal abort }
  SIOFT_PROTOCOL     = -7; { Protocol checking error abort }
  SIOFT_SKIP         = -8; { Zmodem remote skip this send file }
  SIOFT_LACKRBUF     = -9; { Zmodem Recv-Buff size must >= 2K bytes }
  SIOFT_WIN32FAIL    = -10; (* OS fail }
  GetLastError to get the error code *)
  SIOFT_BOARDNOTSUPPORT = -11; { Board does not support this function}

Answer 9

type  IrqProc = procedure(port: Longint);stdcall;
  CallBackProc = function(len: Longint; rlen: Longint; buf: PChar; flen: Longint): Longint;stdcall;{Import routine from PComm.dll}
function sio_open(port: Longint): Longint; stdcall;
function sio_close(port: Longint): Longint; stdcall;
function sio_ioctl(port, baud, mode: Longint): Longint; stdcall;
function sio_flowctrl(port, mode: Longint): Longint; stdcall;
function sio_flush(port, func: Longint): Longint; stdcall;
function sio_DTR(port, mode: Longint): Longint; stdcall;
function sio_RTS(port, mode: Longint): Longint; stdcall;
function sio_lctrl(port, mode: Longint): Longint; stdcall;
function sio_baud(port, speed: Longint): Longint; stdcall;
function sio_getch(port: Longint): Longint; stdcall;
function sio_read(port: Longint; buf: PChar; len: Longint): Longint; stdcall;
function sio_linput(port: Longint; buf:PChar; len: Longint; term:Longint): Longint; stdcall;
function sio_putch(port, term: Longint): Longint; stdcall;
function sio_putb(port: Longint; buf:PChar; len: Longint): Longint; stdcall;
function sio_write(port: Longint; buf:PChar; len: Longint): Longint; stdcall;
function sio_putb_x(port: Longint; buf:PChar; len: Longint; tick:Longint): Longint; stdcall;
function sio_putb_x_ex(port: Longint; buf:PChar; len: Longint; tms:Longint): Longint; stdcall;
function sio_lstatus(port: Longint): Longint; stdcall;
function sio_iqueue(port: Longint): Longint; stdcall;
function sio_oqueue(port: Longint): Longint; stdcall;
function sio_Tx_hold(port: Longint): Longint; stdcall;
function sio_getbaud(port: Longint): Longint; stdcall;
function sio_getmode(port: Longint): Longint; stdcall;
function sio_getflow(port: Longint): Longint; stdcall;
function sio_data_status(port: Longint): Longint; stdcall;
function sio_term_irq(port: Longint; func: IrqProc; code: Byte): Longint; stdcall;
function sio_cnt_irq(port: Longint; func: IrqProc; count: Longint): Longint; stdcall;
function sio_modem_irq(port: Longint; func: IrqProc): Longint; stdcall;
function sio_break_irq(port: Longint; func: IrqProc): Longint; stdcall;
function sio_Tx_empty_irq(port: Longint; func: IrqProc): Longint; stdcall;
function sio_break(port, time: Longint): Longint; stdcall;
function sio_break_ex(port, time: Longint): Longint; stdcall;
function sio_view(port: Longint; buf: PChar; len: Longint): Longint; stdcall;
function sio_TxLowWater(port, size: Longint): Longint; stdcall;
function sio_AbortWrite(port: Longint): Longint; stdcall;
function sio_AbortRead(port: Longint): Longint; stdcall;
function sio_SetWriteTimeouts(port, timeouts: Longint): Longint; stdcall;
function sio_GetWriteTimeouts(port: Longint; var TotalTimeouts:Longint): Longint; stdcall;
function sio_SetReadTimeouts(port, TotalTimeouts, IntervalTimeouts: Longint): Longint; stdcall;
function sio_GetReadTimeouts(port: Longint; var TotalTimeouts, IntervalTimeouts: Longint): Longint; stdcall;
function sio_ActXon(port: Longint): Longint; stdcall;
function sio_ActXoff(port: Longint): Longint; stdcall;
function sio_FtASCIITx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtASCIIRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint; sec:Longint): Longint; stdcall;
function sio_FtXmodemCheckSumTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtXmodemCheckSumRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtXmodemCRCTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtXmodemCRCRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtXmodem1KCRCTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtXmodem1KCRCRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtYmodemTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtYmodemRx(port:Longint; var fname:PChar;fno:LongInt;func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtZmodemTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtZmodemRx(port:Longint; var fname:PChar;fno:LongInt;func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtKermitTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;
function sio_FtKermitRx(port:Longint; var fname:PChar;fno:LongInt;func:CallBackProc; key:Longint): Longint; stdcall;

Answer 10

implementation
function sio_open; external 'PComm.dll';
function sio_close; external 'PComm.dll';
function sio_ioctl; external 'PComm.dll';
function sio_flowctrl; external 'PComm.dll';
function sio_flush; external 'PComm.dll';
function sio_DTR; external 'PComm.dll';
function sio_RTS; external 'PComm.dll';
function sio_lctrl; external 'PComm.dll';
function sio_baud; external 'PComm.dll';
function sio_getch; external 'PComm.dll';
function sio_read; external 'PComm.dll';
function sio_linput; external 'PComm.dll';
function sio_putch; external 'PComm.dll';
function sio_putb; external 'PComm.dll';
function sio_write; external 'PComm.dll';
function sio_putb_x; external 'PComm.dll';
function sio_putb_x_ex; external 'PComm.dll';
function sio_lstatus; external 'PComm.dll';
function sio_iqueue; external 'PComm.dll';
function sio_oqueue; external 'PComm.dll';
function sio_Tx_hold; external 'PComm.dll';
function sio_getbaud; external 'PComm.dll';
function sio_getmode; external 'PComm.dll';
function sio_getflow; external 'PComm.dll';
function sio_data_status; external 'PComm.dll';
function sio_term_irq; external 'PComm.dll';
function sio_cnt_irq; external 'PComm.dll';
function sio_modem_irq; external 'PComm.dll';
function sio_break_irq; external 'PComm.dll';
function sio_Tx_empty_irq; external 'PComm.dll';
function sio_break; external 'PComm.dll';
function sio_break_ex; external 'PComm.dll';
function sio_view; external 'PComm.dll';
function sio_TxLowWater; external 'PComm.dll';
function sio_AbortWrite; external 'PComm.dll';
function sio_AbortRead; external 'PComm.dll';
function sio_SetWriteTimeouts; external 'PComm.dll';
function sio_GetWriteTimeouts; external 'PComm.dll';
function sio_SetReadTimeouts; external 'PComm.dll';
function sio_GetReadTimeouts; external 'PComm.dll';
function sio_ActXon; external 'PComm.dll';
function sio_ActXoff; external 'PComm.dll';
function sio_FtASCIITx; external 'PComm.dll';
function sio_FtASCIIRx; external 'PComm.dll';
function sio_FtXmodemCheckSumTx; external 'PComm.dll';
function sio_FtXmodemCheckSumRx; external 'PComm.dll';
function sio_FtXmodemCRCTx; external 'PComm.dll';
function sio_FtXmodemCRCRx; external 'PComm.dll';
function sio_FtXmodem1KCRCTx; external 'PComm.dll';
function sio_FtXmodem1KCRCRx; external 'PComm.dll';
function sio_FtYmodemTx; external 'PComm.dll';
function sio_FtYmodemRx; external 'PComm.dll';
function sio_FtZmodemTx; external 'PComm.dll';
function sio_FtZmodemRx; external 'PComm.dll';
function sio_FtKermitTx; external 'PComm.dll';
function sio_FtKermitRx; external 'PComm.dll';end.
设置如下
 port[i]:=ADOCOMSET.FieldByName('串口号').AsInteger;
 baud[i]:=ADOCOMSET.FieldByName('波特率').AsInteger;
 data_bit[i]:=ADOCOMSET.FieldByName('数据位').AsInteger;
 stop_bit[i]:=ADOCOMSET.FieldByName('停止位').AsInteger;
 parity[i]:=ADOCOMSET.FieldByName('奇偶校验').AsInteger;
 ret[i]:=Sio_Open(port[i]);
    if ret[i]<>sio_OK then
      begin
       Application.MessageBox(Pchar('串口COM'+inttostr(port[i])+'打开失败'),'警告',MB_OK);
        Exit;
      end
   else
      begin
       ret[i]:=sio_ioctl ( port[i], baud[i], parity[i] or data_bit[i] or stop_bit[i] );
       if ret[i]<>sio_ok then
          begin
            Application.MessageBox(Pchar('串口COM'+inttostr(port[i])+'设置失败'),'警告',MB_OK);
             Exit;
          end;
         sio_lctrl(port[i],C_DTR or C_RTS);
 get_port[i]:=sio_getch(port[i]);
 if (Get_Port[i]>=0) then
      Begin
        Char_Get_Port[i]:=Chr(Get_Port[i]);
      end;

Answer 11

用文件传输就可以了远程拨号连接对方pc，通过ftp将文件传输到对方pc。缺点，对文件的处理的及时性可能不高远程拨号连接对方pc，通过socket将数据传到对方，缺点，对数据包的格式定义要求比较高，还要考虑校验，加密等（）用modem直接数据传输，缺点，对数据包的格式定义要求比较高，还要考虑校验，加密等（）。线路杂音有影响

Answer 12

to feifa(孤程):谢谢,有没有解决方式的文字说明.to kuangning(郎之间): 谢谢, 文件传输如何控制双方的数据接收与发送,请说的
具体些,谢谢.

Answer 13

TO 郎之间:
   客户端的PC,和远程主机通过拨号建立连接,但并没有走Internet的道路,没有
连接入Internet,是否可以使用 ftp,socket通信方式?

Answer 14

如果客户端的PC和远程主机通过拨号建立连接后,不使用TCP/IP协议通信,而要使用自己定义的一套协议,应该使用什么方式来实现?串口通信,还是文件传输?

Answer 15

我做过你说的通信，当通过拨号建立连接以后，走tcp/ip还是比较好的，因为你只需要指定ip地址和端口号就可以了，并且tcp/ip非常稳定，我们在实际用的过程中，文件传输完毕，服务器处理结果可以直接返回，你需要做的很少，并且你可以对socket包进行加密等，所以还是建议你还是用Tserver，tclient，网上很多资源，再这个tcpip的基础上自己定义文件传输协议