Merhaba, webbrowser ile parseleme işlemi yaparken "Sitemiz kullandığınız tarayıcının sürümünü desteklememektedir. Siteye erişim için aşağıdaki tarayıcılardan bir tanesini yüklemenizi öneriyoruz" gibi bir ileti alıyorum. Bu tür sorunlarda ne yapmalıyım. Bütün parseleme işlemlerini webbrowser ile yaptım, bir iki site için herşeyi iptal etmek istemiyorum.
örneğin http://www.misli.com/iddaa-hazir-kuponlar
teşekkürler.
webbrowser sürümünün açamadığı siteler...
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: webbrowser sürümünün açamadığı siteler...
Karşı taraf senin kullandığın Browser'in ne olduğunu nasıl anlıyor biliyor musun ? Browser navigate ederken HEADER kısmında kendini tanıttığı USER-AGENT direktifi ile...
Aşağıdaki procedure'i kullanabilirsin.
Kullanımı :
Başarılar.
Aşağıdaki procedure'i kullanabilirsin.
Kod: Tümünü seç
procedure BrowseEt( strURL : String; WebBrowser:TWebBrowser );
Const
strUserAgent = 'Mozilla/5.0 (Windows; U; MSIE 9.0; WIndows NT 9.0; en-US))';
Var
Headers : OleVariant;
begin
Headers := 'Content-type: application/x-www-form-urlencoded'#10#13
+ 'User-Agent: '+strUserAgent;
WebBrowser.Silent := True;
WebBrowser.Navigate( strURL,
EmptyParam, EmptyParam, EmptyParam, Headers);
while Webbrowser.ReadyState <> READYSTATE_COMPLETE do
begin
Sleep(1);
Application.ProcessMessages;
end;
end;
Kod: Tümünü seç
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BrowseEt('http://www.misli.com/iddaa-hazir-kuponlar', WebBrowser1 );
end;
Re: webbrowser sürümünün açamadığı siteler...
çok teşekkürler mrmarman hocam, hemen inceliyor ve deniyorum. Yeni yılınız kutlu olsun...
Re: webbrowser sürümünün açamadığı siteler...
EmbeddedWebBrowser kullanırsan eğer UserAgent diye bir property si var. Onu değiştirerek istediğin ortamdan girmiş gibi yapabilirsin.
Re: webbrowser sürümünün açamadığı siteler...
@destiny24 merhaba,
bu başlıkta EmbeddedWB hakkındaki bir tecrübemi paylaşmıştım. Bir incele istersen...
bu başlıkta EmbeddedWB hakkındaki bir tecrübemi paylaşmıştım. Bir incele istersen...