如何使用unix网络编程第三版的源码

unix网络编程书中所有代码都基于它提供的头文件和库。所以学习时要用书中的代码做练习就必须配置好他需要的环境。

首先到 ht tp:/ /ishare.iask.sin a.c om.c n/f/1323 85 21.ht m l?sudaref=blog.cs dn.net&retcode=0 下载源码包

第一步：在终端中进入upnv13e目录，然后执行代码：

./configure

第二步：这里有问题及解决方法

cd lib

make（如果报如下错误： inet_ntop.c:61: error: argument 'size' doesn't match prototype

/usr/include/arpa/inet.h:153: error: prototype declaration

inet_ntop.c第61行 size_t size ->改成 socklen_t size）

第三步：这一步没有问题

cd ../libfree

make

第四步：

cd ../libgai

make

cd .. //回到unpv13e目录

然后拷贝生成的ku到系统库目录：

sudo cp libunp.a /usr/lib

sudo cp libunp.a /usr/lib32

第五步：修改unp.h并将其和config.h拷贝到/usr/include中，为了以后include方便

vim lib/unp.h

sudo cp lib/unp.h /usr/include

sudo cp config.h /usr/include

以后编译代码的时候加上-lunp链接我们的库。（貌似只能用gcc，不能用g++）

这个是我以前学习的一个实例。希望对你有帮助！！！

用VB实现客户——服务器（TCP/IP）编程实例

-

现在大多数语言都支持客户－服务器模式编程，其中VB给我们提供了很好的客户－服务器编程方式。下面我们用VB来实现TCP／IP网络编程。

TCP／IP协议是Internet最重要的协议。VB提供了WinSock控件,用于在TCP／IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时，其中一个必须创建Socket服务器侦听，而另一个必须创建Socket客户去连接服务器。这样两个程序就可以进行通信了。

1．创建服务器，首先创建一个服务端口号。并开始侦听是否有客户请求连接。

建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)

添加两文本框Text1,Text2,和一按钮Command1

Private Sub Form_Load()

SockServer.LocalPort = 2000 ′服务器端口号,最好大于1000

SockServer.Listen ′开始侦听

End Sub

Private Sub Form_Unload(Cancel As Integer)

SockServer.Close

End Sub

Private Sub SockServer_Close()

SockServer.Close

End Sub

Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)

SockServer.Close

SockServer.Accept requestID ′表示客户请求连接的ID号

End Sub

′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。

Private Sub SockServer_Data

Arrival(ByVal bytesTotal As Long)

Dim s As String

SockServer.GetData s

Text1.Text = s

End Sub

当我需要向客户发送数据时，只需调用SendData方法。

Private Sub Command1_Click()

SockServer .SendData Text2.Text

text1.text = text2.text

text2.text = ""

End Sub

2．创建客户。要创建客户连接服务器，首先设置服务器主机名，如IP地址、域名或计算机名，然后设置服务器端口，最后连接服务器。

建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)，取名为：SockC1。添加两文本框Text1,Text2,和一按钮Command1

Private Sub Form_Load()

dim my as string

my = SockCl.RemoteHostIP

SockCl.RemoteHost = my

′表示服务器主机名

SockCl.RemotePort = 2000

′表示服务器端口名

SockCl.Connect

′连接到服务器

End Sub

Private Sub Form_Unload(Cancel As Integer)

SockCl.Close

End Sub

Private Sub SockCl_Close()

SockCl.Close

End Sub

Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)

Dim s As String

SockCl.GetData s ′接收数据到文本框中

Text1.Text = s

End Sub

Private Sub Command1_Click()

SockCl.SendData Text2.Text ′向服务器发送数据

text1.text = text2.text

text2.text = ""

End Sub

3．进行通信。把这两个窗体分别编译成两个EXE文件，服务器Server.exe和客户Client.exe程序，并把它们分别安装在服务器端和客户端，这样就可以实现两者通信了。

------------------------------------整理后的代码如下-------------------------------

Private Sub Form_Load()

Dim my As String

my = SockCl.RemoteHostIP

SockCl.RemoteHost = my

SockCl.RemotePort = 2000

SockCl.Connect

End Sub

Private Sub Form_Unload(Cancel As Integer)

SockCl.Close

End Sub

Private Sub SockCl_Close()

SockCl.Close

End Sub

Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)

Dim s As String

SockCl.GetData s

Text1.Text = s

End Sub

Private Sub Command1_Click()

SockCl.SendData Text2.Text

Text1.Text = Text2.Text

Text2.Text = ""

End Sub

Private Sub Form_Load()

SockServer.LocalPort = 2000

SockServer.Listen

End Sub

Private Sub Form_Unload(Cancel As Integer)

SockServer.Close

End Sub

Private Sub SockServer_Close()

SockServer.Close

End Sub

Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)

SockServer.Close

SockServer.Accept requestID

End Sub

Private Sub Command1_Click()

SockServer.SendData Text2.Text

Text1.Text = Text2.Text

Text2.Text = ""

End Sub

Private Sub SockServer_DataArrival(ByVal bytesTotal As Long)

Dim s As String

SockServer.GetData s

Text1.Text = s

End Sub

if Request.QueryString("link")<>"" then '如果link参数不为空值

linkpath=Request.ServerVariables("Query_String") '获得所有参数字串即"?"后面的部分,如xxx.asp?a=1&b=2 linkpath的值就是a=1&b=2

pos=Instr(linkpath,"link=") '获得 字串 link= 在linkpath中的位置

linkpath=right(linkpath,len(Request.ServerVariables("Query_String"))-pos-4)

'len(Request.ServerVariables("Query_String"))-pos-4 '获得 字串 link以后的字串,包含link 然后-4 得到=的距左的位置,再Rigth取得=后边的字串

Response.Redirect(linkpath) '浏览器转向

else

Response.Redirect("main.asp") '同上

end if

写这代码的人闲的? 得到的结果就相当于Request.QueryString("link")的值

等同以下代码

if Request.QueryString("link")<>"" then

Response.Redirect(Request.QueryString("link"))

else

Response.Redirect("main.asp")

end if

---