?? tcpdsample.htm
字號(hào):
<HTML><HEAD><TITLE>DOS Internet Programming APIs</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="He Lingsong" name=Author>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<META content=DOS,FTP,HTTP,email,smtp,web,www,server,tcp,wattcp,free
name=KeyWords></HEAD>
<BODY><B><FONT color=#cc0000>TCP服務(wù)器程序樣例：</FONT></B>
<BLOCKQUOTE><FONT color=#006600>#include <stdio.h></FONT> <BR><FONT
color=#006600>#include <string.h></FONT> <BR><FONT
color=#006600>#include <conio.h></FONT> <BR><FONT color=#006600>#include
<ctype.h></FONT> <BR><FONT color=#006600>#include <dos.h></FONT>
<BR><FONT color=#006600>#include "tcplib.h"</FONT><FONT color=#006600></FONT>
<P><FONT
color=#006600>//================================================</FONT>
<BR><FONT color=#006600>extern char tcpdebug;</FONT> <BR><FONT
color=#006600>extern long int tcptime;</FONT> <BR><FONT
color=#006600>TCPSocket tcphl;</FONT> <BR><FONT
color=#006600>//================================================</FONT><FONT
color=#006600></FONT>
<P><FONT color=#006600>void ServeTcp(void)</FONT> <BR><FONT color=#006600>{int
len;</FONT> <BR><FONT color=#006600> char buf[512],buf1[512];</FONT><FONT
color=#006600></FONT>
<P><FONT color=#006600> while (tcp_kernal(tcphl))</FONT> <BR><FONT
color=#006600> {len=0;</FONT> <BR><FONT
color=#006600> if (peer_tcp_data(tcphl))</FONT> <BR><FONT
color=#006600>
{len=read_tcp(tcphl,buf,500);</FONT> <BR><FONT
color=#006600> buf[len]=0;</FONT>
<BR><FONT color=#006600>
printf("\n%s",buf);</FONT> <BR><FONT
color=#006600> }</FONT> <BR><FONT
color=#006600> if (len>0)</FONT> <BR><FONT
color=#006600> {strcpy(buf1,"TCP Server for
DOS");</FONT> <BR><FONT color=#006600>
write_tcp(tcphl,buf1,strlen(buf1),10);</FONT> <BR><FONT
color=#006600> close_tcp_socket(tcphl);</FONT>
<BR><FONT color=#006600> return;</FONT>
<BR><FONT color=#006600> }</FONT> <BR><FONT
color=#006600> }</FONT> <BR><FONT color=#006600> return;</FONT>
<BR><FONT color=#006600>}</FONT><FONT color=#006600></FONT>
<P><FONT
color=#006600>//=============================================================</FONT>
<BR><FONT color=#006600>void starttcp(void)</FONT> <BR><FONT
color=#006600>{printf("\nTCP Server for DOS -- He Lingsong,
1/3/2001\n");</FONT> <BR><FONT color=#006600> tcphl=new_socket();</FONT>
<BR><FONT color=#006600> listen_tcp(tcphl,6666);</FONT> <BR><FONT
color=#006600>}</FONT><FONT color=#006600></FONT>
<P><FONT color=#006600>void releasetcp(void)</FONT> <BR><FONT
color=#006600>{if (tcphl!=NULL) {close_tcp_socket(tcphl);}</FONT> <BR><FONT
color=#006600> delay(100);</FONT> <BR><FONT color=#006600> if
(tcphl!=NULL) release_socket(tcphl);</FONT> <BR><FONT
color=#006600>}</FONT><FONT color=#006600></FONT>
<P><FONT color=#006600>int checktcp(void)</FONT> <BR><FONT color=#006600>{if
(!tcp_kernal(tcphl))
//create Listen</FONT> <BR><FONT color=#006600>
{listen_tcp(tcphl,6666);return 0;}</FONT> <BR><FONT color=#006600> if
(open_success_tcp(tcphl)) return 1;</FONT> <BR><FONT
color=#006600> return 0;</FONT> <BR><FONT color=#006600>}</FONT><FONT
color=#006600></FONT>
<P><FONT
color=#006600>//========================================================</FONT>
<BR><FONT color=#006600>int main(void)</FONT> <BR><FONT color=#006600>{int
rc;</FONT> <BR><FONT color=#006600> init_tcplib();</FONT> <BR><FONT
color=#006600> starttcp();</FONT><FONT color=#006600></FONT>
<P><FONT color=#006600> while (1)</FONT> <BR><FONT color=#006600>
{if (kbhit())</FONT> <BR><FONT color=#006600> if (getch() ==
27)</FONT> <BR><FONT color=#006600>
{releasetcp();</FONT> <BR><FONT
color=#006600> return 0;</FONT> <BR><FONT
color=#006600> }</FONT> <BR><FONT
color=#006600>
rc=checktcp();
//Monitoring FTP user login</FONT> <BR><FONT color=#006600> if
(rc==1) ServeTcp();</FONT> <BR><FONT color=#006600> }</FONT> <BR><FONT
color=#006600>}</FONT></P></BLOCKQUOTE><B><FONT
color=#cc0000></FONT></B><BR><B><FONT color=#cc0000></FONT></B>
<BLOCKQUOTE> <BR> </BLOCKQUOTE> </BODY></HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -