مشکل خراب شدن فایل ها پس از ارسال به FTP

[elysium1368 19]

با سلام خدمت اساتید عزیز. یه کد نوشتم که با استفاده از اون فایل ها رو بصورت کامل به سرور ftp انتقال میدم. همه فایلها از لحاظ حجمی کامل میرسن ولی کار نمیکنن! مثلا فایل موسیقی کامل ارسال میشه ولی روی سرور که نگاه میکنم فایلش قابل پخش نیست. همینطور فایل عکس و فیلم. مشکل از کجاست؟ چه چیزی رو رعایت نکردم؟ فایل کد رو بصورت تکست پیوست کردم.

------------

code.zip

[مهدی ایزدی 9,203]

دوست عزیز کدتون رو به جای اینکه توی NotePad قرار بدید به صورت کد در پست پیوست کنید:

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Dim FTP1 As FTP
End Sub

Sub Globals

	Private Btn_back As Button
	Private Btn_browse As Button
	Private Btn_cancel As Button
	Private Btn_send As Button
	Private ET_Address As EditText
	Private ProgressBar1 As ProgressBar
	Dim bmp As Bitmap
	Dim res_dir As String
	Dim res_file As String
	Private khabar_text As EditText
		
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("khabar")
	bmp.InitializeSample(File.DirAssets, "1 - icon.png",48,48)
	Activity.Title = "لطفا فایل مورد نظر را انتخاب کنید"
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btn_send_Click

	FTP1.Initialize ("ftp1", "77.36.240.3", 21, "user", "password")
	FTP1.UploadFile(res_dir , res_file, True, res_file)
	FTP1.Close
		
End Sub
Sub FTP1_UploadCompleted (ServerPath As String, Success As Boolean)
	If Success=True Then
		Msgbox("upload is completed", "")
	End If
End Sub

Sub Btn_cancel_Click
	
End Sub

Sub Btn_browse_Click
	
	Dim fd As FileDialog
	'Dim ret As Object
	fd.FastScroll = True
	fd.KeyboardPopUp = False
	fd.FilePath = File.DirRootExternal ' also sets ChosenName to an emtpy string
	fd.Show("فایل مورد نظر را انتخاب کنید:", "تایید", "خیر", "", bmp)	'ret =
	ET_Address.Text=fd.FilePath&"/"&fd.ChosenName
	res_dir = fd.FilePath
	res_file = fd.ChosenName
	
End Sub
Sub Btn_back_Click
	Activity.Finish
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	
	If KeyCode = KeyCodes.KEYCODE_BACK Then 
		delete_file
		Activity.Finish
		StartActivity(Main)
	End If
	
End Sub

[مجید آرتا 5,874]

سلام

دلیل اینکه فایل ها قابل اجرا نبودن این بوده که شما توی تابع UploadFile  یک آرگومانی رو مربوط به انکریپت فایل رو True  قرار دادین که این مشکل بروز داده

کد زیر رو :

FTP1.UploadFile(res_dir , res_file, True, res_file)

به این تغییر بدید :

FTP1.UploadFile(res_dir , res_file, False, res_file)

[elysium1368 19]

مشکلم رو با کتابخانه FTP_Auto حل کردم. در کل انگار کتابخانه NET برای فایل تکست فقط کار می کرد