FORTRAN写TCP/IP协议

vvt

Fortran语法里没有这些内容，就像C语言，C++语言也没有这些内容一样。

我也不是很推荐用 Fortran 来完成这些事情。

如果你非要做，可以考虑封装一下操作系统的 socket 库。比如 windows 的 winsocket。

socket 的内容比较多。有 TCP，UDP 两种协议，还有客户端和服务器端。单播，组播等等。也不是三言两语可以说清楚。

很久以前，我封过一个简单的。需要 IVF 编译器才能正常编译使用。下面的范例，是做为 TCP 客户端的。其他的你看看代码，应该也容易写出来。

[Fortran] 纯文本查看 复制代码

Program Main
  Use ws2_32
  use SocketClass
  implicit none
  type(TCP_Socket) :: conn
  character(len=15) :: IP
  integer :: j
  IP = "127.0.0.1"
  j = Socket_Init()
  j = conn%Conn( SOCK_STREAM , IPPROTO_TCP , IP , 4488 )
  write(*,*) j
  j = conn%Send("Hello",5)  
  write(*,*) j
  j = conn%DisConn()
  call Socket_UnInit()
End Program Main