Delphi XE2 Derleyicisi

Hatfalardır merakla beklediğim Delphi XE2 geçen günlerde dünya genelinde yürütülen bir lansmanla piyasaya sürüldü. Açıkçası benim gibi Delphi programcıları için oldukça heyacan verici özellikler içerdiği söyleniyordu.

Delphi ile Kapalı bir bilgisayarı açmak

Gerçekten ilgi çekici…

Wake On Lan – Kapalı Bir Bilgisayarı Lan’dan Uyandırma
Kapalı Bir Bilgisayarı Uyandırma

Wake on LAn nedir? Wake on Lan (wol) adından da anlaşılacağı gibi bir PC’yi
network üzerinden açmak için data packetinin gönderilmesidir

Daha da açarsak kısaca şöyel denebilir. Bir networkünüz var ve makinalrı gece açıp bişiler yüklemek istiyosunuz ki sabah tüm kullanıcılarda güncel yazılımlar olsun. mesela antivirüs updateleri gibi…

İşte bu sebeple herhangi bir PC’ye gönderilen özel bir data paketi sayesinde makinaları açabilirsiniz. Yükleme isi ise özel bir tool ile yapılabilir tabiki… Şimdi teknik detaylaroına bakalım..

Bir PC’yiuzaktan açabilmek için öncelikle o PC de bir ethernet kartı olmalı ve networke bağlı olması gerekmektedir. Bundan sonra ise O ethernet kartının WoL özelliğinin olması ve biostan enable hale getirilmiş olması gerekmektedir. Ethernet Kartı eğerki onboard değil ise 3 pinli konnektörünün anakarta bağlı olması da gerekmektedir. Tümleşik karlarda buna zaten gerek olmamaması da normaldir

Neyse buraya kadar donanımsal kısımdı. Şimdi ise wol packetinden bahsedelim. Öncellikler wakeonlan paketi UDP pakettir. Yani böyle bir paketi kolaylıkla kendinizde oluşturabilirsiniz. Elinizde sadece UDP komponenti olması yeterli. şimdi de paketin içinden bahsedelim.
Bu paket çok basit ve toplam 102 byte’lıktır.
format ise şöyledir.

Delphi ile Harf harf aramak

Programların help lerindeki gibi her harfe basışınızda olasılıkları elyerek listeyi küçülten bir kod oldukça kullanışlı

forma bir edit ile bir dbgrid koyun.gerekli data bağlantılarını yapın.edit in on key press olayına kodu yazın

Delphi ile HexToColor, ColorToHex

Renkleri kaydetmek için

Delphi ile Herşeyi şekillendirelim

Form üzerine koyduğunuz bütün bileşenlerin geometrik şekiller alabileceğini görelim

Aşağıdaki Edit1 yazan yerlere Combobox1,ListBox1 yada abartın from1 falan yazın formuz şekillensin 🙂

SetWindowRgn( Edit1.handle,
CreateRoundRectRgn(2, 2, Edit1.Width-2, Edit1.Height-2, 15, 15),
True);

Mete Ercan Paldil

TD Software




Delphi ile Hesap makinası

Yeni başlayanlar için güzel bir hesap makinası

Delphi ile Hesap makinası programı

Bu da Benim Hesap Makinası Programım umarım begenirsiniz

Delphi ile Hesap makinesi

TabControl İle Bİr Dört işlem Yapan bir hesap makinesi yapalım

Delphi ile HexToDec, DecToHex, üst hesaplama fonksiyonları

16 lık tabandan 10 luk tabana ve 10 luk tabandan 16 lık tabana dönüşüm yapan fonksiyonlar

Delphi ile Html tagleri

HTML Tagleri

Delphi ile iki sayı arasında tek ve çift bulmak

çift sayı ve tek sayıyı bulma aynı zamnda editlere karakter girilmiyor…

Delphi ile Internet adresini yeni ve ölçüleri belirtilen bir pencerede açmak

procedure TFmMain.GotoUrl(SUrl: string; Width, Height: Integer; ToolBar: Boolean);
const
csOLEObjName = 'InternetExplorer.Application';
var
IE        : Variant;
WinHanlde : HWnd;
begin
if( VarIsEmpty( IE ) )then
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Toolbar := Toolbar;
if Width > 0 then IE.Width := Width;
if Height > 0 then IE.Height := Height;
IE.Navigate( sURL );
end else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if( 0 <> WinHanlde )then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHanlde );
end else
begin
ShowMessage('Internet Explorer acilamadi');
end;
end;
end;

// kullanimi:
{adresi yukseklik ve genislik belirtmeden acar }
GotoUrl('http://www.programlama.com', 0, 0, True);
{adresi yukseklik ve genislik belirterek toolbar
olmayan bir pencerede acar }
GotoUrl('http://www.programlama.com', 500, 500, False);

TD Software




Delphi.Net ile Internetten veri çekmek

Forumda genelde nasıl döviz kuru alırım, dış IP mi nasıl bulurum gibi sorular mevcut Aşağıdaki örnekde internet sayfalarından bilgi okuyarak aldığınız bilgileri değişkenlere aktarımı örnekleri var ilki TC Merkez bankasının sayfasından Dolar ve Euro kurları alıyor, ikincisi ise yine başka bir siteden sizin interneta çıktığınız IP yi alıyor.
Tabii bu yöntemle bilgi alırken dikkaet etmeniz gereken şey sayfalardaki bilgileirn sabit yerlerde olmasıdır copy komutu ile sayfadaki bilgiyi copy(sayfa,145,15)  şeklindedir

sayfa = indy TidHTTP nin siteden okuduğu sayfanın
aktarıldığı değişken

145 = 145 . karakterden itibaren 15 karakter oku şeklindedir.

Çok dikkat etmeniz gereken şey ise internet sayfasından okunan bilginin internette gözüktüğü arayüzden değil değil KAYNAĞI GÖRÜNTÜLE de html kodları ile çıkan text leride opkduğunu unutmayın. Doğru koordinatı bulmak için sayfanın kaynağını görüntüleyip başlayacağnız noktaya kadar kaç karakter olduğunu saymaktır.

Bu yöntemi kullanarak internetten değişik işlemler yapmanız mümkündür. Hatta kafayı yorarsanız ve kendinizin yönettiği bir internet sitenizde varsa, Programınızın internetten talimatlar alarak değişik yordamara dallanmasını sağlayabilirsiniz,yedek al,IP numaranı bana maille,kapan,dosya bakımına gir,kilitlen ve hiç çalışma gibi işlmeleri yaptırmanız mümkündür.
Kısacası programınız sizden emirler alarak çalışmasını sağlayarak uzaktan yönetmek mümkündür. İllaki trojan yazamanız gerekmez ( sanki trojan olmadı bu yöntemler )

İlk Örneğimiz Merkez bankasından Kur okuma

Formunuza Indy bileşenlerinden Bir TidHTTP bileşeni koyun ve adını KUROKU olarak değiştirin. Sonra forma 1 buton ve 4 tanede label ekleyin butona çifttıklayarak aşaığdaki kodu oraya yazın. Bu örnekde merkezin günlük kur sayfasından bilgi okunuyor

( Not: kodlar Delphi 2005 de yazılmıştır ama Indy olan her versionda çalışır diye tahmin ediyorum. )

Delphi ile HD Volume seri nosunu bulmak

Delphi ile harddiskinizin seri nosunu bulun

Delphi ile Hangi ay kaç gün çeker 3 farklı anlatımlı örnek

Bu örneği mesala Müşteri kaydında 10 taksit yapacaksınız kullanıcı başlangıç tarihini seçtiğinden itibaren döngüye sokarak taksitlendirme işi yapabilirsiniz.

Delphi ile Hafıza miktarını almak

Hafiza miktarinin alınması

Delphi ile Güzel bir mp3 oynatmak

Amatörlükten bir adım daha ileride yapılmış bir program kullananlara sevgilerimle en azından deneyin!!

Delphi ile Gün sayısı

function TForm1.tarih_cikar(tarih:tdatetime;i:integer):tdatetime;
var aylar:array[1..12] of integer;
yil,ay,gun:integer;
s,ayirac:string;
begin
yil:=0;ay:=0;gun:=0;
aylar[1]:=31;aylar[2]:=28;aylar[3]:=31;aylar[4]:=30;
aylar[5]:=31;aylar[6]:=30;aylar[7]:=31;aylar[8]:=31;
aylar[9]:=30;aylar[10]:=31;aylar[11]:=30;aylar[12]:=31;

ayirac:=copy(datetostr(tarih),3,1);
yil:=strtoint(copy(datetostr(tarih),7,4));
ay:=strtoint(copy(datetostr(tarih),4,2));
gun:=strtoint(copy(datetostr(tarih),1,2));
if (yil mod 4)=0 then aylar[2]:=29 else aylar[2]:=28;

if gun>1 then
begin
gun:=gun-1;
s:=inttostr(gun)+ayirac+inttostr(ay)+ayirac+inttostr(yil);
tarih_cikar:=strtodatetime(s);
end else if gun=1 then
begin
if ay>1 then
begin
gun:=aylar[ay-1];
s:=inttostr(gun)+ayirac+inttostr(ay-1)+ayirac+inttostr(yil);
tarih_cikar:=strtodatetime(s);
end else if ay=1 then
begin
yil:=yil-1;
ay:=12;
gun:=31;
s:=inttostr(gun)+ayirac+inttostr(ay)+ayirac+inttostr(yil);
tarih_cikar:=strtodatetime(s);
end;
end;
end;

TD Software




Delphi ile Görev yöneticisini (Task manager) devredışı bırakmak

Form üzerine iki RadioButonu ekleyin

Delphi ile Grid sütünlarını toplamak

Dbgrid ve query ekleyin

Delphi ile GetLocalTime

Yerel Saat

Delphi ile GetEnvironMentStrings

Windows’un environment bilgileri (Path,Temp,Bilgisayar İsmi vs….)

Delphi ile Geometrik formlar oluşturmak

Formumuzun OnShow Eventine aşağıdaki kodu yazıyoruz.

Delphi ile Function fonksiyonu ile toplamak

girilen iki deger ile  function fonksiyonu ile toplama  yapmasıdır

Delphi.Net ile Fotoğraf gösterme programı

Diyelimki bir klasörde sakladığınız resimleriniz var. Bu programla o klasöre erişip oradan bir resim seçtiğinizde o klasör altındaki bütün resimler, programınızın formuna 45*45 boyutunda diziliyor. Ve bu resimlerden herhangi birine bir kez tıkladığınızda o resim başka bir form yoluyla orjinal olarak gösteriliyor…

Yapmanız gereken delphide bir form açmak (form1), arkasına yeni bir form daha açmak(form2) dir…

(ben bu programı delphi.net ile yazdım)

Delphi ile Formun başlık alanına buton yerleştirmek

Kullandiginiz formlarin baslik alanina buton ekleyip, bu butona bazi görevler yükleyebilirsiniz.

Delphi ile Formumuza masaüstü bitmap’ini kopyalayın

Formunuza bir buton (Button1) ekleyin ve butonun OnClick Eventine aşağıdaki kodu yazın

Delphi ile Formu gizlemek

form1.brushstyle:=bsclear;

TD Software




Delphi ile Formu pixel pixel ekrana getirme

Formu ekrana pixeller halinde getirmek istersen aha sana yolu

Delphi ile Formda bulunan nesneleri fare ile taşıma

Formda bulunan nesneleri mouse ile taşıma.

Taşımak istediğiniz nesnenin MouseDown olayını aşağıdaki örnekte olduğu gibi yönetebilirsiniz.

Delphi ile TEdit ismindeki değeri getiren fonksiyon

Bir Form uzerinde bir suru TEdit be TLabel componenti var  siz istedigin edit veya Label  ismine gore bunun icindeki  bilgileri  donduruyor

Delphi ile Güvenlik kilidi

Yazılımın güvenliği ile ilgili örnek

Delphi ile Fibonacci sayıların bulunması

Selam arkadaşlarfibonacci sayılasrın bölünmesi ile ilgili güzel bir çalışmadır. Delphi dilini ve matematiği seven arkadaşların hoşuna gigeceğini umarım. BİŞAR ÇINAR bisarcinar@gmail.com izmir

KULLANILACAK BİLEŞENLER:
1.BUTTON
1.LİSTBOX VE EDİT
———————————————————-

Delphi ile Explode fonksiyonu

Bir Stringi belli bi karaktere göre böler ve x. bölümü döndürür

Function Explode(Veri: string;ayrac: char;No:integer): String; var Tmp :string; Say :integer; begin { Sonuncu Field ı alabilmek için } Tmp:=Veri+ayrac; Say:=0; Result:=”; While (Pos(ayrac,Tmp) > 0) and (No > Say) do begin Inc(Say); { Eğer istediğimiz bölümse onu döndür } If Say=No Then Result:=Copy(Tmp,1,Pos(ayrac,Tmp)-1) { Değilse bir sonraki bölüm için başı sil } Else Delete(Tmp,1,Pos(ayrac,Tmp)); end; end;

Delphi ile Dosya işlemleri

Dosya işlemlerinde output rset ve assign işlemleri

Delphi ile Temp klasörünü bulmak

Windows’un Temp Directorisini bulur.

Delphi ile Excel ve delphi

Excel e nasıl delphi üzerinden nasıl ulaşılır? neler yapabilirize birkaç örnek

İş yerleri sanırım exceli word den daha çok kullanıyor. Hatta birçok işleri de excel de yapıyorlar. Buna birçoğunuz şahit olmuştur. Hatta program yazdıracakları zaman bile, çoğu örneği excel de tuttukları tablolardan gösterirler. Exceli zaten sular! seller! gibi bilen bizler de programı yazarken excelde ne kadar basit olan şeyler için günlerce mantık ararız, Programımızda “Nasıl yapsak da olsa” diye…
Bir yerden sonra anlıyoruz ki Amerika’yı defalarca keşfetmek bize bir şey getirmiyor. Hatta zaman kaybettiriyor. O zaman exceli de programın parçası olarak görüp verileri excele neden göndermiyoruz?
Onlar zaten excel de analiz yapıyorlar. Sonuçları değerlendiriyorlar. Alternatif grafikler çıkartıyorlar…
Bu fikrime katılın veya katılmayın, aşağıdaki örnek başlıklar işinize bir şekilde yarar sanırım.

Delphi ile Esc tuşuna basınca programın kapanması

Bu kod ile ESC tuşuna basınca programın kapatılmasını sağlayabilirsiniz

Formun Create Olayına Şu Kodlar Yazılacaktır İlk Önce

Delphi ile Enter, Tab, aşağı ve yukarı tuşlarını kullanmak

Formda enter,aşağı ve yukarı okları kulanarak kontroller arasında gezme

Delphi ile Enter tuşu kullanımı

Windows programlarında bir alttaki alana geçmek için TAB tuşu kullanılır.Ancak DOS programlarından gelen alışkanlıkla kullanıcılar hep Enter ile alt alana geçmek ister ve bu bir tik olmuştur.

Delphi ile Encoder

Harflerin kodlarını gösterir

Delphi ile Eliptik form oluşturulması

Bu örnekle Delphi ile yaptığınız formu şekli değişik bir hale gelmektedir.Denemenizi öneririm.

Delphi ile Ekranın sağına yanaşık start çubuğu

Ofis araç çubuğu benzeri bir araç çubuğumuz olsun istersek

1)  önce bir satatus bar yaratıp istediğiniz düğmeleri yerleştirin

2) daha sonra status barın hizalamasını right olarak ayarlayın.

3) ben şıklık olsun diye formumun gözükmemesini sadece status barın gözükmesini istedim bunun için
a) formun on create olayına
procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Style:=bsClear;
end;
kodlarını girin.
b) sonra formun transparan özelliğini true yapın

c) son olarak formun border stilini none olarak değiştirin.

4)  formun genişliğini ve yüksekliğini status bar  ile aynı olacak şekilde ayarlayın

5)şimdi formun on create olayına son bir kod ekleyeceğiz yani son hali şu olacak
procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Style:=bsClear;
form1.left:=screen.widht-form1.widht
form1.top:=screen.Height -(screen.Height -1)
end;

iyi çalışmalar

TD Software

Delphi ile Ekran çözünürlüğünü değiştirmek

Programınızdan ekran çözünürlüğünü değiştirmek isterseniz yararlı bir kod.

Delphi ile Ekran çözünürlüğünü değiştirmek

Form üzerine Button1 adlı bir buton koyun. Button1’in OnClick Event’ine aşağıdaki kodu yazın.

Delphi ile Ekran yakalamak

Masaüstü görüntüsünün yakalanip, form üzerine aktarilmasi;

procedure Tform1.GrabScreen;
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
ReleaseDC(GetDeskTopWindow,DeskTopDC);
end;
veya;
var width, height : word;
desktop : HDC;
begin
width := Screen.Width;
height := Screen.Height;
desktop := GetWindowDC(GetDesktopWindow);
Image1.Picture.Bitmap.Width := width;
Image1.Picture.Bitmap.Height := height;
BitBlt( Image1.Picture.Bitmap.Canvas.Handle, 0, 0,
width, height, desktop, 0, 0, SRCCOPY );
end;

TD Software




Delphi ile Ekran klavyesi

Bu dışardaki herhangi bir uygulamaya hakan yazan basit bir program ama geliştirilebilir….

Delphi ile saat ve tarihi almak

edittext lerde saat ve tarih göstrimi

begin
edit1.text:=datetostr(date);
edit2.text:=timetostr(time);
end;

TD Software




Delphi ile Editleri formatlı yazdırıp matematiksel işlem yapmak

Editleri bimler hanesine ayırıp aynı anda matemetiksel işlem yapabilirsiniz.

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text<>" then
begin
edit1.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit1.Text,'.',",[rfreplaceall])));
edit1.SelStart :=length(edit1.text);
edit3.Text:=floattostr(strtofloat(StringReplace(Edit1.Text,'.',",[rfreplaceall]))+strtofloat(StringReplace(Edit2.Text,'.',",[rfreplaceall])));
edit3.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit3.Text,'.',",[rfreplaceall])));
end;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text<>" then
begin
edit2.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit2.Text,'.',",[rfreplaceall])));
edit2.SelStart :=length(edit1.text);
edit3.Text:=floattostr(strtofloat(StringReplace(Edit1.Text,'.',",[rfreplaceall]))+strtofloat(StringReplace(Edit2.Text,'.',",[rfreplaceall])));
edit3.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit3.Text,'.',",[rfreplaceall])));
end;
end;

TD Software




Delphi ile Editbox’un içini belli bir formatta yazdırmak

Editin içini belli bir formatta yazdırmak.

Procedure Format(MyEdit1,MyEdit2:TEdit);
Var
I : Integer;
S : String;
begin
I := StrToInt(MyEdit1.Text);
FmtStr(S, '%.3d', [I]);
MyEdit2.Text := S;
// I.E. If Edit1.Text := '1' den Edit2.Text := '001';
end;

TD Software




Delphi ile Dosya işlemleri(File input)

Dosya işlemleriyle ilgili projeler yapanlara pascal tabanından gelme komutlar Append)

Delphi ile Dosya boyutunu öğrenmek için

function TForm1.Dosya_Boyut_Ogren(Dosya_Adi:String): string;
var
f: file of Byte;
size : Longint;
S: string;
begin
AssignFile(f, Dosya_Adi);
Reset(f);
size := FileSize(f);
Dosya_Boyut_Ogren := IntToStr(size);
CloseFile(f);
end;
{<---------------------------------------------------------------------------->}

Örnek :
Label1.Caption := Dosya_Boyut_Ogren('C:AutoExec.bat');

TD Software




Delphi ile Doğum günü

Dogum gününü bulan delphi örnegi biraz basit ama kullanışlı

Delphi ile DLL örneği

Basit bir DLL örneği. Bu dll Delphi 4.0 da yazılmıştır. Küçük harleri büyük harfe çevirir.

library buyukharf;

Delphi ile Dizin ve dosya yönetimi

Gündoğdu Yazılım

Delphi ile Disk seri numarasını almak

Sisteminizdeki partiyonların seri numaraları

Delphi ile Dijital saat komponenti

Gayet başarılı bir çalışma olduğuna inanıyorum. hemde çok kısa bir kod..

Delphi ile Design time çalışan nesne

Tasarım Zamanında Çalışan Bir nesne. Boş bir unit açın. type dan sonrasına aşağıdaki kodu copy paste yapın ve componenti kurun. Daha sonra komponenti forma yerleştirin ve sonucu gözlemleyin. Normalde sabit olan tasarım formunuzu hareketli göreceksiniz.

Hiç böyle bir nesne gördünüz mü bilmiyorum. Enterasan ama bu nesne Design Time sırasında çalışıyor. Aşağıdaki kodları boş bir unit açarak kopyala yapıştır yapın ve kaydedin. Daha sonra Component > Install Component diyerek bu nesneyi kurun. Standard sekmesine bu nesne gelecektir. Daha sonra bir forma bu nesneyi atın. Sonucu izleyin.

Delphi ile Deltree komutu

Dostaki deltree komutu

procedure TForm1.DelTree(const DirName: string);
var
{ This procedure uses recursive calls to traverse directory
structures, so pointers are used to keep stack usage to a
minimum }
SearchRec: ^TSearchRec;
FileName: PString;
GotOne: Integer;
begin
if trim(DirName)=" then exit;
{ Disable input/output checking }
{$I-}
{ Allocate new TSearchRec record and a new FileName string }
New(SearchRec);
New(FileName);

try
GotOne := FindFirst(DirName + '\*.*', faAnyFile, SearchRec^);

while (GotOne = 0) do
begin
with SearchRec^ do
begin
FileName^ := DirName + '\' + Name;

{ Is the current file a directory? }
if ((Attr and faDirectory) = 0) then
begin
{ The current file is not a directory. Delete it if
it's not a system or volume ID file }
if ((Attr and (faSysFile or faVolumeID)) = 0) then
begin
{ Change the file's attributes if it's marked as
read-only }
if ((Attr and faReadOnly) <> 0) then
FileSetAttr(FileName^,
FileGetAttr(FileName^)
and (not faReadOnly));

DeleteFile(FileName^);
end; { end if }

end
else if ((Name <> '.') and (Name <> '..')) then
{ The current file is a directory. Call ourselves
recursively so that we traverse the sub directory
structure }
DelTree(FileName^);

end; { end with }

GotOne := FindNext(SearchRec^);
end; { end while }

FindClose(SearchRec^);
RmDir(DirName);
finally
{ Dispose of the memory allocate for the TSearchRec record and
FileName string }
Dispose(FileName);
Dispose(SearchRec);
end; { end try }

{ Re-enable input/output checking }
{$I+}
end;

TD Software




Delphi ile yeni bir bileşen eklemek

Delphi’ye yeni bir bileşen (component) ilave etmek için; eğer ilk kez ilave ediyorsak;

Component | Install Component menüsünü kullanabiliriz. Bu işlem yapılıp onay verildikten sonra bileşen Delphi’ye derlenecek ve Dclusr30.dpk ismi ve “Delphi User Components” takma adı ile yeni component’lerinizi ilave edebilmeniz için bir component paketi oluşturulacaktır.

Delphi ile iki tarih arasındaki kayıtları listelemek

İlk önce veritabanımızda tarih alanını secondary index olarak belirtmemiz gerekiyor;

Ondan sonra

Formunuzu tsatlayın İki tane Edit Text ve ikii buton birde kayıtların gözükmesi için DbGrid

Delphi ile veri tabanı bağlantısı yapmak

Delphi programı ile programcılık aşamasının temel düzeyde giriş

Veri tabanı oluşturmak için Delphi programını açıyoruz. Tools menüsünden Database Desktop programını açıyoruz. File Menüsünden New – Table seçilir. Tabla type Dbase for windoes seçilir.

Veri tabanı programı açtıktan sonra alan adlarını yazdık. Ad character(c) size (boyut) Number(n) veri tabanını C:\Data klasörüne uygulama.dbf olarak kaydettik.

Delphi ile sürüklemek

çok kolay bir program ama labeli nasıl memonun içine sürükleriz diye düşünürseniz…

Formunuzun üzerine bir label, edit ve memo koymanız gerekiyor :=)

Daha sonra aşağıdaki kodu ilgili yerlere yazın.

Delphi ile paradox’tan ay’a göre sorgulama

Yazdığım Delphi programında sadece belli bir ayda doğanları listelemek için kullanmıştım.

Paradox DB'sinde tarih alanı tarih tipinde. MS ürünlerinde genelde "*.9.*" formatını destekliyor.

Paradox için ise çözüm şuymuş:

query.sql.text:= 'select * from TABLO where extract(Month from TARIH) = 5'

Kolay Gelsin

TD Software




Delphi ile kelimeyi istenen günler arasinda aramak

query , edit1 , Datetimepicker Gereklidir

Delphi ile kayıtlı sürücüleri bulmak

Delphide Kayıtlı Sürücüleri Bulma

Forma  Memo, Buton ve Birde Label Ekleyin..

Delphi ile CD kapağını açmak ve kapatmak

Kısa bir kod…

uses kısmına “MMSystem” ekleyin.

Delphi ile görev çubuğunu gizlemek göstermek

Görev Çubugunu gösterme gizleme

GÖREV ÇUBUĞUNU GİZLE

ShowWindow fonksiyonu Handle numarası verilen pencerenin durumunu ayarlar. Handle numarasını bilmediğiniz formların numaralarını öğrenmek için FindWindow API’si kullanılabilir.

Delphi ile sürücü formatlamak

Api kullanarak Sürücü formatlama

SURUCU FORMATLAMA
SHFormatDrive API’si ile herhangi bir sürücüyü formatlamak için kullanılabilen standart format penceresi açılabilir ve format işlemi yaptırılabilir.
Bu API’nin tanımı aşağıdaki gibidir.
Function SHFormatDrive ( Handle: HWND; Drive, ID, Options: Word ) :
LongInt; stdcall; external ‘shell32.dll’;
Handle Programınızın handle numarası
Drive Formatlanacak sürücü numarası. A sürücüsünün numarası 0’dır. Ve
Diğer sürücü numaraları sırayla gider. (c=2, d=3 vb.)
Options Bu özellik formatlamanın nasıl yapılacağını belirler.
0 Tam format
1 Hızlı format
2 Windows ME öncesi sistemlerden çalışan bu özellik disketi
formatlamadan sadece sistem dosyalarının transfer edilmesini sağlar.
Fonksiyondan geriye dönen değerler ve anlamları şunlardır.
-1 Hata
-2 Formatlanmadan kapatıldı
-3 Formatlanamaz sürücü
6 Formatlandı

Bu bilgilerden sonra formumuza bir tane buton 3 tane radiobutton ve bir tanede sürücüleri sececeğimiz combobox kutusu koyuyoruz bu işlemden sonra butonun click olayına aşağıdaki kodu yazıyoruz

procedure TForm1.Button1Click(Sender: TObject);
var
x: LongInt;
surucu,ozellik:Integer;
begin
//Sürücü harfini sayıya cevir
surucu:=Ord(Upcase(DriveComboBox1.Drive))-65;
if RadioButton1.Checked Then Ozellik:=0;
if RadioButton2.Checked Then Ozellik:=1;
if RadioButton3.Checked Then Ozellik:=2;
x:=SHFormatDrive (Handle,surucu, $FFFF,ozellik);
case x of
-1: ShowMessage ('Formatlanmıyor');
-2: ShowMessage ('Formatlanmadan kapatıldı veya iptal edildi');
-3: ShowMessage ('Seçtiğiniz sürücü formatlanamaz');
6: ShowMessage ('Formatlandı');

end;

end;
end.

TD Software




Delphi ile masaüstündeki simgeleri saklamak

Masaüstü simgelerini gösterme ve saklama apisi

Delphi ile büyük küçük harf çevirmek

Delphi’de yazdığım bu fonksiyon (Bharf(Kar:string;mod:char):string;) değeri ile belirtilen string’i  ‘B’ modu ile büyük harfe  ‘K’ modu ile küçük Harfe  ‘I’ modu ile de ilk harfi büyük diğerleri küçük olacak şekilde cevirim yapar.  Bence en büyük  avantajı Tükçe karakterleri desteklemesi ör: diğer çevirim fonksiyonlarında ‘i’ harfi büyüğe çevrildiğinde ‘I’ olarak çevirmekte ama bu fonksiyon ‘İ’ olarak çevir. vb.

Delphi ile Dizin seçme penceresini çalıştırmak

Dizin seçmek için bu dialog penceresini kullanabilirsiniz (Browse for folder)

Delphi.Net ile hostname, bilgisayar ismi, ip’i öğrenmek

Hostname , Makine Adı , İpyi alan kod orneği (system.net kutuphanesini kullanma orneği)

Delphi.Net’de bilgisayarın bölgesel ve dil ile ilgili ayarları

Bilgisayarın bölgesel ve dil ile ilgli ayarları

System.Globalization kutuphanesini uses bolumune yazın.
ekrana bilgileri yazdırmak için aşağıdaki kodları kullanın

Delphi.Net’de access veritabanı(MDB) ile bağlantı kurmak

Dot net te orneklere mdb (access veritabanı) ile bağlantıyla devam ediyoruz…

oncelikle şunu belirteyim hemen hemen herşey sql server a bağlantıyla aynı gibi…
Farklı olarak oledb nesnelerini kullanacağız..

İlk kodla başlıyoruz….

Delphi’de yaptığınız programlar ile mail gönderin

Delphi’de Yaptığınız Programlar İle Mail Gönderin

Delphi’de VB’deki gibi control array yapmak

Vb bir label1(0) label1(1) şeklinde kontrol arraylar oluşturup kullanabiliyorsunuz. Aynı işi Delphi’de yapalım.

Formunuzda 20 adet edit kontrolü var bir buton var ve basıldığında bu 20 edit’in içeriğini temizleyecek. Bu iş için normalde şu kodlamayı yapardık.

Delphi’de access’e komponentler ile bağlanmak

DELPHIDE KOMPONENTLERLE MS ACCESS’ E BAGLANMAK

Öncelikle herkese iyi günler dilerim.

Ms acsses“ e baglanmak icin bir adet ado yapragindan adoquery ve bir adet dataaccess yapragindan datasource yerlestiriniz sonra baglantiyi test etmek icin ise bir datagrid yerlestriniz simdi baglanti ayarlarina gecelim.

Delphi ile sayıları küçükten-büyüğe sıralamak

Memoya girilen dağınık sayıları küçükten büyüğe sıralayan küçük bi örnek….

ihtiyacımız olanalar
(2 tane buton iki tane memo=”memo1 ve memo2″ 🙂

Delphi ile interface hazırlamak ve kullanmak

Delphi konulu kaynaklarda en az sözü edilen konulardan birisi Interface’lerdir. Interface’lerin Delphi’de nasıl hazırlanıp kullanıdığı konusunda ön bilgi vermek için Delphi 2007 for Win32 kitabımın 2 sayfasını buraya aldım.

Interface Hazırlamak ve Kullanmak

Değişik programcılar tarafından geliştirilen Class’lar farklı işlemleri yapıyor olsalar bile bazı ortak noktalara sahip olabilirler. Örneğin her Class’ın sıralama yapan bir metoda veya “Firma” adına sahip bir özelliğe sahip olması istenebilir. Bu gibi sorunların çözümü Interface hazırlamaktan geçiyor. Interface’lerde metot imzaları olmaktadır.

Bu konuda teknik bilgi vermek yerine hemen basit bir örnek yapacağım. Bu amaçla üzerinde çalıştığım projedeki ilk formu temsil eden Class’ın yer aldığı kod dosyasında aşağıdaki gibi “TMatematik” adında bir class ve “IArayuz” adında bir Interface hazırladım. Form1 temsil eden Class’ın Click() metodunda ise matematik class’ının örneğini hazırladım.

Delphi ile apiler

Windows u kapatmak

Windows bir takım işlemleri apileri kullanarak yaparak işte size delphide windows u kapatma apisi

Formunuza üzerine bir tane buton ekleyin ve bu butonun kod kısmına şunları yazın

Delphi ile system tray örneği

Uses
ShellApi;

Var
stray:NOTIFYICONDATA;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
with stray do
begin
cbsize:=sizeof(stray);
wnd:=form1.handle;
hicon:=Application.icon.Handle;
uID:=0;
sztip:='Program Çalışıyor';
uflags:=7;
uCallBackMessage:=$200;//icon üzerine tıklama kontrolu için
end;
Shell_NotifyIcon(0,@stray);
end;

//Üstteki Kodu yazmak yeterlidir.
Shell_NotifyIcon(2,@stray);//Gizlemek

// farenin sağ tuşuna basılması
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var nokta:TPoint;
begin
getCursorPos(nokta);
if (x=$205) then PopupMenu1.Popup(nokta.x,nokta.y);
end;

TD Software




Delphi ile dll dosyasından MDIchild form çağırmak

Ahmet ALTINIŞIK Email:altinisikahmet@gmail.com

DLL içindeki Kodu Aşağıdaki Gibi Düzenleyin

Delphi ile componentlerle ping atmak

Delphi’ de componentlerle ping atma

DELPHI ‘ DEN KOMPONENTLERLE PING ATMA

Delphi ile basit trainer yapımı




Gelin Delphi İle Oyunlara Trainer yapalım :)

// Başta şunu söylemem gerekir . Bunu yazmak için trainer hakkında geniş bilgi almanız gerekir . Fakat O Vbasic için temel şeyler içinde  . Tmm Tmm Başlıyorum

Delphi ile Outlook üzerinden mail göndermek

Bu örnek kod. Outlook (varsayılan outlook posta yöneticisi) üzerinden mail gönderir. Outlook açık değilken gönderilen mailleri outbox’a atıyor ve outlook açılınca gönderiyor. Kolay Gelsin..

Delphi ile IDHttp kullanımı

İdhttp komponenti kullanarak bir sayfaya post methodu ile veri gondermek get ile gondermek ve almak

indy client tabında bulacağınız idhttp komponentinin ozelliklerini inceleyecez bu dokumanda

bir sayfayı get methodu ile çağırmak

Delphi ile XML web servislerini kullanmak

Delphi  XML Web Servisleri Giriş

Delphi  XML Web Servisleri Giriş

İlk Olarak Yapmamız gereken yeni bir proje oluşturmak bunun için File | New – Other yolunu izliyor ve karşımıza çıkan pencereden “ASP.Net Web Service Application” ı seçiyoruz.
OK” tuşana basmamızın ardında bize  projemize vereceğimiz ismi, yolu ve hangi web server ı kullanmak istediğimizi soran bir pencere çıkacak. Bu pencerede proje ismi için varsayılan değer “WebServiceApplication1” , yol için varsayılan değer “c:\inetpub\wwwroot\WebServiceApplication1” ve kullanılacak server için de IIS tir.

Delphi ile MYSQL’de enine boyuna tarih işlemleri

Delphi ve mysql ile tarih functionlarının sırlarını keşfedin

Delphi ile şifrelemek

3 edit ve iki button gerekli. edit1 sifrelenecek yazi, edit2 sifreleme türü ve edit3 ise sifrelenmis yazi icin kullanilacak. button1 sifreleyecek (ya da desifre edecek) button2 ise programin kapatilmasi islemini görecek. saygilarimla…

Delphi ile grafik çizimi

Seçimlere 1 yıl kala hangi partinin kaç oy alacağını yazın, onlarını excel’de pastagrafiği oluşturuyormuş gibi programınız da görün…

ilk önce formunuza iki tane edit (bulardan birincisine parti adını yazızaksınız, diğerine de partinin aldığı oyu) bir tane button(butona basıldığında partiye ait pastagrafiğini göreceksiniz) koyun…

Delphi ile case kullanarak yazı teknikleri

http://atakan.baydhost.com Delphide 1 adet timer ve label ekleyin; Daha Sonra Aşağıdaki kodları gerekli yerlere yapıştırın. daha sonra “Atakan E tarafından yazıldı” yazısının harf harf label e yazıldığını göreceksiniz… Bu program case metodu ile yazılmıştır. Umarım beğenirsiniz. Başarılar ve iyi çalışmalar dilerim…

Delphi ile hesap makinası örneği

Basit 4 işlem yapılabilen hesap makinası örneği

Delphi ile buton efektleri (Web türü buton)

Delphinin standart buttonları genellikle klasik programlar için kullanılır daha farklı görünümde programlar yapmak isterseniz web türü butonları kullanabilirsiniz.

Şimdi yapacağımız button kendi çizdiğimiz 3 resimden oluşuyor. Öncelikle 3 adet aynı boyda aynı textli button çizin. 1. Resim ; buttonun Sabit yani Form üzerindeki duruşudur 2. Resim ; Programımız çalışırken mouse ile aynı buttonun üzerine geldiğimize buttonun alacağı şekil olacaktır. 3.Resim ; Programımız çalışırken yaptığımız button tıklanınca alacağı şekildir.

Delphi’de table’nin şifresini girmek

Şifreli bir table için programın şifre istememesi için; Table’ın Active özelliğini False yapın ve Form’un OnCreate olayına aşağıdaki kodu ekleyin

Delphi’de SOAP ile tc kimlik numarasını sorgulamak

Email:altinisikahmet@gmail.com

Bu uygulamamizin amaci Nüfus ve Vatandaşlık Genel Müdürlüğünün XML servislerine SOAP standardı ile bağlanarak TC Kimlik Numarası islemleri yapmaktir.

ilk olarak http://www.tckimlik.nvi.gov.tr/ sitesindeki WSDL belgesini indirelim (WSDL dosyası)

Delphi’de MYSQL veri tabanına insert into ile kayıt eklemek

MYSQL veri tabanına INSERT INTO ILE yeni kayıt açmak

procedure TKASA_FORM.YeniClick(Sender: TObject);
VAR HK,HA,KK,Q:STRING;
begin
Q:="; KK:=";HK:='K'; HA:=";
HA:=HAREKET.Text;
KK:= KASA_MASTER.FIELDBYNAME('KASA_KODU').AsString;
KASA_HAREKET.Close;
KASA_HAREKET.SQL.CLEAR;
Q:=' INSERT INTO CARIHAR (BA,KASA_KODU,HK,hartip,HARADI,ACIKLAMA)  VALUES('+'"'+BA.TEXT+'"'+','+'"'+KK+'"'+','+'"'+HK+'"'+','+'"'+HAREKET.TEXT+'"'+','+'"'+HAREKET.TEXT+'"'+','+'"'+HAREKET.TEXT+'")';
KASA_HAREKET.SQL.ADD(Q);
KASA_HAREKET.EXECSQL;

KASA_HAREKET.close;
KASA_HAREKET.sql.clear;
KASA_HAREKET.Sql.Add('select * from CARIHAR');
KASA_HAREKET.Sql.Add('order by SIRANO DESC');
KASA_HAREKET.open;
END;

TD Software




Delphi’de excel’e veri aktarımı

DBgird alanlarındaki verileri Excel E aktarma işlemi

Delphi’de DBExpress ile MYSQL veritabanına bağlanmak

Kısaca mysql ile bağlantıyı nasıl yapacağınızı açıklamaya çalışacağım

Forma bir tane dbexpress paletinden  sqlconnection ekleyin

Delphi.Net ile database bağlantılı uygulama geliştirmek

database

Delphi 8 .Net İle Database Bağlantılı Uygulama Geliştirmek
Daha önceki yazılarımızda Delphi 8 .Net’e kısa bir giriş ve ilk uygulamanın ardından Delphi’nin script dili olarak kullanımına değinmiştik. Web programlamanın yaşadığı devrimin ardından database bağlantısız bir web uygulaması düşünmek neredeyse imkansız hale geldi. Bu sebep ile bu yazımızda Delphi 8 ile SQL Server ‘ a bağlanacak ve DataGrid yardımıyla Authors tablosundaki verileri ekrana getireceğiz.
Delphi 8 de Visual Studio gibi ister kendi yazacağınız kodlar yardımıyla nesnelerinizi oluşturup database bağlantısını manuel yapar isterseniz wizard yardımı ile Oracle,Access,SQL Server,Interbase ve DB2 database lere bağlanırsınız.

Uygulamamız için Design ekranına bir buton ve DataGrid ekliyoruz. Ayrıca database bağlantısı ve veri çekmek için SqlDataAdapter,SqlConnection ve DataSet nesnelerini ekranımıza taşıyoruz.

Ardından yazacağımız kod;

Delphi’de hesap makinası yapmak

Bolme harici diger fonksiyonlar calısıyor fakat bolmedeki sorunu bulabilirmisiniz arkadaslar

Delphi ile animate örneği

Delphi 7 de bulunan Animate bileşleni için küçük bir örnek

Formunuza  bir Animate bileşeni ekleyin ve CommonAVI özelliğine aviCopyFiles atayın ve sonra aşağıdaki kodu bir buttonun onclick olayına ekleyin

Delphi 3’ü kimler yazdı

Delphi derleyicisini kimlerin yazdığını merak ediyorsanız (Help|About) Help menüsünden About’u seçin ve ALT tuşunu basılı tutarak TEAM yazın

Kursat C

TD Software

Delphi.Net(2005) ile access üzerinde tablo oluşturmak

MDB oluşturmak ve içine table yaratmak

Yapacağımız işlem : Delphi 2005 kullanarak projeden hiç ayrılmadan Access veritabanı oluşturmak ve içine tablo yaratmak.

Delphi.Net(2005) ile SQL server ile bağlantı bilgileri

Delphi dot nette VB veya C# kadar iyi ve profesyonel Delphiciler hadi dot nete başlıyalım herkesten kod bekliyorum..

Delphi ile Delay(Kod Beklemek) kullanımı

Delphinin verdiği sleep() komutu formu donduruyor bunu engellemek için .

Delphi ile Delay

Pascaldan Hatırlayacağınız delay()

procedure delay(msecs : integer); var ilktick : longint; begin ilktick:=gettickcount; repeat application.processmessages; until ((gettickcount-ilktick)>=longint(msecs)); end;

TD Software




Delphi ile Dbgridde alanlar üzerinde onexit

Dbedite vb. boş geçmesini istemediğimiz  alanlarda bileşenin onexit olayını kullanarak kullanıcıya bir mesaj verdirip tekrar o alana konumlanırız. peki dbgridde? işte cevabı

Delphi’de DDGrid ile parasal alanlara giriş esnasında basamaklı girmek

DBGrid in colonlarında parasal giriş yaparken virgüllü giriş yapabileceksiniz!!!

Merhaba;

DBGrid 0.nci Columns’unda rakam girerken basamaklı girişe izin verir. Alan tipini String olarak tanımlamayı unutmayın. Tabii uğraşırsanız Float tipi veya Currency tipi ile de tanımlayabilirsiniz. Lafı uzatmadan kodu yazıyorum.

Delphi ile Control panel ayarları

Control Panel üzerindeki herhangi bir ayar diyalog penceresine ulaşmak için en temel api’lerden birini kullanabileceğinizi biliyormusunuz? Yapmanız gereken şey çok basit

Önce unit’e uses ShellApi; satırını ekleyin.

ShellExecute() fonksiyonu ShellApi unit’i içinde tanımlıdır. Bu api fonksiyonunu programınızda kullanabilmek için yukardaki satırın programınızda bulunması gerekir.

Delphi ile Combobox’a veritabanından veri eklemek

Combobox nesnesi içerisine Bilgi Ekleme Koşulluda Olabilir.

Delphi ile Clipboardaki dosya uzantısını almak

Clipboardaki Dosya Uzantısını Alma

Forma Bir Memo ve Button Ekleyin

Delphi ile Clipboarda dosya kopyalama

Clipboarda istediğiniz bir dosyayı kopyalayabilirsiniz…

Delphi ile Classlar nasıl kullanılır

CLASS lara giriş seviyesindedir.

Bu makale Class lara giriş seviyesindedir.

Programlama da programcıların en zorlandığı olaylardan biride Nesneye Dayalı Programlamanın kavramını anlamaktır. Class Nedir? Nesne Nedir? Constuructor(Kurucu) nedir? Vb…

Öncelikle Temelden başlayarak ilkel yöntemleri kullanalım sonra da Modern (Sosyete) kodlama yöntemlerine geçelim. Bakın ben bu yöntemleri Java da öğrenmiştim.

Bir integer dizisinin elemanlarını ListBox’a basan bir program yapalım.

Delphi ile exe’deki ikonun alınıp başka bir yere çizilmesi

Herhangi bir program dosyasinda kullanilan ikonun, alinmasini saglayan bir fonksiyon.

Delphi’de üs hesaplamak

Virgullu rakamlarda dahil, rakamların üslerini hesaplayan program.. Ornek= 2³ -> 8

Delphi ile Stringdeki Boşlukları silmek

String bir değişkenin başındaki veya sonundaki boşlukları silen fonksiyon

Verilen Stringin başındaki boşlukları silmek için

Delphi ile Bmp to jpg

BMP to JPG

Delphi ile CD kapağını açmak-kapatmak

Delphi’yi Windowsla kullanmak!!

Delphi ile Cd-rom sürücünün kapağını açıp kapatmak

procedure TForm1.Button1Click(Sender: TObject); begin // burada programcı mediaplayer nesnesini sadece bu iş için kullanabilir. with MediaPlayer1 do if (MediaPlayer1.Mode = mpOpen) then mciSendCommand(MediaPlayer1.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0) // eğer açıksa kapat else mciSendCommand(MediaPlayer1.DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0); // açık değilse aç end;

Murat Karadavut

TD Software




Delphi ile Büyük-küçük harf dönüşümü (TR destekli)

Büyük-Küçük, Küçük-Büyük harf dönüşümleri standart fonksiyonlar ile türkçe karakterlerde sorun çıkarıyor. Bu fonksiyon ile pratik ve hılı bir şekilde bu dönüşümleri sağlayabilirsiniz.

Delphi ile Birden fazla nesneyi kontrol etmek

Birden fazla nesneyi kontrol etmek için her nesne için ayrı ayrı kod yazmak yerine bir kaç satır kodla işleminizi kolayca halledebilirsiniz.

Delphi ile Bir web adresinden dosya indirmek

Bir web adresinden istediğiniz dosyayı indirme. 32k küçük olanlar icin kullanabilirsiniz. Size string olarak donuyor.

Bu function nasil kullanacaksiniz
s icinde index.htm gelir. artik siz bu S stringin icinde istediginiz gibi kontrollerinizi yapabilirsiniz 🙂
32 K kucuk ise bu yontemi deneyin. daha buyuk bir dosya ise once bunu diskinize kaydetmeniz gerekir. o zamanda
procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject); kullanin

Delphi ile tablonun istenilen alanının bir combox’a doldurulması

Herhangi bir tablonun istediğimiz bir alanını tek bir satırla istediğimiz bir Combobox’a doldurabiliriz..

Delphi ile sayının asal olduğunu öğrenmek

“n” asalsa True değilse false olarak döner..10basamaklı bi sayıyı 1snden kısa sürede kontrol eder.

Delphi ile paradox tablosuna ikinci indeks eklenmesi

Table1.AddIndex('<indeks adi>', 'CustNo;CustName',
[ixDescending]);
DBGrid kolonlari üzerinde dolasma
dbgrid1.selectedindex:=dbgrid1.selectedindex+1;
dbgrid1.setfocus;

TD Software




Delphi ile kümenin alt kümelerini bulmak ve listbox’a aktarmak

Bu program edit içerisne girilen bir kümenin alt kümelerini bularak listbox içerisine yazar. Edit içerisine elemanları girerken araya virgül ( , ) koyunuz.

Delphi ile Harddiskin volume numarasını öğrenmek

Hard diskin volume seri numarasını bulur.

Delphi ile exe’deki ikonu almak

Herhangi bir program dosyasinda kullanilan ikonun, alinmasini saglayan bir fonksiyon.

Delphi ile Bilgisayarınıza bağlı yazıcıları bulmak

Programınızda yazıcı kullanmak istiyorsunuz ancak bağlı yazıcıları öğrenmek istiyorsanız aşağıdaki kod size yardımcı olacaktır.

Printers unit’i yazıcılarla ilgili isteyebileceğiniz kontrollerin neredeyse hepsini içerir.
İşe uses satırına Printers‘ı ekleyerek başlayalım. Aşağıdaki kod varsayılan yazıcıyının ismini bulmanızı sağlar.

Delphi ile Bilgisayarın açık olduğu zamanı öğrenmek

Bilgisayarın ne zamandan beri açık olduğunu anlamak

Delphi ile Bilgisayarı istediğin saatde kapamak

İsmail Şahin’in gönderdigi programdır. (ufak eklemelerle)

Delphi ile Bilgisayarı belirlenen saatde kapatmak

Bilgisayarınızı ayarlanan saatte kapatmaya yarayan kodlar aşağıdadır. Yararlı olacağını umarım.

Delphi ile Bilgisayarı kapatmak

İstediğiniz Tarih ve Saatte Bilgisayarınız Kapansın

Delphi ile Bilgisayarı konuşturmak

Bu kodlarla bilgisayarı konuşturun…türkçe destekli değil ama yine de güzel okuyor microsoft sam amca…xp de sorunsuz çalışır ama 98 de kullanmak için speech özelliği yüklenmeli…microsoft.com da var.text to speech diye aratırsanız google da bulabilirsiniz.ama xp de gerek yok zaten yüklü…kolay gelsin… kenanozyurt_turk@hotmail.com

Delphi ile length fonksiyonu

Length komutu ve kullanım alanları

lenght fonksiyonu ile girilen karaker sayısı alma

girilen bir metnin karakter sayısını neden almalıyım?
eğer programımda girilen bazı alanlarda karakter sınırlaması yapmam gerekiyorsa bunu denetim için kullanırım.

Delphi ile Başlat menüsü programlarının tespit edilmesi

Başlat menüsünde hangi programların bulunduğunu tespit eden bir kod parçası.

Forma bir ListBox, bir Buton, birde DDEClientConv nesnesi ekleyip, Service ve Topic özelligini “Progman” olarak giriniz.

Delphi ile BDE alias oluşturmak ve kullanmak

BDE Aliası Oluşturma ve BDE'ye hükmetme

Delphi ile BDE ve ADO componentler’da mysql veritabanına bağlanmak

Standart BDE ve ADO data componentlerle MySQL veritabanına bağlanma teknikleri.

Standart Delphi veri componentleri ile MySQL veri tabanına bağlanmak için izlenecek yollar hemen hemen bir paradox database bağlantı ile yanı yöntemlere sahip.

Tanımlamadan önce Mysql QDBC driver’ı sitesinden indirip sisteme kurduktan sonra yapamız gereken sadece ODBC veri kaynakları üzerinde, sistemimizde yüklü bulunan MqSQL database için bir MAP (BDE’deki adıyla ALIAS) tanımlamak.  Tanımlama esnasnına driver olarak “MySql for ODBC Driver v3.51” seçilmesi gerekir. (Kurulan ODBC driver başka sürüm olabilir.)
Bu tanım yapılırken dikkat edilecek noktalardan birisi, bağlanılacak default veritabanının belirtilmiş olması. Aşağıdaki bilgilerin girilmesi gerekiyor..

Delphi ile Bilgisayarı istediğin saatte kapatmak

Ynterface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
saat,dakika,saniye,milisaniye:word;
s,s1,s2,d1,d2:string;
implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DecodeTime(Time,saat,dakika,saniye,milisaniye);
if s1=inttostr(saat) then
if s2=inttostr(dakika) then
begin
exitwindowsex(EWX_SHUTDOWN,0);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=timetostr(Time);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=edit1.text;
s1:=Copy(s,1,2);
s2:=copy(s,4,2);
Timer1.Enabled:=true;
Application.Minimize;
end;

end.

TD Software




Delphi ile Bilgilerin diziye kaydedilmesi ve momolara yazdırılması

Editlerdeki bigiler kaydet butonuna tıklanınca diziye kaydediliyor ve ada veya T. numarasına göre listeleniyor.

Delphi ile Bilgisayar ve kullanıcı ismini öğrenmek

Windows’ta bilgisayar ismini ve kullanıcı ismini veren fonksiyonlar.

Delphi ile Başka bir programdaki butonları enable veya disable yapın

Forma 2 Edit ve 2 Buton ekleyin.

Delphi ile Bazı kısaltmalar yapalım

Arkadaslar programları yazarken hic bu kodu ben mi yazdim yaa cok uzun, aptalca oldu, oldu ama nasıl oldu anlamadim dediginiz oldu mu..

* Formlarda cok kullanılan enable disable, visible True False olayı

Button1.Enabled:=True;
Button2.Enabled:=True;
Button3.Enabled:=True;
Button4.Enabled:=True;
Button5.Enabled:=True;
Button6.Enabled:=True;
Button7.Enabled:=True;
Button8.Enabled:=True;

Hos bir goruntu degil degilmi.

Kısaltalım o zaman...

for i:=1 to 8 do
TButton(FindComponent('Button'+IntToStr (i))).Enabled := True;

Bu kadar basit, satirlarca True False yazmanin alemi yok.:))

Deneyin 🙂

A.Murat ACAR

TD Software




Delphi ile Basit bir arama

Locate işe yarıyor

Delphi ile Basit analog saat yapmak

Delphi 6 ile haırlanmış Analog Saat Örnegidir. Tray için geliştirildi.

Form Üzerine
1 Adet Timer Bileşeni
1 Adet Shape Bileşeni (Şeklini Circle Seçin)
5 Adet Label Bileşeni (12,3,6 ve 9 yerine koyun)
Bir Adet popu menü bileşeni

Delphi ile Açılır-Kapanır form

İşyeri kepengine benzer bir sekilde açilip kapanabilen bir form yaratmak için kullanilabilecek kod örnegi asagidadir. Açilma ve kapanma komutu, bu örnekte baslik alani üzerinde sag fare tusuna basilarak verilmektedir.

Delphi ile Açık olan uygulamaları listelemek

Forma bir ListBox ve Edit ekleyin.

Delphi ile Ascii kodlarını almak

1 edit 2 label ascii leri denemek içinde 1 memo kullanın label 1in visible özlln false yapın label 2 de yazılan rakamın ascii kodu görünür deneyin

Delphi ile Asal sayı bulmak

Verilen aralıktaki asal sayılar nasıl bulunur

Forma 1 adet düğme,2 adet editbox,1 adet listbox koyalım.
Edit1.text ve edit2.text arasındaki asal sayıları listbox’a atalım.Olayın mantığı şudur.Bir sayının asal olup olmadığını bulmak için o sayıyı sayının karaköküne kadar olan sayılara böleriz.Eğer hiçbirine bölünmüyorsa sayı asaldır.Örneğin sayımız 37 olsun.Karakökü tamsayı olarak 6 diyelim.2’ye,3’e,4’e,5’e,6’ya bölünmez.O zaman sayımız asaldır.37′ ye kadar tüm sayılara bölmeye gerek yok.