Browserda Urlleri memoya aktarma...

[dogan]

Selam delphi ye bir kaç yıl ara vermiştim şimdi tekrar başladım uzun bir ara verince birçok şeyi unutmuşum, üstatlar sizler yardımcı olursanız sevinirim…

Delphide "WebBrowser" ve "InternetExplorer.Application" yöntemleri yerine ben tarayıcı olarak mozilla firefox kullanıyorum, ShellExecut yöntemiyle firefox aktif hale geliyor buraya kadar sorun yok, açılan sayfadaki tüm urlri memoya aktarma istiyorum fatak "J := IE.document.links.length" itibaren kodlamada hata alıyorum...

Verilen Hata:
with message 'Invalid variant operation'. Process Browser.exe (4320)

Kod: Tümünü seç

procedure TForm8.AraClick(Sender: TObject);
var
  I, J: Integer;
  IE: Variant;
  Link: String;
begin
  ShellExecute(0, 'open', 'Firefox.exe',
    Pchar('https://www.google.com.tr/search?q=' + 'araba'), '', SW_Normal);
  begin
    Sleep(3000);
    Application.ProcessMessages;
    J := IE.document.links.length;
    for i := 0 to J - 1 do
    begin
      Link := IE.document.links.item(I);
      Memo1.Lines.Add(IE.document.links.item(I));
    end;
  end;
end;

[unicorn64]

IE adlı variat değişkenine değer atamadan erişmye çalışıyorsunuz... kodu debug edip J := IE.document.links.length; satırında IE nin değerine bakarsanız nil olduğunu görürsünüz

[dogan]

Merhaba " kodu debug edip J := IE.document.links.length; satırında IE nin değerine bakarsanız nil olduğunu görürsünüz" ne demek istediğinizi anlayamadım sizden ricam kod olarak açıklaya bilirmisiniz...

[unicorn64]

J := IE.document.links.length;
satırından önce IE değişkenine herhangi bir atama yapmadığınız için IE değişkeni boş/anlamsız/yok hükmünde...

ShellExecute ile firefoxu açtırmış olmanız açılan uygulamaya erişim için yeterli değil, muhtemelen kodu başka yerden kopyala/yapıştır yaptınız ve kodu aldığınız yerde InternetExplorer.Application kullanılmıştı yani IE değişkenine atama vardı...

[dogan]

Konu güncel,





Not: "ücret" karşılığında çözmek isteyen olursa özelden irtibata geçebilir...

[warder]

Delphide "WebBrowser" ve "InternetExplorer.Application" yöntemleri yerine ben tarayıcı olarak mozilla firefox kullanıyorum...

Bu kullanıma ait sonuç aldığınız başka örnek uygulama veya kodunuz var mı?
Yoksa kullanmak istiyorum mu demek istediniz?

[dogan]

Klasik web ortamında bulunan aşağıdaki kod örneği olan Internet Explorer ile linkleri alabiliyorum, ben firefox, yandex ve chrome browserları kullanarak bu linkleri almak istiyorum bu mümkün mü?

Kod: Tümünü seç

procedure TForm8.Button4Click(Sender: TObject);
Var
  I, N: Integer;
  IEApp: OleVariant;
begin
  if (VarIsEmpty(IEApp)) then
  begin
    IEApp := CreateOleObject('InternetExplorer.Application');
    IEApp.Visible := True;
  end;
  IEApp.Navigate('https://www.google.com.tr/search?q=' + 'telefon');
  while Cardinal(IEApp.readyState) <> 4 do
    Sleep(1000);
  N := Cardinal(IEApp.document.links.length);
  for i := 0 to N - 1 do
    Memo1.Lines.Add(string(IEApp.document.links.item(i).href));
end;

[brs]

Selam viewtopic.php?f=2&t=30483 incele sanırım olmamış belki fikir verebilir...

[brs]

Birde Chromium araştır

[dogan]

Selam arkadaşlar bir el atacak kimse yokmu delphiden tekrardan hevesim soğmaya başladı Allah rızası biri yardım ettsin


bu kodlarla sadece url alanındaki bir linki alabiliyorum bana raporlama için firefox browserı kullanarak googda çıkan arama sonuçlarının tüm urlri memo içine aktarma istiyorum saygılarımla...

Kod: Tümünü seç

procedure TForm3.Button5Click(Sender: TObject);
var
  DDE: TDDEClientConv;
begin
  DDE := TDDEClientConv.Create(nil);
  try
    if DDE.SetLink('FIREFOX', 'WWW_GetWindowInfo') then // Tamam
    begin
      Memo1.Lines.Add(DDE.RequestData('0xFFFFFFFF,sURL,sTitle'));
    end;
  finally
    DDE.Free;
  end;
end;

[unicorn64]

google da arama sonuçlarını neden firefoxu kullanarak almaya çalışıyorsunuz, özel bir sebebi varmıdır? delphideki webbrowser bu iş için yeterli olacaktır zaten...
şu linki bir inceleyin isterseniz

yada IdHttp ile sayfayı çekseniz ve dönen html i parse etseniz?

[dogan]

google da arama sonuçlarını neden firefoxu kullanarak almaya çalışıyorsunuz, özel bir sebebi varmıdır? delphideki webbrowser bu iş için yeterli olacaktır zaten...
şu linki bir inceleyin isterseniz

yada IdHttp ile sayfayı çekseniz ve dönen html i parse etseniz?

Selam google veya yandex arama motoru olur fark etmez burada asıl olan browserlar yandex, firefox, opera browserlardan birini kullanıcı isteğine göre
seçecek ve url leri alacak neden delphi webbrowser kullanmak istemiyorum derseniz bilgisayarda var olan yandex, firefox veya opera browserlardan birini seçerek işlemini yapacak...

[SimaWB]

Benim anlamadığım birşey var:
ShellExecute ile bowser'ı siz açtırdığınıza göre açılacak sayfası biliyorsunuz. Değil mi?

Eğer öyleyse; kullanıcı Firefox'u seçsin ve açılsın ama siz arka planda TWebBrowser'la o sayfası açıp içerisinden istediklerinizi alabilirsiniz.

[dogan]

Benim anlamadığım birşey var:
ShellExecute ile bowser'ı siz açtırdığınıza göre açılacak sayfası biliyorsunuz. Değil mi?

Eğer öyleyse; kullanıcı Firefox'u seçsin ve açılsın ama siz arka planda TWebBrowser'la o sayfası açıp içerisinden istediklerinizi alabilirsiniz.

Hocam bunu nasıl yapacağım lütfen yardımcı olun...

[dogan]

Neyse sonunda Bitti Teşekkür Edirim İlginize...