Html elementlerini ..

[Lord_Ares]

yazıcağım bir programdan herhangi bir web sayfasındaki memo,edit,buttonlar gibi sayfanın elementlerinin adlarını bulup onlara veri göndermek istiyorum. html elementlerini nasıl bulap onlara post ile bilgi yollarım.

mesela html sayfada memo gibi bir alan olsun buraya selam yazmak istesem

Şunun gibi html.tag.name('memo '):='selam'

gibi mi göndermem gerek nasıl yaparım.

[Nick_]

@mrmarman hocamızın boyle bı ornegı vardı..

Kod: Tümünü seç

WebBrowser1.Navigate( 'http://www.yahoo.com/r/m1'); 
While WebBrowser1.ReadyState <> READYSTATE_Complete do 
Application.ProcessMessages; 
WebBrowser1.OleObject.Document.GetElementByID('Login').Value := Edit1.Text; 
WebBrowser1.OleObject.Document.GetElementByID('Passwd').Value := Edit2.Text; 
WebBrowser1.OleObject.Document.GetElementByID('.save').Click;

[Lord_Ares]

evet hocamın verdiği örnek var fakat bunu kullanabilmem için herseferinde html sayfanın kodunu açıp içinden element adlarını bulup yazmam gerekiyo bu yüzden bana sayfadaki element adlarını bulan ve ona gönderen kod gerekliydi , http://www.cryer.co.uk/brian/delphi/twe ... object.htm bu adreste bununla ilgili çok güzel kodlar buldum sanırım halledicem.
fakat fikirleri olan varsa alabilirim.
teşekkürler

[ikutluay]

Verdiğin linkteki örnek güzelmiş. bu sayede bizede yaramış oldu.sağol

[Hancet]

S.a.
WebBrowser kullanmadan, direk default tarayıcı üzerindeki editlere yada memolara veri girdirmek için nasıl bir yol izlemek gerekiyor acaba bilginiz var mı?

mesela Mynet'e otomatik olarak adres ve şifreyi yazdırmak istiyorum, yada google'de arama yapmak için kelimeyi kendi programıma girmek istiyorum gibi....

[oklawa]

http://delphi.about.com/od/internetintr ... erenum.htm

Buradaki kodlardan yola çıkarak yapılabilir düşüncesindeyim.. Kolay gelsin..

[Hancet]

Hocam verdiğiniz adreste açık olan tarayıcıları listeleme ve seçilen tarayıcının kaynak kodlarını, metin halini ve kullanılan bileşenleri treeview tarzı gösterme uygulaması var. ben açık olan tarayıcıdaki edit'lere nasıl veri girileceğini bulamadım. ordaki kodlardan da böyle bir şey nasıl yapılır çıkaramadım tam olarak.

dışarıdan bileşenlere müdahale etmeyle ilgili konulara baktım forumda ama onlarda web siteleri için geçerli olmuyor maalesef.
başka bir düşünceniz var mı acaba?

[oklawa]

Internet Explorer ile http://www.google.com.tr'yi açıp aşağıdaki kodu deneyebilir kendi uygulamanıza göre yapılandırabilirsiniz..

Google da arama metin girişi adı 'q' olduğuna göre..

Kod: Tümünü seç

procedure TForm1.BrowserInfoButtonClick(Sender: TObject);
var
  ShellWindows: TShellWindows;
  ShellWindowDisp: IDispatch;
  WebBrowser: IWebbrowser2;
  Document: Variant;
  Count: integer;
begin
  if BrowserList.ItemIndex = -1 then
  begin
    ShowMessage('Select browser first.');
    Exit;
  end;
  ShellWindows := TShellWindows.Create(nil);
  try
    for Count := 0 to ShellWindows.Count - 1 do
    begin
      ShellWindowDisp := ShellWindows.Item(Count);
      if ShellWindowDisp = nil then Continue;
      ShellWindowDisp.QueryInterface(iWebBrowser2, WebBrowser);
      if WebBrowser.LocationURL = '' then Continue;
      if BrowserList.Items[BrowserList.ItemIndex] = WebBrowser.LocationURL then Break;
    end;
  finally
    ShellWindows.Free;
  end;
  Application.ProcessMessages;
  Document := WebBrowser.Document;
  if webbrowser.LocationURL = 'http://www.google.com.tr/' then
  Document.All.Item('q',0).Value := 'Deneme girişi';
end;

Kolay gelsin..

[tsamim]

İyi çalışmalar. Öncelikle oklawa arkadasımıza tesekkrü edrim. Fakat BrowserList te hata verio acaba uses satırına herhangi birşeymi eklememiz gerekiyo.

[khanco]

uses satırına ise MSHTML_TLB unitini ekle