herhangi bir Web browserdan linki almak vb. - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: herhangi bir Web browserdan linki almak vb. (/konu-herhangi-bir-web-browserdan-linki-almak-vb.html) Sayfalar:
1
2
|
herhangi bir Web browserdan linki almak vb. - accessman - 09/11/2012 hayırlı cumalar arkadaşlar http://www.delphidunyasi.net/showthread.php?2461-herhangi-bir-Web-browserdan-linki-almak-vb&highlight=spymon%2B%2B adresinde delphi ile yapılmış bir kod var internet adrsindeki linki kaydetmek için bunun Access için vb ile yazılmışını bulabilirmiyiz veya bunu vb kodlarına nasıl uyarlarız hem delphi hem vb bilen ustalar mutlaka vardır teşekkürler ****** alıntı****** delphi için USES a eklenecek namespaceler SHDocVw,DDEMAN; Kullanıcağın Procedure : Kod:
procedure TForm1.GetCurrentURL(var sURL: String; var sTitle: String; var sSource: String); Kod:
VAR Cvp: herhangi bir Web browserdan linki almak vb. - esrefigit - 09/11/2012 sayfa Access içindemi açılacak yoksa dışındamı Cvp: herhangi bir Web browserdan linki almak vb. - esrefigit - 09/11/2012 şayet bir sayfa içinde yer alan bütün linkleri alac isen o ayrı bir mesele Cvp: herhangi bir Web browserdan linki almak vb. - accessman - 09/11/2012 her ikisde olabilir Cvp: herhangi bir Web browserdan linki almak vb. - esrefigit - 09/11/2012 bu kodlar internet explorer de işe yarar diğer tarayıcılar ekranda açık olsa bile onları görmüyor firefox da denemedim dışında açılan için örnek bu kod sana ekranda açık olan bütün sayfaların linklerini verir
bu kod ise sana her sayfada sayfanın içinde olan bütün linkleri verir dikkat et bazı sayfalarda yüzlerce link olabiliyor sadece google ana sayfasında bile 30 link var düşün artık
dikkat ekranda birde windows gezgini açıksa yani bilgisayarımdan bir klasör açıksa onun linkini alır ancak sayfa içindeki linkleri almaya gelince arıza veriyor artık if le select ile sen çözersin bu arada referanslardan internet controls ve Html object library işaretlemeyi unutma Cvp: herhangi bir Web browserdan linki almak vb. - accessman - 11/11/2012 çok teşekkürler birinci kod açık olan sayfanın adresini veriyor ikinci kod da *** maPageHtml As HTMLDocument *** satırı hata veriyor |