Bu konuda baya tecrübesizim olduğumu baştan söyleyeyim
Şöyle bir html , bir de PHP sayfam var. Normal webbrowserdan kayıt işlemini yapabiliyorum ancak delphiden bu işlemi yapamadım.
url : http://127.0.0.1:8080/uye_kayit_index.html
kayit.php<html>
<body>
<div id="Kayit">
<form action="kayit.php" method="post">
<input type="text" name="kullanici" value="">
<input type="password" name="sifre" value="">
<input type="text" name="mail" value="">
<button type="submit">Giriş</button>
</form>
</div>
</body>
</html>
Delphi ile denemiş olduğum kod<?php
$host ="localhost";
$veritabani ="deneme"; // oluşturulan veri tabanı adı
$kullanici ="root";
$sifre ="";
$baglan = mysql_connect($host,$kullanici,$sifre) or die ("Veri tabanına Bağlanamadı");
$baglan2 = mysql_select_db($veritabani,$baglan) or die ("Veri tabanı seçilemedi");
$kullanici =$_POST["kullanici"]; // delphiden veri gönderilecek
$sifre =$_POST["sifre"]; // delphiden veri gönderilecek
//$sifre2 =$_POST["sifre2"];
$mail =$_POST["mail"]; // delphiden veri gönderilecek
$kayit =mysql_query("insert into uyeler(kullanici,sifre,mail,durum)value('$kullanici','$sifre','$mail','1')");
if ($kayit){
echo " başarılı";
} else
{
echo " başarısız";
}
?>
Kod: Tümünü seç
Function Post_IdHttp( IdHttp:TIdHttp; kullanici, sifre, mail :String ):String;
Const
aURL = 'http://127.0.0.1:8080/uye_kayit_index.html';
Var
Params : TStringList;
begin
Params := TStringList.Create;
With IdHttp do
begin
Request.URL := aURL;
HandleRedirects := True;
RedirectMaximum := 15;
Params.Add('kullanici=' + kullanici );
Params.Add('sifre=' + sifre );
Params.Add('mail=' + mail );
Result := Post('http://127.0.0.1:8080/uye_kayit_index.html', Params);
Params.Free;
end;
end;
Kod: Tümünü seç
Memo1.Lines.Text := Post_IdHttp( IdHttp1, 'kullanici','sifre','mail');