مثال عن برمجة الـ http بالدلفي.

[onexite]

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

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

[onexite]

تم تطوير السكربت قليلا
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 


[sadwolf]

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



[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'


هل من حل ؟

[S.FATEH]

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

[sadwolf]

النسخة 7

professional

second edition

[TheGame]

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

[KIKAZ]

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