رفتن به مطلب
  • 0

hamedafrough

سوال

سلام دوستان

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

متشکرم

 
	
<?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 **

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

چرا فایل 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

 

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

سلام دوستان

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

 

 

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 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

 

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...