كاتب الموضوع : Islam Ibrahim


بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاته

ارجوا من الادارة عدم غلق او حذف الموضوع بحجة انه مكرر لانه في النهايه لخدمة الاعضاء وللحفاظ علي الموضوع من الضياع.


كيف تصنع برنامج FTP في Vb.net

كاتب الدرس: احمد زكريا صالح(ahmed z s)

System.Net.WebRequest.Create - System.Net.FtpWebRequest

Dim clsRequest As System.Net.FtpWebRequest = (System.Net.WebRequest.Create


("ftp://" & "مكان الملف الذي تريد التعامل معه"))

clsRequest.Credentials - System.Net.NetworkCredential

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]clsRequest.Credentials = NewSystem.Net.NetworkCredential(‘User Name, Password)[/TD]
[/TR]
[/TABLE]



clsRequest.Method - System.Net.WebRequestMethods.Ftp

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]clsRequest.Method = System.Net.WebRequestMethods.Ftp.DeleteFile[/TD]
[/TR]
[/TABLE]

وبهذا الامر طلبنا حذف الملف الذي حددنا عندما ارسلنا الطلب بالاعلي

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Dim ftpWebResp As FtpWebResponse = clsRequest.GetResponse()[/TD]
[/TR]
[/TABLE]

الي الان قد انتهينا من حذف الملف لاننا طلبنا شئ من السيرفر ولا نريد ان يرسل لنا السيرفر شئ مثل عند تحميل ملف او نرسل لسيرفر شئ عند الرفع. هذه الطريقة تكفي عند طلب مسح ملف او مجلد او صنع مجلد جديد

Dim Streamer As System.IO.Stream = clsRequest.GetRequestStream()
Dim bFile() As Byte = System.IO.File.ReadAllBytes("الملف الذي تريد التنزيل فيه مع الاسم
الذي تريد التنزيل به")
Streamer.Write(bFile, 0, bFile.Length
Streamer.Close()
Streamer.Dispose()

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Dim streamer As Stream = ftpWebResp.GetResponseStream()
Using fs As New IO.FileStream("مكان الملف", FileMode.Create)
Dim buffer(2047) As Byte
Dim read As Integer = 0[/TD]
[/TR]
[/TABLE]

الكود التالي سيظل يعمل Loop حتي يتم تجميع كل البيانات(Bytes)

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Do
read = streamer.Read(buffer, 0, buffer.Length)
fs.Write(buffer, 0, read)
Loop Until read = 0
fs.Flush()
fs.Close()
streamer.Close()
End Using[/TD]
[/TR]
[/TABLE]

Dim ftpWebResp As FtpWebResponse = clsRequest.GetResponse()
Dim streamer As Stream = ftpWebResp.GetResponseStream()
Dim reader As New StreamReader(streamer)
Dim LineRead As String

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Do Until reader.EndOfStream
LineRead = reader.ReadLine
ListView1.Items.Add(LineRead)
Loop
streamer.Close()[/TD]
[/TR]
[/TABLE]

هذا مثال من صنعي لبرنامج FTP

http://www.mediafire.com/download.php?joinlt3yozi



تم بحمد الله

تحياتي