delphi4arab منتديات دلفي للعرب

نسخة كاملة : مثال بسيط عن طريقة ارسال معلومات الى استضافة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
سنتناول في هذا الموضوع طريقة ارسال معلومات بسيطة الى (استضافة مجانية وذلك كمثال فقط )
ستجدون في المرفقات ( [attachment=2928] , [attachment=2917] ,[attachment=2935]) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية
لقد تركت معلومات الاستضافة كما هي للتجربة وليفهم المبتدأ قبل المحترف
صورة التطبيق


[صورة مرفقة: LYv058.png]

للاضافة نرسل ثلاثة قيم لهذا الملف 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(SenderTObject);
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(SenderTObject);
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(SenderTObject);
begin
 WebBrowser1
.Navigate('http://delphitest.ga2h.com/');
end
ملاحظة
  • لا تنس تغيير معلومات الاتصال في ملفات php mysqli_connect("myhost","myuser","mypassw","mybd")
  • كل ملفات php غير محمية من الحقن وذلك لتسهيل عملية استعاب المعلومات
السلام عليكم
المرفقات؟
ستجدون في المرفقات ( host.rar , php.rar ,delphi.rar) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية