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

الصفحات : 1 2

مجرد اضافة بسيطة ومهمة وذلك للتأكد من عمل حذف و اختيار ( الكل او الجزء )

PHP كود :
if(isset($_POST['check_all']))
if (isset($_POST["slct"]) && count($_POST["slct"])!=0)
for ($i=0; $i<count($_POST["slct"]); $i++)
if (is_numeric($_POST["slct"][$i]))
echo $_POST["slct"][$i].'<br>'; 

سنقوم باعطاء لكل شاك بوكس قيمة ستكون ( id )
مثال
ساستخدم 2 كتجربة فقط

PHP كود :
<td><input type="checkbox" name="slct[]" value="2" /></td> 

وسنستخدم رسالة تاكيد

PHP كود :
<input id="btOrange" type="submit" value="Delete" onclick="if (!confirmation()) return false;" /> 

هل يوجد مصممين او مبرمجي php و جكيري والاجاكس ... هنا ؟

اضافة سجل جديد

PHP كود :
var test:TDynamicSA;
list:TStringList;
begin
// test:=split(IdHTTP1.Get('http://127.0.0.1/exemple_02/active.php?hdd=123'),'|');
 //if test[0]='MSG' then
 //ShowMessage(test[2]);
 //---------------------
 list:=TStringList.Create;
 list.Add('add=membre') ;
 list.Add('hdd=hhhh') ;
 list.Add('user=delphi') ;
 list.Add('windows=win7') ;
 list.Add('cntry=USA') ;
 IdHTTP1.Post('http://127.0.0.1/exemple_02/active.php',list) ;
 list.Free;
end; 

اما كود php

PHP كود :
if(isset($_POST['add'])){
InsertMembre();
echo 'Insert_Membre';
} 

PHP كود :
//-------------------------------------------------------------------------
function con(){return new mysqli('localhost', 'root', '', 'delphi');}
//-------------------------------------------------------------------------

function InsertMembre()//<<<
{
$mysqli = con();
$date   = date("Y-m-d H:i:s"); 
$ip =$_SERVER["REMOTE_ADDR"];
$stmt = $mysqli->prepare("INSERT INTO membres(ip,hdd,user,windows,date,cntry) VALUES (?, ?, ?, ?, ?,?)"); 
$stmt->bind_param('ssssss',$ip,$_POST['hdd'],$_POST['user'],$_POST['windows'],$date,$_POST['cntry']);  
$stmt->execute(); 
$stmt->close();
} 

الدروس متاخرة قليلا لاني بدات في تعلم mysqli لاني قرات ان php ستستغني على mysql

تم المشروع جزئيا
للتجربة
حمل هذا
http://sourceforge.net/projects/xampp/
ضع ملفات php في C:\xampp\htdocs\exemple_02
افتح phpmyadmin وانشا قاعدة بيانات باسم delphi
تم ارفاق الجداول
هناك نقوصات كثيرة لاكن الفكرة تمت

[صورة: 20130312124719.png]

PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var test:TDynamicSA;
list:TStringList;
begin

 test:=split(IdHTTP1.Get('http://127.0.0.1/exemple_02/active.php?cmnd&hdd=123456'),'|');
 if Length(test)>0 then begin
if test[0]='MSG' then
MessageBox(0, PWideChar(test[1]), PWideChar(test[2]), +mb_ok);
if test[0]='ACT' then
MessageBox(0, PWideChar(test[1]+' Until '+test[2]), 'WoooW', +mb_ok);
 if test[0]='DES' then begin
MessageBox(0, PWideChar('You cannot access because : '+test[2]), PWideChar(test[1]), +mb_ok);
Caption:='<Démo>'
 end;
 end;

 //---------------------
 list:=TStringList.Create;
 list.Add('add=membre') ;
 list.Add('hdd=123456') ;
 list.Add('user=delphi') ;
 list.Add('windows=win7') ;
 list.Add('cntry=USA') ;
 IdHTTP1.Post('http://127.0.0.1/exemple_02/active.php',list) ;
 list.Free;
end; 

ماتم تعديله

اضافة امر تعمل
تحديث اخر وقت وصول
تحديث واضافة امر
حذف الاوامر والاعضاء
واشياء اخرى نسيتها...

ولارسال امر
[صورة: 20130312125749.png]

الصفحات : 1 2

onexite

onexite

onexite