firefox html

[mikser]

herkese selamlar
soru şu:

kullanıcı Fierfox la bir sayfa açtı ve bu sayfada çalışıyor. (Sayfada ajax kodlarıda var). Delphi de yazılan bir program tüm browser (IE için sorun yok) ların URL lerine bakacak (http://www.benimsitem.com/#getir?divno=77223 gibi bir url) bu url içinde http://www.benimsitem.com varsa ve #getir?divno=77223 gibi bir bilgi varsa, browser in o anki HTML (kaynağı göster) kodunu okuyacak.

tesekkürler

[dreampower]

A.s Hocam Çok Yorgun Olmama Ragmen Cevap Vermek İstedim Yanlıslıklar Olabilir.

Kod: Tümünü seç

function GetURL(Browser: string): string;
var
Client_DDE: TDDEClientConv;
temp: PChar;
begin
Result := '';
Client_DDE:= TDDEClientConv.Create( nil );
with Client_DDE do
  begin
   SetLink(Browser, 'WWW_GetWindowInfo');
   temp := RequestData('0xFFFFFFFF');
   Result := StrPas(temp);
  // Return only the URL part
   Delete(Result, Pos(',', Result), Length(Result)-Pos(',', Result)+1);
   // Remove quotes
   Delete(Result, 1, 1);
   Delete(Result, Length(Result), 1);
   // ************
   StrDispose(temp);
   CloseLink;
  end;
Client_DDE.Free;
end;
//Siteleri Edite Atıyorum Bunun İçin 1 timer koyun interval 1 yapın.Aşağıdaki Kodu Yazın.
edit1.text:=geturl('IExplore');
edit2.text:=geturl('Firefox');
edit3.text:=geturl('Opera');

Yukarıdaki Kod İle Browserda Girilen Siteyi Edite Attık Sıra Geldi Editte Sizin Siteniz Varmı Sorguluyalım.

Kod: Tümünü seç

function IsStrInOtherStr(mainStr,FindStr: string): Bool;
begin
 if strPos(pAnsiChar(mainStr),pAnsichar(FindStr))=nil
 then
   result:=False
 else
   result:=True;
end;

function KelimeIcindeVarmi(KontrolYazi:String;Liste:TListbox):Integer;
var
i:Integer;
Kactane:Integer;
begin
Kactane:=0;
for i:=0 to Liste.Items.Count-1 do
begin
Application.ProcessMessages;
if IsStrInOtherStr(AnsiLowerCase(KontrolYazi),Form1.ListBox1.Items.Strings[i]) then
begin
Kactane:=Kactane+1;
end;
end;
Result:=Kactane;
end;

Bu Kodu Editlerin Change Olayına Yazın Edite Farklı Site Girdiğinde Hemen Sorgulasın listboxa sitelerinizi Ekleyebilirsiniz.

--Sorgulamayıda Yapalım
if KelimeIcindeVarmi(edit1.text,Listbox1)>0 Then
//kaynak kod al

[mikser]

cevap için teşekkürler

anladığım kadarıyla verdiğiniz kod. URL içinde kelime arıyor. benim istediği bu değil.

örneğin ben şu anda
posting.php?mode=reply&f=2&t=26084

sayfasında çalışıyorum. Program yukarıdaki URL yi alacak.. ve bu sayfanın HTML kodunu alacak. (HTML DOM)
sonrada o sayfanın içeriğinde istenilen kelimeyi arayacak. (URL de değil)

[dreampower]

Hocam Denemeden Cevap Vermişiniz.Yada Yanlıs Anlatmısım Özel Mesajdan Msn Adresinizi Yazın Anlatayım Basit Bir Olay.