Hey, I am getting a NilObjection on "This Line!!!",
it's being run as a console application...
App.Run:
Function Run(args() as String) As Integer
dim mMyApp as MApp_Class
mMyApp = new MApp_Class
dim ss as web_ServerSocket_Class
ss = new web_ServerSocket_Class
mMyApp.main_web_Ss = ss
mMyApp.main_web_Ss.Port = 3123
mMyApp.main_web_Ss.MaximumSocketsConnected = 50
mMyApp.main_web_Ss.MinimumSocketsAvailable = 5
//mMyApp.main_web_Ss.networkInterface =
system.getNetworkInterface(0)
mMyApp.main_web_Ss.Listen
mMyApp.myInitialize
do
DoEvents
loop until mMyApp.Tick //This Line!!! (???)
return 0
End Function
MApp_Class.myInitialize:
Sub myInitialize()
End Sub
MApp_Class.Tick:
Function Tick() As Boolean
return false
End Function
web_ServerSocket_Class.AddSocket:
Function AddSocket() As TCPSocket
dim i as integer
for i=0 to ubound(my_web_S)
if my_web_S(i).self_isdone then
return my_web_S(i)
end if
next
dim s as web_Socket_Class
s = new web_Socket_Class
my_web_S.append s
End Function
web_Socket_Class.Error:
Sub Error()
print "meerror:"+str(me.lastErrorCode)
End Sub
web_Socket_Class.DataAvailable:
Sub DataAvailable()
print "data:"+me.readall
End Sub
web_Socket_Class.Connected:
Sub Connected()
print "connected"
End Sub
__________________________________
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
http://promotions.yahoo.com/new_mail
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
|