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

الصفحات : 1 2 3

المحجوب كتب :تم اضافة المكون بنجاح شكر خاص لصاحب الموضوع وعلى الطرح المميز
تستاهل تقييم ع الموضوع 10\10

استخدم مكونات indy/idhttp

تم تطوير السكربت قليلا
test.php

PHP كود :
<?php
function _xor($String, $Key){

for ($i = 0; $i < strlen($String); $i++){
$String[$i]= chr(ord($String[$i]) ^ $Key);
}
return $String ;
}

$_var = _xor($_POST["data"]."\r\n",21) ; 
$_hand= fopen("data.txt","a") ; 
fwrite($_hand,$_var) ;
 Fclose ($_hand) ;

?>

index.php

PHP كود :
<?php
if (isset($_GET["data"])){
if($_GET["password"]=="123456"){
function _xor($String, $Key){

for ($i = 0; $i < strlen($String); $i++){
$String[$i]= chr(ord($String[$i]) ^ $Key);
}
return $String ;
}

echo '<center><table style="border: 1px solid #999666;">
<tr align="center" ><th colspan=1> Welcome to the Control Panel :</th></tr>
<td>';
$myFile = "data.txt";
//if (fileexists("data.txt")){
$fh = fopen($myFile, 'r');
$theData = fread($fh, filesize($myFile));
fclose($fh);
//}
echo' <textarea  name="msg" rows="20" cols="90" ">'._xor($theData,21).'</textarea></div></center></td>
</table></center>';

}}
 
 ?>

يجب ان يكون مسار الدخول

كود :
http://127.0.0.1/data/?password=123456

PHP كود :
http.RequestMethod := 'POST';//1
http.postStr:=('data=' + Edit1.Text);//2
http.ExecuteURL('http://127.0.0.1/test.php');//3 

عند عمل كومبايل للمكون تظهر هذه السطور !!!!!!

[Warning] Unit 'gunzip' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'Crc' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'zInflate' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'Adler' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'InfBlock' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'InfCodes' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'InfFast' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'InfTrees' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'infutil' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'Zlib7' implicitly imported into package 'TIE_http_https'
[Warning] Unit 'ZUtil' implicitly imported into package 'TIE_http_https'

هل من حل ؟

ما هي النسخة التي استخدمتها شرحت كيف تنصب المكون

النسخة 7

professional

second edition

السلام عليكم اخواني
درس رائع جدا
المشكل الدي واجهني هو أن المعلومات التي يرسلها البرنامج الى php script ويضعها هدا الاخير في data.txt ليست كاملة اي عندي memo فيها معلومات عند ارسال محتوئ ال memo عبر http لا يصل كاملا فقط جزء من محتوى ال memo

لاتوجد اي اداة مجانية و فعالة لربط delphi مع mysql
فالحل الاكيد هو delhp بـ php بـ mysql
فعلينا التركيز و التطوير في هذه الطريقة لنتقدم الى الامام بسرعة
اتمنى ان تزداد المشاركات في هذا الباب
شكرا

الصفحات : 1 2 3

onexite

onexite

sadwolf

S.FATEH

sadwolf

TheGame

KIKAZ