Web Site Kaynak Kodlara Erişim

[dreampower]

S.a Cümleten.
Delphide Bir Projeye Kalkıstık Kafamız Çok Karıstı Çok Ugrastık Yapamadık.
Misal Kişi 1 internet explorer 1 mozilla açtı bu 2 sininde kaynak kodlarında arama nasıl yapabilirim ?
Şimdiden Teşekkür Ederim

[Battosai]

Her ikisininde açmış olduğu sayfaların URL bilgilerini alıp idhttp ile kaynağı alabilirsin...Açık ieexplorer penceresinden url bilgisi alma kodları mevcut arasan bulursun...

[dreampower]

internet explorer için yapıyoum fakat mozillayı bulamadım

[Battosai]

Kod: Tümünü seç

uses ddeman
-------
-------
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;

Kullanım
edit1.Text:=GetURL('Firefox');
edit2.Text:=GetURL('IExplore');

[dreampower]

Teşekkür Ederim Hocam Allah Razı Olsun Bu Kod opera İçinde Geçerli Sanırım

[Battosai]

Geçerlidir muhtemelen ama isim olarak nasıl yazmak icab eder bilmiyorum...denemek lazım