Delphi ASP.NET - Bir Klasörün İçindeki Dosyaları Listelemek.

Her şeyi veri tabanında saklayıp, lazım olunca ısıtıp yerim diyerek kasmışımdır. Bazen öyle zamanlar oluyor ki kaynak paylaşımı için bir klasör yeterli olabiliyor. Örneğin elinizde bir sürü resim var. Veya ilgili ilgisiz bir sürü dosya, mp3 vs. Bunları ziyaretçilerinizle paylaşmak istiyorsunuz. Uzun uzadıya tüm dosya isimlerini tek tek elleyerek linklemek, hele dosya sayısı yüzlerceyse bu işi manuelleyip yapmak oldukça zor. .NET kütüphanesi bu ve benzer konularda çok büyük kolaylık sağlayan fonksiyonlarla bezenmiş halde. Bu yazıda belirli bir klasörün içindeki dosyaların listelenmesi ve uygun link bağlantılarıyla gösterilmesinden bahsedeceğim.

Aşağıdaki yöntemi dikkatlice inceleyelim. Bu fonksiyonu kullanabilmek için uses bildirimine System.IO uzay adını eklemeliyiz.

function DosyaListesi(Klasor,RewUrl : String;Mask:String=''):String;
Var
DListesi : Array of String;
Yol : String;
i : Integer;
S : String;
DosyaAdi : String;
begin
//RewURL default.aspx?modul=banka&kaynak=delphi&dosya=xxxxx şeklinde gelir
//Mask * ? kullanılacak şekilde dosya adını içerebilir...
Yol := Klasor+'\';
if Mask <> '' then
DListesi := Directory.GetFiles(Yol,Mask)
else
DListesi := Directory.GetFiles(Yol);

S := '';
For i:=0 to High(DListesi) do
begin
DListesi[i] := DListesi[i].Remove(0,Yol.Length);
DosyaAdi := Copy(Path.GetFileName(DListesi[i]),1,(DListesi[i].Length-4));
S := S+'<a href="'+RewURL+'&dosya='+DListesi[i]+'" target="_blank" class="menulink">'+SifirEkle(Convert.ToString(i+1),4)+'.&nbsp;&nbsp;&nbsp;'+DosyaAdi+'</a>';
end;
if S = '' then
S := '<b>'+Mask+'</b>&nbsp; Aranan Kaynak Eşlemesine Rastlanmadı...';

Result := S;
end;

Fonksiyon 3 adet parametre alıyor...

Klasor : Dosya listesinin alınacağı kaynak klasörü
RewURL: Linkleme işlemi için başlangıç adresini
Mask : Listeleme işleminde dikkate alınacak dosya adı filitrelemesi *.mdb gibi mesela...

Fonksiyon listeleme için kaynağın YOL değişkenine atanmasıyla başlıyor...Aslında atama yerine direkt parametreyide kullanabilirdim, fakat olası hata aramalarında test işlemi için içeriği listelenecek klasörü bir değişkene atamayı uygun gördüm.

Yol bilgisi alındıktan sonra, maskeleme (joker karakter) kullanımına bağlı olarak ilgili klasörün içeriği string tipinde bir dinamik diziye atanıyor.... Aslında tüm işlemi bu satırla hallediyoruz sayılır... Diziye dosya listesini atamak için Directory.GetFiles fonksiyonunu kullanıyoruz. Şekilde görüldüğü gibi en az bir en çok iki parametre alıyor.

Yol := Klasor+'\';
if Mask <> '' then
DListesi := Directory.GetFiles(Yol,Mask)
else
DListesi := Directory.GetFiles(Yol);

Fonksiyonda tanımlı DListesi dinamik string dizisi dosya isimlerini yol bilgisiyle birlikte aldığından bir for döngüsüyle dosya adını yol bilgisinden tasnif ediyoruz. Hazır tasnifi yaparkende bağlantı ifadelerini ve fonksiyondan geri dönecek string değerinide (S) ayarlıyoruz...

For i:=0 to High(DListesi) do
begin
DListesi[i] := DListesi[i].Remove(0,Yol.Length);
DosyaAdi := Copy(Path.GetFileName(DListesi[i]),1,(DListesi[i].Length-4));
S := S+'<a href="'+RewURL+'&dosya='+DListesi[i]+'" target="_blank" class="menulink">'+SifirEkle(Convert.ToString(i+1),4)+'.&nbsp;&nbsp;&nbsp;'+DosyaAdi+'</a>';
end;

Geriye sonucu döndürmek kalıyor...Sonucuda dosya listesinin durumuna göre ayarlıyoruz. Kritere uygun dosya yoksa uygun yanıt dönüyor.

if S = '' then
S := '<b>'+Mask+'</b>&nbsp; Aranan Kaynak Eşlemesine Rastlanmadı...';

Result := S;

Fonksiyonu aşağıdaki gibi bir web sayfasında örneğin bir Label bileşeninin text özelliğine atayarak kullanabiliriz.

Label1.Text := DosyaListesi(Server.MapPath(ayarlar.DosyaUploadKlasoru+'\'+kaynak),'default.aspx?modul=banka&op=ac&kaynak='+Kaynak,Aranan);