Kodbank İndir

! CODEBANK 2012 !

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

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri  (Okunma sayısı 4335 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı akrep

  • Global Moderatör
  • *****
  • İleti: 1.242
  • Rep: +27/-13
  • Cinsiyet: Bay
ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« : 05 Şubat 2007 13:30:23 »
   Merhaba arkadaşlar,

   Aşağıdaki kodları kullanmadan önce sayfanızın uses bölümüne System.IO uzay adını eklemeniz ve sunucunuzda yazma-silme-okuma denetimlerinin açık olması gerektiğini hatırlatırım.

   Lokalde IIS'deki izinlerinde sorun olmayıp da yinede sayfada denetim hatası ile karşılaşanlar için;

   wwwroot klasörü üzerinde sağ klik > özellikler > güvenlik sekmesi ve buradan tüm kullanıcılara "tam denetim" checkbox'unu işaretleyin.
    Eğer güvenlik sekmesi görünmüyorsa, Bilgisayarım > Araçlar > Klasör seçenekleri > Görünüm'den "Basit dosya paylaşımı kullan" checkbox'unun işaretini kaldırın ve tekrar deneyin, güvenlik sekmesi artık görünecektir.

SUNUCUDAKİ DOSYAYI TAŞIMA - İSİM DEĞİŞTİRME
Kod: Delphi
  1. &File.Move('C:\Inetpub\wwwroot\WebApplication1\Akrep.txt','C:\Inetpub\wwwroot\WebApplication1\Dosya.txt');

KLASÖR OLUŞTURMA

Kod: Delphi
  1. procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
  2. var
  3. klasoryolu:string;
  4. begin
  5. klasoryolu:='C:\Inetpub\wwwroot\WebApplication1\myfolder';
  6.   If Directory.Exists(klasoryolu) then response.Write('BU KLASOR ZATEN VAR') else begin
  7.   try
  8.   Directory.CreateDirectory(klasoryolu);
  9.   finally
  10.   response.Write('YENI KLASOR BASARIYLA OLUSTURULDU');
  11.   end;
  12.   end;
  13.  
  14. end;

GEÇİCİ DOSYALARIN TUTULDUĞU SİSTEM KLASÖRÜ YOLUNU BULMA
Kod: Delphi
  1. Response.Write(Path.GetTempPath);

İSTEMCİ BİLGİSAYARA DOSYA KAYDETMEK
Tarayıcı, bilgisayara doğrudan dosya kaydedilmesine izin vermeyecektir.
Kod: Delphi
  1. Response.Redirect('http://sunucu/dosyaadi.zip');
gibi bir kod normal download işlemini başlatır ve tarayıcı kullanıcıya download diyaloğunu gösterir.

GEÇERLİ SAYFANIN (DOSYANIN) SUNUCU ÜZERİNDEKİ FİZİKSEL YOLUNU BULMA
Kod: Delphi
  1. Response.Write(Request.Path);

SADECE GEÇERLİ SAYFANIN (DOSYANIN) İSMİNİ ALMA
Kod: Delphi
  1. Response.Write(Path.GetFileName(request.FilePath));

UPLOAD
Projemizde .aspx tabına geçerek;
Kod: [Seç]
<form runat="server"> yazılı tagı, <form enctype="multipart/form-data" runat="server">şeklinde değiştirin.
Ve hemen devamına;
Kod: [Seç]
<input id="File1" type="file" name="File1" runat="server">şeklindeki kodu girin.
Form design tabına dönüp forma bir button yerleştirerek OnClick olayını aşağıdaki gibi düzenleyin;
Kod: Delphi
  1. procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
  2. var
  3. dosyaadi:string;
  4. kayityeri:string;
  5. begin
  6. dosyaadi:=Path.GetFileName(File1.PostedFile.FileName);
  7. //kayityeri:=Server.MapPath('Data')+'\\'+dosyaadi; veya
  8. kayityeri:='C:\Inetpub\wwwroot\webapplication1\yenidosya.txt';
  9. if file1.PostedFile.ContentLength =0 then response.Write('Lutfen Upload edilecek dosyayi seciniz.')
  10. else begin
  11. File1.PostedFile.SaveAs(kayityeri);
  12. response.Write('Dosya basariyla yuklendi.');
  13. end;
kayıtyeri değişkenine atanan dosya yolunda upload edilen dosya oluşacaktır.

SUNUCU ÜZERİNDEKİ DOSYAYI SİLME
Kod: Delphi
  1. &File.Delete(server.MapPath('Akrep.htm'));

SUNUCUDAKİ BİR DOSYANIN SON YAZILMA - DEĞİŞTİRİLME TARİHİNİ VE SAATİNİ BULMA
Kod: Delphi
  1. response.Write(&File.GetLastWriteTime(Server.MapPath('webform1.aspx')));
(oluşturma tarihi için GetCreationTime, son ulaşım tarihi için GetLastAccessTime olarak değiştirin.)

DOSYA BİLGİLERİNİ ALMA
Kod: Delphi
  1. procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
  2. var
  3. fpath:string;
  4. finfo:FileInfo;
  5. strFileInfo:string;
  6. begin
  7. fpath:=Server.MapPath('Akrep.txt');
  8. finfo:=FileInfo.Create(fpath);
  9. if finfo.Exists then begin
  10. strFileInfo:='Dosya adı: '+finfo.Name+'<br />'+'Yolu: '+finfo.FullName+'<br />'+'Uzantisi: '+finfo.Extension+'<br />'+'Olusturma zamani: ';
  11. Response.Write(strFileInfo+finfo.CreationTime.ToString);
  12. end
  13. else
  14. strFileInfo:='<b>'+fPath+'</b>'+' adresinde belirtilen dosya bulunamadi.';
  15. end;
  16.  

BİR TEXT DOSYANIN İÇERİĞİNİ GÖRÜNTÜLEME
Kod: Delphi
  1. procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
  2. var
  3. okuyucu:StreamReader;
  4. icerik:String;
  5. begin
  6. okuyucu:=&File.OpenText(Server.MapPath('Akrep.txt'));
  7. icerik:=okuyucu.ReadToEnd;
  8. Response.Write(icerik.Replace('\n','<Br>'));
  9. // veya Response.Write(icerik);
  10. end;


BİR TEXT DOSYANIN İÇERİĞİNİ DEĞİŞTİRME VEYA YENİ BİR TEXT DOSYA OLUŞTURMA

Form üzerine 1 adet Textbox, 2 adet Button yerleştirerek, Object Inspector aracılığıyla Button1'in text özelliğini "Oku", Button2'yi ise "Yaz" olarak değiştirin, daha sonra aşağıdaki kodları uygulayın.

Kod: Delphi
  1. procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
  2. var
  3. okuyucu:StreamReader;
  4. icerik:String;
  5. begin
  6. if &File.Exists(Server.MapPath('Akrep.txt')) then begin
  7. okuyucu:=&File.OpenText(Server.MapPath('Akrep.txt'));
  8. icerik:=okuyucu.ReadToEnd;
  9. Textbox1.Text:=icerik;
  10. okuyucu.Close;
  11. Response.Write('Dosyadan okuma islemi basarili.');
  12. end
  13. else Response.Write('Akrep.txt isimli dosya bulunamadi!');
  14.  
  15. end;
  16.  
  17. procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
  18. var
  19. yazici:StreamWriter;
  20. begin
  21. yazici:=&File.CreateText(Server.MapPath('Akrep.txt'));
  22. yazici.WriteLine(Textbox1.Text);
  23. yazici.Close;
  24. Response.Write('Dosyaya yazma islemi basarili.');
  25.  
  26. end;

BELİRLİ BİR KLASÖRDE BELİRLİ BİR DOSYANIN BULUNUP BULUNMADIĞINI KONTROL ETME
Kod: Delphi
  1. procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
  2. var
  3. ddosya:string;
  4. begin
  5. ddosya:='Akrep.txt';
  6. If &File.Exists(Server.MapPath(ddosya)) then
  7. Response.Write(ddosya+' isimli dosya diskte bulunuyor.') else
  8. Response.Write(ddosya+' isimli dosya diskte bulunmuyor.');
  9. end;

http://www.syncfusion.com/FAQ/aspnet/WEB_c23c.aspx#q183q  adresindeki VB.Net ve C# örneklerini Delphi.Net'e dönüştürmeye çalıştım, işinize yaraması dileğiyle...
« Son Düzenleme: 06 Ağustos 2007 19:25:55 by Akrep »
Kayıtlı
Tomurcuk derdinde olmayan ağaç, odundur - Necip Fazıl Kısakürek

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: ASP-NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #1 : 11 Şubat 2007 16:51:25 »
eline, koluna, klavyene, beynine sağlık hocam ::D
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı akrep

  • Global Moderatör
  • *****
  • İleti: 1.242
  • Rep: +27/-13
  • Cinsiyet: Bay
Ynt: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #2 : 12 Şubat 2007 13:28:10 »
Senin de hocam, eksiğim varsa tamamla lütfen.
Kayıtlı
Tomurcuk derdinde olmayan ağaç, odundur - Necip Fazıl Kısakürek

Çevrimdışı vectorman

  • Kıdemli Üye
  • *****
  • İleti: 211
  • Rep: +2/-1
Ynt: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #3 : 23 Şubat 2007 14:53:57 »
dosya silmede acces denied hatası veriyor. localda de bütün izinleri vermeme rağmen veriyor. hosta attım yine tüm kullanıcılara izin verdim. ama olmadı
Kayıtlı

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #4 : 23 Şubat 2007 16:00:09 »
dosya kullanımda olmasın  ::)
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı sanane797

  • Yeni Üye
  • *
  • İleti: 2
  • Rep: +0/-0
Ynt: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #5 : 15 Mart 2009 14:49:47 »
yaw abi başlık asp.net dosya yönetimi ama sen delphi'den bahsediyorsun!
ne güzel bir kaynak buldum diye seviniyordum yaa!

+

bu forum mesaj yazdığında başlığın bulunduğu sayfaya yönlendiriyoor :S uyuz bişi!
« Son Düzenleme: 15 Mart 2009 14:50:51 by sanane797 »
Kayıtlı

Çevrimdışı KRALMAS

  • Üye
  • ***
  • İleti: 39
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Kod Kurdu
Ynt: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #6 : 16 Mart 2009 09:22:28 »
Alıntı yapılan: sanane797 - 15 Mart 2009 14:49:47
yaw abi başlık asp.net dosya yönetimi ama sen delphi'den bahsediyorsun!
ne güzel bir kaynak buldum diye seviniyordum yaa!

Delphi'nin de pascal dilinde Asp.Net hazırlamanızı sağlayan, .Net (Delphi) ve Prism (VS) sürümleri bulunmaktadır. Yukarıda verilen kodlarda, bu tür sürümler içindir.
Kayıtlı

Çevrimdışı sanane797

  • Yeni Üye
  • *
  • İleti: 2
  • Rep: +0/-0
Ynt: ASP.NET Dosya Yönetimi - Dosyalama İşlemleri
« Yanıtla #7 : 21 Mart 2009 11:48:02 »
Hmmmm... Açıklaman için teşekkürler...
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »