Kullanıcı

Hoşgeldiniz Ziyaretçi. Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
30 Temmuz 2010 09:41:22

Kullanıcı adınızı, şifrenizi ve aktif kalma süresini giriniz

Sohbet Penceresi

Son 5 Notlar:

09 Temmuz 2010 15:09:00
merhaba arkadaÅŸlar ilk defa bi soru soracam
son olarak üzerinde çalıştığım bi proğramda sorun var
datadan belirli bi kritere göre arama yapıyor bunlardan çift olanları teke düşürüp gride nasıl yazdıra bilirim
örnek vererek anlatırsam daha sağlam olur sanırsam

datadan k
10 Temmuz 2010 03:07:46
GÜZEL SİTE SEVDİM ;D
14 Temmuz 2010 14:45:20
aloo nasılsınız...
15 Temmuz 2010 18:16:38
 maske msnden bi konuÅŸalım kanky.
17 Temmuz 2010 15:16:16
ınterbase procedure soruma cevap verecek sevgili bir kul yokmu arkadaşlar ?

Show 50 latest

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

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı akrep

  • Global Moderatör
  • *****
  • İleti: 1.241
  • 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) [Seç]
&File.Move('C:\Inetpub\wwwroot\WebApplication1\Akrep.txt','C:\Inetpub\wwwroot\WebApplication1\Dosya.txt');
KLASÖR OLUŞTURMA

Kod: (delphi) [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
klasoryolu:string;
begin
klasoryolu:='C:\Inetpub\wwwroot\WebApplication1\myfolder';
  If Directory.Exists(klasoryolu) then response.Write('BU KLASOR ZATEN VAR') else begin
  try
  Directory.CreateDirectory(klasoryolu);
  finally
  response.Write('YENI KLASOR BASARIYLA OLUSTURULDU');
  end;
  end;

end;

GEÇİCİ DOSYALARIN TUTULDUĞU SİSTEM KLASÖRÜ YOLUNU BULMA
Kod: (delphi) [Seç]
Response.Write(Path.GetTempPath);
İSTEMCİ BİLGİSAYARA DOSYA KAYDETMEK
Tarayıcı, bilgisayara doğrudan dosya kaydedilmesine izin vermeyecektir.
Kod: (delphi) [Seç]
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) [Seç]
Response.Write(Request.Path);
SADECE GEÇERLİ SAYFANIN (DOSYANIN) İSMİNİ ALMA
Kod: (delphi) [Seç]
Response.Write(Path.GetFileName(request.FilePath));
UPLOAD
Projemizde .aspx tabına geçerek;
<form runat="server"> yazılı tagı, <form enctype="multipart/form-data" runat="server">şeklinde değiştirin.
Ve hemen devamına;
<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) [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
dosyaadi:string;
kayityeri:string;
begin
dosyaadi:=Path.GetFileName(File1.PostedFile.FileName);
//kayityeri:=Server.MapPath('Data')+'\\'+dosyaadi; veya
kayityeri:='C:\Inetpub\wwwroot\webapplication1\yenidosya.txt';
if file1.PostedFile.ContentLength =0 then response.Write('Lutfen Upload edilecek dosyayi seciniz.')
else begin
File1.PostedFile.SaveAs(kayityeri);
response.Write('Dosya basariyla yuklendi.');
end;
kayıtyeri değişkenine atanan dosya yolunda upload edilen dosya oluşacaktır.

SUNUCU ÜZERİNDEKİ DOSYAYI SİLME

Kod: (delphi) [Seç]
&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) [Seç]
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) [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
fpath:string;
finfo:FileInfo;
strFileInfo:string;
begin
fpath:=Server.MapPath('Akrep.txt');
finfo:=FileInfo.Create(fpath);
if finfo.Exists then begin
strFileInfo:='Dosya adı: '+finfo.Name+'<br />'+'Yolu: '+finfo.FullName+'<br />'+'Uzantisi: '+finfo.Extension+'<br />'+'Olusturma zamani: ';
Response.Write(strFileInfo+finfo.CreationTime.ToString);
end
else
strFileInfo:='<b>'+fPath+'</b>'+' adresinde belirtilen dosya bulunamadi.';
end;

BİR TEXT DOSYANIN İÇERİĞİNİ GÖRÜNTÜLEME

Kod: (delphi) [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
okuyucu:StreamReader;
icerik:String;
begin
okuyucu:=&File.OpenText(Server.MapPath('Akrep.txt'));
icerik:=okuyucu.ReadToEnd;
Response.Write(icerik.Replace('\n','<Br>'));
// veya Response.Write(icerik);
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) [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
okuyucu:StreamReader;
icerik:String;
begin
if &File.Exists(Server.MapPath('Akrep.txt')) then begin
okuyucu:=&File.OpenText(Server.MapPath('Akrep.txt'));
icerik:=okuyucu.ReadToEnd;
Textbox1.Text:=icerik;
okuyucu.Close;
Response.Write('Dosyadan okuma islemi basarili.');
end
else Response.Write('Akrep.txt isimli dosya bulunamadi!');

end;

procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
var
yazici:StreamWriter;
begin
yazici:=&File.CreateText(Server.MapPath('Akrep.txt'));
yazici.WriteLine(Textbox1.Text);
yazici.Close;
Response.Write('Dosyaya yazma islemi basarili.');

end;

BELİRLİ BİR KLASÖRDE BELİRLİ BİR DOSYANIN BULUNUP BULUNMADIĞINI KONTROL ETME
Kod: (delphi) [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
ddosya:string;
begin
ddosya:='Akrep.txt';
If &File.Exists(Server.MapPath(ddosya)) then
Response.Write(ddosya+' isimli dosya diskte bulunuyor.') else
Response.Write(ddosya+' isimli dosya diskte bulunmuyor.');
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 »
Tomurcuk derdinde olmayan ağaç, odundur - Necip Fazıl Kısakürek

Çevrimdışı Fatih

  • Administrator
  • *****
  • İleti: 2.204
  • 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
Delphi 2007/2009 çıktı.Ayrıntı için tıklayın

Çevrimdışı akrep

  • Global Moderatör
  • *****
  • İleti: 1.241
  • 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.
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ı

Çevrimdışı Fatih

  • Administrator
  • *****
  • İleti: 2.204
  • 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  ::)
Delphi 2007/2009 çıktı.Ayrıntı için tıklayın

Ç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 »

Ç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 »
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.

Ç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...