Hoşgeldiniz! Bizi takip edin.

Delphi Bmp dosyasını JPEG’e dönüştürme

// Temmuz 23rd, 2014 // Yorum Yok » // Delphi

uses kısmına jpeg unitini ekleyin.
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('c:\winnt\ACD Wallpaper.bmp');
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
SaveToFile('c:\winnt\ACD Wallpaper.JPEG');
Free;
end;
finally
Free;

end;
end;

Delphi Dosya Boyutunu Bulma

// Temmuz 23rd, 2014 // Yorum Yok » // Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
srFileSR: TSearchRec;
sFileName, sFileSize: string;
begin
sFileName := 'c:\test\2.avi';
FindFirst(sFileName,faAnyFile,srFileSR);
sFileSize := IntToStr(srFileSR.Size);
Showmessage(sFileSize);
end;

Delphi Programım hangi klasörde çalışıyor

// Temmuz 23rd, 2014 // Yorum Yok » // Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
path: string;
begin
Path := ExtractFilePath(ParamStr(0));
Showmessage (path);
end;

Delphi Bir klasörün boyutunu öğrenmek

// Temmuz 23rd, 2014 // Yorum Yok » // Delphi

Bir klasörün boyutunu öğrenmek
Bir klasördeki dosyaların kaç byte yer kapladığını öğrenmek için
function TForm1.GetDirectorySize(const ADirectory: string): Integer;
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirectory);
Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);

if Ret <> NO_ERROR then
exit;

try
while ret=NO_ERROR do
begin
inc(Result, Dir.Size);
if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then
Inc(Result, GetDirectorySize(Path + Dir.Name + '\*.*'));
Ret := Sysutils.FindNext(Dir);
end;
finally
Sysutils.FindClose(Dir);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(intToStr(getdirectorysize('C:\windows')));
end;

Delphi Tuş Kodları

// Temmuz 16th, 2014 // Yorum Yok » // Delphi

Delphi Tuş Kodları

Sabit sembolik isim Heksadesimal Karşılığı
VK_LBUTTON 1 Sol fare tuşu
VK_RBUTTON 2 Sağ fare tuşu
VK_CANCEL 3 Control-break işlemi
VK_MBUTTON 4 Orta fare tuşu (3 tuşlu fareler için)
VK_BACK 8 BACKSPACE tuşu
VK_TAB 9 TAB tuşu
VK_CLEAR 0C CLEAR tuşu
VK_RETURN 0D ENTER tuşu
VK_SHIFT 10 SHIFT tuşu
VK_CONTROL 11 CTRL tuşu
VK_MENU 12 ALT tuşu
VK_PAUSE 13 PAUSE tuşu
VK_CAPITAL 14 CAPS LOCK tuşu
VK_ESCAPE 1B ESC tuşu
VK_SPACE 20 SPACEBAR tuşu
VK_PRIOR 21 PAGE UP tuşu
VK_NEXT 22 PAGE DOWN tuşu
VK_END 23 END tuşu
VK_HOME 24 HOME tuşu
VK_LEFT 25 Sol ok tuşu
VK_UP 26 Yukarı ok tuşu
VK_RIGHT 27 Sağ ok tuşu
VK_DOWN 28 Aşağı ok tuşu
VK_SELECT 29 SELECT tuşu
VK_PRINT 2A PRINT tuşu
VK_EXECUTE 2B EXECUTE tuşu
VK_SNAPSHOT 2C PRINT SCREEN tuşu
VK_INSERT 2D INS tuşu
VK_DELETE 2E DEL tuşu
VK_HELP 2F HELP tuşu
30 0 tuşu
31 1 tuşu
32 2 tuşu
33 3 tuşu
34 4 tuşu
35 5 tuşu
36 6 tuşu
37 7 tuşu
38 8 tuşu
39 9 tuşu
41 A tuşu
42 B tuşu
43 C tuşu
44 D tuşu
45 E tuşu
46 F tuşu
47 G tuşu
48 H tuşu
49 I tuşu
4A J tuşu
4B K tuşu
4C L tuşu
4D M tuşu
4E N tuşu
4F O tuşu
50 P tuşu
51 Q tuşu
52 R tuşu
53 S tuşu
54 T tuşu
55 U tuşu
56 V tuşu
57 W tuşu
58 X tuşu
59 Y tuşu
5A Z tuşu
VK_NUMPAD0 60 Nümerik tuş takımı 0 tuşu
VK_NUMPAD1 61 Nümerik tuş takımı 1 tuşu
VK_NUMPAD2 62 Nümerik tuş takımı 2 tuşu
VK_NUMPAD3 63 Nümerik tuş takımı 3 tuşu
VK_NUMPAD4 64 Nümerik tuş takımı 4 tuşu
VK_NUMPAD5 65 Nümerik tuş takımı 5 tuşu
VK_NUMPAD6 66 Nümerik tuş takımı 6 tuşu
VK_NUMPAD7 67 Nümerik tuş takımı 7 tuşu
VK_NUMPAD8 68 Nümerik tuş takımı 8 tuşu
VK_NUMPAD9 69 Nümerik tuş takımı 9 tuşu
VK_SEPARATOR 6C Ayraç key
VK_SUBTRACT 6D Çıkarma tuşu
VK_DECIMAL 6E Ondalık ayraç tuşu
VK_DIVIDE 6F Bölme tuşu
VK_F1 70 F1 tuşu
VK_F2 71 F2 tuşu
VK_F3 72 F3 tuşu
VK_F4 73 F4 tuşu
VK_F5 74 F5 tuşu
VK_F6 75 F6 tuşu
VK_F7 76 F7 tuşu
VK_F8 77 F8 tuşu
VK_F9 78 F9 tuşu
VK_F10 79 F10 tuşu
VK_F11 7A F11 tuşu
VK_F12 7B F12 tuşu
VK_F13 7C F13 tuşu
VK_F14 7D F14 tuşu
VK_F15 7E F15 tuşu
VK_F16 7F F16 tuşu
VK_F17 80H F17 tuşu
VK_F18 81H F18 tuşu
VK_F19 82H F19 tuşu
VK_F20 83H F20 tuşu
VK_F21 84H F21 tuşu
VK_F22 85H F22 tuşu
VK_F23 86H F23 tuşu
VK_F24 87H F24 tuşu
VK_NUMLOCK 90 NUM LOCK tuşu
VK_SCROLL 91 SCROLL LOCK tuşu
VK_LSHIFT A0 Sol SHIFT tuşu
VK_RSHIFT A1 Sağ SHIFT tuşu
VK_LCONTROL A2 Sol Kontrol(CTRL) tuşu
VK_RCONTROL A3 Sağ Kontrol(CTRL) tuşu
VK_LMENU A4 Sol Menü(Alt) tuşu
VK_RMENU A5 Sağ Menü(AltGr) tuşu
VK_PLAY FA Oynat tuşu
VK_ZOOM FB Zum tuşu

pascal sinusoidal yazı

// Temmuz 12th, 2014 // Yorum Yok » // Pascal

pascal sinusoidal yazı

program sinusidalyazi;
uses crt;
var
s:real;
begin

textbackground(black);
textcolor(lightgreen);
clrscr;
repeat
s:=s+0.1;
writeln('Saliha':round(30*sin(s)+49));
delay(100);
until s >9.5;
readln;
end.

Ekran Çıktısı
pascal-sinuosidal-yazi

Delphi iskonto bulma

// Temmuz 12th, 2014 // Yorum Yok » // Delphi

iskontobulma

Örnek Resimde Olduğu verilen bir tutar üzerinden gerçekleştirilen 4 iskonto oranı girilerek bu ürünün tutarsal olarak değeri ve bu girilen oranların tek bir iskonto oranını bulabiliyoruz.

procedure Tfrm_iskontooranibul.btn_bulClick(Sender: TObject);
var
bir,iki,uc,dort:Double;
begin
bir:=StrToFloatDef(edt_tutar.Text,0)-StrToFloatDef(edt_tutar.Text,0)*StrToFloatDef(edt_isk1.Text,0)/100;
edt_1.Text:=(FloatToStr(bir));

iki:=StrToFloatDef(edt_1.Text,0)-StrToFloatDef(edt_1.Text,0)*StrToFloatDef(edt_isk2.Text,0)/100;
edt_2.Text:=(FloatToStr(iki));


uc:=StrToFloatDef(edt_2.Text,0)-StrToFloatDef(edt_2.Text,0)*StrToFloatDef(edt_isk3.Text,0)/100;
edt_3.Text:=(FloatToStr(uc));

dort:=StrToFloatdef(edt_3.Text,0)-StrToFloat(edt_3.Text)*StrToFloatDef(edt_isk4.Text,0)/100;
edt_4.Text:=(FloatToStr(dort));

edt_iskontoorani.Text:=FloatToStr(StrToFloat(edt_tutar.Text)-StrToFloat(edt_4.Text));

end;

Kaynak kod ve exe için Tıklayın.

Mavi Bir Ölüm Yine sana sesleneceğim..

// Mayıs 18th, 2014 // Yorum Yok » // Şiir

Mavi Bir Ölüm..
Yine sana sesleneceğim..

 

Senin kim olduğunu hiç bilmeden

Senin kim olduğunu en çok bilerek

İsyankar zambakların çılgın nilüferlerin

Dört nala açan kiraz çiçeklerinin

Dudak kıvrımlarına yoldaş olacağım
Sarı bir hüzün kızıl bir gurur
Ve siyah bir öfkeyle konuşacağım sana
………..

Sana oklardan değil yaylardan bahsedeceğim

Gülün dikeninden değil

Gülleri ve dikenleri doğurmaktan yorulmayacağım

Topraktan söz açacağım

Akan su gelmeyecek kelimelerime

Suyu şefkatle kucaklayan damlaları dinlendireceğim

…………

YİNE SANA SESLENECEĞİM

Senin kim olduğunu hiç bilmeden

Bilmek istemeden

………

Alaattin’in sihirli lambasından çıkan cin bana gelseydi

Ve ne dilersem dilememi isteseydi

Hiçbir şeyi elde etmeyi dilemezdim

Bir şeyden vazgeçmek isterdim sadece

Hayatta birşeyden vazgeçmek lütfedilseydi

Bedeli herşeyim olsa bile

Sana seslenmekten vazgeçmek isterdim

Garip değilmi sana seslenmekten vazgeçtiğimi

Bundan hoşlandığımı düşünüyorsun belkide

Oysa sana seslenmek bütün hesaplarımı gördüğüm şu dünyadaki

Tek geride kalmış hesap benim için

Bu dünyadaki tek yük

Bu seslenişin kalbini avucumda tutabilmek

Kürek mahkumu için kürek neyse

Benim içinde sana seslenmek o

Bir yandan gemiyi ufka ulaştırmanın tek yolu

Öbür yandan bileklerimden sızan kanların

Gönlümü işgale yönlendiği bir rotanın can suyu

Oysa ben sana kürekten değil gemiden bahsetmek isterdim

Atalarım bana kadınlara gökyüzünü

Gemileri ve yelkenleri anlatmayı öğrettiler

Sen kürekleri yağlı urganları

Geceyi siyaha gömen fırtınaları öğretmeye çalışıyorsun

Sana ellerimle dokunarak gözlerimle okşayarak

Göstermek istedim

Rüzgarla şişen beyaz yelkenleri

Ama senin vaktin yoktu

Ben bunu hiç anlayamadım

Kavmimin kadınları bana öğretmedilerki

Bazı kadınların beyaz apletlerden daha çok

Siyah apletleri sevebileceğini

………….

Sana sesleniyorum

Ve gözlerin bileklerimden parmak uçlarına

Toplanmış kan pıhtılarını seyrediyor

Kürekleri bırakamıyorum

Önce yücelttiğin sonra terkettiğin aşkın onuru için

Kalemi biran elimden düşürmüyorum

Ankara Kalesinin önünde

SANA SESLENİYORUM

…………..

Benden kaçıp cennete gitmek isteseydin

Seni cennetin kapısına kadar götürürdüm

Bana gelmek için seni korkutan cehennem olsaydı

Cehennemle konuşur Seni ona anlatabilirdim

Oysa sen ne cenneti isteyebilecek kadar aşık oldun

Nede cehennemi isteyebilecek kadar ayrılık

Seviyorum seni ama dedin

Hoşçakal diye ekledin

Şimdi gitmeye mecburum

Belki yine gelirim, umarım gelirim

SON SÖZÜN OLDU

Cennet ve cehennemin dillerini

Savaş naralarıı ve aşk şiirlerini

Gazelleri ve boleroları öğreten atalarım

Senim sözlerinin anlamını öğretmediler

Hiçbirşey söylemeden gittin

Ayrılığın dilsiz olduğunu ben senden öğrendim

Dilsiz olanın yaşayabileceğini sen öğrettin bana

Ve kalemimle ilk defa yavan gözlerle baktın

Yine yeniden sadece sana sesleneceğim

Müebbet bir aşk dışında

Bildiğim tüm duygularımı terkedeceğim

SANA SELENECEĞİM YİNE

Seni sadece kuru bir sevgiyle değil

Derin bir hüzünle binlerce yıllık bir gururla

Ve pervasız bir öfke ile sevdiğimi duyuyormusun

Mütevazi bir sevgiyle değil

Küstah bir aşkla sevdim seni

Ben OSMANLI gibi

Kollarımın yetişmediği bir aşkı kucaklamaya çalışırken

Ölen köprülerin ülkesindeki Venedikteki son sancağı

Kışın üşümemek için şal yaptın kendine

Neden bilmiyorum özlemin artıyor içimde

Gün geçtikçe eksilir demiştim oysa

Atalarımın öğrettiklerinede ters düşsede

Sana inanırım bilirsin

Zamanla unutursun demiştim

Niye daha derinleşiyor öyleyse

Derinleşiyor özlemin

Ve gönlümde bir iç savaşta dökülen kanları

Coşturuyor ayrılık sözlerin

Öfkelerimin kararlılığını

Aşka katık ederek konuşacağım

Bedenim bu dünyayı terkedene kadar

…………

Öyle sanıyorumki

Hüzünle ve acıyla pek barışık olmadığın için

Benden uzun yaşayacaksın

Benden sonra kelimelerim gelecek gönlüne

Onların benden geldiğini birtek sen bileceksin

Küstah bir aşkla seveceğim seni

Ben savaş ve ölümle haşir neşir olan

Kelimeler dışındakileri unutmaya gayret edceğim

Ömrün geri kalınında

SANA SESLENECEĞİM YİNE

Ben seni beyrut gibi sevdim ama

Sana ne Mağribi nede Manhatten’i anlatamadım

Bağdat ve Şam’ı işgale yeltenmişken

Venedik’ ten gelen ihanet tarumar etti ordularımı

Sarı bir keder, kızıl bir kibir, siyah bir isyanla konuşacağım sana

Senin kim olduğunu hiç bilmeden

Ağlayan zambakların dudak kıvrımlarına yoldaş olacağım

Senin kim olduğunu en çok bilerek

Kavmimin bana vaadettiği tüm aşkları terkedeceğim

Müebbet bir aşk, Sarı bir hüzün

Kızıl bir gurur ve siyah bir öfkeyle konuşacağım

Bu dünyayı terketme müjdesi gelene kadar

……….

Hüznü, gururu ve öfkeyi bilseydin keşke

Hüznün beni aşan taşkınlığını

Gururumun binlerce yıl önceden miras kalmış hoyratlığını

Öfkelerimin hiç bir zaman sona ermeyecek ve azalmayacak kararlılığını

Anlayabilseydin

ANLATABİLİRDİM SANA

Seninle yaşana bir aşktan sonra

Ayrılığın ölüm bile olsa

MAVİ BİR ÖLÜM OLACAĞINI

Delphi hint süresini uzatma

// Mayıs 3rd, 2014 // Yorum Yok » // Delphi

Application.HintHidePause:=5000;

Burada hint süremizi 5 Saniyeye yükseltmiş oluyoruz.

Delphi Dbgrid Ctrl delete engelleme

// Mayıs 3rd, 2014 // Yorum Yok » // Delphi

procedure Form1.DBGrid1KeyDown
(Sender: TObject; var Key: Word; Shift:TShiftState) ;
begin
if (Shift = [ssCtrl]) and (Key = VK_DELETE) then
Key := 0; {ignore}
end;