fortran语言实现socket通信/winsock

YHWHIT

fortran语言实现tcpip功能，用socket选项实现实现数据交换。比如在同一台电脑中同时使用fortran语言编写的程序和c++语言编写的程序，实现两个程序之间的数据交换。c语言中有socket选项，fortran语言如何实现呢？

YHWHIT

vvt 发表于 2015-7-27 22:02
首先你要知道，语言本身并没有，也不会有socket通讯功能。
其实C语言本身也不规定如何使用 socket，它只规 ...

非常感谢您.
我现在刚开始接触这方面的知识，所以看到c++书中有socket这类的东西，而fortran语言书中却没有介绍，所以有这种疑惑。
我用的是win7系统，然后装了intel fortran，集成到vs上面。
这几天在查阅这方面的资料，网上这方面相关的资料很少。请问您有这方面相关的资料吗？或者说我去看一些什么样的资料？
不胜感谢！

YHWHIT

vvt 发表于 2015-7-28 08:19
C++的书讲到 socket 也是正常的，但应该会告诉你，这是具体实现，而非 C++ 的语法。
我不清楚你看到的部分 ...

嗯嗯 好的，谢谢指教。我先去学习winsock。

YHWHIT

vvt 发表于 2015-7-28 08:19
C++的书讲到 socket 也是正常的，但应该会告诉你，这是具体实现，而非 C++ 的语法。
我不清楚你看到的部分 ...

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

 subroutine exchangedata(iDof,iblock,dpred,rfoutput)
      use ws2_32
      use kernel32

      character*500 dpred
      character*500 d
      integer iDof,iblock
      character*500 rfoutput
      dimension fdpred(iblock)


      type t_sockaddr_union
          sequence
          union
              map
                  type(t_sockaddr_in)sockAddrIn
              end map
              map
                  type(t_sockaddr)sockAddr
              end map
          end union
      end type t_sockaddr_union

      parameter(iwinsock_v2_2=x'202',isuccess=0)  
      type(t_wsadata) WSAInfo !版本信息结构
      type (t_sockaddr_union) ConnectionInfo !Client_add

      type T_client_server_message
          union
              map
                  character*(500) buffer
              end map
              map
                  character*(500) bufferout
              end map
          end union
      end type
      type(T_client_server_message) ClientServerMessage

      Character(len=15) host
      Integer(kind=2) iport


c**************************************************************************       

         ! Initialize Winsock v2
         istatus=WSAStartup(iwinsock_v2_2,WSAInfo)
      If (istatus.NE.isuccess)then
         write(*,*)'WSAStartup-',istatus
      stop
      end if

         ! 创建套接字
      isender = socket( af_inet , SOCK_STREAM , ipproto_tcp )
      if (isender.EQ.invalid_socket) then
       write(*,*)'socket-',invalid_socket
       istatus=WSACleanup()
      end if

        !设置连接地址
      host='127.0.0.1'
      iport=5001


      ConnectionInfo%sockaddrin%sin_family = af_inet
      ConnectionInfo%sockaddrin%sin_port = htons( iport )
      ConnectionInfo%sockaddrin%sin_addr%s_addr =
     *        inet_addr( host( 1 : len_trim(host) ) )
      istatus = connect(isender, %ref(ConnectionInfo%sockaddr), 
     *         sizeof(ConnectionInfo%sockaddr))
      If (istatus.EQ.socket_error) then
      write(*,*)"连接失败"
      end if
c*****************************************************************************************
      ! 接收数据
      ireceivelen=recv(isender,ClientServerMessage%buffer,500,0)
         if(ireceivelen<0)then
          write(*,*)"连接失败"
          stop
         else
             dpred=ClientServerMessage%buffer
             write(*,*)"sever say:"
             write(*,*) dpred
             read(dpred,*) fdpred
             write(*,*) fdpred
         end if

c***********************************************************************************         

         ! 发送数据
      write(*,*)"please enter message:"
      write(*,*) rfoutput
      ClientServerMessage%bufferout=rfoutput
      isendlen=send(isender,ClientServerMessage%bufferout,500,0)
      write(*,*) ClientServerMessage%bufferout
      rfoutput=ClientServerMessage%bufferout
      write(*,*) rfoutput
      if(isendlen<0)then
          write(*,*)"连接失败"
      end if

             istatus=closesocket(isender)
             istatus=WSACleanup()

      end subroutine

您好，这是我看着网上编的一个子程序，但是在传输数据时出现了问题。传回来的字符串类型，但是字符串后面有很多空格。然后我怎样将字符串类型转化转化为一个向量。同时一个数据向量怎样发送出去呢？

YHWHIT

楚香饭 发表于 2015-8-10 15:33
你定义的 character*(500) bufferout 就是字符串啊，所以当然就是字符串了。
fortran 直接操作字符串会在后 ...

恩恩，您的这个有点高级，看不太懂。
我的Log文件里面的文本是这样的：


sever say:
0.00012393  0.00012393  0.00012393  0.00012393
@    牫=    l薰     8?   
  葕    膴    ?=     :=    `:=     薰     `?     >=    @==         
   ?       @       @?    €?    `?    @p3                 
            
    ?       ?6     ?    8&     ?   
                               劺4
            ?6                  ?              `B+           €?    来?
      拇?     `?    却?     €B    ?     q〩            ?              ?
                     ?   


我只是需要前面的四个数，然后后面的从matlab输过来时时空格，不知为啥就乱码了。我只想提取前面的数据组成一个实型的向量，这个该怎么解决一下？

YHWHIT

vvt 发表于 2015-8-11 08:24
我不知道你的发送方是什么，代码是怎么样的。
从表现来看，后面的不是文本内容，是二进制内容。 ...

发送方是matlab，代码如下：
fwrite(Tcpsever,num2str(dpredout'));
其中dpredout是一个1*4向量，转化为字符串发送。
按理来说后面的应该是空格才对，却不知为何乱码了。然后我想读取空格前面的那些数据，然后存到一个向量里面。这该怎么做？

YHWHIT

楚香饭 发表于 2015-8-11 12:58
我觉得最好不要用字符串发送。都是数据，用二进制多好。
干嘛要转换成字符串，然后接收以后再转换回来呢？ ...

嗯哪  谢谢
对二进制不太了解，我先用字符串做做。

YHWHIT

楚香饭 发表于 2015-8-11 12:58
我觉得最好不要用字符串发送。都是数据，用二进制多好。
干嘛要转换成字符串，然后接收以后再转换回来呢？ ...

代码如下：
        ! 接收数据
      ireceivelen=recv(isender,ClientServerMessage%buffer,500,0)
         if(ireceivelen<0)then
          write(*,*)"连接失败"
          stop
         else
             dpred=ClientServerMessage%buffer
             write(*,*)"sever say:"
             write(*,*) dpred
             write(*,*) ClientServerMessage%buffer
         end if
      
      
      ! 发送数据
      write(*,*)"please enter message:"
      ClientServerMessage%bufferout=rfoutput
      isendlen=send(isender,ClientServerMessage%bufferout,500,0)
      write(*,*) ClientServerMessage%bufferout
      if(isendlen<0)then
          write(*,*)"连接失败"
      end if为什么先发送数据，后接收不好使？先发送那面收不到
如果改为先接收（后面不变），再发送，再接收却又好使，那面也能收到。

YHWHIT

fcode 发表于 2015-8-13 17:18
winsock 的发送接收，有 TCP 和 UPD 两种。
其中 UDP 是没有反馈信息的，发送方只管发送，不知道接收方是否 ...

嗯那，我用的就是tcp
只是同样的代码，如果我先发送，再接收，不成功
如果把发送代码复制在前，接收，然后再发送，却是成功了。