رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

سوال

hamedafrough    1

کاربر عادی

سلام دوستان

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

متشکرم

 
	
<?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 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0
behnam_tr    158

کاربر رو به رشد

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

 

 

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
محمدرضا شاهپیری    3,743

معاون انجمن

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

سلام دوستان

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

 

 

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

 

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
hamedafrough    1

کاربر عادی

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

 

 

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

  • پسندیدن 1

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...