مشکل با winsock .....دنبال راه حل اتصال سرور به کلاینت(فوری)

[hameekh11]

من دارم یه برنامه کلاینت و سرور مینویسم. من توی این برنامه نیاز دارم که بدون بسته شدن برنامه چند بار بتونم ارتباطم رو بین کاینت و سرور قطع کنم و دوباره متصل بشم. ولی نمی دونم مشکل کجاست که با وینساک فقط یه بار میشه کانکت شد ولی برای بار دوم اتصال برقرار نمیشه چند تا نمونه برنامه هم دارم که همه همین مشکل رو دارن. بعد از قطع ارتباط با دستور کانکت نمیشه به برنامه سرور وصل شد. کسی می تونه کمکم کنه؟؟؟؟؟؟
ممنونم میشم....

[hameekh11]

کسی نمی دونه که چرا باید هر بار برنامه رو از نو اجرا کنم تا اتصال کلاینت و سرور برقرار بشه؟مشکش چیه ؟ حل میشه؟

[saber67]

دوست عزیز تو برنامه سرور (برنامه ای که منتظر درخواست اتصال می مونه)

این کد رو بنویسین:


Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub

تو برنامه کلاینت هم باید این کد رو بنویسین:


Private Sub Winsock1_Close()
Winsock1.Close
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
End Sub

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