Sorry your browser is not supported!

An error occurred in mnStartServer whilst binding a tcp socket at line __ of file ".\clSocket.cpp". Error code 10014 Version "Release v1.1.7"

Mn Start Server

  Message Str$(mn Get Error Code())
  Message mn Get Error Command()
  Message mn Get Error File()
  Message mn Get Error Full()
  Message Str$(mn Get Error Line())
  Message Str$(mn Get Error Mode())
  Message mn Get Error Operation()

Error whilst setting error mode, invalid mode specified.

Mn Start Server

Result = mn Start Server(0,50,0,0)

Error code 10014 Version "Release v1.1.7"

WSAEFAULT
10014 
Bad address.
The system detected an invalid pointer address in attempting to use a pointer argument of a call. This error occurs if an application passes an invalid pointer value, or if the length of the buffer is too small. For instance, if the length of an argument, which is a sockaddr structure, is smaller than the sizeof(sockaddr).
 

Result = mn Start Server(0,50,0,0)

` File Transfer Server
` This demonstrates how to set up a simple server
` that uses TCP to send a file to clients.
` Ensure that the file indicated by cFileName[] exists (default mnFiles.zip)

` Set the file name of the file to send
FileName$ = "mnFiles.zip"

` Set the local port of the server, this is the port
` that the server will use for both TCP and UDP
LocalPort = 6790

` Set the local IP of the server, this is the local IP
` that the server will use for both TCP and UDP
LocalIP$ = ""

` Set the maximum number of clients that can be
` connected at any one time
MaxClients = 50

` Set the number of threads that will be created
` to deal with incoming data. In most cases this
` should be set to the number of processors on your
` computer. MikeNet can determine this for you
` automatically if you set it to 0
NoThreads = 0

` Set the number of MikeNet instances to create.
NoInstances = 1;

` Create packet to store send data
SendPacket = mn create packet()

`Start MikeNet
mn Start NoInstances,NoThreads

` Set the local IP and port of the server
` Note: if we did not use this command then MikeNet
` would find a local IP and port to use automatically
mn Set Local 0,LocalIP$,LocalPort,"",0

` Disable TCP handshake
` This also disables UDP
` We do this simply because we don't need either
mn Disable TCP Handshake 0

mn Enable Message Boxes

` Attempt to start the server
Result = mn Start Server(0,MaxClients,0,0)

` If started successfully
if Result = 0
  print "Server started with ";
  print str$(mn Get Threads());
  print " thread(s) running"
` If failed to start
else
  print "Server failed to start"
  wait key
  end
endif

`Get size of file
FileSize = file size(FileName$)
` Open the file
open to read 1, FileName$

` If we managed to open the file
if file open(1) = 1
    ` Formulate a packet containing each byte of the file
    print "Loading ";
    print FileName$;
    print " into packet" 
    
    mn Set Memory Size SendPacket,FileSize
    for n = 0 to FileSize-1
       read byte 1, byRead
       mn Add Byte SendPacket, byRead
    next n

    print "File loaded"
    
    ` Close file now that we have finished extracting data from it
    close file 1

` If we failed to open the file
else
    print "Unable to open ";
    print FileName$;
    print "."
    wait key
    end
endif

` Now that the server is started we will loop checking for new connections
do
  ` Joining clients
  Joined as integer
  Joined = mn Client Joined(0)
  if Joined > 0
     print "A new client has joined. Client ID is: ";
     print str$(Joined)
     print "Sending file..."
     ` Send the file without deleting the packet so that
     ` it can be sent to other clients aswell
     ` Do not block as it may take some time for the packet
     ` to be sent     
     mn Send TCP 0,SendPacket,Joined,1,0
  endif

  ` Leaving clients
  Left = mn Client Left(0)
  if Left > 0
     print "Client ";
     print str$(Left);
     print " has disconnected"
  endif
loop

Result = mn Start Server(0,50,0,0)

mn start 0,0

for n = 0 to mn get local IP amount()-1
    print str$(n) + ": " + mn get local IP(n)
next n

print "Press any key to end..."
wait key
end

Message mn DNS("localhost")

mn Set Local 0,"127.0.0.1",2525,"127.0.0.1",2525

172.16.0.5

message get IP address$()

My IP address is: 172.16.0.5

mn start 0,0

for n = 0 to mn get local IP amount()-1
    print str$(n) + ": " + mn get local IP(n)
next n

print "Press any key to end..."
wait key
end

IP$ = "172.16.0.5"

mn toggle error mode 1
mn toggle error mode 2
mn start 1,0

` Display local interface information
print "Number of local interface: " + str$(mn Get Local IP Amount())

for n = 0 to mn get local IP amount()-1
 print " IP " + str$(n) + ": " + mn Get Local IP(n)
next n

` Start server without mnSetLocal
print
print "Binding without setting test 1"

mn Start Server 0,10,0,3
CheckError()

` Try to bind to each local interface in turn
for n = 0 to mn get local IP amount()-1
    mn finish -1
    mn start 1,0

    print
    print "Binding setting via stored local interface " + str$(n)
    
    mn set local 0, mn get local IP(n),14000, mn get local IP(n), 14000
    mn start server 0,10,0,3
    
    CheckError()
next n

mn finish -1
mn start 1,0

` Bind to hard coded address
print
print "Binding by hard coded address " + IP$
mn finish -1
mn start 1,0

mn set local 0, IP$, 14000, IP$, 14000
mn start server 0,10,0,3
CheckError()

mn finish -1
mn start 1,0

` Bind to local host, retrieving value from "localhost" domain name
localHost$ = mn DNS("localhost")
print
print "Binding to local host " + localHost$

mn set local 0,localHost$,14001,localHost$,14001
mn start server 0,10,0,3
CheckError()


mn finish -1
mn start 1,0

` Retrieve value from default "localhost" domain name incase value is incorrectly set above
localHost$ = "127.0.0.1"
print
print "Binding to local host " + localHost$

mn set local 0,localHost$,14000,localHost$,14000
mn start server 0,10,0,3
CheckError()

` End
print
print
print "Press a key to end..."
wait key
end

` Function prints details of any errors, if no errors then prints "Test success"
function CheckError()
    if mn get error flag() = 1
        print " Test failed:"
        print "  ";
        print mn Get Error Operation()
        print "  ";
        print mn Get Error Code()
        print "  ";
        print mn Get Error Line()
        print "  ";
        print mn Get Error File()
        
        mn clear error flag
    else
        print " Test success"
    endif
endfunction

mn Set Local

iReturn = mnCLR.ClientJoined(0)

   ' Setup server
        Dim iReturn As Integer = 0

        Dim RecvPacket As Long = mnCLR.CreatePacket()
        Dim SendPacket As Long = mnCLR.CreatePacket()
        mnCLR.SetMemorySize(SendPacket, 1024)

        mnCLR.Start(1, 0)

        ' Determine IP of local host
        Dim LocalHost As String = mnCLR.DNS_B("localhost")

        Dim profile As Long = mnCLR.CreateInstanceProfile()
        mnCLR.SetProfileModeUDP(profile, 2)

        mnCLR.SetProfileLocal(profile, LocalHost, 6565, LocalHost, 6565)
        mnCLR.SetProfileNumOperationsUDP(profile, 3)
        mnCLR.StartServer(0, 50, profile)

        Form2.Show()

        Do
            iReturn = mnCLR.ClientJoined(0) ' Error

            'If iReturn <> 0 Then ToolStripStatusLabel1.Text = "Status: Client Jointed: " + iReturn.ToString()

            'iReturn = mnCLR.RecvTCP(0, RecvPacket, cl) ' New clients
            'iReturn = mnCLR.ClientLeft(0) ' Leaving clients

            Application.DoEvents()
        Loop

' To be filled during connection
        Dim MaximumClients As Integer

        ' Main code
        '` Set UDP and TCP port of the server, which is 6789
        Dim ConnectPort As Integer = 6789

        ' Set timeout value which is the length of time
        ' in seconds that the command will wait for the
        ' connection to complete until giving up
        Dim Timeout As Integer = 4000

        'Set the number of threads that will be created
        ' to deal with incoming data. In most cases this
        'should be set to the number of processors on your
        ' computer. MikeNet can determine this for you
        ' automatically if you set it to 0
        Dim NoThreads As Integer = 0

        ' Set the number of MikeNet instances to create
        Dim NoInstances As Integer = 1

        ' Setup packets
        Dim SendPacket As Long = mnCLR.CreatePacket()
        Dim RecvPacket As Long = mnCLR.CreatePacket()
        mnCLR.SetMemorySize(SendPacket, 1024)

' Start MikeNet
        mnCLR.Start(NoInstances, NoThreads)

        'Get IP address to connect to via UDP and TCP
        Dim ConnectIP As String = "127.0.0.1"
        'Input("Enter the IP that you would like to connect to: ", ConnectIP)

        ' Try to connect
        Dim profile As Long = mnCLR.CreateInstanceProfile()
        Dim Connect As Integer = mnCLR.Connect(0, ConnectIP, ConnectPort, ConnectIP$, ConnectPort, Timeout, 1, profile)

iReturn = mnCLR.ClientJoined(0)