delphi siteden labele nasıl veri çekebilirim ÇÖZDÜK

[fedora]

Merhaba butondan labele yazdırabiliyorum ama 2 tane farklı buton koyarak bu butonların internet sitesi üzerinden veri çekip labele yazdırmasını istiyorum mesela
ilk butona bastığımızda bunu getirecek fakat siteden çekecek
Ağzının tadını bilenlerin Delphi forumu

ikinci butona bastığım zaman ise
Delphi Forum

yazısını getirecek bunuda aynı şekilde siteden çekecek delphide yeniyim yardımcı olursanız sevinirim.

Çözüm burada :viewtopic.php?f=2&t=35289

[fedora]

yardımcı olacak yok mu TMEMO a çeksemde olur arkadaşlar.

[brs]

Kod: Tümünü seç

procedure TForm1.YenileClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do
  begin
    ListBox1.Items.Add(WebBrowser1.OleObject.Document.links.Item(i));
  end;
end;

Kod: Tümünü seç

procedure TForm1.AnaSayfaClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do
  begin
    // Memo1.Lines.Add(WebBrowser1.OleObject.Document.links.Item(i));
    Memo1.Lines.Add(WebBrowser1.OleObject.Document.Frames.item(i).Document.URL);

    Memo1.Lines.Add(WebBrowser1.OleObject);

  end;
end;


end;

Kod: Tümünü seç

procedure TForm3.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
memo1.Clear;
memo1.Text:=WebBrowser1.OleObject.document.documentElement.innerHTML;
end;

Uses
MsHTML;


Sanırım bu kadar örnek araştırma yapmanız için yeterli olur;
Konuyu açalı daha ne kadar olmuş "yardımcı olacak yok mu TMEMO a çeksemde olur arkadaşlar." ????

[fedora]

Hocam fazla bilgim yok yardımcı olursanız sevinirim
2 adet buton olacak
Google butonu koyacaım google a tıkladığım zaman
https://www.google.com/robots.txt
burdaki şeyleri memo ya yazcak
aynı şekilde facebook butonu olacak ona bastıgımda
www.facebook.com/robots.txt
burayı çekecek denemediğim yöntem kalmadı yardımcı olursanız sevinirim.