VB6 MREŽNO IGRANJE-WINSOCK
 

Pozdrav svima! evo pokušavam raditi igricu u mreži, znam napravit jedan prijenos podataka, ali što ako želim poslati više podataka a ne jedan? -
Zakaj ne mogu napisat npr. dva il više puta ovako u jednoj formi:
U serveru je:
A ovo je client:
I na kraju dobijem mješanac ovog Nešto i JošNeštoDrugo ... kako to riješit?
kad to stavim onda mi se sve mješa jedno s drugim.

Recimo jedno bi stavio na klik butona, drugo bi stavio na button change.. i tak..
Aj please ak mi netko može odgovorit,
HITNO MI JE !

kaj se niko sad u ovo ne kuži???

Winsock1.SendData "Prvi"
Winsock1.SendData "Drugi"
Winsock1.SendData "Treci"

Može rezultirati da ti podaci na drugu stranu dođu redom kako si ih slao, a mogu ti doći i stringovi tipa

"PrviDrugi" pa "Treci"

Fora je u tome šta ćeš sam morati osmisliti algoritam koji će to rješiti,a ja ti predlažem da koristiš neke separatore na početku i kraju stringova koje šalješ.

Npr:

Prvi
Drugi
Treci

Pa da podaci i dođu zajedno izgledalo bi

"PrviDrugiTreci"

za što ti imaš svoj algoritam koji će čitati te msg tagove (ja predlažem funkciju InStr) i izvaditi podatke iz tvog "okvira".

Nadam se da me kužiš. Ne postoji drugačije rješenje gdje će podaci stizati redom jer je winsock.ocx tako isprogramiran da sam raspoređuje te pakete koje šalje, neovisno kako ih ti šalješ.

Jedino da isprogramiraš nešto u C++u recimo :D

Hm al ti si to stavio sve u navodnike?
i šta je ovo ? pa to ne može biti u visual basic 6???

Evo trebam ovako:

Private Sub L1_Click()
If player = "X" Then L1 = "X"
turn.Caption = "O"
If player = "O" Then L1 = "O"
turn.Caption = "X"
Winsock1.SendData L1 'šalje akciju na jedan klik u client
End Sub

Private Sub L2_Click()
If player = "X" Then L2 = "X"
turn.Caption = "O"
If player = "O" Then L2 = "O"
turn.Caption = "X"
Winsock1.SendData L2 'šalje akciju na jedan klik u client
End Sub

I kak sad da se u clientu u jednom labelu upiše L1, a u drugom labelu L2? (meni se upisuju oba u jednom, što ne valja).
?

Pomoću Winsock-a možeš samo poslati niz znakova, string.

Na drugoj strani dolazi taj niz znakova. To je sve šta možeš.

Kada dođu podaci aktivira se Data_Arrival event.

Tada ti prihvatiš podatke, pregledaš šta je došlo i radiš određene akcije nad tim.

"" je dio stringa koji šalješ a označava početak poruke.
"
Ja sam primjera radi napiaso taj a ti možeš koristii bilo koji niz znakova s kojim ćeš označiti početak i kraj poruke.

Staviš i recimo, bilo šta. To je sve običan string kojeg ćeš poslati, a na klijent strani ćeš imati funkciju koja če čitati podatke iz tog stringa.

Moraš osmisliti svoj način na koji ćeš slati podatke sa servera na klijenta.

Ne možeš poslati samo "X" ili "O".

Pošalješ recimo "X" kad ašalješ L2

Onda na Klijentu provjeriš dali primljeni string sadržava string "", i ako da to je onda taj L2, a vrijednost pročitaš iz stringa nakon i prije , a te "" i "" pronađeš pomoću InStr funkcije.

Prouči malo kako InStr funkcija radi.

Vidi,

Server strana:
Dim L2 As String
L2 = "Ja sam server"
Winsock1.SendData L2

Klijent strana (Data Arrival Event):
Dim strData as String
sockMain.GetData strData

U varijablu strData dobivaš tekst koji si poslao, u ovom slučaju "Ja sam server"
Tekst može doći i u više navrata kao "Ja sam " pa "server" i tada se Data Arrival Event pokrene 2 puta. Zato bi trebao napraviti funkciju koja će sve stringove koji dolaze slagati u neki buffer, i drugu funkciju koja će čitati buffer i raspoređivati stringove iz njega i čistiti ga od onoga što rasporedi.

Ti samo sa stringom "Ja sam server" neznaš šta raditi, ali recimo ako pošalješ "NAME:Ja sam server" i taj string rastaviš na "NAME:" i ostatak odna ćeš znat da ti dolazi ime nečega pa imaš

IF Left$(strData, 5) = "NAME:" Then SetPlayerName(strData)

Ako je početak stringa koji je došao = "NAME:" zoveš funkciju SetPlayerNAme koja će postaviti ime igrača na nešto što si isprogramirao u njoj.

Opet kao šta sam spomenuo iznad, string nemora doć u cjelosti kako si ga poslao nego u više navrata pa ti može doć

"NAM" pa "E:Ja sam ser" pa "ver" zato staviše na početak i na kraj i ne radiš ništa sa stringom dok ne dođe cijeli, tj dok ne pronađeš i u njemu.

Nije Winsocket toliko trivijalan koliko se čini, mislim je što se osnovnih metoda tiče, ali ako radiš nešto složenije tipa igru moraš isprogramirati svoj okvir i svoj protokol.

Pa da, radim igru, ali tipa križić-kružić za početak, da skužim kako se to prenosi. Evo ti slika koju sam uplodo, ima server i client, i labeli od L1 do L9.
I sad kad ja nekaj promjenim u L1, tj upišem "X", na clientu u L1 mora pisati "X".. ako me kužiš, ja sam napravio samo L1, al ako ubacim L1 i L2 onda mi se u L1 upiše i L2 i sve, pa izgleda u L1 ovako "XXX" ili "XO".. evo slike kak izgleda forma:

Ja o jednom ti o drugom.

Klijent:

Server:

Ovo je primjera radi

Inače bi ta tvoja poruka koju šalješ trebala na primjer izgledati ovako:

"Player:X"

Objasnio sam u prethodnim postovima zašto

Evo, još jedan primjer:

Ovo će najvjerovatnije rezultirati da podaci dođu na server ovako
"012345678910"

a ti si htio dobiti 10 poruka sa 10 brojeva

Zato napraviš ovo
Pa podaci dođu na server ovako

"012345678910"

I onda imaš funkciju koja će čitati brojeve iz ovog stringa tako što će provjeravati gdje se nalaze i koji označavaju početak i kraj.

Treba dodati da se neki 'paketi' znaju i izgubiti, pa ne bi bilo loše isprogramirati povratnu informaciju nakon uspješno primljene i obrađene poruke.

Npr. klijent klikne na neko od polja i program(igra) pošalje poruku serveru, server ne dobije poruku i nastavi čekati. Klijent na svojoj strani 'vidi' da je kliknuo na neko polje i postavio znak, ali ne zna da server nije dobio poruku... i tako oni čekaju... i čekaju...

Tu možemo postaviti i neki 'timeout' koliko dugo 'čekam' dok mi ne stigne povratna informacija i ako zadano vrijeme prođe program(igra) javi igraču da poruka nije poslana i poništi zadnju akciju ili ju ponovi... dalje je na programeru da odluči.

Nadam se da je moj savjet bio koristan! :-)