سوال: این چرا بیش از یک بار وصل نمیشه ؟ [بایگانی]

sinashahab

یک شنبه 28 مهر 1387, 19:41 عصر

سلام
این فایل سرور برای بار دوم ارور میده :گریه:
کمکم کنید ممنون میشم .:لبخند:
:تشویق::تشویق:

Dr.Bronx

یک شنبه 28 مهر 1387, 19:52 عصر

کدوم فایل !!!
یه توضیحی بدین که بفهمیم موضوع چیه خوب تا بتونیم کمک کنیم

sinashahab

یک شنبه 28 مهر 1387, 19:54 عصر

کدوم فایل !!!
یه توضیحی بدین که بفهمیم موضوع چیه خوب تا بتونیم کمک کنیم
یادم رفته بود فایل رو اپلود کنم :لبخند:

r0ot$harp

یک شنبه 28 مهر 1387, 20:01 عصر

دوست عزیز شما در Event زیر مشکل دارین :

Private Sub WskServer_Close(Index As Integer)
lblInfo.Caption = "Connection Closed..."

End Sub

وقتی ارتباط قطع می شود شما باید یه متغیر در کل برنامه معرفی کنید که هر وقت اتصال قطع شد به مقدارش یه دونه اضافه بشه .

می شه اینجوری :

Private Sub WskServer_Close(Index As Integer)
lblInfo.Caption = "Connection Closed..."
a=a+1
End Sub

بعد وقتی می خوای دوباره درخواست رو در Event زیر دریافت کنی اینجوری می شه :

Private Sub WskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Load WskServer(a + 1)
WskServer(a + 1).Accept requestID
lblInfo.Caption = "Connection Estabilished..."
End Sub

باتشکر احسان

sinashahab

یک شنبه 28 مهر 1387, 21:09 عصر

دوست عزیز شما در Event زیر مشکل دارین :

Private Sub WskServer_Close(Index As Integer)
lblInfo.Caption = "Connection Closed..."

End Sub

وقتی ارتباط قطع می شود شما باید یه متغیر در کل برنامه معرفی کنید که هر وقت اتصال قطع شد به مقدارش یه دونه اضافه بشه .

می شه اینجوری :

Private Sub WskServer_Close(Index As Integer)
lblInfo.Caption = "Connection Closed..."
a=a+1
End Sub

بعد وقتی می خوای دوباره درخواست رو در Event زیر دریافت کنی اینجوری می شه :

Private Sub WskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Load WskServer(a + 1)
WskServer(a + 1).Accept requestID
lblInfo.Caption = "Connection Estabilished..."
End Sub

باتشکر احسان

یلام
ببخشید باز هم نمیشه :گریه:

sinashahab

پنج شنبه 02 آبان 1387, 15:12 عصر

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