Strict
Import pub.win32
'==============================================================================================
'Konstanten
'==============================================================================================
Const SOC_BYTE = 1
Const SOC_DOUBLE = 5
Const SOC_FLOAT = 4
Const SOC_HANG = 16
Const SOC_INT = 3
Const SOC_LISTEN = 8
Const SOC_MULTICAST = 32
Const SOC_SHORT = 2
Const SOC_STRING = 0
Const SOC_TCP = 1
Const SOC_THREAD = 4
Const SOC_UDP = 2
'==============================================================================================
'Variablen
'==============================================================================================
Global SocFileName:String = "soc.dll"
Global SocFileHandle:Int = LoadLibraryA(SocFileName)

If SocFileHandle = 0
   Throw "Soc.dll not initialized!"
EndIf
'==============================================================================================
'DLL auslesen
'==============================================================================================
'Buffer
Global _buffer_create() = GetProcAddress(SocFileHandle,"BufferCreate")
Global _buffer_destroy(buf) = GetProcAddress(SocFileHandle,"BufferDestroy")
Global _buffer_add(buf,datatype,number,str$z) = GetProcAddress(SocFileHandle,"BufferAdd")
'Sockets
Global _soc_create(mode,port,ip$z) = GetProcAddress(SocFileHandle,"SocCreate")
Global _soc_destroy(soc) = GetProcAddress(SocFileHandle,"SocDestroy")
Global _soc_valid(soc) = GetProcAddress(SocFileHandle,"SocValid")
Global _soc_accept(soc) = GetProcAddress(SocFileHandle,"SocAccept")
Global _soc_peek(soc,datatype,size) = GetProcAddress(SocFileHandle,"SocPeek")
Global _soc_send(soc,buffer,port,ip$z) = GetProcAddress(SocFileHandle,"SocSendBuffer")
Global _soc_send_token(soc,str$z,delimiter$z,port,ip$z) = GetProcAddress(SocFileHandle,"SocSendToken")
Global _soc_receive_real(soc,datatype) = GetProcAddress(SocFileHandle,"SocReceiveReal")
Global _soc_receive_string$z(soc,datatype,size) = GetProcAddress(SocFileHandle,"SocReceiveString")
Global _soc_receive_token$z(soc,delimiter$z) = GetProcAddress(SocFileHandle,"SocReceiveToken")
'Zeugz
Global _sha256$z(str$z) = GetProcAddress(SocFileHandle,"Sha256")
Global _internet_status() = GetProcAddress(SocFileHandle,"InternetStatus")
Global _soc_ipaddress$z(soc) = GetProcAddress(SocFileHandle,"SocIpAddress")
'==============================================================================================
'Funktionen
'==============================================================================================
':::::::::::::::::: BUFFER
Function Buffer_Create()
   Return _buffer_create()
EndFunction

Function Buffer_Destroy(buf:Int)
   Return _buffer_destroy(buf)
EndFunction

Function Buffer_Add(buf:Int,datatype:Int,number:Int,str:String = "")
   Return _buffer_add(buf,datatype,number,str)
EndFunction
':::::::::::::::::: SOCKETS
Function Soc_Create(mode:Int,port:Int,ip:String = "")
   Return _soc_create(mode,port,ip)
EndFunction

Function Soc_Destroy(soc:Int)
   Return _soc_destroy(soc)
EndFunction

Function Soc_Accept(soc:Int)
   Return _soc_accept(soc)
EndFunction

Function Soc_Peek(soc:Int,datatype:Int,size:Int = 0)
   Return _soc_peek(soc,datatype,size)
EndFunction

Function Soc_Send(soc:Int,buffer:Int,port:Int = Null,ip:String = Null)
   Return _soc_send(soc,buffer,port,ip)
EndFunction

Function Soc_Send_Token(soc:Int,str:String,delimiter:String = "~n",port:Int = Null,ip:String = Null)
   Return _soc_send_token(soc,str,delimiter,port,ip)
EndFunction

Function Soc_Receive_Real:Int(soc:Int,datatype:Int)
   If(datatype<>SOC_STRING)
      Return _soc_receive_real(soc,datatype)
   Else
      Return 0
   EndIf
EndFunction

Function Soc_Receive_String:String(soc:Int,datatype:Int,size:Int)
   If(datatype=SOC_STRING)
      Return _soc_receive_string(soc,datatype,size)
   Else
      Return String(_soc_receive_real(soc,datatype))
   EndIf
EndFunction

Function Soc_Receive_Token:String(soc:Int,delimiter:String)
   Return _soc_receive_token(soc,delimiter)
EndFunction

Function Soc_Valid(soc:Int)
   Return _soc_valid(soc)
EndFunction
':::::::::::::::::: ZEUGZ
Function Sha256:String(str:String)
   Return _sha256(str)
EndFunction

Function Soc_IpAddress:String(soc:Int)
   Return _soc_ipaddress(soc)
EndFunction

Function Internet_Status:Int()
   Return _internet_status()
EndFunction