هنگ کردن برنامه سرور در ارتباط سوکت

سلام من به تازگی شروع به برنامه نویسی تحت شبکه کردم ، در حال حاضر روی سوکت دارم کار می کنم
ولی چند جا به مشکل خوردم
من از این آموزش
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
استفاده کردم ولی یه قسمت آموزش رو متوجه نشدم ( قسمت callback ) و فکر می کنم مشکلم هم همونجاس
چون الان تو برنامه سمت سرور تا رسیدن پیغام از طرف کلاینت برنامه قفل میشه (یعنی کلا برنامه سمت سرور قفل هست) در صورتی که توی سورس نمونه برنامه گیر نمیکنه (البته من زیاد از برنامه نمونه ای که با آموزش بود سر در نیاوردم :41: )
یه مشکل دیگه هم اینه که هر بار که کانکت میکنم فقط یکبار میتونم اطلاعات رو دریافت کنم و بعد که close می کنم و دوباره می خوام کانکت کنم ارور میده و مجبورم هر دفعه که می خوام اطلاعاتی رو بفرستم یا بگیرم یک بار از ابتدا سوکت رو تعریف کنم و بعد کانکت کنم و در آخر ببندم ( که فکر نمیکنم نیاز به تعریف هر باره باشه ولی راه دیگه ای من بلد نیستم)
اگه امکانش هست در مورد این calback و اینکه برنامه گیر نکنه من رو کمک کنید

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

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

کد:

---

ip = IPAddress.Parse(txtip.Text)
        point = New IPEndPoint(ip, txtport.Text)

        socket.Bind(point)
   

        socket.Listen(Integer.MaxValue)

        Dim msgbuffer(50000) As Byte

      Do
     
            Dim clientsocket As System.Net.Sockets.Socket = socket.Accept() 'Waiting For Client
       


        clientsocket.Receive(msgbuffer)
        msgbuffer = System.Text.Encoding.UTF8.GetBytes("Hello")
        clientsocket.Send(msgbuffer)
        clientsocket.Close()
Loop

---

اما مشکل اینجاس که برنامه سورو همیشه منتظر میمونه و دیگه نمیشه اون رو متوقف کرد یا مقادیر ارسال شده از طرف کلاینت رو مشاهده کرد

دوست عزیز، برای ارسال چندین باره(حالت چت کردن!) نیاز دارید به دلیگیت!! راستش رو بخواید، برنامه نویسی شبکه با سوکت ها کمی کار بیخودی میزنه امروز دیگه!! بهتره وب سرویس ها رو یاد بگیرید!!یا WCF رو.... کاربردش خیلی بیشتر و بهتر و سریعتره.... میگردم ببینم کدی که برای دلیگت تو این پروژه انجام دادم رو دارم یا نه براتون بذارم!(این برنامه‌ی چت با سوکت رو تقریبا هر دانشجوی نرم‌افزار یه بار یا نوشته یا خریده!!!!)

ممنون راستش من تازه شروع به برنامه نویسی شبکه کردم و خواستم یه برنامه چت بنویسم که بتونم با اون تصویر ، فایل و صدا رو هم جابه جا کنم
واسه شروع تو نت گشتم و سوکت رو پیدا کردم اونو دنبال کردم تا اینجا که به مشکل خوردم و جایی پیدا نکردم مجبور شدم سوال کنم
این WCF رو جاهای دیگه هم دیدم ، خواستم برم اونو یاد بگیرم که ویندوزم با سیلورلایت مشکل داشت (ولی حتما این رو یاد می گیرم)
اما اول دنبال اینم که بتونم با سوکت هم کار کنم

سلام
ایده دوستمان senaps در مورد استفاده از WCF هم بد نیست و مخصوصاْ برای برنامه چت که خیلی خوب است.
WCF ارتباطی با مشکل شما درخصوص Silverlight ندارد.
WCF یک تکنولوژی ارتباطی بر اساس سوکت ها است ولی استفاده آن از سوکت ها ساده تر است.

==============

اما در خصوص کد جاری وضعیت و پیامدهای آن مشخص است...
شما از چند ریسمانی استفاده نکرده اید و با همان ریسمان اصلی منتظر اتصال سوکت مشتری می مانید و باز با همان ریسمان اطلاعات را خوانده و میفرستید...
مشخص است که در این شرایط برنامه شما هنگ خواهد کرد.

اگر یک ریسمان به کدتان اضافه شود اوضاع تا حدودی بهتر میشود.
یعنی برنامه هنگ نمیکند ولی تا وقتی تا وقتی با یک سوکت کلاینت در ارتباط است به سوکت جدید دیگری جواب نمیدهد.
((سایت اینترنتی را فرض کنید که در هر لحظه فقط یک کاربر میتواند به آن وصل شود و تا وقتی Logoff نکرده فرد دیگری نمیتواند وصل شود ... !))
برای حل این مشکل هم باید بعد هر Accept برای هر کلاینت یک ریسمان جدید بسازید (یا از متدهای BeginXXX و EndXXX استفاده کنید)

فعلاً این کد تک ریسمانه را آزمایش کنید.

کد:

---

Public Sub Start()
    Dim ip = System.Net.IPAddress.Parse(Me.txtip.Text)
    Dim point = New System.Net.IPEndPoint(ip, Me.txtport.Text)
    Dim socket As System.Net.Sockets.Socket

    socket.Bind(point)
    socket.Listen(Integer.MaxValue)

    Dim thread As New System.Threading.Thread(AddressOf Me.ThreadStart_Accept)
    thread.IsBackground = True
    thread.Priority = System.Threading.ThreadPriority.BelowNormal
    thread.Start(socket)
End Sub

Private Sub ThreadStart_Accept(ByVal state As Object)
    Dim socket = TryCast(state, System.Net.Sockets.Socket)
    Dim msgbuffer(50000) As Byte

    Do
          Dim clientsocket As System.Net.Sockets.Socket = socket.Accept() 'Waiting For Client
          clientsocket.Receive(msgbuffer)
          msgbuffer = System.Text.Encoding.UTF8.GetBytes("Hello")
          clientsocket.Send(msgbuffer)
          clientsocket.Close()
    Loop
End Sub

---

((حتماً هم میدانیدکه یک Receive بلا استفاده در کدتان دارید؟!))
پیشنهاد میکنم PDF و سورس را مجدد مطالعه کنید.
شب خوش.

ممنون خیلی کارم راه افتاد
راستش من pdf رو چند بار خوندم ولی این متد begin و end رو متوجه نشدم اگه یه مثال بزنید ممنون میشم

سلام
برای درک بهتر توابع فوق ، اول باید مفهوم چند ریسمانی را درک کنید...
اول نگاهی به تاپیک زیر بیاندازید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

BeginXXX موجب ایجاد ریسمان جدید و اجرای متد XXX در این ریسمان جدید میشود، در پایان متد callback شما جهت اطلاع از پایان عملیات اجرا میشود و میتوانید با اجرای EndXXX فرآیند را پایان داده و اگر مقداری بازگشتی ای وجود داشته باشد پس بگیرید.
به بیان دیگر ...
با BeginXXX فرد(ریسمان) دیگری را جهت انجام کار XXX می فرستید!
آن فرد(ریسمان) در پایان کار متد callback را جهت اطلاع کدشما از پایان کارش اجرا میکند.
شما که به وسیله متد callback مجدد خبردار شده اید متد EndXXXرا اجرا و نتیجه عملیات را گرفته و اعمال دلخواه را انجام میدهید.