<EFTELYA>

Delphi 2006 ve ASP.NET İle Arşivbank Site Tasarımı -8-



Dostlar diyorlar ki : "Hocam sizin bu banka bitmeyecek galiba, baksanıza bankayı geçtik, cevizi Delphi ile
ASP.NET dersleri için dershaneye çevirdiniz. Hani fenada olmadı, kestirmeden bir iki ipucu görüyoruz."

Yerden göğe kadar haklılar ama ne yapalım ki, ne başımıza bir usta ne yanımıza bir çırak bulamadık. Özel
hayat, iş hayatı derken yeteri kadarda projeyle ilgilenememiyoruz. Ancak inanın bu BDS 2006 ve ASP.NET ile
yaptıklarımı anlatırken zevk aldığım kadar hiç bir şeyden zevk almıyorum. Bende .NET ile burada yazdıklarımla
haşır neşir oluyor sayılırım. Olaki bu yüzden dilim sürçer ise affola.

Bu yazımızda web kontrollerini işlemeyi düşünüyordum. En azından keşfettiğim kadarıyla. Ancak tasarım ve
kodlamayı birbirinden ayıran bir yapı üzerine kurulu BDS.2006 'ya daha yeterince hakim olamadığımı
düşündüğümden fikrimi değiştirdim. Win32 platform yazılımcıları için biraz karışık görünen bu yapının pekişmesi
amacıyla bu yazıyı birazdan göreceğiniz düzenek üzerine yazmaya karar verdim.

Yazı dizimizin 8 ncisine hoş geldiniz. Daha kaç dizi çekeriz bilmiyorum. Görünüşe göre kurtlar vadisi kadar
bölüm olacak.

Web tasarımıyla uğraşanlarımız bilirler. Her sitenin güncel haberler, makaleler vb. yazılarını yayımladıkları bir
düzenekleri vardır. İşte bu yazımızda kısmen bir yazı yayınlama sisteminden bahsedeceğiz. Özel olarak bu yazıda
;

• Bir kullanıcı kontrol sayfasında sunucu tararflı nesnelerle çalışmayı
• Bir tabloda tek bir alanın içindeki uzun bir metnin sayfalara bölünmesini
• Yine aynı tablodaki yazı metninin sayfada gösterilmesini örnekleyeceğiz.

Önce 5 parçaya bölünmüş ana sayfamızın orta kısmında yazı başlıklarını ve özetlerini vereceğiz. Daha sonra
ilgili yazı için ayarlayacağımız bağlantılarla yazının detaylarını göstereceğiz. Eğer yazı bir ekrana sığmayacak
kadar uzunsa yazıyı birden fazla sayfaya böleceğiz. Şimdilik kod optimizasyonu ve performans bizim için önemli
değil.

Güncel Yazı sayfasının tasarımı :

Projeye yeni bir kullanıcı kontrolü (ascx) sayfası ekleyerek işe başlıyoruz. eklediğimiz sayfanın kaynağı
aşağıdaki gibi olacak.

guncel_haber.ascx

<%@ Control Language="c#" AutoEventWireup="false" Codebehind="guncel_haberler.pas"
Inherits="guncel_haberler.TWebUserControl_GuncelHa berler"%>
<style>
.haberdiv
{
OVERFLOW-X: scroll; WIDTH: 100%; HEIGHT: 100%
}
</style>
<div id="haberozetTxt" class="haberdiv" runat="server"></div>
<div id="SayfaNoAlt" class="haberdiv" runat="server"></div>
Kullanıcı kontrolu (ascx) sayfamızın kaynak dosyasına haberozetTxt ve SayfaNoAlt isimli ikiadet sunucu

tarafında işlenecek nesne ekliyor ve haberdiv isimli stili haberozetTxt üzerine uyguluyoruz.
Bu stil ile
haberozetTxt katmanın sayfa taşmalarına karşı yatay kaydırma çubuğuna sahip olmasını istiyoruz. Bu

elemanlara nesne diyorum çünki bu div etiketleri standart bir HTML sayfasında katman olarak ele alınıp

işlenirken birazdan göreceğiniz gibi bize code-behind (pas) dosyası içinden erişim imkanı veriyor. Ascx

sayfasında bu deklarasyonumuzun etkisi cedebehind olarak ilgili pas dosyasına aşağıdaki bildirimlerin otomatik
eklenmesini sağlıyor. Eğer bu bildirim otomatik eklnemmemiş ise elleyerek ekleyebilirsiniz.

unit guncel_haberler.pas

strict protected
haberozetTxt: System.Web.UI.HtmlControls.HtmlGenericControl;
sayfaNoAlt: System.Web.UI.HtmlControls.HtmlGenericControl;

Bu deklarasyon sayesinde codebehind (pas) dosyasının içinden bu elemanlara istediğimizi yaptıracağız.
haberozetTxt isimli katman yazımızın başlık, sayfa numaraları, özet, yazar ve tarih bilgileri ile detaya
geçildiğinde tam metnini göstermek için kullanılacak. sayfaNoAlt isimli katmanda ise uzun yazıları
böldüğümüzde sayfa numaralarının alttada çıkmasını sağlayacağız. Sayfa numaraları hem üstte hemde altta
basılacak. Sayfanın tasarımla ilgili işi bu kadar.

Code-behind içinde aşağıdaki fonksiyonları kullanacağız

• HaberOzetiListele(Const katid : String);
  Aktif yazıları tablodan alıp HTML ile formatlayarak basacak.

• HaberBas(Const Haberid : String);
  Özet olarak basılan yazıların tamamını HTML ile formatlayarak basacak

• SayfaGovdesiniBas(S : String):String;
  Bir Ansi fonksiyonuyla yazıdaki özel işaretleri kaldırarak yazının gövde kısmını HTML ile formatlayacak
• KacSayfadanOlusuyor(Const S,Ayrac : String):Int16;
  Yazı içinde sayfa bölme işaretlerini sayarak kaç sayfaya bölüneceğini bulacak.
  Sayfa bölme işareti olarak "<sayfa_sonu>" kullanılıyor.
• IkiSozdizimiArasiniAl(KaynakStr, ArananStr : String; ItemNum : Integer): String;
  Yazı içinden sayfa bölme işaretini arayıp bu bölüme kadar olan kısmı kesip çıkartacak. Çok sayfalı
  yazılarda isabet sayfayısınıda bu yöntem ayarlayacak.
• Function SayfaNumaralariniBas(KacSayfa,RequestSN : Int64;n,d:String):String;
  Çok sayfalı yazılarda sayfanın başlık kısmında ve altında çıkacak sayfa numaralarını HTML ile
  formatlayacak.

Bu yöntemleri anlatmaya geçmeden önce sayfada Mysql bağlantısı kullanacağımızdan name space alanına



(DAHA ÖNCE VEİRİLDİYSE KUSURA BAKMAYIN SAYGILARIMLA....!!!!!)

__________________