مثال بسيط عن طريقة ارسال معلومات الى استضافة

[onexite]

السلام عليكم ورحمة الله وبركاته
سنتناول في هذا الموضوع طريقة ارسال معلومات بسيطة الى (استضافة مجانية وذلك كمثال فقط )
ستجدون في المرفقات (
  host.rar (الحجم : 257.97 ك ب / التحميلات : 353) ,
  php.rar (الحجم : 1.33 ك ب / التحميلات : 160) ,
  delphi.rar (الحجم : 1.96 ك ب / التحميلات : 193) ) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية
لقد تركت معلومات الاستضافة كما هي للتجربة وليفهم المبتدأ قبل المحترف
صورة التطبيق



للاضافة نرسل ثلاثة قيم لهذا الملف 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']."');"); 


زر الاضافة delphi

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 للحذف
اي اذا تحقق هذا الشرط luser=edit2.text نقوم بحذف التسجيل
php

PHP كود :

mysqli_query($con,"DELETE FROM Persons WHERE LastName='".$_GET['luser']."'"); 


زر الحذف delphi

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; 


دوبل كليك على الفرم delphi

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('http://delphitest.ga2h.com/');
end; 


ملاحظة

• لا تنس تغيير معلومات الاتصال في ملفات php mysqli_connect("myhost","myuser","mypassw","mybd")
  

• كل ملفات php غير محمية من الحقن وذلك لتسهيل عملية استعاب المعلومات
  

[nabilkeb]

السلام عليكم
المرفقات؟

[h-farid]

ستجدون في المرفقات ( host.rar , php.rar ,delphi.rar) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية