Server-Klijent komunikacija

Server-Klijent komunikacija 05.12.2011. u 13:52 · pre 181 mesec #1

Pozdrav svima!
Pokusavam da napravim server/klijent aplikaciju, ali sam naisao na sledeci problem: nikako ne uspevam da posaljem poruku
sa servera klijentu.
Na primer: Korisnik salje serveru ime i lozinku, na serveru se proverava verifikacija, a zatim vraca rezultat verifikacije (prosao ili nije prosao verifikaciju).
Na internetu sam citao, gledao ali nisam nasao kako da posaljem poruku klijentu sa servera.

Hvala unapred, jako mi je bitno da u skorije vreme resim problem!

Re: Server-Klijent komunikacija 05.12.2011. u 14:00 · pre 181 mesec #2

Posto ima prilicno razlicitih nacina da se u .net-u ostvari client-server komunikacija, bilo bi dobro da postavis deo koda tako da se vidi sta imas do sada uradjeno pa da se u vezi toga da neki predlog. Ovako neko moze da ti pise o WCF-u a da ti koristis socket-e :)

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Server-Klijent komunikacija 05.12.2011. u 14:36 · pre 181 mesec #3

Code:

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System
Public Class Form1
    Private Sub ServerStartBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ServerStartBTN.Click
        Try
            AxWinsock1.LocalPort = My.Settings.Port
            AxWinsock1.Listen()
            infotablaTXT.Text = ">> SERVER JE SPREMAN ZA UPITE KORISNIKA!" & vbCr & vbCr
        Catch ex As Exception
            infotablaTXT.Text = ">> GRESKA!!! SERVER NIJE SPREMAN ZA UPITE KORISNIKA!" & vbCr & vbCr
        End Try
    End Sub

    Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest
        AxWinsock1.Close()
        AxWinsock1.Accept(e.requestID)
    End Sub

    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
        Dim klijent_podaci As String = ""
        Dim niz_od_poruke() As String
        AxWinsock1.GetData(klijent_podaci)
        niz_od_poruke = Split(klijent_podaci, "||")

        Select Case niz_od_poruke(0)
            Case "Logovanje"
                infotablaTXT.Text = infotablaTXT.Text & ">> Korisnik <" & niz_od_poruke(1) & "> pristupa serveru. Verifikacija je u toku..." & vbCr
                'kod za proveru korisnickog imena i sifre
                infotablaTXT.Text = infotablaTXT.Text & "Verifikacija je uspesna!" & vbCr & vbCr
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Re: Server-Klijent komunikacija 05.12.2011. u 15:00 · pre 181 mesec #4

Uh, ti koristis neki ActiveX koji je bio aktuelan u vreme VB6

Imas ovde primer za .net varijantu - http://msdn.microsoft.com/en-u...m.net.sockets.tcplistener.aspx
To je za server a imas tamo link i za klijent.

Naravno, ti prilagodi kod svojoj potrebi. Ako bude trebalo objasnjenje u vezi nekog dela koda sa linka, pitaj

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Server-Klijent komunikacija 05.12.2011. u 15:03 · pre 181 mesec #5

Hvala Shadowed na brzim odgovorima! Odmah cu pogledati i javljam sta sam uradio! :)
Ovo su mi prvi koraci u ovoj oblasti, nisam upoznat sa client/server aplikacijama... :(
Pozdrav!

Re: Server-Klijent komunikacija 05.12.2011. u 16:02 · pre 181 mesec #6

Ljudi, moze li kod koji sam poslao da se doradi i posalje korisniku poruku? To bi trebalo u ovom delu koda da stoji:

Code:

Case "Logovanje"
                infotablaTXT.Text = infotablaTXT.Text & ">> Korisnik <" & niz_od_poruke(1) & "> pristupa serveru. Verifikacija je u toku..." & vbCr
               if  ('kod za proveru korisnickog imena i sifre)=ok then
                SALJI KORISNIKU PORUKU
                infotablaTXT.Text = infotablaTXT.Text & "Verifikacija je uspesna!" & vbCr & vbCr
                else
                SALJI KORISNIKU PORUKU
                end if
        End Select

HELP!!!

Re: Server-Klijent komunikacija 06.12.2011. u 11:32 · pre 181 mesec #7

On 5.12.2011 13:52, "SuDar407" wrote:

Citat:

Pozdrav svima!
Pokusavam da napravim server/klijent aplikaciju, ali sam naisao na
sledeci problem: nikako ne uspevam da posaljem poruku
sa servera klijentu.

Da pokušam da objasnim. Dva sistema , sistem AA i sistem BB, su u vezi.
Da bi sistem AA mogao da se poveže sa sistemom BB i da šalje podatke ka
njemu sistem BB mora da osluškuje saobraćaj (da bude server). Znači
primi zahtev, obradi i rezultat sačuva u privremenom skladištu dok ga
klijent opet ne poseti i upita ga šta je uradio, pa ako ima rezultata
pokupi ga i objavi.
Ako ne želiš tu vrstu ponašanja onda i sistem AA mora da osluškuje i da
prima informacije od sistema BB ( odnosno i sistem AA mora da bude
server). tek onda će oni moći da sarađuju na način na koji si to zamislio.
Sve to je slično replikaciji servera baze podataka. Nema replikacije
između klijenta i servera već samo između servera i servera.
Znači da bi sistem koji si zamislio mogao da funkcioniše i sistem AA i
sistem BB moraju istovremeno da budu i serveri i klijenti.

Re: Server-Klijent komunikacija 02.02.2012. u 17:53 · pre 179 meseci #8

Evo jedan, nadam se lagan problem a da neotvaram novu temu. Slicno nesto, klijent -> server

Unosom txt1,txt2,txt3, dobijem link i on mi ispise u polje txt4, i onda ja rucno copy->paste link u brovser. Znaci aplikacija bi po svojoj namjeni trebala da posalje url zahtjev. evo dio koda :

Dim linkod As String
linkod = ...

txt4.Text = linkod

Definiro sam taj linkkod . Kako sada da taj dobiveni linkkod ili txt4 posalje url zahtjev, mora li otvarat moj default web brovser, volio bi da ne otvara , a ako mora otvorit nema veze

Radim u Visual Basicu 2008

L.P

Potpis

http://www.igortomic.from.hr

Re: Server-Klijent komunikacija 02.02.2012. u 20:05 · pre 179 meseci #9

probao

linkod=.......
txt4.Text = linkod
Dim request As WebRequest = WebRequest.Create("http://" & linkod)

ovo mi djeluje logicno, al nece :)

Potpis

http://www.igortomic.from.hr

Re: Server-Klijent komunikacija 02.02.2012. u 20:23 · pre 179 meseci #10

Mozda nesto ovako:

Code (vbnet):

Imports System.Net

Dim urlReq As HttpWebRequest

Dim urlResp As HttpWebResponse

Try

   urlReq = WebRequest.Create(TextBox1.Text)

   urlResp = urlReq.GetResponse

   MessageBox.Show(urlResp.StatusDescription)

Catch ex As Exception

   MessageBox.Show("Neuspesno povezivanje.Detaljnije:" + ex.Message)

End Try

Potpis

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

1

Re: Server-Klijent komunikacija 02.02.2012. u 21:07 · pre 179 meseci #11

Hvala radi !

Potpis

http://www.igortomic.from.hr

Re: Server-Klijent komunikacija 02.02.2012. u 23:02 · pre 179 meseci #12

aca moze li kako da mi taj "url" koji definiram tj polje "txt3"- tako sam ga definisao, salje na mailadresu(gmail)

Pozdrav!

Potpis

http://www.igortomic.from.hr

Re: Server-Klijent komunikacija 03.02.2012. u 18:26 · pre 179 meseci #13

Imas dosta stvari na webu za to, izguglaj malo

Sending mail VB.NET

Potpis

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Re: Server-Klijent komunikacija 03.02.2012. u 20:15 · pre 179 meseci #14

Hvala, aca, nauci se ja dosta stvari. Zivio !

Potpis

http://www.igortomic.from.hr

Forum kao aplikacija na telefonu

Srodne teme