Programlama yapalım ve Öğrenelim.

windows api

Belgeler menüsüne bir dosya ekleme

uses kısmına ShlOBJ unitini ekleyin;

procedure TForm1.Button1Click(Sender: TObject);

var

s : string;

begin

s := 'C:DownLoaddeneme.html';

SHAddToRecentDocs(SHARD_PATH, pChar(s));

end;

Belgeler menüsünü temizleme

uses kısmına ShlOBJ unitini ekleyin;

SHAddToRecentDocs(SHARD_PATH, nil);

Duvar kağıdını değiştirmek

var

s: string;

begin

s := 'c:windowscars.bmp';

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s),0);

Başlat butonunu gizlemek veya kullanılmaz hale getirmek

procedure TForm1.Button1Click(Sender: TObject);

var

Rgn : hRgn;

begin

// Başlat butonunu gizle

Rgn := CreateRectRgn(0, 0, 0, 0);

SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

Rgn,

true);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//Gizlenen Başlat butonunu eski haline döndürmek için

SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

true);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

//Başlat butonunu kullanılmaz yap

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

false);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

//Kullanılmaz yapılan Başlat butonunu eski haline getirmek için

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

true);

end;

Bir programın çalıştırılması

WinExec('c:windowscalc.exe',sw_show);

WinExec('C:WINDOWSNOTEPAD.EXE C:WINDOWSWIN.INI', SW_SHOWNORMAL);

WinExec('COMMAND.COM', SW_SHOWNORMAL);

WinExec('COMMAND.COM /C DIR *.*', SW_SHOWNORMAL);

Harddiskin seri numarasının bulunması

procedure TForm1.Button1Click(Sender: TObject);

var

VolumeSerialNumber : DWORD;

MaximumComponentLength : DWORD;

FileSystemFlags : DWORD;

SerialNumber : string;

begin

GetVolumeInformation('C:',

nil,

@VolumeSerialNumber,

MaximumComponentLength,

FileSystemFlags,

nil,

0);

SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +

IntToHex(LoWord(VolumeSerialNumber), 4);

Memo1.Lines.Add(SerialNumber);

end;

Windows ve System klasörlerinin bulunması

procedure TForm1.Button1Click(Sender: TObject);

var

a : Array[0..144] of char;

begin

GetWindowsDirectory(a, sizeof(a));

ShowMessage(StrPas(a));

GetSystemDirectory(a, sizeof(a));

ShowMessage(StrPas(a));

end;

Windows lisans bilgilerinin (isim ve şirket) bulunması

uses kısmına Registry unitini ekleyin;

procedure TForm1.Button1Click(Sender:TObject);

var

reg: TRegIniFile;

begin

reg := TRegIniFile.create('SOFTWAREMICROSOFTMS SETUP (ACME)');

Memo1.Lines.Add(reg.ReadString('USER INFO', 'DefName', 'Mustafa ŞİMŞEK'));

Memo1.Lines.Add(reg.ReadString('USER INFO', 'DefCompany', ''));

reg.free;

end;

Speakerdan Beep sesi çıkartma

MessageBeep(word(-1));

Bir Denetim Masası uygulamasını çalıştırmak

Control Panel uygulamaları WindowsSystem klasörü altında bulunur. *.CPL uzantılı dosyalardır.

Bu uygulamaları Control.Exe programı ile çalıştırabilirsiniz.

Bazı Control Panel uygulamaları WindowsSystem klasöründe bulunmaz.

Bunların ismini vererek çalıştırabilirsiniz.

WinExec('C:WINDOWSCONTROL.EXE TIMEDATE.CPL', sw_ShowNormal);

WinExec('C:WINDOWSCONTROL.EXE MOUSE', sw_ShowNormal);

WinExec('C:WINDOWSCONTROL.EXE PRINTERS', sw_ShowNormal);

Windows 9x ve NT'de ortak olarak kullanılan bazı denetim masası uygulamaları

access.cpl:Erişilebilirlik

appwiz.cpl:Program ekle/kaldır

desk.cpl:Görüntü

intl.cpl:Bölgesel ayarlar

joy.cpl:Oyun çubuğu

main.cpl:Fare

mmsys.cpl:Çoklu ortam

modem.cpl:Modem

sysdm.cpl:Sistem

timedate.cpl:Tarih/Saat

Windows'u kapatmak veya yeniden başlatmak(reboot)

Win9x'te bilgisayarı kapatmak veya yeninden başlatmak için :

ExitWindowsEx(EWX_SHUTDOWN,0); //yeniden başlatmak için EWX_REBOOT

Ekran koruyucusunu kapatmak ve açmak

//kapatmak için

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,

nil,

0);

//açmak için

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,

nil,

0);

Ekran kartım kaç rengi destekliyor

Ekran kartınızın kaç rengi desteklediğini aşağıdaki kodla bulabilirsiniz.

(1 shl (GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL) *

GetDeviceCaps(Form1.Canvas.Handle, PLANES)));

Windows Gezginini istediğiniz bir klasörle açma

uses kısmına ShellApi unitini ekleyin.

ShellExecute(0,

'explore',

'C:WINDOWS', //buraya açmak istediğiniz klasörü yazın.

nil,

SW_SHOWNORMAL);

Windows'un Bul (Find File) diyalog penceresini istediğiniz bir klasörle açma

Windows'ta Başlat->Bul->Dosyalar ve Klasörler ile açtığınız Bul diyalog penceresini Delphi içerisinden

hem de istediğiniz yolu vererek çalıştırabilirsiniz.

uses kısmına ddeman unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

begin

with TDDEClientConv.Create(Self) do begin

ConnectMode := ddeManual;

ServiceApplication := 'explorer.exe';

SetLink( 'Folders', 'AppProperties');

OpenLink;

ExecuteMacro('[FindFolder(, C:DOWNLOAD)]', False); //diyalog açıldığında konum kısmında

CloseLink; //olmasını istediğiniz klasör.

Free;

end;

Pencerenin kapatma düğmesini etkisiz hale getirme

Pencerenin başlık çubuğunda bulunan kapatma düğmesini (X) etkisiz hale getirebilirsiniz.

Aynı zamanda sistem menüsündeki Kapat(Close) seçeneğide kaybolur.

Bunun için aşağıdaki gibi bir kod yazmalısınız.

procedure TForm1.Button1Click(Sender: TObject);

var

hwndHandle : THANDLE;

hMenuHandle : HMENU;

begin

hwndHandle := FindWindow(nil, 'Form1'); //Form1 pencerenin başlığını göstermektedir.

if (hwndHandle <> 0) then begin //Burayı uygulamanıza göre değiştirin

hMenuHandle := GetSystemMenu(hwndHandle, FALSE);

if (hMenuHandle <> 0) then

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;

Uygulamam Windows her açıldığında otomatik çalışsın

uses kısmına Registry unitini ekleyin.

{$IFNDEF WIN32}

const MAX_PATH = 144;

{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.LazyWrite := false;

reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',false);

reg.WriteString('Uygulamam', uygulamanızın_yolu_ve_adı);

reg.CloseKey;

reg.free;

end;

Klasöre Gözat diyalogunu kullanarak bir klasörü seçme

uses kısmına ShellAPI ve ShlObj unitlerini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

var

TitleName : string;

lpItemID : PItemIDList;

BrowseInfo : TBrowseInfo;

DisplayName : array[0..MAX_PATH] of char;

TempPath : array[0..MAX_PATH] of char;

begin

FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);

BrowseInfo.hwndOwner := Form1.Handle;

BrowseInfo.pszDisplayName := @DisplayName;

TitleName := 'Lütfen bir klasör seçin';

BrowseInfo.lpszTitle := PChar(TitleName);

BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;

lpItemID := SHBrowseForFolder(BrowseInfo);

if lpItemId <> nil then begin

SHGetPathFromIDList(lpItemID, TempPath);

ShowMessage(TempPath);

GlobalFreePtr(lpItemID);

end;

Bir web adresini açma

uses kısmına Shellapi unitini ekleyin;

ShellExecute(Handle,

'open',

'http://www.geocities.com/siliconvalley/campus/4958/',

nil,

sw_ShowMaximized);

Bir DOS programını çalıştırma ve çalışması bitince penceresini kapatma

WinExec('command.com /c progdos.exe',sw_ShowNormal); //progdos.exe çalıştırılıyor.

(* eğer ikinci paremetreyi sw_Hide yaparsanız kullanıcı programın çalıştığını görmez. *)

Alt + Tab ve Ctrl + Esc tuşlarının kullanılmaz hale getirilmesi

var

OldVal : LongInt;

begin

SystemParametersInfo (97, Word (True), @OldVal, 0)

(* Word(False) ile kullanırsanız tuşları tekrar kullanabilirsiniz. *)

Bir menü öğesine resim ekleme

procedure TForm1.FormCreate(Sender: TObject);

var

Bmp1 : TPicture;

begin

Bmp1 := TPicture.Create;

Bmp1.LoadFromFile('c:denemeturkey.bmp');

SetMenuItemBitmaps( deneme1.Handle,

MF_BYPOSITION,

Bmp1.Bitmap.Handle,

Bmp1.Bitmap.Handle);

end;

Ağ ortamında makinenin ismini bulma

procedure TForm1.Button1Click(Sender: TObject);

var

Makine_ismi:array[0..255] of char;

BufferSize:DWORD;

begin

BufferSize:=SizeOf(Makine_ismi);

GetComputerName(@Makine_ismi,BufferSize);

Showmessage(Makine_ismi);

end;

Ağ ortamında login olmuş kullanıcı ismini bulma

procedure TForm1.Button1Click(Sender: TObject);

var

Kullanici_ismi:array[0..255] of char;

BufferSize:DWORD;

begin

BufferSize:=SizeOf(Kullanici_ismi);

GetUserName(@Kullanici_ismi,BufferSize);

Showmessage(Kullanici_ismi);

end;

Ekran çözünürlüğünü nasıl öğrenirim

Screen.Width //yatay çözünürlük

Screen.Height //dikey çözünürlük

MessageDlg('Şu anda ' + IntToStr( Screen.Width ) +' x '+

IntToStr( Screen.Height )+' çözünürlükte çalışıyorsunuz',

mtInformation, [mbOk], 0 );

Taskbar'ın (Görev çubuğu) AutoHide özelliği açık mı, kapalı mı?

uses kısmına ShellAPI unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

var

ABData : TAppBarData;

begin

ABData.cbSize := sizeof(ABData);

if (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0 then

Showmessage('Autohide özelliği açık');

end;

Programım biraz beklesin

Bazı işlemlerden sonra diğer bir işlemi çalıştırmadan önce bir süre beklemek istersiniz.

Bu gibi durumlarda Sleep komutunu kullanabilirsiniz. Burada verilen değer milisaniye cinsindendir.

(1 saniye=1000 milisaniye)

Sleep(10000) //10 saniye bekler

Caps lock tuşu açık mı, kapalı mı?

if (GetKeyState(VK_CAPITAL) and $01)<>0 then

Showmessage ('caps lock açık');

İmleci (cursor) gizleyip, tekrar gösterme

ShowCursor(False) //imleci gizler

ShowCursor(True) //imleci tekrardan gösterir.

Ekran görüntüsünü alın

procedure TForm1.Button1Click(Sender: TObject);

var

DCDesk: HDC;

begin

DCDesk:=GetWindowDC(GetDesktopWindow);

BitBlt(Form1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);

ReleaseDC(GetDesktopWindow, DCDesk);

end;

Not: Yukarıdaki kod ekran görünütüsünü form üstüne alır. Image bileşeni içine ekran görüntüsünü almak

için form üzerine bir image bileşeni yerleştirin ve Form1.Canvas.Handle yerine Image1.Canvas.Handle yazın.

Map Network Drive diyalogunu açma

WNetConnectionDialog ( 0, RESOURCETYPE_DISK );

Bir dosyayı bağlantılı olduğu uygulama ile açma

uses kısmına shellapi unitini ekleyin.

shellexecute(0,'open', 'c:test2.avi','','',SW_NORMAL);

Temp klasörünü bulma

procedure TForm1.Button1Click(Sender: TObject);

var

temp_klasor: array[0..MAX_PATH] of char;

begin

GetTempPath(SizeOf(temp_klasor), @temp_klasor);

ShowMessage(temp_klasor);

end;

Ekran koruyucuyu çalıştırmak

PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

Güç koruma modunda (Power Safe Mode) çalışan monitörü kapatıp açma

Monitörü kapatmak için :

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Monitörü açmak için :

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

Windows Tarih/Saat Özellikleri (Date/Time Properties) iletişim kutusunu açma

Winexec('Control.exe Date/Time',sw_shownormal);

Windows'ta yüklü bulunan yazıcıları listeleme

uses kısmına printers unitini ekleyin

procedure TForm1.Button1Click(Sender: TObject);

var

Printer:TPrinter;

begin

Printer:=TPrinter.Create;

Listbox1.Items.Assign(Printer.Printers)

end;

Programımın Windows NT'de çalıştığını nasıl tespit ederim

if Win32Platform = VER_PLATFORM_WIN32_NT then

ShowMessage ('NT''de çalışıyorsunuz!');

Windows oturumunu kapatma (log off)

ExitWindows (0,0);

CPU tipini nasıl tespit ederim

uses kısmına Registry unitini ekleyin. Aşağıdaki fonksiyon ile CPU tipini bulabilirsiniz.

function CPUType: string;

var

Reg: TRegistry;

begin

CPUType := '';

Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_LOCAL_MACHINE;

if Reg.OpenKey('HardwareDescriptionSystemCentralProcessor', False) then

CPUType := Reg.ReadString('Identifier');

finally

Reg.Free;

end;

Bir klasördeki tüm dosyaları silme

uses kımına ShellApi komutunu ekleyin. Aşağıdaki kod bir klasördeki tüm dosyaları çöp tenekesine atar.

Daha fazla seçenek için Delphi yardıma başvurun.

procedure TumDosyalariSil;

var

T:TSHFileOpStruct;

begin

fillchar(T, sizeof(T), 0 );

with T do begin

Wnd:=0;

wFunc:=FO_DELETE;

pFrom:='E:TempTestDel*.*'#0;

fFlags:=FOF_ALLOWUNDO or FOF_FILESONLY or

FOF_SILENT or FOF_NOCONFIRMATION;

end;

SHFileOperation(T);

end;

Windows NT/2000/XP'yi Kapatmak

2000 ve XP'de bilgisayarı kapatmak için gerekli yetkiye sahip olmanız lazım. Aşağıda kodla bilgisayarı

kapatabilirsiniz.

var

tkHandle : THandle;

BufferLun,ret : DWORD;

tk,tkPrevious : TTokenPrivileges;

LID : TLargeInteger;

LUID : TLuIDAndAttributes;

versione : TOSVersionInfo;

begin

BufferLun := 1024;

ret := 0;

versione.dwOSVersionInfoSize := sizeof(versione);

GetVersionEx(versione);

if versione.dwPlatformId = VER_PLATFORM_WIN32_NT then

begin

tkHandle := GetCurrentProcess;

OpenProcessToken(tkHandle,TOKEN_ALL_ACCESS,tkHandle);

LookupPrivilegeValue(PChar(''),PChar('SeShutDownPrivilege'),LID);

LUID.Luid := LID;

LUID.Attributes := SE_PRIVILEGE_ENABLED;

tk.PrivilegeCount := 1;

tk.Privileges[0] := LUID;

AdjustTokenPrivileges(tkHandle,False,tk,BufferLun,tkPrevious,ret);

end;

ExitWindowsEx(EWX_SHUTDOWN or EWX_PowerOff,0);

end;

*.wav (ses) dosyalarını çaldırmak

Bu iş için PlaySound isimli api'yi kullanabilirsiniz. Api geniş bir parametre aralığına sahip, detaylar için Delphi ile gelen Win32 yardım dosyasına bakabilirsiniz.

PlaySound('C:WINDOWSMEDIAWindows Start.wav', 0, Snd_FileName or Snd_Async);

Programımın simgesi Tray'de (saatin yanında) gözüksün

Bu işi yapan birçok bileşen var. Bunlardan en iyisi artık bedava olarak dağıtılan TurboPower ShellShock paketi içindeki tray bileşeni. Bu paketi indirip kurun. İndirme detayları için sitedeki 3. Parti bileşenler kısmındaki TurboPower yazısına bakabilirsiniz.

Programım Windows 2000/Xp'de düzgün çalışıyor, Win9x'te TComboBox bileşeninde xxx.Items.String EReadError veriyor

Bu hata genellikle sistem kaynakları yetersiz olduğu zaman alınmakta. Win 9x'te sistem kaynakları biraz sınırlı.

Diğer programlarda bu tip hatalar almıyorsanız, programınızda aldığınız kaynakları ve bunları işi bittiği anda serbest bırakıp bırakmadığınızı kontrol edin.

Win9x'te user ve gdi kaynakları hala sınırlı. TWinControl sınıfından türeyen componentlerin hepsi handle'a sahiptir. Win9x'te handle sayısı 16K ile sınırlı. Ayrıca glyph, image, imagelist ve font gibi componentler de gdi kaynaklarını kullanırlar. Bu da sınırlı Win9x'te. Aşağıdaki noktalara dikkat edin.

1. Kesin çözüm 2000 veya XP'ye terfi. Eğer işyeri ise güvenlik gibi başka nedenlerle bu en iyi çözüm olacaktır. Biliyorsunuz Win9x'in hedef kitlesi ev kullanıcıları.

2. Formları otomatik create etmeyin. Gerektiği zaman oluşturup işi bitince yok edin.

3. TWinControl'den türeyen bileşenler yerine grafik componentler kullanın. Mesela Panel yerine Bevel kullanın. Grafik componentlerin handle'ları olmadığı için Windows kaynaklarını kullanmazlar.

4. Kendi oluşturduğuz nesneleri yok edin. Mesela bir stringlist oluşturup, daha sonra yok etmezseniz program kapatılsa bile hafızada kalmaya devam eder. Aynı kodu programda bir çok kez çağırıyorsanız gerisini siz düşünün.

5. Windows'ta resource monitör isimli bir program var. Yüklü değilse Program ekle/Kaldır windows kısmından kurabilirsiniz. Burdan user ve gdi resource kısmını takip ederek nerelerde kaynakların kritik noktalara indiğini takip edip önlem alabilirsiniz.

6. Herşey yolunda olsa bile eğer bir formda çok fazla bileşen veya resim vs. varsa buda etkileyebilir. Geçenlerde birisi 1600 tane buton olan bir formdan bahsediyordu.

Başka bir uygulamayı kapatmak

Programatik olarak başka bir uygulamayı kapatmak için, uygulamay WM_QUIT mesajı göndermeniz lazım.

function KillApp(const sCapt: PChar) : boolean;

var AppHandle:THandle;

begin

AppHandle:=FindWindow(Nil, sCapt);

Result:=PostMessage(AppHandle, WM_QUIT, 0, 0);

end;

Kullanılışı :

if not KillApp('Pencere başlığı') then

ShowMessage('Uygulama kapatılamadı!');

CD'nin takılıp çıkarıldığından haberdar olma

Bunun için WM_DEVICECHANGE mesajlarını yakalamamız lazım.

private kısmına aşağıdaki satırı ekleyin :

procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;

bu da yakalama kısmı :

procedure TForm1.WMDeviceChange (var Msg: TMessage);

const

CD_IN = $8000;

CD_OUT = $8004;

var

Mesaj : String;

begin

inherited;

case Msg.wParam of

CD_IN : Mesaj := 'CD takıldı';

CD_OUT : Mesaj := 'CD çıkarıldı';

end;

ShowMessage(Mesaj);

end;

Sürücü (drive) tipini belirlemek

Formun üzerine bir memo ve bir buton koyun ve aşağıdaki kodu yazın.

procedure TForm1.Button1Click(Sender: TObject);

var

Drive: Char;

DriveLetter: String[4];

begin

for Drive := 'A' to 'Z' do

begin

DriveLetter := Drive + ':';

case GetDriveType(PChar(Drive + ':')) of

DRIVE_REMOVABLE: Memo1.Lines.Add(DriveLetter + ' Disket Sürücü(Floppy Drive)');

DRIVE_FIXED: Memo1.Lines.Add(DriveLetter + ' Sabit disk(Fixed Drive)');

DRIVE_REMOTE: Memo1.Lines.Add(DriveLetter + ' Ağ sürücüsü(Network Drive)');

DRIVE_CDROM: Memo1.Lines.Add(DriveLetter + ' CD-Rom(CD-ROM Drive)');

DRIVE_RAMDISK: Memo1.Lines.Add(DriveLetter + ' RAM Disk');

end;

Bir fontu (.ttf) Windows'a kurmadan uygulamanızda kullanma

Formun OnCreate ve OnClose olaylarına aşağıdaki kodları yazın.

procedure TForm1.FormCreate(Sender: TObject);

begin

AddFontResource('c:FONTSMyFont.TTF');

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

end;

procedure TForm1.FormClose (Sender: TObject; var Action: TCloseAction);

begin

RemoveFontResource('C:FONTSMyFont.TTF');

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

end;

Bir Klasördeki Dosyaları Başka Bir Klasöre Kopyalama

uses kısmına ShellApi unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

var

OpStruc: TSHFileOpStruct;

frombuf, tobuf: Array [0..128] of Char;

Begin

{The fillchars make sure the parameters are terminated by at least

two #0 characters, this is required since each parameter can hold

a list of zero-terminated strings, the extra #0 terminates the

list. }

fillChar( OpStruc, Sizeof(OpStruc), 0 );

FillChar( frombuf, Sizeof(frombuf), 0 );

FillChar( tobuf, Sizeof(tobuf), 0 );

StrPCopy( frombuf, 'c:deneme*.*' );

StrPCopy( tobuf, 'd:deneme' );

With OpStruc DO Begin

Wnd:= Handle;

wFunc:= FO_COPY;

pFrom:= @frombuf;

pTo:=@tobuf;

fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;

end;

ShFileOperation( OpStruc );

end;

Windows'un Özel Klasörlerini Açma

Aşağıdaki kodla Bilgisayarım, Masaüstü, Yazıcılar, Fontlar gibi özel Windows klasörlerini açabilirsiniz.

uses shellapi, ShlObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);

var

exInfo: TShellExecuteInfo;

Procedure FreePidl( pidl: PItemIDList );

Var

allocator: IMalloc;

Begin

If Succeeded(SHGetMalloc(allocator)) Then Begin

allocator.Free(pidl);

{$IFDEF VER90}

allocator.Release;

{$ENDIF}

End;

Begin

FillChar( exInfo, Sizeof(exInfo), 0 );

// initialize all fields to 0

With exInfo Do Begin

cbSize:= Sizeof( exInfo ); // required!

fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;

Wnd := Handle;

nShow := SW_SHOWNORMAL;

lpVerb := 'open';

ShGetSpecialFolderLocation( handle, CSIDL_DESKTOP , PItemIDLIst(lpIDList ));

End;

ShellExecuteEx( @exInfo );

FreePIDL( exinfo.lpIDList );

end;

Diğer özel klasörler : CSIDL_DESKTOP, CSIDL_PROGRAMS, CSIDL_CONTROLS, CSIDL_PRINTERS, CSIDL_PERSONAL,

CSIDL_STARTUP, CSIDL_RECENT, CSIDL_SENDTO, CSIDL_BITBUCKET, CSIDL_STARTMENU, CSIDL_DESKTOPDIRECTORY,

CSIDL_DRIVES (My Computer), CSIDL_NETWORK, CSIDL_NETHOOD, CSIDL_FONTS, CSIDL_TEMPLATES.

Delphi - .....................................

veritabanı ipuclari

//bende yeni yeni delphi ogrenmeye basladim ve buldugum dokumanlari sizlerle

//paylasmak istedim.maalesef tamamen c/p ama onemli olan dokumanlarin artmasi

Ş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

Session.AddPassword('şifre');

Table1.Active:=True;

Bir DBGrid’de birden fazla seçilen kayıtlara ulaşmak

Eğer grid’in MultiSelect özelliği True yapılmışsa ve grid’den rastgele iki veya daha fazla kayıt

seçilmişse seçilen kayıtlara aşağıdaki kod yardımıyla ulaşabilirsiniz.

procedure TForm1.BitBtn1Click(Sender: TObject);

var

Liste: TBookMarkList;

i: integer;

Kayit: TBookMark;

begin

Liste:=DBGrid1.SelectedRows;

for i:=0 to Liste.Count-1 do begin

Kayit:=TBookMark(Liste.Items[i]);

Table1.GotoBookmark(Kayit);

end;

Table'mı yoksa Query'imi kullanmalıyım

Lokal bir veritabanı ile çalışırken (Paradox, dBase gibi) Table kullanın.

Client/Server bir veritabanı (Oracle, Interbase, SQL Server, Sysbase gibi) ile çalışıyorsanız Query kullanın.

Bir tablodaki kayıtların StrinGrid bileşenine doldurulması

procedure TForm1.BitBtn1Click(Sender: TObject);

var

i,row:integer;

begin

Table1.First;

row := 0;

StringGrid1.RowCount := Table1.RecordCount;

while not Table1.EOF do

begin

for i := 0 to Table1.FieldCount-1 do

StringGrid1.Cells[i,row] := Table1.Fields[i].AsString;

Inc (row);

Table1.Next;

end;

{Bu ipucu Abdurrahman Sinanoğlu tarafından gönderilmiştir}

Bir tablonun alanlarını (field) bulma

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Open;

Table1.GetFieldNames(Listbox1.Items);

end;

{Bu ipucu Abdurrahman Sinanoğlu tarafından gönderilmiştir}

Paradox tablosuna şifre koyma

Bir paradox dosyasına şifre koymak için :

1. Database Desktop'u açın.

2. Şifre koymak istediğiniz paradox tablosunu açın.

3. Table menüsünde Restructure komutunu verin.

4. Gelen ekranda sağ üst köşedeki Table Properties kısmından Password Security'i seçin.

5. Define tuşuna basarak şifrenizi girin.

6. Yaptığınız değişiklikleri kaydedin.

Bir tablonun tüm alanları üzerinde işlem yapma

for i:=0 to Table1.FieldCount-1 do

....

Bir tabloyu baştan sona tarama

Table1.First;

while not Table1.EOF do

begin

...

Table1.Next;

end;

Mevcut alias'ların listesini alma

uses kısmına DBTables ekleyin. Combobox1'e mevcut listeyi almak için :

Session.GetDatabaseNames(Combobox1.Items);

Bir alias'taki tabloların listesini alma

Session.GetTableNames(Combobox1.Text, '', True, False, ListBox1.Items);

Parametreler sırasıyla veritabanının adı, filtre (sadece lokal veritabanları için),

tablo dosya uzantıları olacak mı?, sistem tabloları gösterilecek mi? (sadece SQL veritabanları) ve

listenin getirileceği yer.

Bir sonraki kayıt yerine 3 kayıt birden atlamak isterseniz

Table1.MoveBy(3);

Bir Paradox tablosunda en fazla kaç alan olabilir

En fazla 255 alan (field) olabilir.

BDE ile Oracle9i'yi kullanabilir miyim?

BDE artık gelişitirilmiyor. Son versiyonu 5.2 ise Oracle 8.0.4'ten 8.1.6'ya kadar destekliyor.

Oracle 9i için dbExpress kullanmalısınız.

dbGo nedir?

dbGO'nun diğer bir ismi ADO. Delphi 5 Enterprise ve Delphi 6 ve sonrasında Professional ve Enterprise sürümlerinde yer alıyor. Delphi 5 Professional'a da ayrıca kurulabiliyor. Diğer bir ismi de ADO Express.

dbExpress ile hangi veritabanlarına ulaşabilirim, Paradox, dBase tablolarına erişebilirmiyim?

dbExpress şu anda DB2, Interbase, MySQL, Oracle ve Informix ile çalışabiliyor. Delphi 7 ile birlikte

SQL Server 2000'de bu listeye dahil oldu.

dbExpress ile Paradox, dBase ve FoxPro tablolarını kullanamazsınız.

Geçici işlemler için tablo kullanma (memory table)

Bazen programda bilgilerinizi geçici olarak saklama ihtiyacı duyarsınız.

Memory Table'lar bu iş için biçilmiş kaftan. Şu an piyasadaki en iyi memory table bileşeni kbmMemTable ve bedava. Bileşeni sitesinden indirebilirsiniz : www.components4developers.com

Paradox Alternatifleri

Paradox tek kullanıcılı programlarda pek fazla problem çıkarmazken,

ağ ortamında eğer dikkatli kullanılmazsa tam bir başbelası.

Ayrıca BDE'nin artık geliştirilmiyor olması ayrı bir dezavantaj. Paradox yerine çeşitli 3. parti veritabanları kullanabilirsiniz.

Delphi veritabanı desteği yönünden çok geniş, ancak ben çok tutulan 2 bileşeni aşağıda belirttim.

- dbIsam ( www.elevatesoft.com ): Çok kullanıcı desteği var, ODBC desteği var, SQL desteği var,

teknik desteği çok iyi. dbIsam parayla satılıyor, sitesinden deneme sürümünü indirip deneyebilirsiniz.

- Easy Table ( www.aidaim.com ) : SQL desteği var, hızlı. Easy Table da parayla satılıyor, sitesinden deneme sürümünü indirip deneyebilirsiniz.

NOT : Bir de bedava bir çözüm olan TurboPower FlashFiler var. İyi bir veritabanı, bedava olması ve BDE gerektirmemesi de avantajları. Sitede 3. parti bileşenler kısmında, TurboPower yazısında detayları ve linki var.

Paradox veritabanına verileri yazdığım halde kayboluyor

- Paradox tablosuna yazdığınız veriler anında dosyaya kaydedilmez. Anında kayıt olmasını istiyorsanız BDE Administrator'dan Local Share özelliğini True yapın. (BDE Administrator - Configuration - System - INIT).

- Eğer cachedUpdates çalışmıyorsanız, Tablonun CachedUpdates özelliği False'mu dikkat edin.

- Bunların ikisi de işe yaramaz ise Table/Query bileşenini silip yeni bir bileşen koyup, onu ayarlayın.

dbGrid'te bir alanın değerine göre satırı renklendirme

Aşağıdaki kodla bu işi yapabilirsiniz. NO alanının değeri 100'den küçükse satır sarı,

100 ile 200 arası ise yeşil, 200 ile 300 arası ise kırmızı olur.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

MyValue: integer;

begin

if gdSelected in State then Exit;

MyValue := DBGrid1.DataSource.DataSet.FieldByName('NO').AsInteger;

if MyValue <100 then

DBGrid1.Canvas.Brush.Color := clYellow

else

if MyValue <200 then

DBGrid1.Canvas.Brush.Color := clGreen

else

if MyValue <300 then

DBGrid1.Canvas.Brush.Color := clRed;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

dbExpress ile SqlTable nesnesi ile veriyi değiştiremiyorum, "can not modify read only data set" hatası veriyor

SQL Table unidirectional bir dataset'tir. Yani birden fazla kayıtı hafızadaki buffer'da tutmaz. Bunlar da First ve Next metoduyla kayıtlar arasında gezebilirsiniz. Raporlama gibi işlemler için oldukça kullanışlıdır.

Eğer veriyi güncellemek istiyorsanız SQL komutları : UPDATE kullanmanız lazım. Delphi Yardımda detaylı bilgiler var, inceleyebilirsiniz.

Bir tablodaki kayıt sayısını bulma

Table kullanıyorsanız: RecordCount ile, Query kullanıyorsanız Count(*) ile tablodaki toplam kayıt sayısını bulabilirsiniz. Burda dikkat etmeniz gereken SQL veritabanlarında Table bileşeni ve RecordCount komutunu kullanmayın. Çünki bu durumda tablodaki tüm veriler client'a yüklenecek, gereksiz yavaşlama ve ağ trafiği oluşacaktır.

Table : Table1.RecordCount;

Query : SELECT COUNT(*) FROM TABLO_İSMİ

Paradox'ta silinen bir kaydı kurtarabilir miyim?

Paradox'ta silinen kayıtlar geri kurtarılamıyor. Silinen kayıtların üzerine boş bilgiler yazılıp yeni bir kayıt için ayrılıyor.

Paradox ile çalışıyorsanız, iyi bir yedekleme sistemi kurmalısınız.

dbGrid'e checkBox eklemek

1. Forma bir TcheckBox bileşeni koyun ve visible'ını False yap. Verdiğim kodda TcheckBox'ın ismi : Dbck

2. DBGrid1DrawColumnCell olayını aşağıdaki gibi ayarlayın.

3. DBGrid1ColExit olayını aşağıdaki gibi ayarlayın.

4. DBCheck.Click olayını aşağıdaki gibi ayarlayın.

procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

If (gdFocused in State) then

begin

// EXPRECORD is the name of the field to apply checkbox to

If(Uppercase(Trim(Column.FieldName)) = 'EXPRECORD' ) Then

begin

DBCk.Visible:=True;

DBCk.SetBounds(Rect.Left + DBGrid1.Left + 1,

Rect.Top + DBGrid1.Top + 1,

Rect.Right -Rect.Left,

Rect.Bottom - Rect.Top);

DBCk.Checked:=TBWorkingExpRecord.Value;

end;

procedure Tform1.DBGrid1ColExit(Sender: TObject);

begin

DBCk.Visible:=False;

end;

procedure Tform1.DBCkClick(Sender: TObject);

begin

// Set field value in table equivalent to the check

// We used TCheckbox instead of TDBCheckbox due to null

// value handling

Try

TBWorking.Edit;

TBWorkingExpRecord.Value:=DBCk.Checked;

TBWorking.Post;

Except

On E:EDatabaseError do Showmessage(E.Message);

End;

end;

Veritabanına jpeg resimleri kaydetme/okuma

Veritabanına aşağıdaki kodları kullanarak TImage ile jpeg'i kaydedip, tekrar okuyabilirsiniz. TDBImage jpeg ile çalışamaz!

jpeg'i kaydetme :

procedure TForm1.loadPic;

var

jpeg: TJPEGImage;

Stream: TMemoryStream;

BlobField: TBlobField;

begin

BlobField := table1.DataSet.FieldByName('Bild') as TBlobField;

jpeg := TJPEGImage.Create;

try

if (Image1.Picture.Graphic is TJPegImage) then begin

jpeg.Assign (ImageFoto.Picture.Bitmap);

end;

Stream := TMemoryStream.Create;

try

jpeg.SaveToStream (Stream);

DataSourceForm.DataSet.Edit;

BlobField.LoadFromStream (Stream);

finally

Stream.Free;

end;

finally

jpeg.Free;

end;

Veritabanındaki jpeg'i TImage'a alma

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);

var

MS: TMemoryStream;

J1: TJPEGImage;

begin

J1 := TJPEGImage.Create;

MS := TMemoryStream.Create;

try

TBlobField(DataSet.Fieldbyname('myBlob')).SaveToStream(MS);

MS.Seek(0,soFromBeginning);

with J1 do begin

PixelFormat := jf24Bit;

Scale := jsFullSize;

Grayscale := False;

Performance := jpBestQuality;

ProgressiveDisplay := True;

ProgressiveEncoding := True;

LoadFromStream(MS);

end;

if MS.Size >0 then

Image1.Picture.Assign(J1)

else

Image1.Picture.Assign(nil);

finally

J1.Free;

MS.Free;

end;

Renkleri veritabanına kaydetmek

I. Yol : Renkleri integer tipinde bir alana kaydedebilirsiniz.

Veritabanına kaydetmek için : Table1.FieldByName('ColorField').AsInteger := Integer(AColor);

Veritabanından okumak için : AColor := TColor(Table1.FieldByName('ColorField').AsInteger);

II.Yol : StringToColor ve ColorToString döünüşümlerini yaparak string bir alana kaydedebilirsiniz.

DataModule kullanıyorum, "Access Violation" hatası alıyorum

Access Violation olmayan, henüz oluşturulmamış bir nesneye ulaşmak isterseniz çıkar. Mesela 10 öğeli bir dizide 11. öğeye ulaşmaya çalışırsanız, bu hata çıkar. 11. öğe yok çünki.

Bu hata, büyük ihtimalle ana formu datamodule'den önce create ettiğiniz için oluşuyor. Project -> View Source ile dpr dosyasını açıp, datamodule'ü en üstte taşıyın, ilk önce data module oluşturulsun.

SQL sorgusu ile tablomdan NO isimli alanı seçerken problem çıkıyor

Alan isimlerini verirken, NO, NOT vb. ayrılmış kelimeleri (reserved words) kullanmamalısınız. Bu kelimelerin tamamını kullandığınız veritabanının dökümanlarından öğrenebilirsiniz.

AutoInc bir alanda silinen kayıtlar için yeniden sıralama yapmak istiyorum

Bu hiç uygun bir yol değil. Hele ki bu auto increment alanları key olarak kullanıyorsanız, zaten AutoInc alanlara müdahele edemezsiniz.

Kullanıcı sıraladığında bir atlayarak gözüksün, ne farkeder. Bence pek farkeden birşey olmaz. Kullanıcı sizden bu tip isteklerde bulunuyorsa yönlendirmeniz lazım, olmaz diye. Zaten çoğu yerde göstermenize bile gerek yok. Genelde takip için başka alanlar olduğu için ben genelde bu alanları grid'te ve formda gizlerim. Öğrenciyse okul no, çalışansa sicil no vs. gibi.

Bu tip alanları autoinc yerine kendiniz artırıyor olsanız bile, yeniden sıralama yoluna gitmeyin. Giderseniz başınız ağrıyabilir.

Programımı hızlandırmak için neler yapabilirim

1. Sorgulama, Sıralama ve gruplama için çok kullandığın alanları indeksle. Mesela genelde kayıtlarını tarih'e göre süzüyorsan, Tarih alanını indeksle.

2. Sadece gerekli alanları seç. Mesela bir tabloda 15 alan var ve sana sadece 4 tanesi yetiyor ise, "SELECT *" ile tüm alanları seçmek yerine, "SELECT ALAN1, ALAN2, ALAN3, ALAN4" gibi sadece gerekli alanları seç.

3. BLOB alan kullanıyorsan sorguda bunları seçmemeye gayret et.

4. ve en önemlisi ne kadar az kayıt seçebiliyorsan o kadar iyi ve hızlı olur. Mesela fatura girişi yaparken tüm fatura tablosunu seçmek yerine sadece 1 kayıt seçebilirsin.

5. Eğer veritabanınız destekliyorsa mümkün olduğu kadar veritabanı bazlı çalışın, trigger ve stored procedure kullanın.

Table'daki bir blob alanın büyüklüğünü bulma

function GetBlobSize(Field: TBlobField): Longint;

begin

with TBlobStream.Create(Field, bmRead) do

try

Result := Seek(0, 2);

finally

Free;

end;

Kullanılışı : Edit1.Text := IntToStr(GetBlobSize(Notes));

DBGrid'de Aktif Satırın İstenen Renge Boyanması

var

Form1: TForm1;

implementation

type

TCustomDBGridCracker = class(TCustomDBGrid); // datalink'i kullanabilmemiz için şart

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

with TCustomDBGridCracker(DBGrid1) do

if DataLink.ActiveRecord = Row - 1 then

Canvas.Brush.Color := clRed

else

Canvas.Brush.Color := clWhite;

DBgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

dBase Kullanırken Oluşan Temp Dosyalar

Veritabanı olarak dBase kullanıyorsanız ve _qsql000.dbf , _qsql213.dbf bunlar gibi temp dosyalar oluşabilir. Eğer tablolara query'lerle ulaşıyorsan bu tip temp tabloların oluşması normaldır. Program normal şekilde sonlandırıldığında silinmeleri gerekir. Yoksa programı kapatırken o tip dosyaları aratıp sildirebilirsiniz.

Paradox Tablosunda "index out of range" Hatası

index out of date hatası, tablodaki veri ile index arasında uyşmazlık olduğu zaman meydana çıkan bir hata. Bu durumu düzeltmek için indexi kaldırıp tekrar oluşturun.

Bu hatanın oluşmasına sebep olan 8 neden tespit edilmiş. Aşağıdaki linkten detaylara bakabilirsiniz :

http://bdn.borland.com/article/0,1410,15209,00.html

"Capability not supported" hatası

Bu mesajı genelde büyük veritabanlarından farklı özellikteki sql ifadelerini database desktop gibi bir uygulamada çalıştırmak istediğinizde karşınıza çıkar. Böyle bir durumla karşılaşmamak için uygulamanızda kullandığınız database'in toolları ile denemek istediğiniz şeyleri yapabilirsiniz (Sql Server-Query Analyzer, Oracle-Sql Plus veya 3rd parti programlar)

Programınız içinde BDE kullanıyorsanız Database nesnesini eksik etmeyin...

Paradox'ta Bozulan Indekslerin Düzeltilmesi

http://www.borland.com/devsupport/bde/files/tutil50.zip

dosyasını indirin. Bu Borland'ın paradox tablolarındaki problemleri düzeltmek için yayınladığı bir dll.

http://www.borland.com/devsupport/bde/files/tutil32d.zip

bu dosyayı da indirin. Bunda da hem dll'in nasıl kullanılacağını gösteren kaynak kod var, hem de exe dosya olarak direk çalışabilir hali var. Tablolarınızı kurtarıp, daha sonra bu dll ile programınıza index düzeltme seçeneği koyabilirsiniz.

NOT : çalıştırmadan önce yedek almayı unutmayın.

Query'de Sonuçlar Salt Okunur (Read Only) Dönüyor

Query nesnesinde sonuçlar salt okunur olarak döner (AdoQuery hariç!). Eğer SQL cümleciğiniz basit ise Query'nin RequestLive özelliğini True yaparak, Query'i yazma/okuma durumuna alabilirsiniz. Ancak karmaşık SQL cümlelerinde bu işe yaramayacaktır. Bunun için TUpdateSQL bileşenini kullanmalısınız.

Interbase için ODBC Driver

http://www.ibphoenix.com/ adresinden Main Downloads kısmına girin. ODBC kısmından IBPhoenix Open Source ODBC Driver'a tıklayın.

ADO'da Sorgu Çalışırken İptal Etme

1. Query'de ExecuteOptions =[eoAsyncFetchNonBlocking] yapın.

2. OnFetchProgressEvent olayında aşağıdaki komutu yazın.

DataSet.Recordset.Cancel;

NOT : tabii Application.ProcessMessagess komutunu vermeyi unutmayın.

View nedir ve niçin kullanılır?

view'lar bir veya birden fazla tablodan verileri çekmek için; bir SQL cümlesi ile oluşturulan sanal bir tablodur. Bu tablo veya tablolara kayıt eklendikçe, ilgili view'da kayıtları görebilirsiniz. View'daki bilgiler veritabanında depolanmaz, ilgili tablolardan alınır. Ne işe yarar:

1. Birden fazla tablodan kolayca veri çekmek için. Mesela Rapor oluşturmak veya acemi programcıların işini kolaylaştırmak için.

2. Bazı bilgileri gizlemek için. Mesela personel tablonuz var. Tüm alanlar görünsün ancak maaş kısmı görünmesin istiyorsunuz. Bu tip durumlarda faydalı olur.

3. Tabloyla birlikte bir takım bilgiler göstermek için kullanışlı olabilir. Mesela bazı alanları toplamı veya bu alanlardan en büyüğü, en küçüğünü göstermek gibi.

Query'deki SQL cümlesini kontrol etmek

Eğer SQL cümlesini kod ile oluşturyorsanız, bir hata durumunda oluşan SQL cümleciğini görüp, hatayı tespit etmek isteyebilirsiniz. Bu durumda kodda SQL cümlesini ekledikten sora Open/ExecSQL komutunu vermeden şu satırı yazın. Bu size Query'nin içinde oluşan SQL cümlesini gösterir.

ShowMessage(Query1.SQL.Text);

DBGrid'te satır numarası oluşturma

Bunun için kullandığınız table'da bir calculated alan oluşturun, mesela SIRANO olsun. Daha sonra Table'ın OnCalcFields olayına aşağıdaki kodu yazın:

Table1.FieldByName('SIRANO').AsInteger := Table1.RecNo + 1;

FireBird/Interbase veritabanı ve tabloları oluşturma

Bunun için veritabanı ile birlikte gelen IB Console programını kullanabilirsiniz. Ancak bu pek kullanışlı değildir. Piyasada bu işi yapan birçok araç var. Bunlardan en iyileri :

* IB Expert : www.ibexpert.com - Personal sürümü ücretsiz.

* EMS Interbase Manager : www.ems-hitech.com

Bu araçlar ile veritabanı, tablo, index oluşturma, kayıtları görme vs. gibi komple veritabanı yönetim işlemlerini yapabilirsiniz.

dBase ve paradox tablolarının pack edilmesi

dBase'de bir kayıtı sildiğiniz zaman fiziksel olarak silinmez, dosya da kalır. Pack işlemi silinen ama hala dosyada duran kayıtları fiziksel olarak siler ve dosyanın boyutunu küçültür.

Paradox'ta da kayıt silindiği zaman fiziksel olarak silinmez ancak sonraki yapılan kayıtlar, bu silinen kayıtların üzerine kaydedildiğinden paradox tablolarında, pack işlemi pek gerekli değildir.

dBase'de pack işlemini, Borland'ın yayınladığı kodlarla yapabilirsiniz. Şu iki dosyayı indirin :

http://www.borland.com/devsupport/bde/delphi_controls/table_pack/tablpack.zip

http://www.borland.com/devsupport/bde/delphi_controls/table_pack/packex.zip

Paradox için BDE Alias'ı Oluşturma

* BDE Administrator'ü açın. Denetim Masası veya Delphi linklerinden

* Object -> New komutunu verin

* Database Driver Name'de STANDART seçili olsun, OK'a basın

* Alias'a istediğiniz bir isim verin, enter'a basın

* Path kısmından tabloların olduğu klasörü seçin

* Object -> Apply komutunu verin.

Datamodule nedir ve Niçin Kullanılır

Datamodule özel bir formdur ve görünmeyen (non visual) bileşenleri birden fazla formdan ortak kullanmak için tercih edilir. Bunlarda genelde veritabanı bileşenleridir. Mesela bir datamodüle koyduğunuz bir table bileşenini birçok formdan kullanabilirsiniz. Tabi illa veritabanı bileşeni olması gerekmiyor. Diğer görünmeyen bileşenleride datamodule'e koyabilirsiniz.

Paradox'ta Bilgilerin Kaybolması

Elektirik kesintisi gibi durumlarda paradox tablosundaki verilerin kaybını önlemek için :

Uses a BDE ekleyin ve her table veya query nin afterpost olayına aşağıdaki kodu yaz. Bir daha elektrik kesilmesinden etkilenmezsin ve index bozulmalarıda yaşamazsınız.

try

DBISaveChanges((DataSet As TBDEDataSet).Handle)

except

On EDatabaseError do

ShowMessage('Tabloya Kaydetme hatası !...');

end;

DisableControls-EnableControls

Mesela bir tabloda kayıtları baştan sonra tarıyorsanız, bu kodları yazmazsanız, geçerli kayıtın bilgileri bağlı DBEdit, DBGrid vs. de güncellenir. Bu hem görüntü açısından hoş olmuyor, hem de işlemi yavaşlatıyor. Bu kodları yazarsanız bağlı bileşenlerle irtibat kesiliyor ve bu olumsuzluklar olmuyor, tekrar bağlıyorsunuz.

Open ile ExecSql arasındaki fark nedir?

Delphi'de Query'ler iki şekilde açılabilir : Open veya ExecSql. Peki ne zaman Open, ne zaman ExecSql kullanılır? Bu çalıştırdığınız SQL cümlesine bağlı. Eğer SQL cümlesi sonuçta size kayıt(lar) döndürüyorsa Open kullanmalısınız. Mesela SQL cümleniz "SELECT *..." gibi ise. Eğer SQL cümleniz hiçibr kayıt döndürmüyorsa, ExecSQL kullanmalısınız. Mesela UPDATE, INSERT, DELETE gibi bir sql cümlesi yazmışsanız.

Database'i açtığım anda Login ekranı çıkmasın

TDatabase nesnesi veya benzer işlevi gören (mesela TAdoConnection) bir bileşeni açtığınız zaman karşınıza Login ekranı gelir ve sizden kullanıcı ismi ile şifre girmeniz istenir. Bu ekranın çıkmaması için LoginPrompt özelliğini False yapın.

DBLookupComboBox'ın içerisini temizlemek

Delphi'de temel kural olarak, DB bileşenlere (DBEdit, DBLookupComboBox vs) atama yapmayın, ilgili field'a atama yapın. DBLokupComboBox'ın içeriğini temizlemek için KeyValue'sinin değerini null yapın. Örneğin PERSONEL tablosunda BOLUM_NO alanına karşılık BOLUM_ADINI getiriyorsanız :

PERSONELBOLUM_NO.Clear;

Tekrarlanan kayıtları tespit etme

Bazı kayıtlardan çift ise problem çıkartabilir. Bu tip kayıtları SQL ile çok kolay bir şekilde tespit edebilirsiniz. Mesela PERSONEL tablosunda, birden fazla aynı isme sahip kayıtları dökmek için :

SELECT AD_SOYAD, COUNT(*)

FROM TABLO_ADI

GROUP BY AD_SOYAD

HAVING COUNT(*)>1

Delphi - .....................................