Moraš da pamtiš šta ti je poslao svaki klijent posebno. Ne možeš da imaš globalnu primenljivu za sve klijente. Trebalo bi da napraviš nešto ovako
Code:
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim poruka As String
dim Neobradjeno as string
Winsock1(Index).GetData poruka
Neobradjeno = UzmiNeobradjenePodatkeZaKlijenta(index) 'pozoveš neku proceduru koja će na osnovu index-a da ti vrati neobrađene podatke iz neke kolekcije
neobradjeno = neobradjeno & poruka
if neobradjeno= ... Then ...
end if
ukoliko neobradjeno sadrži "kraj poruke" onda obradiš podatke i na kraju za tog klijenta čuvaš šta god je primio posle "Kraj poruke" kako bi sledeći put kad primiš podatke od njega samo nastavio niz. Ukoliko nema "Kraj poruke" onda sve sačuvaš kao neobrađeno za tog klijenta
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Re: Klijent-Server aplikacija...
31.07.2011. u 13:32 · pre 185 meseci
#21