مولتی پنل آنلاین

[hamedafrough 5]

سلام دوستان

من یه مولتی پنل آنلاین ساختم که وقتی اجرا می کنم یه صفحه سفید بهم میده و اطلاعات رو نمایش نمیده
ممنون میشم کمکم کنید بگید ایراد کدهام کجاست

متشکرم

<?php $conn=new PDO('mysql:host=localhost;dbname=hamedafr_misaq;charset=utf8','adminname','pass' ); $data=$conn->query('SELECT ID,nam,semat,kod FROM tblusers'); $array=array(); while($row=$data->fetch()) { array_push($array,array('ID' => $row['ID'],'nam' => $row['nam'],'kod' => $row['kod'],'semat' => $row['semat'])); } echo json_encode($array); $conn=null; ?>

Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lprodileazalist") ht1.Initialize("ht1",Me) ht1.Download("http://hamedafrough.ir/misaq/tblusers.php") End Sub

Sub jobdone1(job As HttpJob)
		
	If job.Success=True Then
		j.Initialize(job.GetString)
		Dim list As List=j.NextArray
		
		For i=0 To list.Size-1
			Dim map1 As Map=list.Get(i)
			
			Dim p As Panel
			p.Initialize("p")
			slvaza.Panel.AddView(p,0,top,95%x,26%y)
			p.LoadLayout("lprofileazalist2")
			p.Tag=i
			top=top+15%y+0%x
			lblid.Text=map1.Get("ID")
			lblnam.Text=map1.Get("nam")
			lblsemat.Text=map1.Get("semat")
			lblkod.Text=map1.Get("kod")
		Next
		slvaza.Panel.Height=top
		Else
		Msgbox("","خطا در برقراری ارتباط")
	End If
	ht1.Release
	
	
End Sub

 

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

*** Service (httputils2service) Create ***

** Service (httputils2service) Start **

 

[behnam_tr 172]

چرا فایل php رو دانلود میکنید ؟؟؟ 

شما باید یه مقداری رو پست کنید به فایل php

از دستور post استفاده کنید نه download

ht.PostString("http://padinasystem.ir/ytdl/index.php","url="& EditText1.Text &"")

 

Sub jobdone (job As HttpJob)

    If job.Success = True Then
        
        If job.JobName = "job1" Then
    
            Dim mystr As String= job.GetString
                        
            'Log(mystr)
     endif

endif  

  endsub

 

 

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

در 20 ساعت قبل، hamedafrough گفته است :

سلام دوستان

من یه مولتی پنل آنلاین ساختم که وقتی اجرا می کنم یه صفحه سفید بهم میده و اطلاعات رو نمایش نمیده
ممنون میشم کمکم کنید بگید ایراد کدهام کجاست

 

 

کدهای سرورتون که اکی بود.کدهای دریافت اطلاعات هم که اکیه و دانلود موردی نداره. احتمالا مشکل از نحوه پارس کردن جیسنتون هست. از کتابخونه استاندارد زیر استفاده کنید برای پارس کردن جیسون.

 

[hamedafrough 5]

ممنونم اقای شاهپیری
خدا بهتون خیر بده
امتحان میکنم انشالله که حل بشه

[hamedafrough 5]

در در 16 مهر 1398 در 02:20، behnam_tr گفته است :

چرا فایل php رو دانلود میکنید ؟؟؟ 

شما باید یه مقداری رو پست کنید به فایل php

از دستور post استفاده کنید نه download

ht.PostString("http://padinasystem.ir/ytdl/index.php","url="& EditText1.Text &"")

 

Sub jobdone (job As HttpJob)

    If job.Success = True Then
        
        If job.JobName = "job1" Then
    
            Dim mystr As String= job.GetString
                        
            'Log(mystr)
     endif

endif  

  endsub

 

 

ممنونم اقا بهنام
چشم انجام میدم
لطف کردی داداش