Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
ragazzuoli ci siamo vicini a risolvere il mio maledetto problema... il soft regge fino a 400-500 client con 30 mb di ram è un ottimo risultato... pero' di punto in bianco.... CRASH :| tutto da solo... ed esce questa simpatica finestrella....
vi posto il codice nuovo (prima non lo faceva)
Codice sorgente - presumibilmente VB.NET
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
PublicClass User
PrivateSub time2_Elapsed(ByVal sender AsObject, ByVal e As System.Timers.ElapsedEventArgs)Handles time2.Elapsed
OnErrorResumeNext
If muori Then
disconenttiuser(me)
ExitSub
EndIf
time2.AutoReset=True
Dim buffer()AsByte= Encoding.Default.GetBytes(frasi.ToString)
frasi =""
Module1.impostazioni.banda+= buffer.Length
Module1.protocol.byteinviati+= buffer.Length
sae.SetBuffer(buffer, 0, buffer.Length)
client.SendAsync(sae)
EndSub
EndClass
questa è la classe con la procedura che gestiscono l'invio dei messaggi ogni 500 ms in modo che il socketeventsargs non sia mai in uso e tutto scorra bene...
carico il buffer dei messaggi qui...
Codice sorgente - presumibilmente VB.NET
PublicSub manda(ByRef us As User, ByVal data AsString)
Try
data = data.Replace(Chr(10)&Chr(10), "").Replace("||", "")
If data.EndsWith("|")=FalseThen
data &="|"
EndIf
us.frasi&= data 'lo riempio finche non passano 500 ms poi invio tutto