مشکل در گرفتن جواب از api

[mohsen12 7]

سلام

من خیلی سر در نمیارم از برنامه نویسی ولی عاشق اینم که یاد بگیرم

الان داشتم روی ساخت یه برنامه هواشناسی کار میکردم که اموزششا از فلان جا گرفتم(تبلیغ نشه)

من درخواست را به api میفرستم و دریافت میشه و جواب هم میاد

اما وقتی میخوام جواب دریافتی از apiرا توی یه فایل به اسم log.txtبریزم و از اونجا این فایلا باز کنم تا اطلاعات دریافتی را بخش بندی کنم و به برنامه ام بدم نمیشه !!!

فایل پروژه و شات از خطا را میفرستم لطفا اگه کسی میتونه کمک کنه خیلی ممنون میشم

                   سورس پروژه      http://s16.picofile.com/file/8413179676/New_folder.rar.html

 

 

[محمدرضا شاهپیری 5,579]

در 44 دقیقه قبل، mohsen12 گفته است :

سلام

من خیلی سر در نمیارم از برنامه نویسی ولی عاشق اینم که یاد بگیرم

الان داشتم روی ساخت یه برنامه هواشناسی کار میکردم که اموزششا از فلان جا گرفتم(تبلیغ نشه)

من درخواست را به api میفرستم و دریافت میشه و جواب هم میاد

اما وقتی میخوام جواب دریافتی از apiرا توی یه فایل به اسم log.txtبریزم و از اونجا این فایلا باز کنم تا اطلاعات دریافتی را بخش بندی کنم و به برنامه ام بدم نمیشه !!!

فایل پروژه و شات از خطا را میفرستم لطفا اگه کسی میتونه کمک کنه خیلی ممنون میشم

 سورس پروژه      http://s16.picofile.com/file/8413179676/New_folder.rar.html

خط 67 رو اشتباه نوشتین.به صورت زیر باید بنویسید

Dim inst As InputStream=File.OpenInput(File.DirDefaultExternal,"log.txt")

 

[mohsen12 7]

در ۱ ساعت قبل، محمدرضا شاهپیری گفته است :

خط 67 رو اشتباه نوشتین.به صورت زیر باید بنویسید

Dim inst As InputStream=File.OpenInput(File.DirDefaultExternal,"log.txt")

ممنون ولی این را هم امتحان کردم بعد به خط69 گیر داد.

خیلی مهم نبود برا همین کلا پاکش کردم و به جای همه ی DirDefaultExternal

Dir Internalقرار دادم و

Dim parser As JSONParser
    parser.Initialize(File.ReadString(File.DirDefaultExternal,"log.txt"))
    Dim root As Map = parser.NextObject
    
    Log(root)

را به جای خط 67 به بعد گذاشتم الان اطلاعات برگشتی ازapiتوی قسمتlogمیاد وکارم راه افتاد