IDHttp.Post

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Trial_Cooder
Üye
Mesajlar: 236
Kayıt: 17 Nis 2006 04:44

IDHttp.Post

Mesaj gönderen Trial_Cooder »

$veri = mysql_num_rows(mysql_query("select * from tablo where kullanici ='" . $kullanici . "' and sifre ='" . $sifre . "'" ));

IDHttp.Post'u nasıl kullanabilirim buna karşın

post'da hem kullanıcı adı hemde sifre olması gerekiyor, forumda baktım bulamadım
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

PHP kaynak koduna tekrar bakmalısın. $kullanici ve $sifre için daha yukarı satırlarda (hatta ilk başta olması muhtemel) yapılan eşitlikten POST parametresinin adını göreceksin. O parametreyi IdHttp ile post operasyonunda kullancaksın.
Resim
Resim ....Resim
Kullanıcı avatarı
Trial_Cooder
Üye
Mesajlar: 236
Kayıt: 17 Nis 2006 04:44

Mesaj gönderen Trial_Cooder »

cevap geç geldi biraz :P
soruyu sorduktan sonra cevabıda buldum okadar aradım bulamadım konu açtım buldum :D

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
str:tstringlist;
response:tstringstream;
begin
str := TStringList.Create;
Response:= TStringStream.Create('');
try
str.Clear;
IdHTTP1.Disconnect;
str.Add('kullanici=' + Edit2.Text);
str.Add('sifre=' + Edit1.Text);
IdHTTP1.Post('http://sgsg.com/ds.php',str,Response);
memo1.text := Response.DataString;
except
on e: exception do begin
Memo1.text:= '';
end;
end;
str.Free;
Response.Free;

if Memo1.Text = 'Hatali Giris!' then
ShowMessage('Hatalı Giriş!')
else
begin
ShowMessage('Giriş Yapıldı!');
Form2.Hide;
Form1.Show;
end;
end;
Cevapla