انتقال فایل دانلود شده

[coco 1,746]

سلام دوستان عزیز!

میخواستم بدونم فایلی که با httpjob دانلود کردم رو چجوری باید انتقال بدم به جای دیگه؟

ممنون!

[امین شاهدی 5,767]

یه outputstream میسازی و فایل رو توش کپی میکنی : 

Sub dd_Complete(Job As HttpJob)
	If Job.Success=True Then
    Dim o As OutputStream
    o = File.OpenOutput(File.DirInternal,"mesal.mp3", False)
    File.Copy2(Job.GetInputStream, o)
	o.Close
	Job.Release
End Sub

[Kazem Forghani 2,927]

سلام.

اگر اول جستجو می کردید زود تر به نتیجه می رسیدید .

http://answercenter.ir/topic/3718-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D9%88-%DA%A9%D9%BE%DB%8C-%D8%AF%D8%B1-%D9%BE%D9%88%D8%B4%D9%87-%D9%85%D8%AE%D8%B5%D9%88%D8%B5/

[coco 1,746]

یان رو دیدم کاظم جان!

اما نمیتونم دانلود کنم چون اینترنتم آخراشه.

لطفا همینجوری بگین!

[Kazem Forghani 2,927]

یان رو دیدم کاظم جان!

اما نمیتونم دانلود کنم چون اینترنتم آخراشه.

لطفا همینجوری بگین!

خیلی خوب!

اول از همه یک متغیر از نوع httpJob ایجاد می کنیم :

Dim ht As HttpJob

و بعد در اکتیویتی کریت باید به این صورت بنویسید تا فایل دانلود بشه :

ht.Initialize("ht",Me)
Ht.Download("لینک فایل در اینترنت")

خوب تا این جا رو که بلدید برای دانلود فایله حالا در Sub JobDone این رو می نویسیم :

If Job.Success = True Then
If File.IsDirectory(File.DirRootExternal,"FolderName") = False Then
File.MakeDir(File.DirRootExternal,"FolderName")
End If
Dim a1 As InputStream
Dim o1 As OutputStream
Dim a1 As InputStream
Dim o1 As OutputStream
a1 = Job.GetInputStream
o1 = File.OpenOutput(File.DirRootExternal & "/FolderName","FileName",False)
File.Copy2(a1,o1)
o1.Close
a1.Close
ToastMessageShow("فایل دانلود و ذخیره شد",False)
End If
Else
Msgbox("خطا با برقراری ار تباط با سرور","")
End If

خط اول : اگر Job موفقیت آمیز بود ...

خط دوم : و اگر پوشه ای در RootExternal با نام FolderName وجود نداشت ...

خط سوم : پوشه ای با این نام FolderName بساز.

خط چهارم : پیان شرط

خط پنجم : یک متغیر تعریف کردیم از نوع  InputStream با نام a1

خط ششم : یک متغیر تعریف کرده ایم از نوع OutputStream با نام o1

خط هفتم : a1 را مقدار دهی می کنیم با Job.GetInputStream . یعنی همون فایل دانلود شده

خط هشتم : o1 را مقدار دهی کردیم با اون مسیری که پوشه رو ساخته بودیم و یک نام دادیم برای اون فایل دانلود شده .

خط نهم : با این دستور فایل رو در مسیر مورد نظر می ریزیم .

خط دهم و یازدهم : از o1 و a1 خرج می شیم تا فایل ذخیره بشه .

 

بقیه رو هم که می دونید .

 

اگر سوالی بود بگید .

[coco 1,746]

ممنون!

حل شد!

کاری که آقا امین گفتن رو کردم!