اتصال گوشی به گوشی دیگر

[mahdi-a 17]

سلام

میخوام از طریق وایفا یا بلوتوس , گوشی به گوشی دیگه وصل بشم

چطوریه؟

یچی شبیه چت ولی فقط یه متن ساده ارسال کنه

وایفا باشه بهتره

ممنون

[مجید آرتا 5,875]

بنده کد رو تست نکرده بودم و به طور حدس بود.

شما بیا توی رویداد Connected مربوط به Socket رو کد بنویس:

    Dim TR As TextReader
   TR.Initialize(socket1 
.InputStream)
   Dim SB As StringBuilder
   SB.Initialize
   SB.Append(TR.ReadLine)
       Do While (TR.Ready)
           SB.Append(CRLF).Append(TR.ReadLine)
       Loop
   Get_txt.Text = SB.ToString

کد رو تست کنید ببینید به نتیجه میرسید یا نه.

[mahdi-a 17]

تست کردم ولی بازم همون مشکل , اصلا خونده نمیشه اینجاها

رویداد کانکشن درست نوشتم ؟

Sub Socket1_Connected (Successful As Boolean) 
Dim TR As TextReader
   TR.Initialize(socket1.InputStream)
   Dim SB As StringBuilder
   SB.Initialize
   SB.Append(TR.ReadLine)
       Do While (TR.Ready)
           SB.Append(CRLF).Append(TR.ReadLine)
       Loop
   EditText1.Text = SB.ToString
End Sub

مشکل از چیه؟؟

[dostmobile 329]

اینو دانلود کردم

تست هم کردم ولی این اتصالش شانسکیه دو سه بار خطا داد بار چهارم اوکی شد

یچی باشه این گرفتاریا رو نداشته باشه

یادش بخیر تو ویژوال بیسیک سوکت میزدیم پورت میدادیم لوکال وصل میشدیم ( کلاینت سرور ) تروجان نویسی

تو بیسیک اندروید نمیشه همچین چیزی ؟

مثلا هات اسپا روشن باشه یه ایپی با پورت خاصی باز کنیم

گوشی دوم به اون وایفا وصل باشه ( اتصال لوکال ) به پورت وصل بشیم و ارسال متن

iman saeedi daghighan hamin chizi ke U mikhay ro hafte pish sakhte

sharmande alan windows change kardam O majboram ENG type kunam

[sinam443 108]

کلا نشد استفاده کنیم خواهشا سورسشو بزار یا لینکی که دانلودش کردی بزار

در در 1393/12/22, 20:25:02، mahdi-a گفته است :

مشکلم حل شد

میگن جونیده یابندس واقعا راسته

انقدر سرچ کرد خلاصه پیداش کردم ( سایت اصلی )

کد میزارم اینجا اگر کسی مشکل منو داشت حل بشه *همینه*

این کدو یکم اصلاح کردم ، کد خالصه ( سوکت )

قابلیت دریافت و ارسال متنو داره ( فقط متن )

 

Sub Process_Globals

  Dim TcpStreams          As AsyncStreams 
  Dim Socket1          As Socket 
  Dim ServerSocket1       As ServerSocket 
  Dim MyIP             As String 
  Dim ServerIp          As String 
  Dim port             As Int

End Sub

Sub Globals

   Private Label1 As Label
   Private EditText2 As EditText
   Private EditText1 As EditText
   Private Button1 As Button
   Private Button2 As Button
   Dim MyIP As String
   Private Label2 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

  Activity.LoadLayout("main")
  MyIP = ServerSocket1.GetMyIP 
  Label1.Text=MyIP

End Sub

Sub Button1_Click

   SendData(EditText1.Text)

End Sub

Sub Button2_Click

    Socket1.Initialize("Socket1")

  Socket1.Connect("192.168.1.102",1234,5000)


End Sub

Sub SendData(Msg As String)
  Dim Buffer() As Byte 

  Msg = EditText1.Text  
  If Socket1.Connected = True Then
     Try
        Buffer = Msg.GetBytes("UTF8")
        TcpStreams.Write(Buffer)
     Catch
        Log("TcpStreams.Write Error")
     End Try
  Else
     Log("Connection lost")
  End If
End Sub

Sub Socket1_Connected(Connected As Boolean)As Boolean 
  If Connected = True Then
     ToastMessageShow("Connected",True)
     TcpStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"tcpStreams")

  Else
     'ToastMessageShow("Server not available",True)
  End If
End Sub

Sub TcpStreams_NewData (Buffer() As Byte)
   Dim Msg As String

   Msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")


  Label2.Text = Msg
End Sub

 

 

 

 

 

[محمد رشوند 1,208]

در 2 ساعت قبل، sinam443 گفته است :

کلا نشد استفاده کنیم خواهشا سورسشو بزار یا لینکی که دانلودش کردی بزار

سلام اخوی

تاریخ پست که قدیمی هستش بعد اخرین بازدید ایجاد کننده این موضوع 3 خرداد 1394 هستش یکم دقت کنید و سعی کنید موضوع های 3 سال پیش رو بالا نیارید ممنون

[mahdi-a 17]

iman saeedi daghighan hamin chizi ke U mikhay ro hafte pish sakhte

sharmande alan windows change kardam O majboram ENG type kunam

خب میشه لینکشو بدین خیلی گیرم

فقط در حد عدد 1 یا 0 ارسال کنه واسم کافیه

ممنون

[dostmobile 329]

بهش پیام خصوصی بده

[mahdi-a 17]

مشکلم حل شد

میگن جونیده یابندس واقعا راسته

انقدر سرچ کرد خلاصه پیداش کردم ( سایت اصلی )

کد میزارم اینجا اگر کسی مشکل منو داشت حل بشه *همینه*

این کدو یکم اصلاح کردم ، کد خالصه ( سوکت )

قابلیت دریافت و ارسال متنو داره ( فقط متن )

Sub Process_Globals

  Dim TcpStreams          As AsyncStreams 
  Dim Socket1          As Socket 
  Dim ServerSocket1       As ServerSocket 
  Dim MyIP             As String 
  Dim ServerIp          As String 
  Dim port             As Int

End Sub

Sub Globals

   Private Label1 As Label
   Private EditText2 As EditText
   Private EditText1 As EditText
   Private Button1 As Button
   Private Button2 As Button
   Dim MyIP As String
   Private Label2 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

  Activity.LoadLayout("main")
  MyIP = ServerSocket1.GetMyIP 
  Label1.Text=MyIP

End Sub

Sub Button1_Click

   SendData(EditText1.Text)

End Sub

Sub Button2_Click

    Socket1.Initialize("Socket1")

  Socket1.Connect("192.168.1.102",1234,5000)


End Sub

Sub SendData(Msg As String)
  Dim Buffer() As Byte 

  Msg = EditText1.Text  
  If Socket1.Connected = True Then
     Try
        Buffer = Msg.GetBytes("UTF8")
        TcpStreams.Write(Buffer)
     Catch
        Log("TcpStreams.Write Error")
     End Try
  Else
     Log("Connection lost")
  End If
End Sub

Sub Socket1_Connected(Connected As Boolean)As Boolean 
  If Connected = True Then
     ToastMessageShow("Connected",True)
     TcpStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"tcpStreams")

  Else
     'ToastMessageShow("Server not available",True)
  End If
End Sub

Sub TcpStreams_NewData (Buffer() As Byte)
   Dim Msg As String

   Msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")


  Label2.Text = Msg
End Sub