Delphi Peak - Delphi Programming

Tabloda tek bir veri saklayacagimi bilsem dahi butun tablolarima ID alani muhakkak eklerim.
Birkac gun once karsima bir tablo cikti ve mukerrer kayitlarin silinmesi gerekiyor. Isin ilginc tarafi tabloda id alani olarak kullanilabilecek bir alan mevcut degil.

Bircok veritabani tarafindan desteklenen RowID ozelligiyle ya da distinct ile yapilan bir select ifadesinden donen degerleri insert ile baska bir tabloya yazarak problemi kolayca cozebilecegimi dusunsemde db2 ‘ da rowid ozelligi bekledigimden farkli calisinca biraz ugrasmak zorunda kaldim. Yeni bir tablo olusturmadan tek bir sql ile isi cozmek kolayima geldiginden ufak bir arastirmayla db2 da ki row_number fonksiyonu ile isimi cozebildim.

TEST3 //tablo adi
===============
TCNO //field adi
11111111111
22222222222
33333333333
11111111111
11111111111
33333333333
33333333333
22222222222
22222222222

delete  from
(SELECT
ROW_NUMBER() OVER (ORDER BY TCNO ASC) AS rownumber , TCNO
FROM TEST3 ) AS TEST_SIL
where TEST_SIL.rownumber >
(select min(TEST_SIL2.rownumber) from (SELECT
ROW_NUMBER() OVER (ORDER BY TCNO ASC) AS rownumber , TCNO
FROM TEST3 ) AS TEST_SIL2 WHERE  TEST_SIL.TCNO = TEST_SIL2.TCNO);

sorguyu calistirdiktan sonra ki tablonun yeni hali.

TEST3
===============
TCNO
11111111111
22222222222
33333333333

Delphi 2007 versiyonu ile birlikte TGifImage adli kutuphane hali hazirda Delphiyle birlikte gelmeye basladi. Isin garip tarafi TImage nesnesine gif uzantili dosyalari yukleyebiliyorsunuz fakat bu gif dosyalariniz hareketli gif dosyalari ise TImage nesnesine bu gif uzantili dosyalari yuklemeniz bu dosyalarin hareket etmesini saglamaya yetmiyor. Gif dosyanizin hareket etmesini saglamak icin sizin de biraz hareket etmeniz gerekiyor.

Yapabileceginiz bazi hareketler su sekilde.

Uses kisminda GifImg uniti yoksa bu uniti ekleyerek ise basliyoruz.

//1.Yol
//tasarim esnasinda TImage bilesenine gif dosyanizi yukleyin ve
//Butonun Clickinde ya da baska bir olayda gifi hareket ettirin.
(Image1.Picture.Graphic as TGIFImage).Animate := True;

//2.Yol
//Gifi calisma zamaninda yukleyin ve hareket ettirin
Image1.Picture.LoadFromFile('xxx.gif');
(Image1.Picture.Graphic as TGIFImage).Animate := True;

//3.Yol
//Gif dosyanizi elle yukleyin ve TImage nesnesine atayin
var
GImage : TGifImage;
begin
GImage := TGIFImage.Create;
GImage.LoadFromFile('GifDosyasi.gif');
GImage.Animate := True;
Image1.Picture.Graphic := GImage;
end;

Gif dosyanizin titreme yapmadan guzel bir sekilde hareket etmesi icin TImage nesnesini bir panelin icine koyun ve panelin doublebuffered ozelligini True yapin.

Gif dosyanizin oynatma hizinda yavaslik ya da hizlilik varsa AnimationSpeed degerini 0 yapmayi deneyin.

(Image1.Picture.Graphic as TGIFImage).AnimationSpeed:=0;

Http 302 internette karsimiza bolca cikan ama bizim farkina bile varmadigimiz yararli bir durum kodu. Istekte bulundugumuz bir web sayfasi artik baska bir adreste yayin hayatina devam ediyorsa sunucu geriye 302 durum kodu ile birlikte sayfanin yeni adresini bize gonderir ve gunumuzde kullandigimiz browserlarin tamami 302 durum koduyla karsilastiklari zaman bizi otomatik olarak yeni sayfaya yonlendirme becerisine sahip olduklarindan zavalli 302 tam bir gorev adami olarak sohretten yoksun bir sekilde isini sessiz sedasiz yapmaya devam eder.

Biz bu makalede TIdHTTP ile 302 durum kodunu hangi sekillerde yonetebilecegimizi kiyisindan kosesinden anlatmaya calisacagiz. Ise baslamadan once 302 durum kodu gonderen bir sayfa bulmamiz gerekiyor. Ben bunun icin FeedBurner servisini kullanan Yemek Tarifleri adli siteyi kullanmayi uygun buldum. Ne de olsa Delphiciler midelerine duskun olmakla aleme nam salmislar
(more…)

Hava Civa! gunluk hava durumunu gostermek icin gelistirilmis bir uygulama. Ozelligi ek bir bilesen kullanilmadan (sadece gdi+ kutuphanesi kullanilmis) Delphi 7 ile gelistirilmis olmasi ve kaynak kodunun acik olmasi. Program sahibi programini su sekilde tanitmis.

“Yeni Nesil programlama örneği”. Adından da anlaşılacağı gibi bir “Hava Durumu” programı. Ama bildiğiniz gibi değil… Bir “Widget” örneği. Klasik GDI çizim tekniklerinin dışında yeni nesil GDI+ çizim teknikleri içeriyor. “AlphaBlend” fonksiyonu resim çizme, “UpdateLayeredWindow” fonksiyonu ile katmanlı pencereler (layered windows) oluşturma, PNG formatında 32bit alpha-channel resim biçimlerinin Delphi formlarına uygulanması, donukluk (opaque), saydamlık ve görsel efektler… Hepsi Hava Cıva! da. Dahasıda var. Microsoft XMLDOM yapısının Delphi bileşenleri kullanmadan işlenmesi, RSS yapısının ayrıştırılması, kullanıcının Internet IP ’sinin bulunması, Hicri-Miladi takvim ve Ay konumunun hesaplanması… Programın görselliği bence sizi etkileyecek. Hem de tam sürüm ve kaynak kodu ile birlikte. İnanın pişman olmayacaksınız… Daha söze gerek yok aslında! Beklemeyin hemen indirin!

Meraklilar icin neyin nasil yapildigini uygulamali olarak gosteren cok guzel bir ornek olmus. Yine acik kaynak kodlu olarak yayinlanan Ey DSL i ve Hava Civa nin kaynak kodlarini indirmelerini tum delphicilere tavsiye ederim…

Soruların doğru cevaplarını öğrenmek için onları delphiye taşıyıp çalıştırmanız yeterli lakin bunu yapmadan önce kodları inceleyerek sonucu kendiniz bulmaya çalışın. Bunun size faydası biraz oop, biraz sanal metodlar biraz statik metodlar ve çok biçimlilik olacak…

Soru-1 Asagidaki programi calistirdigimizda consoldaki cikti ne olur ?
(more…)

• TObject sinifindaki degisiklikler

TObject sinifina yeni eklenen 6 adet metod var.

class function MethodAddress(const Name: string): Pointer; overload;
function FieldAddress(const Name: string): Pointer; overload;
class function UnitName: string;
function Equals(Obj: TObject): Boolean; virtual;
function GetHashCode: Integer; virtual;
function ToString: string; virtual;

Bunlardan ilk ikisi olan MethodAddress ve FieldAddress zaten eski delphi surumlerinde de mevcuttu. Delphi 2009 da sadece unicode degisikliginden dolayi String tipinde parametre alan yeni surumleride ilave edilmis o kadar.

Diger dort metod ise Vcl.net uyumlulugu icin eklenmis. Zira ToString metodunun yaptigi tek sey Classname degerini geri dondurmek.

function TObject.ToString: string;
begin
Result := ClassName;
end;

GetHashCode ve Equals metodlari ise system unitinde su sekilde tanimlanmislar.
(more…)

Apple iTunes ile meshur olan bir kullanici arabirimi var. Cover Flow 1 , 2 , 3

Elemanin biri bu efekti Delphi 5 ile gerceklestirip Flying Cow adiyla kaynak kodu ile birlikte internete koymus. Beraberinde bircok dosya formati icinde destegi eksik etmemis. Jpeg , Gif , Png , Pdf ve bircok video dosyasi.

Elemanin kendi sitesi su an Sayfa Bulunamadi hatasi versede su adresteki forumda butun seyler zaten detaylari ile mevcut.

Uygulamanin derlenmis halini ve kaynak kodlarini ise su adresten indirebilirsiniz.
FlyingCow-2007-11-28-pre-release-tests.rar
FlyingCow-sources-2007-11-28.rar

Uygulamayi derlemek icin gerekli olan ucuncu parti bilesenlere ise yine forum sayfasindan ulasabilirsiniz.
Delphinin hali hazirda destekledigi dosya turleri icin ek bir bilesen yuklemeye gerek yok. Sadece OpenGL ile ilgili olan pas dosyasini eklemeniz yeterli olacaktir.

Bu adreste ise ayni ornekten yola cikarak yapilmis baska bir uygulama var. Bu ornekte golge ve transparan ayarlarini manuel yapabiliryosunuz.

Bu habere kisaca eklemek istedigim not ise sudur. Hakkında “öldü , bitti , tarih oldu” denilen Delphi siz ölmeden asla ölmez. Eger gercekten birseyler yapma hevesiniz varsa birakin delphi 2007 yi Delphi 5 bile bircok ihtiyacinizi karsilayacak guce sahiptir flying Cow orneginde oldugu gibi…

1.gün videolarini burdan indirebilirsiniz.
BobEvansAlbertoSavoia_YourCodeIsCrap.zip
CaryJensen_PracticalGuideToADOdotNet.zip
CaryJensen_ReusableDataLayers.zip
ClaireRouchy_AutomatedPerformanceTestSuite.zip
JimDouglas_CodeRageIIOpening.zip
JoeMcGlynnRaviKumar_JBuilderProductAddress.zip
JoeMele_WindowsInstallerTechnology.zip
MichaelRozlog_SoftwareArcheology.zip
MichaelRozlog_UMLForJBuilder2007.zip
NickHodges_DelphiProductAddress.zip
Pawel Glowacki_TenTopThings.zip

2.gün videolarini burdan indirebilirsiniz.
JonathanBenedicto_ComponentsForPHP.zip
JonathanBenedicto_OOPinPHP5.zip
LeonelTogniolli_IntroToBlackFishSQL_english.zip
LeonelTogniolli_IntroToBlackFishSQL_portuguese.zip
MarcoCantu_Delphi2007andVista.zip
MarcoCantu_DynamicArchitectures.zip
MarcoCantu_RestandAjax.zip
RayKonopka_CompositeVclControls.zip
RayKonopka_CustomDataInCodesite.zip
RayKonopka_IntroductionToGenerics.zip
SriramBalasubramanian_InterBaseProductAddress.zip

3.gün videolarini burdan indirebilirsiniz.
BoianMitov_ComponentsWithOpenwire.zip
BoianMitov_MultimediaProgramming.zip
CraigStuntz_DelphiUnitTestingPowerTools.zip
HolgerFlick_BuildingAdvancedVCLdotNetECOApplications.zip
JoeMcGlynn_3rdRailProductAddress.zip
KenSipe_JavaMemory.zip
KenSipe_JmxAndSpring.zip
KenSipe_SpringJpaHibernate.zip
MarcoCantu_WritingADSLInDelphi.zip
MarkHowe_3rdRailTipsAndTricks.zip
PawelGlowacki_WCFDeeperDive.zip
ShelbySanders_WhatsSoInterestingAboutRubyandRailsAnyway.zip

4.gün videolarini burdan indirebilirsiniz.
AlexanderEvdokimovAlexeyDubkov_EffectiveUMLModelingInDelphi.zip
BobSwart_WebcamFun_Dutch.zip
BobSwart_WebcamFun_English.zip
FrancoisGaillard_MemoryLeaks_English.zip
FrancoisGaillard_MemoryLeaks_French.zip
GirishPatil_Top5PDFNeedsSolved_SWF.zip
JimMcKeeth_ClassHelpersFriendOrFoe.zip
JimMcKeeth_ExceptionalExceptions.zip
KarlEwald_WorkingWithProjectAssistAndTeamInsight.zip

5.gün videolarini burdan indirebilirsiniz.
CaryJensen_ClientDataSetTipsAndTricks.zip
CaryJensen_TrackingDatabaseMetadata.zip
CharlesOverbeck_UsingTheJGearPacks.zip
JimMcKeeth_ImplementingCryptography.zip
KenKrugler_ImpactAnalysis.zip

Marco Cantu ‘nun Delphi 2007 Handbook kitabini internet uzerinden temin etmek mumkun ama daha guzeli kitapta verilen ornek kodlari yine ayni siteden indirmekte mumkun.

Ornek kodlarin listesi su sekilde.
(more…)

*** Free Pascal Compiler 2.2.0 sürümü çıktı.
Yeni versiyonda eklenen/düzenlenen özelliklerin listesine bu linkten ulaşabilirsiniz. Gözüme çarpan ilk özellikler desteklediği yeni platformlar oldu.

Windows x64
Windows CE
Mac OS X/Intel
Game Boy Advance
Game Boy DS

İndirmek için http://freepascal.org/

*** CrossKylix ‘in geliştirilmesi durduruldu.
Delphi idesine eklenen bu arac sayesinde CLX uygulamalarimizi windows ortaminda linux icin derleyebiliyorduk. Her ne kadar bugune kadar hic kullanmamis olsamda kullanan bircok kisinin oldugunu tahmin etmek cok zor degil bu yararli araci. Ne yazik ki bu araci gelistiren kisi CodeGear ‘in izlediği politikaları tasvib etmemis olacak ki böyle bir karar almis. Umarim bu kararından vazgeçer.

http://crosskylix.untergrund.net/

***Felix amca’dan yeni makaleler…
Yazılarını ilgiyle takip ettiğimiz Felix John COLIBRI yayınladığı yazılarla bizleri mest etmeye devam ediyor. CodeGear’ın yeni veritabanı BlackfishSQL ‘i derinlemesine anlattığı yazısı , ajax’ın temellerini ve indy ile ajax sorgularına cevap verebilen bir sunucunun nasıl oluşturulacağını anlattığı yazısı , Delphi 2007 ile birlikte gelen DBX4 ‘ün temel ve yeni özelliklerini anlattığı yazıları okumanız için sizleri bekliyor…

AJAX Tutorial
BlackfishSql
Delphi DBX4 programming

*** Fatih Tolga Ata’dan Delphi ve Kanallar ile ilgili çok güzel bir makale.
Delphi ile Thread(Kanal) Kullanımı - Bölüm 1