firefox ta açılmış sayfaların adreslerini alma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Lord_Ares
Üye
Mesajlar: 1070
Kayıt: 15 Eki 2006 04:33
Konum: Çorlu

firefox ta açılmış sayfaların adreslerini alma

Mesaj gönderen Lord_Ares »

merhaba mozilla firefoxta bir çok internet sayfası açıtığımızda yeni tablar halinde açıyor. ben firefox ta açık olan tum pencerelerin adres çubuğundaki adresleri almak istiyorum nasıl yapabiilirm. findwindow ile sadece captionlarını alıyorum adres bilgisini alamıyorum. webtarayıcılarının eski versiyonlarında yeni sekmelerde açmadığı için alınabiliyordu fakat bunda alamıyorum.
teşekkürler
Delhici
Üye
Mesajlar: 176
Kayıt: 20 Eyl 2003 09:04

Re: firefox ta açılmış sayfaların adreslerini alma

Mesaj gönderen Delhici »

Kod: Tümünü seç

uses
  ddeman;

function GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := '';
  //create a new DDE Client object
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;
Kullanımı :

Kod: Tümünü seç

 ShowMessage(GetURL('firefox'));
http://www.bargem.info
Yaşıyorum..... İnadına değil yaptıklarım. Herşey istediğim için oluyor. İstediğim için türkü dinliyorum. İstediğim için çalışıyorum. İstediğim için yaşıyorum ve istediğim için seni seviyorum...
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: firefox ta açılmış sayfaların adreslerini alma

Mesaj gönderen SimaWB »

Delhici yazdı:

Kod: Tümünü seç

uses
  ddeman;

function GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := '';
  //create a new DDE Client object
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;
Kullanımı :

Kod: Tümünü seç

 ShowMessage(GetURL('firefox'));
Soruyu soran arkadaş ayrı ayrı tablarda açık olan tum pencerelerin adreslerini almak istiyor. Senin gönderdiğin kodla sadece aktif olan sayfanın adresi alınabilir.
There's no place like 127.0.0.1
Lord_Ares
Üye
Mesajlar: 1070
Kayıt: 15 Eki 2006 04:33
Konum: Çorlu

Re: firefox ta açılmış sayfaların adreslerini alma

Mesaj gönderen Lord_Ares »

evet , birde bu sadece explorerda çalışıyor, firefoxta alamıyor
Cevapla