Evo gde pukne, sad sam nasla ali ne znam zasto.
Code:
Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
'hvata text i upisuje ga u text3
Dim str As String
Winsock1(0).GetData str <---- Ovde nastane greska
Text2.Text = str
End Sub
to se desi kada konektujem jedan klijent i jedan server i kada posaljem poruku tj kada je treba primiti onaj drugi program padne
Evo ispravke, nasla sam gresku,jaoj sta ja radim iz ovog foruma, ubice me moderatori :)
Code:
Private Sub Command1_Click()
'povezivanje na IP
Winsock1(0).Close 'ovo upises da mozes vise puta pokusati da se konektujes ako ne uspe a da n izbacuje gresku
Winsock1(0).RemoteHost = Text1.Text 'ovako sam cita moju IP
Winsock1(0).RemotePort = 12346 'ovaj broj mora biti isti u obe aplikacije
Winsock1(0).Connect
End Sub
Private Sub Command2_Click()
'salje podatak
Winsock1(0).SendData Text3.Text
End Sub
Private Sub Form_Load()
'uspostavlja vezu
Winsock1(0).LocalPort = 12345 'ovaj broj mora biti isti u obe aplikacije
Winsock1(0).Listen
End Sub
Private Sub Winsock1_Connect(index As Integer)
'obavestava da ste konektovani
MsgBox "Konekcija uspesna!", vbInformation, "Connected"
End Sub
Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
'hvata text i upisuje ga u text3
Dim str As String
Winsock1(index).GetData str
Text2.Text = str
End Sub
Private Sub Winsock1_ConnectionRequest(index As Integer, ByVal requestID As Long)
If index = 0 Then
Winsock1(0).Close
Load Winsock1(Winsock1.ubound + 1)
Winsock1(Winsock1.ubound).Accept requestID
Winsock1(0).Listen
End If
End Sub
Nema greske ali sada se desava sledece. Uspostavim vezu i posaljem nesto i druga aplikacija to primi ali kada onda pokusam da posaljem iz druge aplikacije nastane greska ovde
Code:
Private Sub Command2_Click()
'salje podatak
Winsock1(0).SendData Text3.Text
End Sub
PS Pokusala sam da se konektujem sa vise klijenata i to radi jedino ne radi da im server odgovori
Mislim da sam resila sve, sad mi jos trebaju dobrovoljci da isprobam :) Ima li ih???? Alexandre? Shnadow?
[Ovu poruku je menjao Nevena79 dana 30.11.2008. u 19:30 GMT+1]
[Ovu poruku je menjao Nevena79 dana 30.11.2008. u 19:48 GMT+1]
[Ovu poruku je menjao Nevena79 dana 30.11.2008. u 20:05 GMT+1]
Re: Povezivanje aplikacija putem Internet-a
