تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب طريقة جلب قيمة متغير من ملف php
#1
سلام عليكم ممكن طريقة جلب قيمة مستغير في ملف php إظهار في b4a جزاكم الله الف خير
الرد
تم الشكر بواسطة:
#2
كود b4a

كود :
Sub JobDone(Job As HttpJob)
    If Job.Success Then
    Dim res As String
    res = Job.GetString
    MsgboxAsync(res,"جلب قيمة مستغير في ملف php ")
    Else
    ToastMessageShow("لم تتم العملية تأكد من اتصالك بالانترنت",True)
    
    End If
    ProgressDialogHide
 
End Sub

Sub Button1_Click
    ProgressDialogShow2("........جاري تحميل البيانات  ",False)
    Dim PhpText As HttpJob
    PhpText.Initialize("PhpText", Me)
    PhpText.download2("http://192.168.1.5/t/1.php", _
     Array As String ("Value", ""))
    PhpText.GetRequest.Timeout=15000  ' مهلة الاتصال بالخادم 15000=15 ثانية
End Sub


كود php

PHP كود :
<?php

$Value 
$_GET['Value'];

$Value="اﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ ﻭﺭﺣﻤﺔ اﻟﻠﻪ ﻭﺑﺮﻛﺎﺗﻪ" ;

echo 
 $Value;

?>
الرد
تم الشكر بواسطة: ahmed201 , sendbad100
#3
(07-12-20, 11:24 AM)alfaiz678 كتب : كود b4a

كود :
Sub JobDone(Job As HttpJob)
    If Job.Success Then
    Dim res As String
    res = Job.GetString
    MsgboxAsync(res,"جلب قيمة مستغير في ملف php ")
    Else
    ToastMessageShow("لم تتم العملية تأكد من اتصالك بالانترنت",True)
    
    End If
    ProgressDialogHide
 
End Sub

Sub Button1_Click
    ProgressDialogShow2("........جاري تحميل البيانات  ",False)
    Dim PhpText As HttpJob
    PhpText.Initialize("PhpText", Me)
    PhpText.download2("http://192.168.1.5/t/1.php", _
     Array As String ("Value", ""))
    PhpText.GetRequest.Timeout=15000  ' مهلة الاتصال بالخادم 15000=15 ثانية
End Sub


كود php

PHP كود :
<?php

$Value 
$_GET['Value'];

$Value="اﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ ﻭﺭﺣﻤﺔ اﻟﻠﻪ ﻭﺑﺮﻛﺎﺗﻪ" ;

echo 
 $Value;

?>

جزاك الله الف خير اخي الغالي
الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم