+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع الشبكات و الانترنت (https://delphi4arab.net/forum/forumdisplay.php?fid=21)
+--- الموضوع : مثال بسيط عن طريقة ارسال معلومات الى استضافة (/showthread.php?tid=6505)
مثال بسيط عن طريقة ارسال معلومات الى استضافة - onexite - 23-10-2014
السلام عليكم ورحمة الله وبركاته
سنتناول في هذا الموضوع طريقة ارسال معلومات بسيطة الى (استضافة مجانية وذلك كمثال فقط )
ستجدون في المرفقات (
host.rar (الحجم : 257.97 ك ب / التحميلات : 353)
,
php.rar (الحجم : 1.33 ك ب / التحميلات : 160)
,
delphi.rar (الحجم : 1.96 ك ب / التحميلات : 193)
) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العمليةلقد تركت معلومات الاستضافة كما هي للتجربة وليفهم المبتدأ قبل المحترف
صورة التطبيق
![[صورة: LYv058.png]](http://img537.imageshack.us/img537/1645/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']."');");
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 غير محمية من الحقن وذلك لتسهيل عملية استعاب المعلومات
مثال بسيط عن طريقة ارسال معلومات الى استضافة - nabilkeb - 24-10-2014
السلام عليكم
المرفقات؟
مثال بسيط عن طريقة ارسال معلومات الى استضافة - h-farid - 24-10-2014
ستجدون في المرفقات ( host.rar , php.rar ,delphi.rar) كل ماتحتاجون اليه صور واكواد سورس لكل مراحل العملية