Twebbrowser DocumentComplete Sorunu
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Twebbrowser DocumentComplete Sorunu
S.A. ben aşağıdaki kodu yazarak web sitesine bağlanıyorum.
var
WB: TWebBrowser;
..
begin
WB:=TWebBrowser.Create(Form1);
WB.Navigate('www.google.com');
end;
buraya kadar sorun yok.
documentcomplete olduğunda googleye bağlanıp kaynak kodunu almak istiyorum.Ama bir türlü beceremedim.
Bu konuda bana yardımlarınızı bekliyorum.
ilginiz için şimdiden teşekkürler.
var
WB: TWebBrowser;
..
begin
WB:=TWebBrowser.Create(Form1);
WB.Navigate('www.google.com');
end;
buraya kadar sorun yok.
documentcomplete olduğunda googleye bağlanıp kaynak kodunu almak istiyorum.Ama bir türlü beceremedim.
Bu konuda bana yardımlarınızı bekliyorum.
ilginiz için şimdiden teşekkürler.
varkaank yazdı:webBrowser olmadan yapmak istiyorsan runtime da iken webBrowser nesnesini oluşturup işin bitincede nesneyi kaldırıp devam edebilirsin
WB: TWebBrowser;
..
begin
WB:=TWebBrowser.Create(Form1);
WB.Navigate('www.google.com');
end;
yukarıda ki kodda ben zaten webbrowser nesnesini oluşturdum.
webbrowser nesnesininin event ı olan documentcomplete fonksiyonunu kodla oluşturamıyorum.
uses urlmoon, shellapi
function DownLoadInternetpage(Source, Dest : String): Boolean;
begin
try
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sayfa: TextFile;
Satir : String;
begin
downloadinternetpage((edit1.text),'C:\ensonsayfa.html');
Memo1.Lines.Clear;
AssignFile(TF, 'C:\ensonsayfa.html');
Reset(TF);
while not eof(TF) do begin
Readln(TF, Satir);
memo1.Lines.Add(Satir);
end;
CloseFile(TF);
end;
bunu bi dene istersen 1 edti vede 1 memo lazım
function DownLoadInternetpage(Source, Dest : String): Boolean;
begin
try
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sayfa: TextFile;
Satir : String;
begin
downloadinternetpage((edit1.text),'C:\ensonsayfa.html');
Memo1.Lines.Clear;
AssignFile(TF, 'C:\ensonsayfa.html');
Reset(TF);
while not eof(TF) do begin
Readln(TF, Satir);
memo1.Lines.Add(Satir);
end;
CloseFile(TF);
end;
bunu bi dene istersen 1 edti vede 1 memo lazım
sadece kaynak kodunu almak ıstıyorsan İndy Clients icerisinden idhttp bılesenını kullanabılırsın
Memo1.Text:=IdHTTP1.Get('http://www.google.com.tr');
Memo1.Text:=IdHTTP1.Get('http://www.google.com.tr');
@nick_ hocam ben bu şekilde google için denemiştim ama başarılı olamamıstım kaynak kodunu almıyordu ..Nick_ yazdı:sadece kaynak kodunu almak ıstıyorsan İndy Clients icerisinden idhttp bılesenını kullanabılırsın
Memo1.Text:=IdHTTP1.Get('http://www.google.com.tr');
neden yapar acaba ?
NOT: Yine denedim yine olmadı değer boş dönüyor..
amatör küme programcı
bazı sayfalar kodun cachelenmesini önler. ondan olabilrmi
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Nasıl bos doner http://www.google.com.tr olarakmı denıyorsun http://www.google.com olarakmı??lanetli yazdı:@nick_ hocam ben bu şekilde google için denemiştim ama başarılı olamamıstım kaynak kodunu almıyordu ..Nick_ yazdı:sadece kaynak kodunu almak ıstıyorsan İndy Clients icerisinden idhttp bılesenını kullanabılırsın
Memo1.Text:=IdHTTP1.Get('http://www.google.com.tr');
neden yapar acaba ?
NOT: Yine denedim yine olmadı değer boş dönüyor..
.com olarak denemiştim
Http://1.1.302 gibi bir hata verdi
.com.tr yapınca oldu
com da neden alamıyoruz veriyi acaba ?
Http://1.1.302 gibi bir hata verdi
.com.tr yapınca oldu
com da neden alamıyoruz veriyi acaba ?
amatör küme programcı
http://www.google.com olarak normal explorer den girermisin nereye gırdıgıne bı bak