Pro.WebBrowser prog.yapan varsa projesini sunabilirmi lütfen

[mrtcans]

Arkadaşlar ben Web broser programı yaptımda bazı eksikleri var. Günlerdir uğraşıyorum.
Varsa Profesyonel Web Browser Programı yapan Paylaşırsa çok sevinirim.

Kendi yaptığım Programdaki eksikleri tamamlamam açısından. Teşekkürler.

[ikutluay]

amaç nedir.

[mrtcans]

Kendi yaptığım Programdaki eksikleri tamamlamam açısından

[bocek]

Sorununuzu tam olarak belirtirseniz kod yardımı yapabilirim.

yok ben illede örnek program istiyorum diyosan aşşağıdaki linkte mevcunt.

http://delphi.about.com/od/twebbrowser/ ... Tricks.htm

[mrtcans]

Aslında Sorularım şunlar

1: web browser programı yaptım bu programa internet explorer deki gibi bir mainmenu ekledim(Dosya Düzen Görünüm Sık Kullanılanlar ... gibi) işte bu mainmenu'nün 'Sık Kullanılanlar'' başlığına tıkladığımda açılacak sekmelere sağ tıkladığımda, popupmenu açılmasını istiyorum. Amacım 'Sık Kullanılanlar' başlığının altındaki sekmeleri popupmenu aracılığı ile silebilmek.

2: Web browser'de açık olan web sayfasındaki herhangi bir adrese tıkladığımda, tanıtmış olduğum 'say' değişkenini sadece 1 arttıracak(say:=say+1)kod bloğunu belirtirmisiniz.
Bunu webbrowser nesnesinin On.....Change, On......complate eventlerinde denedim, 'say' değişkenine 4-5 defa 1 ekledi.

Bu konularda yardımcı olursanız çok sevinirim.

[esrehmaan]

Merhabalar

1. sorunu ne yapmak istediğini anlamadım

2. sorunun cevabıda

Kod: Tümünü seç

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
while WebBrowser1.ReadyState <> ReadyState_Complete do Application.ProcessMessages;// webbrowser tamamiyle yüklene kadar bekle
label1.Caption:=inttostr(strtoint(label1.Caption)+1); // label1 captionunu 0 (sıfır) yap
end;

end.

bu işini görür galiba

[mrmarman]

WebBrowser vb. On.. event değerlerinin sitelere göre nasıl davrandığını öğrenebilmek için, formunuza bir tane MEMO koyun ve her EVENT aşamasında aldığı parametreleri MEMO'ya ekleyin.

Böylece aşamaları irdeleyereke size uygun anı yakalayabilir, böylece sayaçlarınızı ona göre ayarlayabilirsiniz. Örneğin aşağıdaki gibi bir erişimde Progress tekrar 0 olduğunda işlem bitti. Ama her zaman böyle olacak anlamına gelir mi ? sorunusu farklı ve iddialı sitelerde deneyerek öğrenebilirsiniz.

Örneğin :

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 WebBrowser1.Navigate('http://www.delphiturkiye.com/forum');
end;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Memo1.Lines.Add( Format('BeforeNavigate2 URL="%s"' , [URL] ) );
end;

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
  Memo1.Lines.Add( Format('ProgressChange Progress="%d" ProgressMax="%d"' , [Progress, ProgressMax] ) );
end;

Sonuç :

Kod: Tümünü seç

Memo1
BeforeNavigate2 URL="http://www.delphiturkiye.com/forum"
ProgressChange Progress="100" ProgressMax="10000"
ProgressChange Progress="100" ProgressMax="10000"
ProgressChange Progress="100" ProgressMax="10000"
ProgressChange Progress="150" ProgressMax="10000"
ProgressChange Progress="200" ProgressMax="10000"
ProgressChange Progress="250" ProgressMax="10000"
ProgressChange Progress="10000" ProgressMax="10000"
ProgressChange Progress="-1" ProgressMax="10000"
ProgressChange Progress="10000" ProgressMax="10000"
ProgressChange Progress="0" ProgressMax="0"

[mrtcans]

Arkadaşlar malesef belirttiğiniz kodlarda çözüm sağlamadı. mrmarman sizinde söylediğiniz işlemleri yaptım bütün siteler için geçerli olan uygun anı bulamadım.
Acaba bu şekilde olabilirmi: webbrowser üzerindeki sayfa değiştirmeye sebep olabilecek bir tıklama yaptığımı ifade edebilecek kod varsa belki işe yarayabilir.

[mrtcans]

1. sorum şuydu: internet explorer daki menü nün 'Sık Kullanılanlar' başlığına tıklayın, açılan sekmelerin üzerinde sağ tıklayın popupmenü açıldığını göreceksiniz. Bende projemde bunu yapmak istiyorum. Yardımınızı bekliyorum teşekkürler.

[orhancc]

Popup menü mü yapmaya çalışıyorsun ?

[esrehmaan]

verdiğim kod işine yaraması gerek ve label1 deki sayı her defasında +1 artacaktır artıyorda denedim diğer sorun için valla ei kullanmayalı o kadar olmuş ki dediğini yaptım ama popun açılmadı bende

[mrtcans]

Arkadaşlar 2.sorumun çözümünü buldum
Şu an 1.sorumun çözümünü arıyorum.(mainmenu hakkındaki sorum)