Code: Select all
ProcedureDLL N_Init()
If InitNetwork() = 0
MessageRequester("Network Error","There was a error")
EndIf
EndProcedure
ProcedureDLL N_Connect(serverAddress.s)
port = 4010
Global ConnectionID = OpenNetworkConnection(serverAddress.s,port)
MessageRequester("Demo", "This is a beta dll and should not be in public domain.")
MessageRequester("",Str(ConnectionID))
EndProcedure
ProcedureDLL N_SendString(stringToSend.s)
MessageRequester("",Str(ConnectionID))
; SendNetworkString(,"stringToSend.s")
EndProcedure
Code: Select all
If OpenLibrary(0,"network.dll")
CallFunction(0,"N_Init")
CallFunction(0,"N_Connect","127.0.0.1")
If CallFunction(0,"N_SendString","Hello World")
MessageRequester("","Success!")
Else
MessageRequester("","Failed")
EndIf
EndIf