idHTTP1.Post veya Get

[adnansirca]

http://www.istanbulbarosu.org.tr/index.asp adresinde bulunan kullanıcı adı şifre kısmına verileri girip login işlemini progrmdan yapmaya çalışıyorum.. Forumda araştırdım ama idhttp ile yapamadım...

Kod:
var
liste : TStringList;
UserName,PassWord : String;
url : WideString;
Begin
url := 'http://www.istanbulbarosu.org.tr/index.asp';
UserName := EdtKullanici.Text;
PassWord := EdtSifre.Text;
liste := TStringList.Create();
liste.add('javascript:Function LoginChkForm();document.login.username==UserName;document.login.password==PassWord;Login.Submit;'
Webbrowser1.Navigate(idhttp1.post(url,liste));

bu şekilde boş bir sayfa veriyor....
javascript yerine başka nasıl yapılabilir...

[mrmarman]

Selam...

- Elimde bir loginname ve password olsaydı denerdim ama sen şunu dene... ( IdHttp ile )

Kod: Tümünü seç

Var
  Name, Pass, URL, Gelen : String;
begin
  Name := 'isim';
  Pass := 'Şifre';
  URL  := Format('http://www.istanbulbarosu.org.tr/Login.asp?Username=%s&Password=%s&LType=1', [Name, Pass]);
  Gelen := IdHttp1.Get( URL );
  // artık gelen içeriğini kullanabilirsin
end;

[FrontPage]

Kod: Tümünü seç

var
  GidenData, GelenString: TStringList;
  GelenData: TStringStream;
begin
  GidenData := TStringList.Create;
  GelenData := TStringStream.Create('');
  GidenData.Values['Username'] := trim(Kullanici.Text);
  GidenData.Values['Password'] := trim(Sifre.Text);
  GidenData.Values['LType'] := trim(Tip.Text);
  IdHttp1.Post('http://www.istanbulbarosu.org.tr/Login.asp', GidenData, GelenData);
  GelenString := TStringList.Create;
  GelenString.Text := GelenData.DataString;
end;

bu kodu kullanıyorum. kullanıcı girişlerinde get metodu kullanırsanız %99,9 oranında giremezsiniz. Çünkü giriş formları genellikle parolanın adres satırında görünmemesi gibi güvenlik önlemleri nedeniyle POST metodunu kullanır ve get ile gönderdiğiniz değeri büyük olasılıkla almazlar.

Saygılar

[adnansirca]

Sayın FrontPage
Kodu uyguladım ama
"HTTP/1.1 Object moved"
şeklinde hata verdi.....

Yukarıda belirmemişim....
Ben bu şekilde kullanıcı adı ve şifreyi girdikten sonra sayfayı webbrowserda görüntelemek istiyorum......

Bir önceki cevapta verilen kodu yazdım ama bu sefr de Hatalı Sorgu ifadesiyle karşılaştım......
Çözemedim galiba...
Yardımcı olursanız sevinirim ..
Saygılar

[adnansirca]

Sayın mrmarman verdiğiniz kodu uyguladım ama yine olmadı....

Var
Name, Pass, URL, Gelen : String;
begin
Name := 'isim';
Pass := 'Şifre';
URL := Format('http://www.istanbulbarosu.org.tr/Login. ... %s&LType=1', [Name, Pass]);
Gelen := IdHttp1.Get( URL );
// artık gelen içeriğini kullanabilirsin
end;

Ben url yi web bowserda da göstermek istiyorum... Sizin verdiğiniz kodda Hatalı Sorgu sonucu ile karşılaşıyorum.....

Var
Name, Pass, URL, Gelen : String;
begin
Name := 'isim';
Pass := 'Şifre';
URL := Format('http://www.istanbulbarosu.org.tr/Login. ... %s&LType=1', [Name, Pass]);
Gelen := IdHttp1.Get( URL );
// artık gelen içeriğini kullanabilirsin
webbrowser1.Navigate(Gelen); //şekilnde kullanmak istiyorum
//hatalı sorgu sonucu çıkıyor....
end;

kullanıcı adı ve şifre istemişsiniz..... kendiminkini verebilirim email adresinizi göremedim.....
Yardımlarınızı bekliyorum......

[mrmarman]

WebBrowser içinde görmek istiyorsan, aşağıdaki şekilde bir dene..

Kod: Tümünü seç

// HTTPEncode için USES HTTPApp
Procedure WebPost( WebBrowser:TWebBrowser; Isim, Sifre : String );
var
  strData  : string;
  PostData : OleVariant;
  Headers  : OleVariant;
  i        : Integer;
begin
  //URL := Format('http://www.istanbulbarosu.org.tr/Login.asp?Username=%s&Password=%s&LType=1', [Name,
  strData :=  'Username=' + HTTPEncode(Isim)  + '&'
            + 'Password=' + HTTPEncode(Sifre) + '&'
            + 'LType=1';
  PostData := VarArrayCreate([0, Length(strData) - 1], varByte);
  for i := 1 to Length(strData) do
    PostData[i-1] := Ord(strData[i]);
  Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
  WebBrowser.Navigate('http://www.istanbulbarosu.org.tr/Login.asp', EmptyParam, EmptyParam, PostData, Headers);
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebPost( WebBrowser1, Edit1.Text, Edit2.Text );
end;

[adnansirca]

Sayın mrmarman yardımlarınız için teşekkür ederim...
Son verdiğiniz kodla çalıştı....
Saygılarımla.....

[hasan]

programdan , sitedeki MSSQL veritabanına kayıt için ne yapmamız gerekiyor arkadaşlar =?

[Trial_Cooder]

var
liste:tstringlist;
UserName,PassWord:tstringstream;
url : WideString;
begin
url := 'http://www.istanbulbarosu.org.tr/index.asp';
UserName := EdtKullanici.Text;
PassWord := EdtSifre.Text;
liste := TStringList.Create;
liste.add('javascript:Function LoginChkForm();document.login.username==UserName;document.login.password==PassWord;Login.Submit;' Webbrowser1.Navigate(idhttp1.post(url,liste));
memo1.text := liste.DataString;

denemedim ama olabilirde

[hasan]

arkadaşlar programdan .aspx sayfasına post metodu ile MS SQL ver,tabanına nasıl kayıt girebiliriz veya Hosttaki DB de veri kayıt için SP kullanıyorum,delphiden bu SP ye erişerek ve ,ilgili parametreleri yollayarak nasıl kayıt girişi yaparım hosttaki Db ye ?
uzun zamandır arıyorum lütfen destek ?

[aslangeri]

s.a.
bunun için hosttan veritabanına erişim için portları açmaları lazım. eğer kendi hostunuz değilse çok zor açmaları.
kolay gelsin.

[hasan]

s.a Hocam
Server kendimin VPS kullanıyorum ,istediğim portu açabiirim ama açtıktan sonra nasıl bir işlem yapmam gerekiyor.Programa MS SQL admin bağlantı kodlarını yazmak istemiyorum ve yazmadan veri ekleme silme değiştir select işlerini yapıp programda dönen verileri göstermem laızm , ufak ve basit bir örnek yollarsanız sevinirim.Nasıl bir program yaopmak istediğimi bi düşünün,ona göre bir yönteme ihtiaycım avr , acilen açıkçası bayadır bu olayı yapmaya çalışıyorum ama olmadı bir türlü ...

[hasan]

aslangeri Hocam ;

bi fikir,çözüm talep ediyorum.

[aslangeri]

a.s.
o zaman bağlantı parametrelerini şifrele.
program bağlantı yapmadan önce şifreyi çözer bağlantı parametrelerini ayarlar öyle bağlanır.
belkide web servisleri sizin için uygun çözüm olabilir.
hazırlayacağınız bir kaç web servisi ile işlemlerinizi halledebilirsiniz.
kolay gelsin.

[hasan]

bağlantı şifrelerini MD5 lemeyi düşündüm ama güvenlik açısından sorun çkar mı ki ? Sonuçta freeware dağıtılacak bir program olacak ve herkes değil,üye olanlar bağlanmalı sadece.Bu Md5 güvenlik sorununa neden olur mu ki ?