Method Close()
      If Self.Socket <> INVALID_SOCKET_ Then
         ' No receiving and sending
         shutdown_(Self.Socket, SD_BOTH)
         closesocket_(Self.Socket)

         Self.Socket = INVALID_SOCKET_
      EndIf
   End Method

SuperStrict

Framework BRL.Blitz

Type TBla
   Global cnt:Int

   Method New()
      cnt :+ 1
      WriteStdout("Neuer!~n")
   EndMethod
   Method Delete()
      cnt :- 1
      WriteStdout("Weg, Noch da: "+cnt+"~n")
   EndMethod
EndType


Function TuWas()
   Local bla:TBla = New TBla
EndFunction

For Local i:Int = 0 Until 100 '1000
   TuWas()
   'GcCollect()
Next

End

SuperStrict


Framework BRL.System
?win32   
   Import BRL.Win32MaxGUI
?linux
   Import BRL.FltkMaxGUI
?
Import BRL.EventQueue
Import Vertex.BNetEx


Type TServer      '------------------------------------------ Server-Type -------------------------------------------   #
   Const   Host      :String      = "85.25.136.48"      , ..
         Port      :Int      = 1234               , ..
         TimeOut      :Int      = 5000
   
   
   Global   Stream      :TTCPStream   = Null               , ..
         IP         :Int      = 0
   
   
   
   Function Connect()
      IP   = TNetwork.IntIP( Host )
      
      Try
         
         Stream   = New TTCPStream
         
         If Not Stream.Init()               Then   Throw("Can't create socket")
         
         Stream.SetTimeouts( 10, TimeOut )
         If Not Stream.SetLocalPort(3434)          Then    Throw("Can't set local port")
         Print Stream.GetLocalPort()
         
         Stream.SetRemoteIP( IP )
         Stream.SetRemotePort( Port )
         If Not Stream.Connect()             Then    Throw("Can't connect to host")
         
         TClient.Write "Connected to Server " + Host + ":" + Port
         
         
      Catch Exception:Object
         
         Notify("Error: ~n"+Exception.ToString())
         End
         
      End Try
   End Function
   
   
   Function Close()
      If Stream Then Stream.Close()
      End
   End Function
   
End Type



Type TClient
   Const    Version      :String      = "0.1.0005"                     , ..
         Title      :String      = "BMax-Chat v." + TClient.Version
   
   
   
   Function Write( Txt:String )
      AddTextAreaText( TWindow.ChatArea, Txt+"~n" )
   End Function
   
   
   Function SendMsg( Txt:String )
      If Txt <> "" Then
         TServer.Stream.WriteLine( Txt )
         While TServer.Stream.SendMsg() ; Wend
      EndIf
   End Function
   
   
   Function CheckMsg()
      Local Result   :Int   = 0
      
      If TServer.Stream.GetState() <> 1 Then
         Notify("Error: ~nStream terminated!")
         TServer.Close()
      EndIf
      
      Result   = TServer.Stream.RecvAvail()
      If Result = -1 Then
      
            Notify("Error: ~nSocket Error")
            
      ElseIf Result > 0 Then
            While TServer.Stream.RecvMsg() ; Wend
            
            If TServer.Stream.Size() > 0 Then
               While Not TServer.Stream.Eof()
                  Write( TServer.Stream.ReadLine() )
               Wend
            EndIf
      EndIf
   End Function
End Type



Type TWindow
   Global    Width      :Int      = 800                                          , ..
         Height      :Int      = 600                                          , ..
         PosX      :Int      = (GadgetWidth(Desktop())  / 2)   -   (TWindow.Width  / 2)   , ..
         PosY      :Int      = (GadgetHeight(Desktop()) / 2)   -   (TWindow.Height / 2)   , ..
         Style      :Int      = WINDOW_TITLEBAR|WINDOW_RESIZABLE|WINDOW_CLIENTCOORDS      , ..
         BHeight      :Int      = 20                                          , ..
         BWidth      :Int      = 100                                          , ..
         BStyle      :Int      = BUTTON_OK                                       , ..
         TStyle      :Int      = TEXTAREA_WORDWRAP|TEXTAREA_READONLY
         
   
   Global   Window      :TGadget   = Null         , ..
         ChatArea   :TGadget   = Null         , ..
         ChatPanel   :TGadget   = Null         , ..
         ChatField   :TGadget   = Null         , ..
         ChatButton   :TGadget   = Null
         
   
   Function Start()
      
      AppTitle = TClient.Title
      
      Window      = CreateWindow( TClient.Title, PosX, PosY, Width, Height, Null, Style )
      
      ChatArea   = CreateTextArea( 0,0, Width, Height-BHeight, Window, TStyle )
      
      ChatPanel   = CreatePanel( 0, 0, Width, Height, Window )
      
      ChatField   = CreateTextField( 0, Height-BHeight, Width-BWidth, BHeight, ChatPanel )
      
      ChatButton   = CreateButton( "Send", Width-BWidth, Height-BHeight, BWidth, BHeight, ChatPanel, BStyle)
      
   End Function
   
End Type




TWindow.Start()
TServer.Connect()




While Not AppTerminate()
   
   TClient.CheckMsg()
   
   Select PollEvent()
      Case EVENT_GADGETACTION
         
         Select EventSource()
            Case TWindow.ChatButton
               TClient.SendMsg( GadgetText( TWindow.ChatField ) )
               SetGadgetText( TWindow.ChatField, "" )
               
         End Select
         
         
      Case EVENT_WINDOWCLOSE
         TServer.Close()
         
   End Select
   
   Delay 25
   
Wend
End