PureBoard

Code: Alles auswählen

Procedure OpenNetworkConnectionUDP(ServerName$, Port.l)
  !Conn equ Esp+8
  !Wsa  equ Esp+24
  !Sock equ Esp+424
  
  WsaData.WSADATA
  Connection.SOCKADDR_IN
  Sock.l
    
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  !if ~ defined _gethostbyname@4 | defined @f
  !extrn _gethostbyname@4 
  !@@:
  !end if
  ;
  !if ~ defined _WSAStartup@8 | defined @f
  !extrn _WSAStartup@8
  !@@:
  !end if
  ;
  !if ~ defined _socket@12 | defined @f
  !extrn _socket@12
  !@@:
  !end if
  ;
  !if ~ defined _htons@4 | defined @f
  !extrn _htons@4
  !@@:
  !end if
  ;
  !if ~ defined _connect@12 | defined @f
  !extrn _connect@12
  !@@:
  !end if
  ;
  !if ~ defined _WSACleanup@0 | defined @f
  !extrn _WSACleanup@0
  !@@:
  !end if
  
  ;;;;;;;;;;;;;;;;;;
  !MOV    Eax, [Esp]
  !OR     Eax, Eax
  !JZ     @f
  !PUSH   Eax
  !CALL   _gethostbyname@4 
  !OR     Eax, Eax
  !JZ     @f
  !MOVSX  Ebx, word [Eax+8]
  !CMP    Ebx, 2
  !JNE    @f
  !MOV    Ecx, [Eax+12]
  !MOV    Ecx, [Ecx]
  !MOV    Ecx, [Ecx]  
  !MOV    [Conn+4], Ecx  
  !LEA    Eax, [Wsa]
  !PUSH   Eax
  !PUSH   $0002
  !CALL   _WSAStartup@8
  !OR     Eax, Eax
  !JNZ    @f  
  !CMP    byte [Wsa], 2
  !JL     @f
  !PUSH   0
  !PUSH   2
  !PUSH   2
  !CALL   _socket@12
  !CMP    Eax, -1
  !JE     @f    
  !MOV    [Sock], Eax
  !MOV    word [Conn], 2
  !PUSH   dword [Esp+4]
  !CALL   _htons@4
  !MOV    word [Conn+2], ax
  !MOV    Eax, dword [Sock]
  !PUSH   dword 16
  !LEA    Eax, [Conn+4]
  !PUSH   Eax
  !PUSH   dword [Sock+8]
  !CALL   _connect@12
  !CALL   _WSACleanup@0
  !MOV    Eax, [Sock]
  ProcedureReturn
  !@@:
  !CMP    byte [Wsa], 0
  !JE     @f
  !CALL   _WSACleanup@0
  !@@:
  
  ;;;;;;;;;;;;;
  !Restore Conn
  !Restore Wsa
  !Restore Sock
EndProcedure


InitNetwork()

ServerID = OpenNetworkConnectionUDP("localhost", 777)
If ServerID
  Debug SendNetworkString(ServerID, "test")  
  Debug SendNetworkData(ServerID, AllocateMemory(7), 7)
  CloseNetworkConnection(ServerID)
EndIf