Cuma, Hazirane 2, 2006 - Delphi 2006 ve ASP.NET Sorunsalı

     Malümunuz üzere bir batıkbank :) projesi üzerinde tek başıma cebelleşiyiroum.Sağolsunlar arada bir muhterem ekip arkadaşlarımdan fikirsel yardım alıyorum. Bizim bankanın web sitesini şeytana uyup ASP.NET üzerine kuralım dedik. Geçmiştende az buçuk .NET çilik var ya.
Sandım ki Visual Studio ile yaptığım işleri geliştirirken bulduğum kaynak kadar olmasada az buçuk
delphi 2006 .NET kaynağı bulabilirim. Nerdeee ? Bırakın dışardan doğru dürüst dokumanı Delphi 2006 ile birlikte gelen yerleşik imdat sisteminde bile arızalar var. Neyse konumuz bu değil. Size kısa ve öz olarak bir web user control sayfasını bir placeholder içine nasıl çakarız ondan bahsetmek istioyurum. Olaki daha pratik bir şeklini bilen çıkarda 3-5 satır bir şeyler yazar, yahut "hocam tuttuğun yol yanlış" derde doğrusunu gösterir.

Default.aspx ve default.pas dosyalarında aşakıdaki satırlar mevcut.

Default.aspx :

[code]

[/code]

default.pas
unit Default;

interface

uses
System.Collections, System.ComponentModel,
System.Data, System.Drawing, System.Web, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;

type
TWebForm_Default = class(System.Web.UI.Page)
{$REGION 'Designer Managed Code'}
strict private
procedure InitializeComponent;
{$ENDREGION}
strict private
procedure Page_Load(sender: System.Object; e: System.EventArgs);
strict protected
PlaceHolder_OrtaSayfa: System.Web.UI.WebControls.PlaceHolder;
procedure OnInit(e: EventArgs); override;
private
{ Private Declarations }
public
{ Public Declarations }
end;

implementation
uses default_orta;
{$REGION 'Designer Managed Code'}
///
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
///
procedure TWebForm_Default.InitializeComponent;
begin
Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}

procedure TWebForm_Default.Page_Load(sender: System.Object; e: System.EventArgs);
Var
osyf : String;
begin
osyf := '';
if (Assigned(Page.Request.Params['p'])) AND (Page.Request.Params['p'] '') then
begin

//user controllar orta sayfada basılıyor
osyf := Page.Request.Params['p'].ToString;
if osyf = 'about' then
PlaceHolder_OrtaSayfa.Controls.Add(Page.LoadControl('orta_about.ascx'));
end else
begin
PlaceHolder_OrtaSayfa.Controls.Add(Page.LoadControl('default_orta.ascx'));
end;
end;

procedure TWebForm_Default.OnInit(e: EventArgs);
begin
//
// Required for Designer support
//
InitializeComponent;
inherited OnInit(e);
end;

end.
 

  Yaptığı tek iş sayfanın Load yönteminde Request methoduyla ele geçirilen "p" parametresinin değerine göre placeholder.controls.add methodunu çağırmak.Farklı örneklerde gördüm, ama bu işimi gördü.
Kolay gelsin.