Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: Web Browser linkleri almak  (Okunma sayısı 511 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Web Browser linkleri almak
« : 17 Ocak 2012 10:57:47 »
merhaba arkadaşlar..... benim yapmak istediğim navigate yaptıgım sitedeki tum linkleri memo'nun içine atmak
aşağıdakı kodla yapıyorum fakat pek saglıklı değil daha stabil calışan bir kod varsa çok güzel olur

Kod: [Seç]
var
i:integer;
adres:string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
adres:=copy(memo1.Lines.Strings[i],pos('href="',memo1.Lines.Strings[i])+5,pos('/"',memo1.Lines.Strings[i])-2);
if (adres<>'') and (pos('google',adres)=0)  and (pos('http',adres)>0) then memo2.Lines.Add(adres);
//boş, adreste google varsa ekleme adreste http olursa ekle
end;
Seo yapılandırma servisi

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #1 : 17 Ocak 2012 10:59:08 »
birebir aynı işi yapan bir program yazmıştım yüklüyorum kaynak kodları birazdan link vericem
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #2 : 17 Ocak 2012 11:05:04 »
geçen sene bizim sektörde ileri derecede porno hastası bir firma sahibine 700 Dolar karşılığı yaptığım bir program(Cahillikten Allaha sığınırım !!!!). Malum bir siteyi baştan aşağı tarayıp tüm linkleri db ye kaydediyor daha sonra editör ile video linklerini ayırt edebiliyor. ve Jdownloader ile download edilecek hale getiriyor.

D2009 ile yazdım ama kodları pas dosyalarından okuyabilirsin.

Kod: [Seç]
https://www.rapidshare.com/files/772152763/Link_Toplama.rar
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Web Browser linkleri almak
« Yanıtla #3 : 17 Ocak 2012 11:07:51 »
:D ben bişi demiom :D

p.s: hocam aynı kulvarda koşuyoruz hep bnm istediklerim sende mevcut :D
Seo yapılandırma servisi

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #4 : 17 Ocak 2012 11:10:16 »
Allah akıl fikir versin ben de birşey demiyorum daha sonra ben aynı adama 2 katı fiyata benzer bir iş yapan bu seferde siteden resimleri otomatik çeken bir program yaptım, hala da isteklerinin ardı arkası kesilmiyor bir gün elimde kalacak ama bakalım ne zaman.

ne kadar gereksiz proje varsa bende abicim :D Bana akıllısı gelmez, hep böyle abuk sabuk projeler ile gelirler durumumu biraz toparlıyım bir daha yanlarından geçmicem :D
« Son Düzenleme: 17 Ocak 2012 11:15:23 by sheshman »
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Web Browser linkleri almak
« Yanıtla #5 : 17 Ocak 2012 11:19:51 »
Palavra yaa bu herif bu programları kendi için yazdıydı. sonra görenler istemeye başlayınca işi ticarete döktü :D :D
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #6 : 17 Ocak 2012 11:22:23 »
:D:D şurda iki dakika saklayalım birşeyleri dedik hemen bozuyosun :)
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Web Browser linkleri almak
« Yanıtla #7 : 17 Ocak 2012 11:23:28 »
bana da bi tane satsana :D :D
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #8 : 17 Ocak 2012 11:24:48 »
:D sana satmam hediyem olur ama çok istiyorsan malum kişiyi sana paslıyım tanış kaynaş adama video de resim de hemen alır.Zaten IATA sahibi para basıyor.
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Web Browser linkleri almak
« Yanıtla #9 : 17 Ocak 2012 11:25:49 »
:D sana satmam hediyem olur ama çok istiyorsan malum kişiyi sana paslıyım tanış kaynaş adama video de resim de hemen alır.Zaten IATA sahibi para basıyor.
bu kısım beni korkuttu :(
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #10 : 17 Ocak 2012 11:29:06 »
:D seviyorum seni
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Web Browser linkleri almak
« Yanıtla #11 : 17 Ocak 2012 11:31:11 »
no no no, i'm not gay.. i'm turkish and strong ;)
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Web Browser linkleri almak
« Yanıtla #12 : 17 Ocak 2012 11:32:39 »
veri nays :D
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Web Browser linkleri almak
« Yanıtla #13 : 17 Ocak 2012 12:46:38 »
ooo ben yokken neler olmuş :D bu arada bu getelementbyid cok guzelde id 'si olmayan bi form objesi için web browserde nasıl kullanırız ornegın google edit kutusunun id war arama yapan butonun yok :D ona click olayını nasıl yaparız
« Son Düzenleme: 17 Ocak 2012 12:47:17 by tawer1 »
Seo yapılandırma servisi

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Web Browser linkleri almak
« Yanıtla #14 : 17 Ocak 2012 12:49:40 »
basit :)
gönder butonu formda submit görevindedir. yani formun sıra numarasıyla submit yaptırabiliriz;

((WB1.Document as IHTMLDocument2).forms.item(0,'') as IHTMLFormElement).submit;

vermiş olduğum kod ilk formu submit edecektir :) iyi çalışmalar :D
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"