FORTRAN写TCP/IP协议

charles

vvt 发表于 2021-3-31 19:22
Fortran语法里没有这些内容，就像C语言，C++语言也没有这些内容一样。

我也不是很推荐用 Fortran 来完成这 ...

这是SocketClass里面的部分代码
    sockaddrin % sin_family = af_inet
    sockaddrin % sin_port = htons( port )
    sockaddrin % sin_addr % s_addr = inet_addr( host( 1 : len_trim(host) ) // c_null_char )
    iRes = Connect(this%hSocket, loc(sockaddrin), c_sizeof(sockaddrin))

这是之前您的代码：
    ConnectionInfo.sockaddrin.sin_family = af_inet
    ConnectionInfo.sockaddrin.sin_port = htons( port )
    ConnectionInfo.sockaddrin.sin_addr%s_addr = inet_addr( host( 1 : len_trim(host) ) )
    status = Connect(hSocket, %ref(ConnectionInfo%sockaddr), sizeof(ConnectionInfo%sockaddr))

对比一下，不难看出，在连接部分以前采用的是sockaddr，但是在SocketClass中采用的是sockaddrin，这里是否是笔误呢？