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

[mahdi-a 17]

سلام

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

چطوریه؟

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

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

ممنون

[AMiN.M7892 1,029]

مشکلم حل شد

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

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

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

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

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

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

میشه کد اصلاح شده اش رو بدی؟

[AMiN.M7892 1,029]

یا اگه میشه سورس اش رو بده که لایوت ها رو داشته باشه و بدونیم کدوم دکمه مال چیه

[mohammad-alone 564]

به نظر من بهترین سورس برای اینکار برنامه Bridge خود بیسیکه

[AMiN.M7892 1,029]

نمیدونم، شایدم خوب باشه

من سورسش رو ندارم

اگه میشه آپ کنید

البته این کدی که گذاشتن درست کار میکنه (به احتمال زیاد) من تونستم وصل کنم ولی نتونستم هنوز پیام جابجا کنم

[AMiN.M7892 1,029]

کاش سورس رو میزاشتی یا لااقل لینک اون صفحه ای که کد بالا را توی سایت اصلی پیدا کردی میدادی 

واقعا نیاز دارم بهش @mahdi-a

[ali@ali 10]

سلام )

شاید این آموزش به دردت بخوره

http://www.answercenter.org/content/software/basic4android/tutorial/163

موفق باشی*همینه*

[نیما قبادی 246]

یه سورس جالب هست ببین بدرت میخوره

ولی متاسفانه با بلوتث هست

پسورد:basic4android.org

Bluetooth Chat(basic4android.org).rar

[mahdi-a 17]

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

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

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

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

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

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

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

[نیما قبادی 246]

من هنوز اون چیزی که شما میخواید رو ننوشتم

ولی اینکه شما میگید که بعد سه چهار بار عجیبه

چون واسه من این جوری نشده.

ویژال یه تفاوت کوچیکی با بیسیک داره

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

ولی اینجا جاش نیست

[mahdi-a 17]

از تبلت به گوشی خطا داد از گوشی به تبلت اوکی شد

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

اره تروجان نویسی اندروید خیلی بهترو دست باز تره

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

البته شدن فک کنم بشه قبلا یه پورت با وی بی باز کرده بودم تو پیسی , با شبیه ساز داس اندروید تلنت کردم به پورت وصل شد

[نیما قبادی 246]

بهتره راجب تروجان بحث نکنیم تا هردومونو بیرون نکردن*خنده*

[mahdi-a 17]

اهم موافقم *خنده*

[mahdi-a 17]

خب پیداش کردم لوکال ایپی واسه ارتباط با هات اسپات (وایفا)

فقط کتاب خونشو ندارم ServerSocket

شما دارین؟

[نیما قبادی 246]

دوست عزیز واسه اینکه بتونی ار ServerSocket استفاده کنی باید

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

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

سلام.بنده زیاد با سوکت پروگرمینگ آشنایتی ندارم اما قبلا در حال ساخت یک نمونه کد برای چت کردن بودم.الانم چیزی نمونده کامل میکنم توی فروشگاه قرار میدم

[mahdi-a 17]

دقیقا اونچیزی که می خوام پیداش کردم

هرچی تشکر کنم کمه*ناز*

فقط یه مسئله ایی برای دریافت دیتا ( تکست ) باید تبدیل بشه ؟؟؟ بایتو اینا !!!

NewSocket.InputStream

این جریانش چیه؟

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

این میاد دریافت میکنه اطلاعاتی که از سوکت دیگه ای واسه شما ارسال میشه به نوبه ای از طرف کلاینت دریافت میشه.

[mahdi-a 17]

اره درسته

حالا چطوری باید اینو نمایش داد تو لیبل یا تکست باکسی ؟

انگار برای نمایش چیزی که دریافت شده باید تبدیلی چیزی بشه درست؟

چیزی در این مورد پیدا نکردم! چطوریه؟

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

خب باید از AsyncStream که مربوط به کتابخانه RandomAccessFile هستش استفاده کنیم.

برای مثال این کد بنده مربوط به رویداد NewConnection مربوط به ServerSocket هست. خب اینجا AStream همون AsyncStream بندس :

        Client_Socket = NewSocket
       InS = Client_Socket.InputStream
       OUTS = Client_Socket.OutputStream
       AStream.InitializePrefix(InS,False,OUTS,"AStream")

خوب اینجا اومدم ورودی و حروجی رو دادم به AStream.

و یک رویداد داره AStream به اسم NewData مربوط اطلاعات ورودی هستش و من میام این کد رو توی همین رویداد می نویسم :

        Dim GetMessageOfClient As String
       GetMessageOfClient = BytesToString(Buffer , 0 , Buffer.Length ,"UTF8")
       Get_Txt.Text = GetMessageOfClient

متن توی ادیت تکست ریخته میشه

[mahdi-a 17]

دستت درد نکنه

این الان اوکی شد

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

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

Sub Process_Globals
   Dim ss As ServerSocket 
   Dim socket1 As Socket
   Dim ins As InputStream 
   Dim OUTS As OutputStream
   Dim AStream As AsyncStreams
End Sub
Sub Globals
   Dim data() As Byte
   Private Button1 As Button
   Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("port")

   ss.Initialize(1234, "ss")
   ss.Listen
End Sub
Sub ss_NewConnection (Successful As Boolean, NewSocket As Socket)
       socket1 = NewSocket
       ins = socket1.InputStream
       OUTS = socket1.OutputStream
       AStream.InitializePrefix(ins,False,OUTS,"AStream")
ss.Listen
End Sub
Sub AStream_NewData (Buffer() As Byte)
   Dim GetMessageOfClient As String
       GetMessageOfClient = BytesToString(Buffer , 0 , Buffer.Length ,"UTF8")
       EditText1.Text = GetMessageOfClient
End Sub