Bilgisayarı kapat - resetle
//------------Declared------------
//----m_gulbil58@hotmail.com------
//---delphi_hacker@hotmail.com----
Windows u bi linke t ı klay ı p a ç mak i ç in yapmam ı z gereken ;
Masa ü st ü nde sa ğ t ı klay ı p k ı sayol olu ş tur a t ı klay ı n ... Ard ı ndan çı kan pencerede
Bilgisayar ı Kapatmak i ç in ;
WinExec ( 'c:/windows/rundll.exe user.exe,exitwindows' , sw_normal );
Resetlemek i ç in ;
WinExec ( 'c:/windows/rundll.exe user.exe,exitwindowsexec, sw_normal);
diyoruz ...
Delphi - .....................................
Bilgisayarı kapat - resetle
//------------Declared------------
//----m_gulbil58@hotmail.com------
//---delphi_hacker@hotmail.com----
Windows u bi linke t ı klay ı p a ç mak i ç in yapmam ı z gereken ;
Masa ü st ü nde sa ğ t ı klay ı p k ı sayol olu ş tur a t ı klay ı n ... Ard ı ndan çı kan pencerede
Bilgisayar ı Kapatmak i ç in ;
WinExec ( 'c:/windows/rundll.exe user.exe,exitwindows' , sw_normal );
Resetlemek i ç in ;
WinExec ( 'c:/windows/rundll.exe user.exe,exitwindowsexec, sw_normal);
diyoruz ...
Delphi - .....................................
Cevap-İskender Aklını Başına Al
benim aklı m ba şı mda da senin terbiyen yerinde de ğ il galiba ..
Delphi - .....................................
Cevap-İskender Aklını Başına Al
benim aklı m ba şı mda da senin terbiyen yerinde de ğ il galiba ..
Delphi - .....................................
iskender aklini basina al
iskender sende istersen bokunu cikarma. biz buraya cocuk avutmaya girmiyoruz .
Delphi - .....................................
iskender aklini basina al
iskender sende istersen bokunu cikarma. biz buraya cocuk avutmaya girmiyoruz .
Delphi - .....................................
AnimateWindow
AnimateWindow
Ö rnekler
procedure TForm1 . FormShow ( Sender : TObject );
begin
AnimateWindow ( Handle , 1500 , AW_CENTER or AW_SLIDE );
end ;
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
procedure TForm1 . FormClose ( Sender : TObject ; var Action : TCloseAction );
begin
AnimateWindow ( handle , 1500 , AW_BLEND or AW_HIDE );
end ;
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
procedure TForm1 . FormShow ( Sender : TObject );
begin
AnimateWindow ( Handle , 4500 , AW_HOR_NEGATIVE or AW_VER_POSITIVE );
end ;
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
procedure TForm1 . FormShow ( Sender : TObject );
begin
AnimateWindow ( Handle , 4500 , AW_HOR_POSITIVE or AW_VER_POSITIVE );
end ;
AW_BLEND
AW_CENTER
AW_HOR_POSITIVE
AW_HOR_NEGATIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE
Delphi - .....................................
AnimateWindow
AnimateWindow
Ö rnekler
procedure TForm1 . FormShow ( Sender : TObject );
begin
AnimateWindow ( Handle , 1500 , AW_CENTER or AW_SLIDE );
end ;
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
procedure TForm1 . FormClose ( Sender : TObject ; var Action : TCloseAction );
begin
AnimateWindow ( handle , 1500 , AW_BLEND or AW_HIDE );
end ;
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
procedure TForm1 . FormShow ( Sender : TObject );
begin
AnimateWindow ( Handle , 4500 , AW_HOR_NEGATIVE or AW_VER_POSITIVE );
end ;
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
procedure TForm1 . FormShow ( Sender : TObject );
begin
AnimateWindow ( Handle , 4500 , AW_HOR_POSITIVE or AW_VER_POSITIVE );
end ;
AW_BLEND
AW_CENTER
AW_HOR_POSITIVE
AW_HOR_NEGATIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE
Delphi - .....................................
Formun başlığını gizlemek
Formun baş l ığı n ı gizlemek
Protected veya public b ö l ü m ü ne ş u proceduru yaz ı n !
procedure CreateParams ( var Params : TCreateParams ); override ;
sonra Ctrl + Shift + C tu ş lar ı na bas ı n ve ş u kodu yaz ı n
procedure TForm1 . Createparams ( var Params : TCreateParams );
begin
inherited CreateParams ( Params );
with Params do
Style := ( Style or WS_POPUP ) and ( not WS_DLGFRAME );
end ;
Delphi - .....................................
Formun başlığını gizlemek
Formun baş l ığı n ı gizlemek
Protected veya public b ö l ü m ü ne ş u proceduru yaz ı n !
procedure CreateParams ( var Params : TCreateParams ); override ;
sonra Ctrl + Shift + C tu ş lar ı na bas ı n ve ş u kodu yaz ı n
procedure TForm1 . Createparams ( var Params : TCreateParams );
begin
inherited CreateParams ( Params );
with Params do
Style := ( Style or WS_POPUP ) and ( not WS_DLGFRAME );
end ;
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk- Edit'i memoya aktarma
ç ok ara ş t ı rd ığı n belli
kullanman gereken kod ş u :
memo1 . lines . text := '.Msda öğretiyorlar' ;
koloy gelsin
Delphi - .....................................
Cevap- Neoturk-Acil Yardım
" veri taban ı na ba ğ lant ı kuruyorum ,
kaydet tu ş una bast ığı mda
" not edit mode error in $FFFFFFx1024 " yaz ı yor ?
ne yapmal ı y ı m ????
yard ı mc ı olursan ı z sevinirim
mail : yyyy @ ppppp . com "
delphiyi ve bilgisayar ı n ı kapat ı p bir daha a ç m ı yorsun .
bu hatayla bir daha kar şı la ş mayaca ğı n ı temenni ederim .
Delphi - .....................................
Cevap- Neoturk-Acil Yardım
" veri taban ı na ba ğ lant ı kuruyorum ,
kaydet tu ş una bast ığı mda
" not edit mode error in $FFFFFFx1024 " yaz ı yor ?
ne yapmal ı y ı m ????
yard ı mc ı olursan ı z sevinirim
mail : yyyy @ ppppp . com "
delphiyi ve bilgisayar ı n ı kapat ı p bir daha a ç m ı yorsun .
bu hatayla bir daha kar şı la ş mayaca ğı n ı temenni ederim .
Delphi - .....................................
Cevap- Neoturk-Acil Yardım
" veri taban ı na ba ğ lant ı kuruyorum ,
kaydet tu ş una bast ığı mda
" not edit mode error in $FFFFFFx1024 " yaz ı yor ?
ne yapmal ı y ı m ????
yard ı mc ı olursan ı z sevinirim
mail : yyyy @ ppppp . com "
delphiyi ve bilgisayar ı n ı kapat ı p bir daha a ç m ı yorsun .
bu hatayla bir daha kar şı la ş mayaca ğı n ı temenni ederim .
Delphi - .....................................
Cevap- Neoturk-Acil Yardım
" veri taban ı na ba ğ lant ı kuruyorum ,
kaydet tu ş una bast ığı mda
" not edit mode error in $FFFFFFx1024 " yaz ı yor ?
ne yapmal ı y ı m ????
yard ı mc ı olursan ı z sevinirim
mail : yyyy @ ppppp . com "
delphiyi ve bilgisayar ı n ı kapat ı p bir daha a ç m ı yorsun .
bu hatayla bir daha kar şı la ş mayaca ğı n ı temenni ederim .
Delphi - .....................................
Cevap- Neoturk- Edit'in içini temizleme
ç ok u ğ ra ş d ı m ama yapamad ı m
edit i ç ine girilen metnin i ç eri ğ ini button1 e t ı klad ığı mda
silmek istiyorum ????
mail : xxxx @ yyy . com
neoturk arkada şı m ı z burada soru soran herkes senin gibi u ğ ra ş sa ne ala kimileri
hi ç u ğ ra ş madan soruyor (!) sonra baz ı . msda öğ rencisi arkada ş lar ı m ı z da onlar ı
öğ rencileri gibi f ı r ç al ı yor :)
madem ç ok u ğ ra ş t ı n al cevap
buttun1 in onclick olay ı na ş unu yaz
edit1 . text := '.msda' ;
bunu yaz ı nca edit1 'in içini temizlersin
kolay gelsin .
Delphi - .....................................
Cevap- Neoturk- Edit'in içini temizleme
ç ok u ğ ra ş d ı m ama yapamad ı m
edit i ç ine girilen metnin i ç eri ğ ini button1 e t ı klad ığı mda
silmek istiyorum ????
mail : xxxx @ yyy . com
neoturk arkada şı m ı z burada soru soran herkes senin gibi u ğ ra ş sa ne ala kimileri
hi ç u ğ ra ş madan soruyor (!) sonra baz ı . msda öğ rencisi arkada ş lar ı m ı z da onlar ı
öğ rencileri gibi f ı r ç al ı yor :)
madem ç ok u ğ ra ş t ı n al cevap
buttun1 in onclick olay ı na ş unu yaz
edit1 . text := '.msda' ;
bunu yaz ı nca edit1 'in içini temizlersin
kolay gelsin .
Delphi - .....................................
Cevap- Neoturk- Edit'in içini temizleme
ç ok u ğ ra ş d ı m ama yapamad ı m
edit i ç ine girilen metnin i ç eri ğ ini button1 e t ı klad ığı mda
silmek istiyorum ????
mail : xxxx @ yyy . com
neoturk arkada şı m ı z burada soru soran herkes senin gibi u ğ ra ş sa ne ala kimileri
hi ç u ğ ra ş madan soruyor (!) sonra baz ı . msda öğ rencisi arkada ş lar ı m ı z da onlar ı
öğ rencileri gibi f ı r ç al ı yor :)
madem ç ok u ğ ra ş t ı n al cevap
buttun1 in onclick olay ı na ş unu yaz
edit1 . text := '.msda' ;
bunu yaz ı nca edit1 'in içini temizlersin
kolay gelsin .
Delphi - .....................................
Cevap- Neoturk- Edit'in içini temizleme
ç ok u ğ ra ş d ı m ama yapamad ı m
edit i ç ine girilen metnin i ç eri ğ ini button1 e t ı klad ığı mda
silmek istiyorum ????
mail : xxxx @ yyy . com
neoturk arkada şı m ı z burada soru soran herkes senin gibi u ğ ra ş sa ne ala kimileri
hi ç u ğ ra ş madan soruyor (!) sonra baz ı . msda öğ rencisi arkada ş lar ı m ı z da onlar ı
öğ rencileri gibi f ı r ç al ı yor :)
madem ç ok u ğ ra ş t ı n al cevap
buttun1 in onclick olay ı na ş unu yaz
edit1 . text := '.msda' ;
bunu yaz ı nca edit1 'in içini temizlersin
kolay gelsin .
Delphi - .....................................
Memodaki Yazı Kaç Bayt ?
label1. Caption := inttostr ( memo1 . SelStart );
Delphi - .....................................
Memodaki Yazı Kaç Bayt ?
label1. Caption := inttostr ( memo1 . SelStart );
Delphi - .....................................
Cevap- Neoturk-Delphi ??
Neoturk delphiyi yeni kurduğ una g ö re sana ş lang ıç olarak ş unu öğ renirim
Ba ş lat / Programlar / Denetim Masas ı/ Program Ekle ve Kald ı r 'a çift tıklıyorsun
programlar listesinden Borland Delphi ( x ) 'i seçiyorsun
kald ı r diyorsun .
son olarak bilgisayar ı n ı yeniden ba ş latmay ı unutma :)
Bu ho ş una gitmediyse
delphiyi a çı yorsun
Kodbank 'ta .msda öğrencisi bir arkadaşımız var onun testlerini çözmeye başlıyorsun
Sayg ı lar ı mla_ (: P )
Delphi - .....................................
Cevap- Neoturk-Delphi ??
Neoturk delphiyi yeni kurduğ una g ö re sana ş lang ıç olarak ş unu öğ renirim
Ba ş lat / Programlar / Denetim Masas ı/ Program Ekle ve Kald ı r 'a çift tıklıyorsun
programlar listesinden Borland Delphi ( x ) 'i seçiyorsun
kald ı r diyorsun .
son olarak bilgisayar ı n ı yeniden ba ş latmay ı unutma :)
Bu ho ş una gitmediyse
delphiyi a çı yorsun
Kodbank 'ta .msda öğrencisi bir arkadaşımız var onun testlerini çözmeye başlıyorsun
Sayg ı lar ı mla_ (: P )
Delphi - .....................................
Cevap- Trojen Devri Bitti Mi?
selam.
Neoturk arkada şı m ı z ı n yazd ığı bir makale / yorum 'a karşılık olarak "Gerçekten trojen
devri bitti mi ?" diye bir soru sormu ş sunuz .
O yaz ı dan anla şı lacak en son ş eyi anlam ış s ı n ı z siz ..
Yaz ı n ı n trojenlerle ilgili k ı sm ı n ı de ğ erlendiriyorum :
1 - Neoturk arkada şı m ı z " Ben bu kitab ı n daha iyisini yazar ı m veya yaz ı yorum "
demeye ç al ışı yor
2 - Neoturk arkada şı m ı z bir zamanlar trojen / trojenler yazm ış ve yazd ığı programlar
ba ş ar ı l ı olmu ş veya olmam ış ( bu k ı sm ı ö nemli de ğ il ).. sonu ç olarak art ı k
trojen yazmaktansa uzaktaki bir bilgisayardaki almak istedi ğ i veriyi
bilgisayar ı n kullan ı c ı s ı na sorarak öğ renmeyi ama ç l ı yor :)
...
E ğ er oturup ba şı na kullanamayaca ğı n bir bilgisayarda elde etmek istedi ğ in bilgiler varsa
bunu trojen yazmadan alman ı n ba ş ka yolu var m ı ?
varsa 1990 dan beni neden kullan ı lm ı yor ?
Neoturk arkada şı m ı z bilgileri ile bizleri ( en az ı ndan beni ) burada ayd ı nlat ı yor ama
ş ahsen s ı k ı ld ığı bir program modelinden " trojen devri kapand ı" diye bahsedip de
kimsenin 8 ayl ı k ç al ış mas ı n ı n bi anlam ı olmad ığı n ı s ö ylemeye hakk ı yok
Ger ç i o zaten " kaliteli bilgileri " kendisine sakl ı yor ( bir yaz ı s ı nda buna benzer bir ş ey yaz ı yordu )
ö n ü m ü zdeki 3 - 5 ay boyunca her yaz ı s ı nda kendisinin . msda öğ rencisi oldu ğ unu
s ö yleyecektir . ( art ı k oray ı bitirince ka ç sene konu ş ur bilinmez )
birinci alternatif
e ğ er ihtiyac ı n varsa trojen yazacaks ı n ç at ı r ç at ı r kullanacaks ı n
ikinci alternatif
trojene ihtiyac ı n oldu ğ unda neoturk 'e soracaksın o sana
ba ş ka yoldan yapmas ı n ı öğ retecek :)
Sayg ı lar ı mla_ (: P )
Delphi - .....................................
Cevap- Trojen Devri Bitti Mi?
selam.
Neoturk arkada şı m ı z ı n yazd ığı bir makale / yorum 'a karşılık olarak "Gerçekten trojen
devri bitti mi ?" diye bir soru sormu ş sunuz .
O yaz ı dan anla şı lacak en son ş eyi anlam ış s ı n ı z siz ..
Yaz ı n ı n trojenlerle ilgili k ı sm ı n ı de ğ erlendiriyorum :
1 - Neoturk arkada şı m ı z " Ben bu kitab ı n daha iyisini yazar ı m veya yaz ı yorum "
demeye ç al ışı yor
2 - Neoturk arkada şı m ı z bir zamanlar trojen / trojenler yazm ış ve yazd ığı programlar
ba ş ar ı l ı olmu ş veya olmam ış ( bu k ı sm ı ö nemli de ğ il ).. sonu ç olarak art ı k
trojen yazmaktansa uzaktaki bir bilgisayardaki almak istedi ğ i veriyi
bilgisayar ı n kullan ı c ı s ı na sorarak öğ renmeyi ama ç l ı yor :)
...
E ğ er oturup ba şı na kullanamayaca ğı n bir bilgisayarda elde etmek istedi ğ in bilgiler varsa
bunu trojen yazmadan alman ı n ba ş ka yolu var m ı ?
varsa 1990 dan beni neden kullan ı lm ı yor ?
Neoturk arkada şı m ı z bilgileri ile bizleri ( en az ı ndan beni ) burada ayd ı nlat ı yor ama
ş ahsen s ı k ı ld ığı bir program modelinden " trojen devri kapand ı" diye bahsedip de
kimsenin 8 ayl ı k ç al ış mas ı n ı n bi anlam ı olmad ığı n ı s ö ylemeye hakk ı yok
Ger ç i o zaten " kaliteli bilgileri " kendisine sakl ı yor ( bir yaz ı s ı nda buna benzer bir ş ey yaz ı yordu )
ö n ü m ü zdeki 3 - 5 ay boyunca her yaz ı s ı nda kendisinin . msda öğ rencisi oldu ğ unu
s ö yleyecektir . ( art ı k oray ı bitirince ka ç sene konu ş ur bilinmez )
birinci alternatif
e ğ er ihtiyac ı n varsa trojen yazacaks ı n ç at ı r ç at ı r kullanacaks ı n
ikinci alternatif
trojene ihtiyac ı n oldu ğ unda neoturk 'e soracaksın o sana
ba ş ka yoldan yapmas ı n ı öğ retecek :)
Sayg ı lar ı mla_ (: P )
Delphi - .....................................
Bir Elestiride Neoturk e
{Kardesim;
Siz bagirmiyormuydunuz burasi forum degil soru sorma yeridegil .... degil diye?
Burasi kitap elestiri forumuda degil.
Sizin kitap elestiriniz sahsen beni hic mi hic ilgilendirmiyor, kaldiki
elestirdiginiz konular basit dizgi hatalari olabilecegi gibi yoruma acik
konulardan olusuyor.
Soru soranlara 10 kisi soru sorma diye cevap veriyor luzumsuz 11 tane kayit
olusuyor. Salakca sorulari duymayin kardesim cevapta yazmayin silin gitsin,
cevap verenlerede saygi gosterin.
Hemen cevap yazma, bir on dakika dusun yazacaksan sonra yaz.
Saygilar.
}
Delphi - .....................................
Bir Elestiride Neoturk e
{Kardesim;
Siz bagirmiyormuydunuz burasi forum degil soru sorma yeridegil .... degil diye?
Burasi kitap elestiri forumuda degil.
Sizin kitap elestiriniz sahsen beni hic mi hic ilgilendirmiyor, kaldiki
elestirdiginiz konular basit dizgi hatalari olabilecegi gibi yoruma acik
konulardan olusuyor.
Soru soranlara 10 kisi soru sorma diye cevap veriyor luzumsuz 11 tane kayit
olusuyor. Salakca sorulari duymayin kardesim cevapta yazmayin silin gitsin,
cevap verenlerede saygi gosterin.
Hemen cevap yazma, bir on dakika dusun yazacaksan sonra yaz.
Saygilar.
}
Delphi - .....................................
Delphi Bittimi?
{ Delphi Bittimi?
Bagriyanik arkadasim kendince biseyler yazmis. Bende kendi fikrimi ve
deneyimlerimi yamak istedim.
Hic bir Dil hic kimse icin hic bir zaman bitmez.
Eski projelerin icin isini yapan makina ve isletim sistemi yazdigin programi
calistirmaya yeterliyse yenilerinin pesinde kosmak akillica olmaz.
Yeni projeler de yeni isletim sistemleri ile uyumlu programlar yazmak icin
herzaman kullanilabilecek bir Delphi surumude piyasada mutlaka olacaktir.
Kaldiki 4 yildir yuruttugum bir projede yerel kullanimda Delphi6 ve internet
uzerinde veri aktariminda kombineli olarak firebird (interbase) ve ASP yi
birlikte kusursuz ve hizli olarak kullabiliyorken niye .net zirvalariyla
ugrasayim?
Eger asp veya php yi etkili bicimde kullanabiliyorsaniz , delhi
ve php komutlari ile uzak serverlerde veri tabanlari uzerinde yapamayacagiziniz
sey neredeyse yok.
en basindan en sonuna kadar verileri kaydetme, okuma , degerlendirme ve hesaplama
yontemleri hic degismemistir degismeyecektir. Oyleyse .Net programalama teknigimize
ku$ kondurmayacaktir, hatta daha ileri gidersek karsilastiginiz bir web formunu
doldurmak hanginize eglenceli geliyor? ozaman programlarimizi kullanan kisilere
niye bu formalarin onlarcasini doldurmak zorunda birakalim? cunku .net bundan
ibaret.
En iyi dil onun bunun iyi dedigi dil degil sizin kendinizi rahat hissettiginiz
kolay kullanabildiginiz dildir.
Saglicakla kalin ,
aklinizi kullanin,
baskalarinin nekadar cok sey bildigine takmayin,
emin olun onlarda sizin bildiginiz bir cok seyi bilmiyorlar,
baskalarinin akliniza hukmetmesine izin vermeyin.
Saygilarimla
}
Delphi - .....................................
Delphi Bittimi?
{ Delphi Bittimi?
Bagriyanik arkadasim kendince biseyler yazmis. Bende kendi fikrimi ve
deneyimlerimi yamak istedim.
Hic bir Dil hic kimse icin hic bir zaman bitmez.
Eski projelerin icin isini yapan makina ve isletim sistemi yazdigin programi
calistirmaya yeterliyse yenilerinin pesinde kosmak akillica olmaz.
Yeni projeler de yeni isletim sistemleri ile uyumlu programlar yazmak icin
herzaman kullanilabilecek bir Delphi surumude piyasada mutlaka olacaktir.
Kaldiki 4 yildir yuruttugum bir projede yerel kullanimda Delphi6 ve internet
uzerinde veri aktariminda kombineli olarak firebird (interbase) ve ASP yi
birlikte kusursuz ve hizli olarak kullabiliyorken niye .net zirvalariyla
ugrasayim?
Eger asp veya php yi etkili bicimde kullanabiliyorsaniz , delhi
ve php komutlari ile uzak serverlerde veri tabanlari uzerinde yapamayacagiziniz
sey neredeyse yok.
en basindan en sonuna kadar verileri kaydetme, okuma , degerlendirme ve hesaplama
yontemleri hic degismemistir degismeyecektir. Oyleyse .Net programalama teknigimize
ku$ kondurmayacaktir, hatta daha ileri gidersek karsilastiginiz bir web formunu
doldurmak hanginize eglenceli geliyor? ozaman programlarimizi kullanan kisilere
niye bu formalarin onlarcasini doldurmak zorunda birakalim? cunku .net bundan
ibaret.
En iyi dil onun bunun iyi dedigi dil degil sizin kendinizi rahat hissettiginiz
kolay kullanabildiginiz dildir.
Saglicakla kalin ,
aklinizi kullanin,
baskalarinin nekadar cok sey bildigine takmayin,
emin olun onlarda sizin bildiginiz bir cok seyi bilmiyorlar,
baskalarinin akliniza hukmetmesine izin vermeyin.
Saygilarimla
}
Delphi - .....................................
DELPHİ TÜRK FORM HATASI
DELPHİ T Ü RK FORM HATASI
Arkadaş lar Buras ı Sorun Yeri de ğ il Biliyorum Ama
...................................../ Forums B ö l ü m ü ne Giremiyorum ...
Neden Olabilir Yard ı mc ı Olabilirmisiniz ....
Delphi - .....................................
DELPHİ TÜRK FORM HATASI
DELPHİ T Ü RK FORM HATASI
Arkadaş lar Buras ı Sorun Yeri de ğ il Biliyorum Ama
...................................../ Forums B ö l ü m ü ne Giremiyorum ...
Neden Olabilir Yard ı mc ı Olabilirmisiniz ....
Delphi - .....................................
[ MA MAX ]
Selamlar.... Ç ok ö nemli Delphi Hi ç Bir zaman Ö lmedi ö lmeyecek vb ciler
k ı kanmas ı n l ü tfen .. çü nk ü y ı lllard ı r kulland ı m .. ve hack i ş ine de girim dedim
ve 10 dakkada hacker oldum delphi sayesinde inan ı lmaz kodlar
veriler elde ettim microsoft i ş ine baks ı n VB cilerde can ı m ı s ı kmas ı n
Sayg ı lar ı mla ..
msn : milk . inc @ mynet . com
Delphi - .....................................
[ MA MAX ]
Selamlar.... Ç ok ö nemli Delphi Hi ç Bir zaman Ö lmedi ö lmeyecek vb ciler
k ı kanmas ı n l ü tfen .. çü nk ü y ı lllard ı r kulland ı m .. ve hack i ş ine de girim dedim
ve 10 dakkada hacker oldum delphi sayesinde inan ı lmaz kodlar
veriler elde ettim microsoft i ş ine baks ı n VB cilerde can ı m ı s ı kmas ı n
Sayg ı lar ı mla ..
msn : milk . inc @ mynet . com
Delphi - .....................................
bayindir arkadasa
Sevgili bayı nd ı r burda delphicilere gelip delphinin bitti ğ ini s ö ylemekle
hem populatist hemde antirealist bir dusunce yap ı s ı na sahip oldugunu s ö yleyebilirim .
Sevgili neoturk konuyu ç ok guzel ve uzun uzun anlatm ış. kendisine ç ok te ş ekkur ederim .
bende uzun sozun k ı sas ı n ı sana anlatay ı n .
ben delphi delphi 2.0 zaman ı ndan beri kulan ı yorum .
Delphi herzaman Vb in 10 ad ı m ilerisinden gitmi ş tir . ve gitmektedir . Ayn ı ş ey
Vb . Net i ç in de ge ç irli . Delphi Net ç ok daha aktiv ve g üç l ü d ü r .
Uzun S ö zun k ı sas ı Microsoft hi ç bir zaman delphi ile boy ol ç usecek bir proglama
dili geli ş tirememi ş ve geli ş tiremeyecektir . Çü nk ü onlar ı n i ş i windowsun g ö r ü n ü m ü n ü
de ğ i ş tirip piyasaya s ü rmektir . Bunda Daha ç ok para var çü nk ü. LUTFEN BUNU ASLA UNUTMA
Delphi - .....................................
bayindir arkadasa
Sevgili bayı nd ı r burda delphicilere gelip delphinin bitti ğ ini s ö ylemekle
hem populatist hemde antirealist bir dusunce yap ı s ı na sahip oldugunu s ö yleyebilirim .
Sevgili neoturk konuyu ç ok guzel ve uzun uzun anlatm ış. kendisine ç ok te ş ekkur ederim .
bende uzun sozun k ı sas ı n ı sana anlatay ı n .
ben delphi delphi 2.0 zaman ı ndan beri kulan ı yorum .
Delphi herzaman Vb in 10 ad ı m ilerisinden gitmi ş tir . ve gitmektedir . Ayn ı ş ey
Vb . Net i ç in de ge ç irli . Delphi Net ç ok daha aktiv ve g üç l ü d ü r .
Uzun S ö zun k ı sas ı Microsoft hi ç bir zaman delphi ile boy ol ç usecek bir proglama
dili geli ş tirememi ş ve geli ş tiremeyecektir . Çü nk ü onlar ı n i ş i windowsun g ö r ü n ü m ü n ü
de ğ i ş tirip piyasaya s ü rmektir . Bunda Daha ç ok para var çü nk ü. LUTFEN BUNU ASLA UNUTMA
Delphi - .....................................
Gerçekten Trojan Devri Kapandı mı???
........................................................
********************************************************
Sevgili neoturk . Kod Bankas ı k ı sm ı nda bir kitapla ilgi g ö r üş lerini okudum ( tabiiki tamam ı n ı diil )... Orada sonlarda Trojanlarla ilgili bir k ı s ı m hakk ı nda g ö r üş lerini bildirmi ş sin ( index konusuna kat ı l ı yorum ). Daha sonra alt ı na zaten trojan devri de kapand ı tarz ı nda not d üş m ü ss ü n . Ger ç ekten de durum b ö yle mi ? Yani Remote Admin Toollar tarihe mi kar ışı yor ? Bir zamanlar herkesi pe ş inden ko ş turan Subsevenlar , Theefler , DeepThroatlar ( ProRat diyemicem Çü nk ü ;
***
bir ç ok hatalarla dolu ve ş ifreleri almakta kulland ı klar ı pluginler kendilerine ait diil ve VB programlama diliyle yaz ı lm ış , command prompt ya da parametre kullan ı larak ç al ış t ı r ı lan ve txt dosyas ı na kaydedilen bilgileri okuyan ç al ı nt ı ve ü cretli bir RAT . Hatalar ı saymakla bitiremem herhalde ama 1 - 2 tane s ö ylim .
1 -) Dosya Arama b ö l ü m ü nde bulunan dosyalar ç ok fazla ise Client taraf ı na eksik geliyor . Deneyin ...
2 -) Registry Editorde ayn ı ş ekilde . Current_Root bi girin . Deneyin ...,
3 -) File Manager ç ok u ğ ra şı l ı nca çö k ü yor ...
nese fazla uzatmadan konuya d ö nimm :)
*** efsaneleri bitiyor mu ? Ben de Trojan ve Agent yazd ı m .
Trojan EditServer hari ç hatas ı z ç al ışı yor ve ProRatin t ü m ö zelliklerini ta şı yor ...Ş a şı r ı yor olabilirsiniz . Ama 8 ayd ı r gecemi g ü nd ü z ü me katt ı m bunun i ç in ...
Agent ise tamamiyle bitti ve o da ProAgent ı n t ü m ö zelliklerinin yan ı nda esktra ö zellikleri de var . K ı sa zamanda nete yaymay ı d üşü n ü yorum ( tabii ü niversiteden vakit bulursam :)
Bu 2 projeyi de paral ı yapmay ı d üşü n ü yordum fakat vazge ç tim .İ nsanlar ı s ö m ü rme fikri hi ç ho ş uma gitmedi . Bu programlar ı Ü LKEME adad ı m .Çü nk ü bu aralar ü zerinde oynanan oyunlar ho ş uma gitmiyor ( Hi ç bir zaman ho ş uma gitmedi zaten )
Ama siz Trojan devri kapand ı diince i ç ime bir rahats ı zl ı k d üş t ü. Trojan projesini iptal etmeyi bile d üşü nd ü m ( sizinle benzer fikirleri payla şı yorum . 3 seneye kalmaz bu i ş ler sonlan ı r ). Hatta Kaynak kodu bile yay ı nlamay ı d üşü nd ü m . Umar ı m yazd ı klar ı ma cevap gelir ...
Di ğ er arkada ş lar da yorum getirebilirler bu konuya ...
Herkese İ yi Ç al ış malar ...
unreachableboy
mailto : unreachableboy @ hotmail . com
........................................................
********************************************************
Delphi - .....................................
Gerçekten Trojan Devri Kapandı mı???
........................................................
********************************************************
Sevgili neoturk . Kod Bankas ı k ı sm ı nda bir kitapla ilgi g ö r üş lerini okudum ( tabiiki tamam ı n ı diil )... Orada sonlarda Trojanlarla ilgili bir k ı s ı m hakk ı nda g ö r üş lerini bildirmi ş sin ( index konusuna kat ı l ı yorum ). Daha sonra alt ı na zaten trojan devri de kapand ı tarz ı nda not d üş m ü ss ü n . Ger ç ekten de durum b ö yle mi ? Yani Remote Admin Toollar tarihe mi kar ışı yor ? Bir zamanlar herkesi pe ş inden ko ş turan Subsevenlar , Theefler , DeepThroatlar ( ProRat diyemicem Çü nk ü ;
***
bir ç ok hatalarla dolu ve ş ifreleri almakta kulland ı klar ı pluginler kendilerine ait diil ve VB programlama diliyle yaz ı lm ış , command prompt ya da parametre kullan ı larak ç al ış t ı r ı lan ve txt dosyas ı na kaydedilen bilgileri okuyan ç al ı nt ı ve ü cretli bir RAT . Hatalar ı saymakla bitiremem herhalde ama 1 - 2 tane s ö ylim .
1 -) Dosya Arama b ö l ü m ü nde bulunan dosyalar ç ok fazla ise Client taraf ı na eksik geliyor . Deneyin ...
2 -) Registry Editorde ayn ı ş ekilde . Current_Root bi girin . Deneyin ...,
3 -) File Manager ç ok u ğ ra şı l ı nca çö k ü yor ...
nese fazla uzatmadan konuya d ö nimm :)
*** efsaneleri bitiyor mu ? Ben de Trojan ve Agent yazd ı m .
Trojan EditServer hari ç hatas ı z ç al ışı yor ve ProRatin t ü m ö zelliklerini ta şı yor ...Ş a şı r ı yor olabilirsiniz . Ama 8 ayd ı r gecemi g ü nd ü z ü me katt ı m bunun i ç in ...
Agent ise tamamiyle bitti ve o da ProAgent ı n t ü m ö zelliklerinin yan ı nda esktra ö zellikleri de var . K ı sa zamanda nete yaymay ı d üşü n ü yorum ( tabii ü niversiteden vakit bulursam :)
Bu 2 projeyi de paral ı yapmay ı d üşü n ü yordum fakat vazge ç tim .İ nsanlar ı s ö m ü rme fikri hi ç ho ş uma gitmedi . Bu programlar ı Ü LKEME adad ı m .Çü nk ü bu aralar ü zerinde oynanan oyunlar ho ş uma gitmiyor ( Hi ç bir zaman ho ş uma gitmedi zaten )
Ama siz Trojan devri kapand ı diince i ç ime bir rahats ı zl ı k d üş t ü. Trojan projesini iptal etmeyi bile d üşü nd ü m ( sizinle benzer fikirleri payla şı yorum . 3 seneye kalmaz bu i ş ler sonlan ı r ). Hatta Kaynak kodu bile yay ı nlamay ı d üşü nd ü m . Umar ı m yazd ı klar ı ma cevap gelir ...
Di ğ er arkada ş lar da yorum getirebilirler bu konuya ...
Herkese İ yi Ç al ış malar ...
unreachableboy
mailto : unreachableboy @ hotmail . com
........................................................
********************************************************
Delphi - .....................................
Veritabanındaki Resmi Kolayca Alma
//Veritabanındaki bir resmi almanın değişik ve kolay bir kaç yolu var
//örnek olarak image1 bileşenine veritabanından aldığımız resmi aktaralım
//1. yol
procedure TForm1 . Button1Click ( Sender : TObject );
begin
Image1 . Picture . Bitmap . Assign ( Table1Bitmap );
end ;
//2. yol
procedure TForm1 . Button1Click ( Sender : TObject );
begin
Image1 . Picture . Bitmap . Assign ( TBLOBField ( Table1 . Fields [ 1 ]));
end ;
//3. yol
procedure TForm1 . Button1Click ( Sender : TObject );
var
B : TBitmap ;
begin
B := TBitmap . Create ;
try
B . Assign ( Table1Bitmap );
Image1 . Picture . Bitmap . Assign ( B );
finally
B . Free ;
end ;
end ;
Delphi - .....................................
Veritabanındaki Resmi Kolayca Alma
//Veritabanındaki bir resmi almanın değişik ve kolay bir kaç yolu var
//örnek olarak image1 bileşenine veritabanından aldığımız resmi aktaralım
//1. yol
procedure TForm1 . Button1Click ( Sender : TObject );
begin
Image1 . Picture . Bitmap . Assign ( Table1Bitmap );
end ;
//2. yol
procedure TForm1 . Button1Click ( Sender : TObject );
begin
Image1 . Picture . Bitmap . Assign ( TBLOBField ( Table1 . Fields [ 1 ]));
end ;
//3. yol
procedure TForm1 . Button1Click ( Sender : TObject );
var
B : TBitmap ;
begin
B := TBitmap . Create ;
try
B . Assign ( Table1Bitmap );
Image1 . Picture . Bitmap . Assign ( B );
finally
B . Free ;
end ;
end ;
Delphi - .....................................
memonun içine editten texti aktarma
procedure TForm1 . Edit1Change ( Sender : TObject );
begin
form1 . Memo1 . Lines . Text := Form1 . Edit1 . Text ;
end ;
Delphi - .....................................
memonun içine editten texti aktarma
procedure TForm1 . Edit1Change ( Sender : TObject );
begin
form1 . Memo1 . Lines . Text := Form1 . Edit1 . Text ;
end ;
Delphi - .....................................
StringGrid i dosyaya kaydetmek ve dosyadan yüklemek
// Save a TStringGrid to a file
procedure SaveStringGrid ( StringGrid : TStringGrid ; const FileName : TFileName );
var
f : TextFile ;
i , k : Integer ;
begin
AssignFile ( f , FileName );
Rewrite ( f );
with StringGrid do
begin
// Write number of Columns/Rows
Writeln ( f , ColCount );
Writeln ( f , RowCount );
// loop through cells
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln ( F , Cells [ i , k ]);
end ;
CloseFile ( F );
end ;
// Load a TStringGrid from a file
procedure LoadStringGrid ( StringGrid : TStringGrid ; const FileName : TFileName );
var
f : TextFile ;
iTmp , i , k : Integer ;
strTemp : String ;
begin
AssignFile ( f , FileName );
Reset ( f );
with StringGrid do
begin
// Get number of columns
Readln ( f , iTmp );
ColCount := iTmp ;
// Get number of rows
Readln ( f , iTmp );
RowCount := iTmp ;
// loop through cells & fill in values
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln ( f , strTemp );
Cells [ i , k ] := strTemp ;
end ;
end ;
CloseFile ( f );
end ;
// Save StringGrid1 to 'c:temp.txt':
procedure TForm1 . Button1Click ( Sender : TObject );
begin
SaveStringGrid ( StringGrid1 , 'c:temp.txt' );
end ;
// Load StringGrid1 from 'c:temp.txt':
procedure TForm1 . Button2Click ( Sender : TObject );
begin
LoadStringGrid ( StringGrid1 , 'c:temp.txt' );
end ;
Delphi - .....................................
StringGrid i dosyaya kaydetmek ve dosyadan yüklemek
// Save a TStringGrid to a file
procedure SaveStringGrid ( StringGrid : TStringGrid ; const FileName : TFileName );
var
f : TextFile ;
i , k : Integer ;
begin
AssignFile ( f , FileName );
Rewrite ( f );
with StringGrid do
begin
// Write number of Columns/Rows
Writeln ( f , ColCount );
Writeln ( f , RowCount );
// loop through cells
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln ( F , Cells [ i , k ]);
end ;
CloseFile ( F );
end ;
// Load a TStringGrid from a file
procedure LoadStringGrid ( StringGrid : TStringGrid ; const FileName : TFileName );
var
f : TextFile ;
iTmp , i , k : Integer ;
strTemp : String ;
begin
AssignFile ( f , FileName );
Reset ( f );
with StringGrid do
begin
// Get number of columns
Readln ( f , iTmp );
ColCount := iTmp ;
// Get number of rows
Readln ( f , iTmp );
RowCount := iTmp ;
// loop through cells & fill in values
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln ( f , strTemp );
Cells [ i , k ] := strTemp ;
end ;
end ;
CloseFile ( f );
end ;
// Save StringGrid1 to 'c:temp.txt':
procedure TForm1 . Button1Click ( Sender : TObject );
begin
SaveStringGrid ( StringGrid1 , 'c:temp.txt' );
end ;
// Load StringGrid1 from 'c:temp.txt':
procedure TForm1 . Button2Click ( Sender : TObject );
begin
LoadStringGrid ( StringGrid1 , 'c:temp.txt' );
end ;
Delphi - .....................................
diller
. (*
www.sourceforge.net'deki 1000'in üzerinde projesi olan açık kaynak diller:
Assembly (1603 projects) -- (alttan 2.)
C (15840 projects)
C# (2850 projects)
C++ (16639 projects) ** (üstten 2.)
Delphi/Kylix (1921 projects) ?
Java (16599 projects) * (üstten 1.)
JavaScript (2735 projects)
Perl (6173 projects)
PHP (12059 projects) *** (üstten 3.)
PL/SQL (1136 projects) - (alttan 1.)
Python (4499 projects)
Unix Shell (1828 projects) --- (alttan 3.)
Visual Basic (2180 projects) ?
buna göre C, çoook önemli bir dil açık kaynak kod yazılımda.
- Microsoft ya da VB desteğim yok... VB6 dangalakca bir dildir de diyebilirim.
- ama yine de ASP.NET filan uğraşılamaya değer dillerdir.
- bir kaç yıl soona, Vista'da buradaki API'ler çalışmadığında, özellikler hacker
tiplerine çook güleceğim. Boş şeylerle uğraştıklarını görecekler.
- olumlu ve olumsuz yorumlardan dolayı teşekkürler...
Delphi - .....................................
diller
. (*
www.sourceforge.net'deki 1000'in üzerinde projesi olan açık kaynak diller:
Assembly (1603 projects) -- (alttan 2.)
C (15840 projects)
C# (2850 projects)
C++ (16639 projects) ** (üstten 2.)
Delphi/Kylix (1921 projects) ?
Java (16599 projects) * (üstten 1.)
JavaScript (2735 projects)
Perl (6173 projects)
PHP (12059 projects) *** (üstten 3.)
PL/SQL (1136 projects) - (alttan 1.)
Python (4499 projects)
Unix Shell (1828 projects) --- (alttan 3.)
Visual Basic (2180 projects) ?
buna göre C, çoook önemli bir dil açık kaynak kod yazılımda.
- Microsoft ya da VB desteğim yok... VB6 dangalakca bir dildir de diyebilirim.
- ama yine de ASP.NET filan uğraşılamaya değer dillerdir.
- bir kaç yıl soona, Vista'da buradaki API'ler çalışmadığında, özellikler hacker
tiplerine çook güleceğim. Boş şeylerle uğraştıklarını görecekler.
- olumlu ve olumsuz yorumlardan dolayı teşekkürler...
Delphi - .....................................
adsl bağlantıda client-server uygulaması
internet paletindeki Serversocket ve clientsocket kullanı yorum
sorunum
internet ü zerinde 2 pc haberlesmesi i ç in client server socketleri kullanarak
calı s ı yor . tabi dialap modemle yada usb adsl ile baglant ı n olmal ı.çü nk ü
pc nin ald ığı ip ISP den alm ış oluyor . 2 makina birbiri ile ip den haberlesiyor
Lan adsl modem olunca cal ı sm ı yor çü nk ü; ip ' si lan adslden alıyor 10.0.0.2
olarak yerel a ğ tipinde ip al ı yor .
haberle ş mesini nas ı l sa ğ lar ı m ?
yada ba ş ka compenant varm ı benim sorunumu halletcek
Not : adsl modemin setup ı ndan portu y ö nlendirmeden
Delphi - .....................................
adsl bağlantıda client-server uygulaması
internet paletindeki Serversocket ve clientsocket kullanı yorum
sorunum
internet ü zerinde 2 pc haberlesmesi i ç in client server socketleri kullanarak
calı s ı yor . tabi dialap modemle yada usb adsl ile baglant ı n olmal ı.çü nk ü
pc nin ald ığı ip ISP den alm ış oluyor . 2 makina birbiri ile ip den haberlesiyor
Lan adsl modem olunca cal ı sm ı yor çü nk ü; ip ' si lan adslden alıyor 10.0.0.2
olarak yerel a ğ tipinde ip al ı yor .
haberle ş mesini nas ı l sa ğ lar ı m ?
yada ba ş ka compenant varm ı benim sorunumu halletcek
Not : adsl modemin setup ı ndan portu y ö nlendirmeden
Delphi - .....................................
www.delphiforum.com
delphi forum siteniz... yak ı nda hizmetinizde
www . delphiform . com
info @ delphiform . com
Delphi - .....................................
www.delphiforum.com
delphi forum siteniz... yak ı nda hizmetinizde
www . delphiform . com
info @ delphiform . com
Delphi - .....................................
neoturk - kitap eleştirisi ( zirvedeki beyinler )
Fazla uzatmadan hemen ö z ele ş tirilere girmek istiyorum .
Delphi 7.0 Zirvedeki Beyinler : ( 1. Bask ı )
[ 2.bask ı n ı z ı kitap çı da g ö rd ü m ama okumad ı m ]
G ü ven verici ve anla şı l ı r bir dil kullanman ı z ı ö ncelikle b ü y ü k bir takdirle
kar şı l ı yor ve tebrik ediyorum . Esprit ü el yakla şı m ı n ı z da gayet ho ş ve g ü ven
verici . Bir programc ı n ı n g ö z ü yle olaya odaklanm ış s ı n ı z ve bu da g ü zel .
Yeni ba ş layan birisi bu espirileri anlayamasa da az ç ok programlama ile ha şı r
ne ş ir olmu ş birisi i ç in olduk ç a e ğ lendirici ve stress giderici bir anlat ı m tarz ı
kullanm ış s ı n ı z . Gayet ho ş uma gitti .
Konu indexi olarak , delphiye giri ş ve yeni ba ş layan birisi i ç in bulunmaz
bir nimet olarak g ö r ü yorum bu kitab ı. Ancak , ileri seviye konular ı na de ğ inilmemi ş.
İ sterdim ki ileri seviyeye de hitap eden ı formata sahip bir kitab ı n ı z ı
piyasaya çı kartm ış olman ı z idi .
Kitab ı n ı zda g ö z ü me ç arpan a ğı rl ı k , tarih fonksiyonlar ı oldu .
Bu konu ü zerine ç ok fazla de ğ indi ğ iniz i ç in kitap biraz kal ı nca olmu ş
kanaatindeyim . Ö zellikle tarih fonksiyonlar ı n ı n ç oklu ğ u , rutin bir anlat ı m ve
s ı ras ı belli bir indexten takip edildi ğ i izlenimi uyand ı rd ı bende .
Bu rutinlik i ç in - 1 puan
Pointer ve Class yap ı lar ı n ı anlat ı m ı n ı z , okudu ğ um kitaplar i ç ersinde en
anla şı l ı r ve net olarak yer al ı yor . Bu konular ı g ü zel anlat ı m ı n ı z i ç in + 1 puan .
Kodlama ö rneklerinizin b ü t ü nl üğü ve doyuruculu ğ u a çı s ı ndan pek geni ş bir i ç erik
oldu ğ unu d üşü nm ü yorum . Konu i ç eri ğ i olarak be ğ endi ğ im hususlar , obeb - okek
ö rnekleri ve s ı ralama kodlar ı n ı n bulundu ğ u b ö l ü mler idi . Di ğ er b ö l ü mler ,
di ğ er kitaplara g ö re daha pasif bir bilgi i ç eri ğ ine sahip idi kendi fikrimce .
( obeb - okek ve s ı ralama algoritmalar ı i ç in + 1 puan , di ğ er rutin konulara == )
Baz ı yerlerde eksik ve hatal ı kodlama ve anlat ı mlar ı n oldu ğ unu farkettim .
Sayfa 77 :
Procedure Tform1 . button8click ( sender : Tobject );
Var notu : integer ;
Begin
Notu := 70 ;
İ f notu > 50 then
Begin
Form1 . caption := 'sınıfı geçtin' //artık ";" var
* End ;
Else
Begin
Form1 . caption := 'sınıfta kaldın' ;
End ;
End ;
( * ) olan yerdeki ";" y ü z ü nden bu kod ç al ış maz . ( deneyin )
Ayr ı ca bir ş u a çı klaman ı z ı n tam tersini ben öğ rencilerime vermeye ç al ışı yorum
Demi ş siniz ki : " uzmanla ş madan ö nce yazaca ğı n ı z kodlar ı ( if i ç in ) muhakkak
" begin - end " blo ğ u i ç erisinde yazmaya gayret edin . Bu ş ekilde bir hareket ,
hata yapma ş ans ı n ı z ı mimimuma indirecektir .
Daha sonra delphi 'ye hakim olursanız o zaman dilediğiniz şekilde kodlama
yapabilirsiniz . Kodlar ı edit ö r ü n ü ze yazarken de biraz dikkatli olursan ı z ,
daha sonra kodu incelerken sizin i ç in ç ok b ü y ü k kolayl ı k sa ğ layacakt ı r "
halbuki öğ rencilerin en ç ok kafas ı n ı kar ış t ı ran konulardan birisi de siz de
iyi biliyorsunuz ki " begin - end -;" kombinasyonlar ı d ı r .
Sayfa 83 :
Bir ç ok ö rne ğ inizde direkt olarak kullan ı c ı n ı n edit h ü crelerine say ı girilece ğ i
varsay ı lm ış kitab ı n ı zda . Ve öğ renci o h ü crelere say ı girmeden " hesapla " tu ş una
bast ığı nda da hata raporu g ö rd üğü nde kafas ı bulan ı yor ve kendisini ş artl ı yor
illa da say ı girilmesi gerekti ğ i konusunda .
Kitab ı n ı zda bahsetti ğ iniz hatalara kar şı tecr ü belerinizden bahsetmeniz ç ok g ü zel ,
burada bu ve bunun gibi kodlar ı n t ü m ü n ü " vize1 := strtointdef ( trim ( edit1 . text ), 0 );"
ş eklinde yazman ı z hi ç bir karma şı kl ığ a yol a ç mayacakt ı r kan ı s ı nday ı m .
Öğ rencilerime ben her zaman bu ş ekilde tahtaya kodlar ı yaz ı yorum
ve sebebini kodlama yaparlarken biliyorlar .
Sayfa 86 :
Bu sayfan ı n ilk paragraf ı na asla kat ı lm ı yorum .
Ben derslerimde ö nce if deyimi anlatt ı ktan sonra " case " deyimine ge ç meden ö nce
ç ok zor ş artlar koyuyorum ve bunu if deyimleri ile kodlamalar ı n ı s ö yl ü yorum .
Ve if deyiminin ç ok karma şı k olan abs ü rt - sa ç ma isteklerini yerine getiren
kodu yazmalar ı n ı s ö yl ü yorum ve i ş in i ç inden çı kamad ı klar ı n ı g ö r ü yorum .
Case deyimi ile bu abs ü rt mant ı klar ı ç ok rahat bir ş ekilde programlayabiliyorlar .
Bu konuda orijinal bir sorum mevcuttur ve if deyimleri ile kodlanmas ı imkans ı zd ı r .
Case deyimi cevap verebilmektedir .
Sayfa 88 :
En alt paragrafta bahsi ge ç en
" case yap ı s ı string veriler i ç in delphide kullan ı lamamaktad ı r .
E ğ er dallanmaya u ğ rayacak de ğ i ş keniniz string veri i ç eriyorsa o zaman
sorununuzu " if " yap ı s ı yla çö zmeyi deneyiniz "
bu c ü mle ç ok ilgimi ç ekti !
e ğ er , denemeye a çı k bir politika anlat ı m ı izliyor iseniz
( ki zaten izliyorsunuz kitapta ), case yap ı s ı string veriler i ç in delphide
kullan ı labilmektedir . Çü nk ü bu i ş i dolayl ı olarak ç ok g ü zel bir ş ekilde
array - type - case - of yap ı s ı ile çö zebilirsiniz . Ben bunu öğ rencilerime
Level - 2 seviyesine ge ç tiklerinde anlat ı yorum .
Sayfa 103 :
S ı ralama algoritmalar ı nda bahsi ge ç en ,
Demi ş siniz ki : " bu s ı ralama algoritmas ı n ı kullanman ı z ı tavsiye etmiyorum .
Listbox 'taki elemanların fazla olması durumunda çok ağır kalacaktır.
Daha h ı zl ı ç al ış an di ğ er algoritmalar ı kullan ı n ."
Pe ş in bir h ü k ü mm ü d ü r bu bubble - sort hakk ı nda s ö ylenilenler bilmiyorum ama ,
bu konuda uzman bir profes ö r diyor ki
"ş ayet verileriniz kar ışı k bir d ü zende ise , bubble sort
quick sort 'tan daha hızlı çalışabilmektedir."
Test ettim ve g ö rd ü m . Ç ok karma şı k verileri bubble sort daha h ı zl ı s ı ral ı yor .
Quick sort genel olarak h ı zl ı d ı r ama kar ışı k olmayan ve rutin sabit
aral ı kl ı 10.000 adet say ı y ı s ı ralarken bubble - sort 'a göre daha yavaş olduğunu
sizler de g ö rebilirsiniz . Dolay ı s ı yla , s ı ralama y ö ntemleri konusunda pe ş in
s ö ylenmi ş bir h ü km ü pek do ğ ru bulmuyorum .
Sayfa 133 :
Maxintvalue ( dizi ); //en büyük değere sahip eleman ( sayfa 131 )
Minintvalue ( dizi ); //en büyük değere sahip eleman ( sayfa 133 )
Kopyala yap ış t ı r hatas ı m ı acaba ? kullan ı c ı n ı n kafas ı kar ış maz m ı sizce ?
Sayfa 368 :
Alt klas ö rlerde de arama - tarama yapan ve Tsearchrec yap ı s ı n ı biraz daha anlatan
ö rnekleriniz olsayd ı ç ok daha g ü zel olurdu . Öğ rencilerimin bir ç o ğ u ,
alt klas ö rlerde de arama yapan ve bunlar ı treelist nesnesine aktaran kodlamay ı
soruyorlar . Ben bunlar ı en ince detay ı na kadar derslerimde anlat ı yorum ve
öğ rencilerin ufku daha da a çı l ı yor kendileri yeni eklentiler yapabiliyorlar .
Prati ğ e ve piyasaya y ö nelik bir uygulama a çı s ı ndan
son derece ö nemli bir konu bence . Çü nk ü, bir s ü r ü bahsetti ğ iniz
tarih fonksiyonu yerine bu konuya biraz daha a ğı rl ı k vermeniz bence
daha profesyonelce ve g ö z dolduran bir yap ı olurdu .
Sadece ilgili klas ö rdeki dosyalar ı n listesini vermek ve sadece
findfirst - findnext komutlar ı n ı anlat ı p
ö rneksiz pas ge ç mek bence puan kayb ı idi .... - 1 puan
Sayfa 447 :
Burada bahsi ge ç en kodlama ö rne ğ ini tasvip etmedim ...
kula ğı sa ğ dan g ö stermekle e ş de ğ er g ö rd ü m . Çü nk ü, sayfa 441 de indexof
methodundan bahsetmi ş siniz , neden bu mant ığı kullanarak kullan ı c ı y ı
rahatlatm ı yorsunuz da uzunca kodlama ö rne ğ i veriyorsunuz ? uzunca kod g ö rs ü n
tecr ü besi arts ı n diyorsan ı z , zaten indexof komutu azca bilinen bir komut .
Ç o ğ u programc ı uzunca for d ö ng ü s ü i ç ersinde tek tek sat ı rlar ı arat ı r .
( lineer search ) benim öğ rencilerime de ben indexof komutunu g ö stermeden
ö nce arad ığı n ı z veriyi hadi bulun dedi ğ imde zaten verdi ğ iniz kod ile arama
yap ı l ı yor ( not : b ü y ü k k üçü k harfe de duyarl ı de ğ il verdi ğ iniz kodlama ,
olmas ı da gerekmiyor ) madem indexof komutunu sayfa 441 de i ş lemi ş siniz
neden bu komutun g ü c ü n ü ö n plana çı kartmad ı n ı z ?.. oturakl ı bir ö rnek olurdu .....
"İ f listbox1 . indexof ( edit1 . text )=- 1 then listbox1 . items . append ( edit1 . text );"
gibi .... bu kadar basit ve etkin bir ş ekilde g ö z dolduran bir y ö ntem varken
neden uzat ı yorsunuz anlam ı yorum .. uzat ı lm ış kodlamalar ı delphiye yeni ba ş layan
birisi asla ve asla anlamayacakt ı r ve anlam ı yorlar da ... ( bir m ü ddet zaman
ge ç tikten sonra alg ı l ı yorlar )
sayfa 458 :
" listbox1 . topindex " ö zelli ğ ini anlatm ış s ı n ı z iyi g ü zel .
En az ı ndan bir uygulama ö rne ğ i g ö sterseydiniz ç ok daha g ü zel olurdu .
" bilhassa birden fazla listebox ( yaz ı m hatas ı var kitapta ) ile ç al ışı rken
kullan ı lan bir ö zelliktir " c ü mlenize kar şı l ı k okuyucu merak eder ,
nedir bu ö zellik ? g ö relim bakal ı m neymi ş?... ben bu ö zelli ğ i bilhassa
derslerde öğ rencilere birden fazla listboxlarda g ö steriyorum .
Sizin s ö yledi ğ iniz ile bire - bir ö rt üşü yor , ama ö rne ğ iniz yok ...
olsayd ı g ö z doldururdu .
Sayfa 469 :
Yani inan ı r m ı s ı n ı z , buradaki bahsi ge ç en kodu ilk g ö rd üğü mde
ger ç ekten g ü cendim . G ü cendim çü nk ü istenileni tam yapmayan bir kodun yaz ı lm ış
oldu ğ unu o anda farkettim .
Neden hep items [ 0 ] de ğ erine yazd ı r ı l ı yor ki ? ve . add komutu ile ba ş lam ış ken ?
Bu ö rne ğ i deneyip sonu ç lar ı n ı g ö rd üğü n ü z m ü veya istenileni yapar m ı sizce ?
Bu ö rne ğ e - 1 puan veriyorum .... bence b ü y ü k bir gaf ... gaf diyorum çü nk ü
kullan ı c ı san ı yor ki , alt alta dbgrid gibi her eklenen veriler eklenecek ...
ama ö yle olmuyor ne yaz ı kki ... h ü z ü n dolu bir kod ...........
Sayfa 483 :
A çı k ç as ı ( sayfa 485 dahil ) bu ö rne ğ i ne i ç in anlatt ığı n ı z ı anlayamad ı m
ş ahsen .. tab sekmesi ile alt sayfa a çı l ı yor iyi g ü zel ama , bu a çı lan sayfalara
ili ş kin öğ rencinin akl ı na hemen " hocam dinamik ve etkin sayfalar
ü retebiliyor muyuz ?" sorusu geliyor . Yani demek istedi ğ im , a ç t ığı n ı z bu tab
sayfalar ı n ı n i ç ini de dinamik olarak buttonlar ile ve dizayn ı yap ı lm ış
memo vs gibi nesneler ve click olaylar ı ile beraber oturtabiliyor muyuz ?..
bu konudan ilerleyen sayfalarda bahsetmi ş siniz ama , bahsetti ğ iniz b ö l ü m ile
bu b ö l ü m aras ı ndaki ili ş ki da ğ lar kadar ............. ve dolay ı s ı yla a çı lm ış bo ş
tab sayfalar ı hi ç bir i ş e yaram ı yor . Sadece tabbednotebook nesnesinin methodu
olarak ge ç iyor ... ne g ü zel ...
Veri taban ı ö rnekleriniz bir sonraki kitab ı n ı z ile neredeyse bire - bir ayn ı.
Bu konuya di ğ er kitab ı n ı zda de ğ inece ğ im .
Registry ö rneklerinizi de zay ı f g ö rd ü m . Bu konudan bahsetmeyece ğ im .
Uzmanlar i ç in beyin jimnasti ğ ine ge ç iyorum :
Uygulama 15 ve uygulama 16 sorular ı beni mest etti !
Uygulama 15 deki kod , a ş a ğı daki kod ile ayn ı:
function SayiOku ( Sayi : String ; Bosluk : Boolean = False ): String ;
// Bu fonksiyon -fatihçopur- tarafından yazılmıştır (Made in Turkiye)
// girilen 36 basamaklı sayının okunuşunu döndürür
var
Basamak : Array [ 0 .. 2 ] of Byte ;
i , j : Byte ;
BoslukStr , Birler , Yuzler , Boluk , UBSayi , UBSayiOkunusu : String ;
Begin
if Bosluk then BoslukStr := ' ' else BoslukStr := '' ;
Birler := ' bir iki üç dört beş altı yedi sekizdokuz' ;
Sayi := Stringofchar ( '0' , 36 - Length ( Sayi )) + Sayi ;
for i := 0 to 11 do begin
UBSayi := copy ( Sayi , 3 * i + 1 , 3 ); UBSayiOkunusu := '' ;
if (( i <> 10 ) or ( UBSayi <> '001' )) and ( UBSayi <> '000' ) then begin
for j := 0 to 2 do Basamak [ j ] := strtoint ( copy ( UBSayi , j + 1 , 1 ));
Yuzler := '' ;
if Basamak [ 0 ] = 1 then
Yuzler := BoslukStr + 'yüz'
else if Basamak [ 0 ] > 1 then
Yuzler := Trimright ( BoslukStr + copy ( Birler , 5 * Basamak [ 0 ] + 1 , 5 )) + BoslukStr + 'yüz' ;
UBSayiOkunusu := Yuzler + Trimright ( BoslukStr + copy ( ' on yirmi otuz kırk elli altmışyetmişseksendoksan' , 6 * Basamak [ 1 ] + 1 , 6 )) + Trimright ( BoslukStr + copy ( Birler , 5 * Basamak [ 2 ] + 1 , 5 ));
end ;
if UBSayi = '000' then Boluk := '' else Boluk := TrimRight ( BoslukStr + copy ( 'desilyon nonilyon oktilyon septilyon sekstilyonkentilyon katrilyon trilyon milyar milyon bin ' , 10 * i + 1 , 10 )); // sekstilyon yerine hekstilyon da kullanılabilir.
result := Trimleft ( result + UBSayiOkunusu + Boluk );
end ;
end ;
hangi kodlaman ı n orijinal oldu ğ una siz karar verin l ü tfen ....
uygulama 16 daki kodlama y ö ntemini ise son derece zay ı fl ı k olarak g ö r ü yorum .
Bu denli i ç i ç e ge ç mi ş if deyimleri ve
uzun uzad ı ya sayfalarca kodlama yap ı lmamal ı.......
sonu ç olarak , delphi 7 ZB - 5 kitab ı ndaki ö rnekleri yeterli g ö rm ü yorum .
Konu i ç erikleri baz ı yerlerde iyi anlat ı lm ış ama genel olarak zay ı f g ö r ü yorum .
Tecr ü belerime ve okudu ğ um kitaplara dayanarak ş u k ı yaslamalar ı yapabilirim :
Zeydi . pala - ihsan . karag ü lle = prati ğ e a ğı rl ı k vermi ş tir ve takdir etti ğ im
ö rneklerle ve kodlama mant ı klar ı yla beni b ü y ü lemi ş lerdir .
Ç ok takdir etti ğ im yazarlard ı r .
Ruhver . barengi = beni tam anlam ı yla bilgi y ö n ü nden doyuran ve mest eden .
Cok fena ufkumu a ç m ış t ı r . Kar şı ma çı karsa elinden ö pecem .
Marco . cantu = anlam veremedi ğ im hyper bilgi birikimine sahip olmas ı na ra ğ men
hala kitaplar ı ndan bir ş ey anlam ı yorum ....
Charles . Calvert = beni a şı r ı ç al ış maya zorlayan , sabahlatan adam ...
kar şı ma çı karsa elinden ö pecem .
Y ü ksel .İ nan - Nihat . Demirli = Anla şı l ı r yaz ı dili ve konu kapsam format ı ile
etkilendi ğ im lisan dili . İ lk elime al ı p kabaca bakt ığı mda iyi puan vermi ş tim .
İç eri ğ ini okudu ğ umda daha da doyurucu ö rneklerin olmas ı gerekti ğ ine karar verdim .
Di ğ er = a çı k ç as ı kaile alm ı yorum ....... low level olanlar beni ilgilendirmiyor ...
Kitab ı n ı z ı n ilerleyen sayfalar ı nda bir sonraki kitab ı n ı z ı çı karaca ğı n ı z ı
s ö yledi ğ inizde 4 g ö zle bekledim inan ı n . Bekledim çü nk ü network ve trojan
programc ı l ığı na de ğ inece ğ inizi s ö ylemi ş tiniz . Sab ı rs ı zl ı kla bekledim .
Delphi 7 - veri taban ı ve network programc ı l ığı
Kitab ı n ı z ı kad ı k ö y 'de kitapçıda ilk gördüğüm anda aldım.
Ve gidip burger kingde hamburger ve kola e ş li ğ inde 2 saatte bitirdim .
Ç ok h ı zl ı ve ç abucak g ö z gezdirdim ö rneklerinize . Ve ç oook k ı zd ı m ç ok ...
Kitab ı n ı z ı san ı r ı m h ı zl ı ca yay ı na bast ığı n ı z i ç in , daha ilk sayfalarda
yaz ı m hatalar ı g ö z ü me ç arpt ı:
Ö ns ö z - sons ö z - 309 sayfalar ı nda yaz ı m hatalar ı n ı z var .
Ö ns ö z = konususnda ( sibel yanar - teknik editor )
Sons ö z = hkk ı ndaki
309 = ba ş lant ı kesildi
kitab ı n ilk sayfalar ı nda yaz ı m hatas ı n ı n olmas ı bende
" aceleye gelmi ş bir kitap " izlenimi olu ş turdu . Haks ı z m ı y ı m acaba ?
bde konu anlat ı m ı n ı z tamam . Ama biraz daha ö rnek gerekiyor .
Sql konu anlat ı m ı n ı z T ü rk yazarlar i ç ersinde number 1. + 1 puan .
Master Details tablo yap ı lar ı n ı uygun ö rneklerle anlatm ış s ı n ı z . + 1 puan
( veri taban ı anlat ı m ı n ı z ve ö rnekleriniz ö nceki kitap ile ayn ı oldu ğ u i ç in - 1 puan )
Teechart ok
Qreport ok
Decision cube ok
Rave ok .
Yukar ı daki bilgilerin bir ç o ğ unu di ğ er kitaplardan da öğ renmemiz m ü mk ü n .
Fark atacak konular ı n olmas ı n ı bekliyorum . Devam ..........
Sayfa 222 :
Kodlama olarak do ğ ru bir mant ı k , ama form . create olay ı na yerle ş tirmi ş
olman ı z bence bir eksiklik ... i ş te di ğ er yabanc ı yazarlar burada şö yle
bir c ü mle kullan ı yorlar " a ş a ğı daki kodlama bir veri taban ı na ba ğ lant ı yapar .
İ stedi ğ iniz button cli ğ ine veya belirleyece ğ iniz bir yere bu kodu ş ablon
olarak kullanabilirsiniz " bu c ü mle programc ı da ç ok fazla ufuk a ç ar .
Ama sizin ö rne ğ inizde , direkt olarak form create olay ı nda bu konunun
i ş lenmesi uzun vadede sorunlara yol a ç ar ... a çı l ış ta de ğ erleri hesaplatmak ve
program ı n a çı l ışı n ı beklemek ne kadar do ğ ru olabilir ............
bunu bari ı na yerle ş tirin ve kullan ı c ı y ı y ö nlendirin
en az ı ndan ... madem yeni ba ş layanlara hitap ediyorsunuz ( ki bu kitab ı
çı kar ı yorsan ı z bence acemileri de ğ il de orta ve ileri d ü zeyleri ele
almal ı yd ı n ı z ) ç o ğ u kullan ı c ı neyi nereye yazd ığı n ı n fark ı na bile varmadan
kendi kendilerine cebelle ş ecekler bence .........
Sayfa 224 :
Veri tabanlar ı nda hep ayn ı ş ey hep ayn ı ş ey ! neden veriler i ç ersinde de bir
resim g ö sterilmez anlamam ki ? hele ki access de ! her ş ey microsofta
odaklanm ış iken paradoxun yetersiz kald ığı durumlarda accesse jpeg resim
g ö mmek ne kadar de ğ erli ve ö nemli bir ş eydir de ğ il mi .... ama ö rneklerde hi ç
bahsedilmiyor . Paradoxde dbimage ile ge ç i ş tirilmi ş, ama accessde hep paradox
veri yap ı s ı na ka çı lm ış... bu rutinliklerin hepsi di ğ er kitaplarda da mevcut
oldu ğ u i ç in kitab ı n can al ı c ı noktas ı n ı n kaybetti ğ ini d üşü n ü yorum ............
Sayfa 228 :
ADO konusu anlat ı lm ış. Ama neden hep paradox taban ı na ka çı l ı yor hep soruyorum
bu soruyu ?... ben ADO ı nda ( access ) her ş eyimi access de yapmak
istiyorum . Paradox ile u ğ ra ş mak istemiyorum art ı k . Bir kullan ı c ı olarak accesse
nas ı l veri g ö m ü l ü r ( jpeg ) nas ı l okunur bunu g ö rmek istiyorum gibilerinden
bir okuyucu olarak - 1 puan veriyorum ..... Bunlar ı ben in ş allah anlatcam !
Sayfa 237 :
Fielddefs komutunu anlatm ış s ı n ı z . İ lk 3 parametre anlat ı lm ış ama
4. Parametreden hi ç bahsedilmemi ş? Ve bir okuyucu olarak 4. Parametre
( true - false ) neye dendi ğ ini ben delphinin helpinden bakmak zorun da m ı y ı m ?
sorusu akl ı ma geliyor ...
Anlat ı lm ış olmak i ç in anlat ı lm ış bir izlenim oluyor , ki bu sayfada anlat ı llanlar
ileri seviye i ç in bilinen bir kodlama tekni ğ i oldu ğ unu d üşü n ü yorum .
( not : hep ileri seviyeden bahsediyorum , acemilerin e ileri seviyede her ş eyin
cevab ı n ı beklediklerini biliyorum )
Ayr ı ca xml dosya format ı ndan bahsedilmi ş, ancak bu konuyu illa burada
( bu sayfada ) ü st ü ne basa basa vurgulaman ı z ı biraz yad ı rgad ı m , çü nk ü normal
olarak bir . dataset k ü mesi de normal ş artlarda xml dosyas ı olarak
kaydedilebiliyor olsa gerek ....... en az ı ndan ben kullan ı yorum yani ...
Sayfa 289 :
Network programc ı l ığı hakk ı nda pek fazla bir ş ey okudu ğ um s ö ylenemez ..
isim olarak i ş tah a çı c ı ama i ç erik olarak - 1 puan veriyorum .
Sayfa 304 :
Kodun uzunca yaz ı lmas ı g ö ze ho ş g ö r ü n ü yor , ancak 2 adet kelimenin
( b ü y ü k k üçü k harf duyarl ı l ığı olmadan ) sayfa isminde aranmas ı
biraz şü pheli ... burada öğ rencilerime ben N adet yasakl ı kelime
' ( 100 adet olabilir ) nin yasaklı sitelere odaklanmasını anlatıyorum ve
bunlar ı da gayet functional bir dille kodlayabiliyorlar .
Verilen ö rne ğ i vasat g ö r ü yorum ............
Sayfa 305 :
Burada da epeyce eksiklik g ö rd ü m .....
Benim tan ı mlayabilece ğ im port range de ğ erim nedir bilmiyorum ?...
verilen ö rnekteki 20.000 de ğ erini ben 200.000 olarak da de ğ i ş tirebilirim mi
anlam ı na geliyor ?.. neden port s ı n ı rlar ı ve de ğ erleri
konusunda bilgi verilmiyor burada ..... neden windowsun ö zel portlar ı n ı n
tan ı mlanmamas ı gereklili ğ i konusuna de ğ inilmiyor ? madem kitap trojan yaz ı l ı m ı
ü zerine bir kitap olacak bu t ü r teknik konulara de ğ inilmesi gerekiyordu .
Biraz komi ğ e ka çı yor kusura bakmay ı n ...
ayr ı ca . bpl dosyalar ı n ı n y ü klenmesi de anlat ı lmam ış.
Ayr ı ca Tcpserver ve Tcpclient nesneleri ç ok verimli de ğ ildirler .
Delphi 7.0 kullan ı c ı lar ı normal Tclientsocket nesnelerini programlarda
g ö remeyeceklerdir do ğ al olarak ... eksik eksik eksik ........
Sayfa 311 :
" kaydettikten sonra bir kez ç al ış t ı r ı n exesi olu ş sun " c ü mlesi ç ok ho ş uma
gitti ya ! diyecek s ö z ü m yok :
Sayfa 312 :
Yani ne diyim ... mant ı k hatas ı m ı diyim . Gereksiz i ş y ü k ü m ü diyim ?
Her defas ı nda butona t ı klad ığı mda hep ba ğ lan ı yor hep ba ğ lan ı yor .
False ve true oluyor . Ne gere ğ i var ?...
acaba hi ç d üşü nd ü n ü z m ü ya da denediniz mi bu i ş levselli ğ in verimlili ğ ini ??....
ö rneklerinizi son derece zay ı f g ö r ü yorum ...
Sayfa 316 :
İ f deyimlerini ç ok seviyorsunuz , ama biraz da case kullan ı n yaw :
k ı salt ı n kodlar ı. Bu sayfadaki kodlama yap ı s ı ger ç ekten bana acemice geliyor ...
çü nk ü nerde b ö yle bir tip kod g ö rsem hep case deyimi ile yap ı l ı yor .
Çü nk ü case daha kolay ve daha anla şı l ı r .
Ne diyim daha if deyimine ı srar ediliyor hep ...
yani bu sayfadaki kodu ş eytan diyor 2 sat ı rda hallet walla billa :
Sayfa 317 :
Gelelim i ş in en exanterik k ı sm ı na .... datasettableproducer g ü zel bir nesnedir ,
ama i ş in kolay ı na ka çı l ı yor : binlerce verimin oldu ğ u bir html
sayfas ı n ı n datasettableproducerde her sorguda ne kadar zaman harcad ığı n ı
ben tecr ü bemle s ö yleyebilirim .. remote query konusunda zay ı fl ı k g ö r ü yorum ...
ha , madem datasettableproducter anlat ı l ı yor , bunu ben şö yle yapard ı m , sorgu
sonu ç listesini cliente g ö nderirdim , cliente vard ı ktan sonra , client ü zerinde
bu datasettableproduceri ç al ış t ı r ı rd ı m . Dolay ı s ı yla server kasmazd ı o kadar .
Indy kontrollerini ge ç iyorum . Genel olarak pek bir faydas ı n ı zaten g ö rm ü yorum
bu kontrollerin . Ya da her ş eyi kodlama ile yapt ığı m i ç in bana pek i ş tah a çı c ı
gelmiyor bu indyler . Ama kullan ı c ı lar ı n ilgisini ç ekiyor tabii ki !
ne de olsa INDY nesneleri !
Sayfa 381 :
İ lk trojan .......
Yani ı nan ı r m ı s ı n ı z , o kadar merakla okudum ki bu b ö l ü m ü...
bir o kadar g ü cendim g ü cendim g ü cendim ...
T ü m kodlar ı neden toz pembe g ö r ü yorsunuz bilinmez ? sayfa 382 deki
deletefile ( 'nihat.txt' ) sat ı r ı na ger ç ekten ç ok sinirlendim ...
hadi bu dosyay ı sildi , sonra ?...
neden fileexists ile g ü zelle ş tirilmiyor acaba ?..
neden try - except aras ı na konulmuyor bu sat ı r ?..
her ş ey toz pembe g ö z ü yle ç al ış t ı r ı l ı rsa 1 ç al ışı r 2 ç al ışı r 3.de hata verir ..
yani ileri g ö r üş l ü l ü k olsa daha iyi olmaz m ı ?...
Sayfa 389 :
Daha geli ş mi ş bir trojan ...........
Allah ı m ... Yarabbim ......
Index numaralar ı n ı servere g ö ndemeye ne gerek var ?....
Allah a ş k ı na ne gere ğ i var ?..
bana nedenini s ö yleyin l ü tfen ??...
zaten hi ç bir ş ekilde de dosya transferi yap ı lm ı yor .
Indexi servere g ö ndercem de server ü zerindeki listbox ü zerinde ilgili dosyaya
konumlanacam o kadar ... Bahsi ge ç en ö rnekler de son derece zay ı f ...
dosya g ö nderirken ka ç byte gitti ka ç byte geldi , di ğ er yan i ş lemlere
izin verilmesi vs gibi konulara hi ç yer verilmemi ş...
Trojan kelimesi nedense hep ilgi ç ekmi ş tir bilinmez !..
Sayfa 392 :
Her bast ığı m ok tu ş unda servere neden parametre g ö nderiyorum index ?..
gere ğ i var m ı ? bu i ş lem networkde ç al ışı r ama remote pc lerde ne kadar
verimli olur hi ç denediniz mi bilmiyorum yani ......................
Ve kitap end ..............
Diyecek ba ş ka bir s ö z ü m yoktur bu konuda .
Trojan konusunda t ü rk ç e yaz ı lm ış program g ö rmek istiyorsan ı z , ( nostalji )
http : //www.megasecurity.org/trojans/n/neoturk/Neoturk_all.html
( bunu reklam olarak alg ı lamay ı n , zaten trojan devri bitti art ı k .... )
sayg ı lar ı mla_
