[ahmed201]

سلام عليكم ممكن طريقة جلب قيمة مستغير في ملف php إظهار في b4a جزاكم الله الف خير

[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;

?>

[ahmed201]

(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;

?>

جزاك الله الف خير اخي الغالي