23-10-2014, 08:58 AM
السلام عليكم ورحمة الله وبركاته
سنتناول في هذا الموضوع طريقة ارسال معلومات بسيطة الى (استضافة مجانية وذلك كمثال فقط )
ستجدون في المرفقات (
host.rar (الحجم : 257.97 ك ب / التحميلات : 346) ,
php.rar (الحجم : 1.33 ك ب / التحميلات : 155) ,
delphi.rar (الحجم : 1.96 ك ب / التحميلات : 183) ) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية
لقد تركت معلومات الاستضافة كما هي للتجربة وليفهم المبتدأ قبل المحترف
صورة التطبيق
للاضافة نرسل ثلاثة قيم لهذا الملف insert حيث هذه القيم تساوي
fuser=edit1.text
luser=edit2.text
age=edit3.text
php
زر الاضافة delphi
للحذف نستخدم المتغير luser للحذف
اي اذا تحقق هذا الشرط luser=edit2.text نقوم بحذف التسجيل
php
زر الحذف delphi
دوبل كليك على الفرم delphi
ملاحظة
سنتناول في هذا الموضوع طريقة ارسال معلومات بسيطة الى (استضافة مجانية وذلك كمثال فقط )
ستجدون في المرفقات (
host.rar (الحجم : 257.97 ك ب / التحميلات : 346) ,
php.rar (الحجم : 1.33 ك ب / التحميلات : 155) ,
delphi.rar (الحجم : 1.96 ك ب / التحميلات : 183) ) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية
لقد تركت معلومات الاستضافة كما هي للتجربة وليفهم المبتدأ قبل المحترف
صورة التطبيق
للاضافة نرسل ثلاثة قيم لهذا الملف insert حيث هذه القيم تساوي
fuser=edit1.text
luser=edit2.text
age=edit3.text
php
PHP كود :
mysqli_query($con,"INSERT INTO Persons (FirstName, LastName, Age)
VALUES ('".$_GET['fuser']."', '".$_GET['luser']."','".$_GET['age']."');");
PHP كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IdHTTP1.Get('http://delphitest.ga2h.com/insert.php?fuser='+edit1.text+'&luser='+edit2.text+'&age='+edit3.text);
//http://delphitest.ga2h.com/insert.php?fuser=admin&luser=admin&age=80/
WebBrowser1.Navigate('http://delphitest.ga2h.com/');
end;
اي اذا تحقق هذا الشرط luser=edit2.text نقوم بحذف التسجيل
php
PHP كود :
mysqli_query($con,"DELETE FROM Persons WHERE LastName='".$_GET['luser']."'");
PHP كود :
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
IdHTTP1.Get('http://delphitest.ga2h.com/delete.php?luser='+edit2.text);
//http://delphitest.ga2h.com/delete.php?luser=lastuser/
WebBrowser1.Navigate('http://delphitest.ga2h.com/');
end;
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://delphitest.ga2h.com/');
end;
- لا تنس تغيير معلومات الاتصال في ملفات php mysqli_connect("myhost","myuser","mypassw","mybd")
- كل ملفات php غير محمية من الحقن وذلك لتسهيل عملية استعاب المعلومات