İnternetten uzantıya göre dosya indirme

[barutali]

Öncelikle konuyu okuyan herkeze merhaba
İnternetten dosya indirebiliyorum fakat benim yapmak istediğim tam olarak
örneğin :

http://www.site.com/resim1.jpg
http://www.site.com/resim2.jpg
gibi dosyalar olsun ..

ben direk http://www.site.com/resim1.jpg olarak değilde http://www.site.com altındaki uzantısı .jpg olan dosyaları indirmek istiyorum bunu nasıl yapabilirim.. acaba

resim1 ve resim2 yazan kısımlar değişiyor..

indirmek istediğim dosya uzantıları gp3 - gp4 ve gp5

Yardım edebilcek arkadaşlara şimdiden teşekkürler..

[conari]

tüm sitenin içerisinde mi sadece ilgili sayfadanmı?

sayfanın kaynağına ulaşıp,
örnek

Kod: Tümünü seç

url(templates/subSilver/images/cellpic2.jpg)

Bu bir url , url ile başlayan metinleri alıp son 3 karaktere göre indirme listene ekleyebilirsiniz.

[ikutluay]

"çeşitli kod ipuçları" içinde bir sayfadaki url linkleri ayıklama kod örneği vardı.

yada kendiniz bir url otomasyonkodu yazın...

örneğin url için $$$ gecen yerlere adamın verdiği başlangıç bitiş sayılarınaa göre döngü ile rakamları koyup url olarak bunu indirsin.

[Battosai]

Kod: Tümünü seç

var
i,j:integer;
prog:string;
str:WideString;
begin
  j:=0;
  str:=IdHTTP1.Get('edit1.text');// web sayfası alınıyor....
for i:=0 to length(str) do
  begin
   if str[i]='"' then
    begin
      prog:=trim(copy(str,j+1,i-j-1));
       j:=i;
      if (copy(RightStr(prog,4),0,4)='.jpg') or (copy(RightStr(prog,4),0,4)='.bmp') or (copy(RightStr(prog,4),0,4)='.png')or (copy(RightStr(prog,4),0,4)='.jpeg') then
           if (pos('image',prog)>0)  then
               link:=prog ;
       end;
   end;

Bu kodu kendi uygulamam için kullnamıştım bir dene bakalım....

[barutali]

soruya birazdaha açıklık getireyim ..

bu indirmek istediğim dosyalar guitarPro adlı bi programın dosyaları şarkı isimlerini teker teker yazıp indirmek çok zor oluyor 15.000 tane kadar var
ben onun yerine
"Şu sitede su klasörde şu uzantıda olan dosyaları indir " demem gerekiyor. umarım daha açıklayıcı olmustur.

dosya isimlerini açılan indir sayfasının kaynak kodlarından okutmam gerekiyor ve daha sonra indirme işlemi yaptırmam gerekiyor fakat sayfalar pop-up şeklinde açılıyor ve her pop-up larında linklerinin sonunda rastgele rakamlar ve harfler var herbirininki değişik ..



herkeze teşekkürler.

[Battosai]

O zaman kodlar sana göre html içeriği alınıyorsa mesele yok...kod içindeki "link" global değişken sen koda şöyle bir ek yaparsan tüm linkleri listeye atarsın

Kod: Tümünü seç

var
i,j:integer;
prog:string;
str:WideString;
begin
  j:=0;
  str:=IdHTTP1.Get('edit1.text');// web sayfası alınıyor....
for i:=0 to length(str) do
  begin
   if str[i]='"' then
    begin
      prog:=trim(copy(str,j+1,i-j-1));
       j:=i;
      if (copy(RightStr(prog,4),0,4)='.mp3') then
           if (pos('<a href=>',prog)>0)  then
              begin
               link:=prog ;
               listbox1.items.add(link);
              end;
       end;
   end;

bunları denemedim ama mp3 linklerini alır böyle olursa denemek lazım.Bide burda dosyayı indireceğin üst dizinle birlikte linki vermelisin...yani unforgiven.mp3 diye link gelir Listbox'a... indirme linkin http://siteadresi/unforgiven.mp3 şeklinde ekleme yaparak düzenlemen lazım...yani kodlar html deki alt dizindeki linkleri alır http: ile başlayanları değil onun içinde ayrı ayar yapmak lazım....

[ikutluay]

soruya birazdaha açıklık getireyim ..

bu indirmek istediğim dosyalar guitarPro adlı bi programın dosyaları şarkı isimlerini teker teker yazıp indirmek çok zor oluyor 15.000 tane kadar var
ben onun yerine
"Şu sitede su klasörde şu uzantıda olan dosyaları indir " demem gerekiyor. umarım daha açıklayıcı olmustur.

dosya isimlerini açılan indir sayfasının kaynak kodlarından okutmam gerekiyor ve daha sonra indirme işlemi yaptırmam gerekiyor fakat sayfalar pop-up şeklinde açılıyor ve her pop-up larında linklerinin sonunda rastgele rakamlar ve harfler var herbirininki değişik ..



herkeze teşekkürler.

reget kullan sayfada sağ tuş yapıp tüm dosyaları indir de..

[barutali]

googleın arama sorgularından inurl yi kullanarak

aşağıdaki siteyi buldum mesela o sitede de aynı bu şekilde bi klasörde duruyor.. GP dosyaları ...

http://symphoniametallia.free.fr/files/Nightwish/Tabs/

mesela bu linkte

10th Man Down.gp3
Bless The Child.gp3

gibi dosya isimleri var
ben mesela

kodlarımda download linki olarak aşağıdaki gibi verirsem sorunsuz şekilde indiriyor...
ama 15.000 tane dosyayı böyle yaparsam ölürüm

http://symphoniametallia.free.fr/files/ ... Tabs/Bless The Child.gp3

bunun yerine


http://symphoniametallia.free.fr/files/Nightwish/Tabs/ *.gp3 yada *.gp4 yada *.gp5 gibi yapmam lazımki

otomatik olarak ordan indirsin..

sayfaya bağlanmak - kaynağı okumak - parseleyip linki almak son olarak indirmek olarak yaptığımda program yavaslar diye düşünüyorum..

[Battosai]

Lanetli bu iş biraz tecrübe ister ben sen basit bir yol gösterdim...Sen kendin program yazmak niyetinde değilsen sadece bu dosyaları indirmek istiyorsan...Sana Teleport programını öneririm çart diye internet bağlantına göre indirir...yok ben program yapmak istiyorsan mevzu karışık biraz...Çünkü bu tarz programlarda thread kullanmalısın hemde multi olarak...ayrıca sitenin root klasörünü tarama olayınıda bilmen lazım...Yani zor iş bunlar...Kullan teleportu olsun bitsin yapılmışı varken tekrar uğraşmamak lazım böyle işler ile....

[ikutluay]

sevgili kardeşim bu işi yapacağın tonla program var neden kastırdın anlamadım

reget,
free download manager
gigaget
downthemall *firefox eklentisidir
adm
wdm


zibil gibi yahu

[barutali]

özür dilerim bende hata soruma + olarak

bu işi yapabilceğim hazırda program varmı ? diyede eklemem gerekirdi..

Yardımlarınız için teşekkür ederim..