نحوه ارسال فایل از طریق سوکت

[M.KH-SH]

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

یک سئوال دارم

چطور میتونم یک فایل رو (عکس) از کامپیوتر کلاینت به سرور انتقال بدم؟

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

کد بخش دریافت سرور به صورت زیر هستش::

server.Listen(Integer.MaxValue)
Dim client As Socket = server.Accept
Dim rec(10 * 1024) As Byte
client.Receive(rec)
Dim m As New IO.MemoryStream(rec)
Me.PictureBox1.Image = Image.FromStream(m)

میشه راهنمایی کنین؟

[arash020]

سلام
برنامه آماده همرام نبود .
این لینک (http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=10&lngCodeId=127&strZipAccessCode=tp%2FA1277031)رو دنبال کن .
و این لینک (http://www.dreamincode.net/forums/topic/149183-send-file-with-windows-socket/) .
و اینجا (http://www.eggheadcafe.com/community/vb/14/10323/sending-file-from-client-to-server.aspx) .
موفق باشی