Web Browser

[d4erth]

Öncelikle Herkese Mrb ben foruma yeni üye oldum sorun şu Web Browser kullanarak Örn.SSk sorgu sayfasındaki TextBoxlara Delphideki Formumda Bulunan Bilgileri girip arama veya diğer işlemler yapmak istiyorum acaba yardım edebilirmisiniz şimdiden tşkkürler...

ve herkese mrb iyi seneler..

[barutali]

daha önceden forumda bu konu işlenmişti forumda ilk olarak arama yaparsan cevaba daha hızlı ulaşabilirsin ...

O sıralar yaptığım örneğin kaynak kodları ile beraber vermiştim...
aşağıdaki linkten indirebilirsin .. Sanırsam sayfanın linki değişmiş bu yüzden program ID alamıyor.. Suanki durumuna göre güncelleyebilirsin ...


http://rapidshare.com/files/69696047/Ye ... r.rar.html


Düzenlendi : Kaynak kodlarını verdiğim proje sicil sorgulamaya yarıyor..

[Lord_Ares]

bunun için sitede bir çok örnek var genelde adı html parse olarak geçiyor.
fakat başlangıç olarak hangi site için bunu yapmak istiyorsun baştan ona karar vermelisin çünkü her site için farklı kod yazman gerekebilir. Sitelerin bilgiyi alma şekli önemli site get metodunu mu kullanıyor postmu bunun gibi detayları var. bu site içerisinde bunlarla ilgli bir çok örnek var site içinde programa bölümünde post veya html parse olarak aratırsan sana birçok örnek çıkacak. Eğer yinede sonuca varamazsan bilğim kadarını sana detaylı olarak anlatabilirim.

Benim kullandığım bir yöntem şu şekilde. örneğin bir sitede kullanıcı adı ve parolası giriceğin iki alan var ve site post metodunu kullanıyor

formuna bir adet internet tabından webbrowser, iki adet edit koy
sonra usus satırına mshtml ekle




procedure baglan;
var
adres,str,Headers:OleVariant;
veri:string;
i :integer;

begin

adres:='http://xxxx.com./login.php';
Headers:='Content-type: application/x-www-form-urlencoded'#10#13;

veri:='w='+'&'
+'&'kullanıcadı+'='+HTTPEncode(Form1.Edit1.Text ) ////kullanıcı adı
+'&'+parola+'='+ HTTPEncode(Form1. Edit2.Text );


str:= VarArrayCreate([0, length(veri)-1], varByte);
for i := 1 to length(veri) do
str[i-1] := ord(veri);
Form1.WebBrowser1.Navigate(adres,EmptyParam, EmptyParam,str,Headers);

end;

şeklinde kullanıyorum.

[d4erth]

Çok teşkkürler çok sağolun dediğiniz gibi ben bi geziyim iyice çok teşekkürler sağolun...