+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الاقسام الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=74)
+--- قسم : قسم برمجة وتطوير تطبيقات الأندرويد (http://vb4arb.com/vb/forumdisplay.php?fid=75)
+---- قسم : basic 4 android (http://vb4arb.com/vb/forumdisplay.php?fid=199)
+---- الموضوع : طلب طريقة جلب قيمة متغير من ملف php (/showthread.php?tid=37083)
طلب طريقة جلب قيمة متغير من ملف php - ahmed201 - 02-12-20
سلام عليكم ممكن طريقة جلب قيمة مستغير في ملف php إظهار في b4a جزاكم الله الف خير
RE: طلب طريقة جلب قيمة متغير من ملف php - alfaiz678 - 07-12-20
كود 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;
?>RE: طلب طريقة جلب قيمة متغير من ملف php - ahmed201 - 07-12-20
(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;
?>
جزاك الله الف خير اخي الغالي