Quote (indexosu)
запросами get/post через php-скрипт который взаимодействует с базой.
Умничка
Code
-------------------------------------------------------------------------
function PostZapros(url:string; zapros:string):string;
var IdHTTP:TIdHTTP; list:TStringList;
begin
IdHTTP:=TIdHTTP.Create(nil);
list:=TStringList.create;
list.add(zapros);
result:=IdHTTP.POST(url,list);
IdHTTP.Free;
list.Free;
end;
----------------------------------------------------------------------
procedure Tf.SpeedButton1Click(Sender: TObject);
begin
f.Memo1.Text:=PostZapros('http://z9_client.ru/comn.php','xxx=kaka');
end;
----------------------------
comn.php:
<?php
if($_POST['xxx']=="kaka"){echo 'nea';}
?>