Web Servisten Class Döndürmek

.net xml web servislerinden class döndürmek için,döndüreceğimiz o class'ı Serializable attribute ile işaretlemeliyiz.

 Product.cs

    [Serializable]
    public class Product
    {
        public int RID { get; set; }
        public String BARCODENO { get; set; }
        public String PRODUCTNAME { get; set; }
        public decimal UNITPRICE { get; set; }
        public int AMOUNT { get; set; }
    }

     [WebMethod(Description = "Barkod Numarasından Ürün Bilgisi Sorgulama")]
     public Product FindProductByBarcode(String BarCodeNo)
     {
        /*Burada herhangi bir verikaynağından çekildiğini varsayalım...*/
        Product product = new Product();
        product.RID = 1;
        product.BARCODENO ="6285865292005";
        product.PRODUCTNAME = "Ürün 1";
        product.UNITPRICE = 50;
        product.AMOUNT = 50;
        return product;
     }

Sorgudan dönen xml sonuç :

  
    
    
      1
        86919937
        L&M
        5.0000
        50
       
    
  

Kolay gelsin.

Class Helper İle Nesne Oluşturmak

Sınıflardan nesne referansı oluştururken,kodun tekrar etmesi,kodun yönetimini zorlaştırıyor, ve sürekli aynı kodu defalarca yazmak bizi yavaşlatıyor.

 Önce :

var  
 aQuery: TUniQuery;
begin
  aQuery := TUniQuery.Create(Application);
  aQuery.SQL.Text := 'sql kodun';
  aQuery.Execute;
  FreeAndNil(aQuery);
end;

TUniquery sınıfına bir "class extension function" yazıyoruz. Dikkat ederseniz bu sefer nesneye extension function olarak değilde, sınıfa extension function olarak yazıyoruz. O sebeble bu işi daha pratik hale getiriyoruz.

 Sonra :

unit uUniHelper;
interface

uses
  Vcl.Forms,
  System.SysUtils,
  System.Classes,
  Data.DB, 
  MemDS,
  DBAccess, 
  Uni;

type
  TUniQueryHelper = class helper for TUniQuery
  public
    class function CreatefromSQL(aSQL: string): TUniQuery;
  end;

implementation


{ TUniQueryHelper }
class function TUniQueryHelper.CreatefromSQL(aSQL: string): TUniQuery;
var
  aQuery: TUniQuery;
begin
  aQuery := TUniQuery.Create(Application);
  aQuery.Connection := UniConnection1;
  aQuery.SQL.Text := aSQL;
  aQuery.Execute;
  Result := aQuery;
end;

end.

var
  aQuery: TUniQuery;
begin
  aQuery := TUniQuery.CreatefromSQL('sql kodun');
  FreeAndNil(aQuery);
end;

iyi çalışmalar.

Php session da nesne saklamak

Session da değer saklayacağım zaman ben genellikle nesne olarak saklar ve erişirim.Bu şekilde kullanmakla hem oturum nesnesini optimize etmiş oluyoruz.Hemde kod yönetimini kolaylaştırıp,kalabalığı engellemiş oluyorum diye düşünüyorum.
İşte bir örnek :

 
 class User{
    public $rid;
    public $username;
    public $password;
 }

 $auser=new User();
 $auser->username='ismail';
 $auser->password='123';

 //nesnenin saklanması
 $_SESSION["user"]=serialize($auser);

 //session da saklanan "user" nesnesine erişim
 $auser = unserialize($_SESSION['user']);
 echo $auser->username;

İyi Çalışmalar..

Delphi XE3 Helpers

XE3 ile gelen yeniliklerden biride daha önce record'lara ve class'lara yazdığımız uzanım fonksiyonlarını artık temel veritiplerine de yazabiliyoruz.Bu güzel bir durum.Bak şimdi oldu :)

unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs;

type
  TDoubleHelper = record helper for Double
    function KareKokAl: Double;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 sayi:Double;
begin
 sayi:=100;
 ShowMessage(FloatToStr(sayi.KareKokAl));
end;

{ TDoubleHelper }
function TDoubleHelper.KareKokAl: Double;
begin
  Result:=Sqrt(Self);
end;

end.