Programlama yapalım ve Öğrenelim.

DBGrid'e kayıt bazında CheckBox Ekleme ,Renklendirme ,Resim ekleme,Yazı Fontunu Değiştir

Grid üzerinde yapılabilecek database uygulamalarına örnek.

mbedtr@hotmail.com(Mücahit Bedir)

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect Rect, int DataCol, TColumn *TColumn, TGridDrawState State)

{

if (CompareText(Column->FieldName, "alan") == 0) {

UINT check = 0;

if (Table1->FieldValues["alan"])

check = DFCS_CHECKED;

DBGrid->Canvas->FillRect(Rect);

DrawFrameControl(DBGrid1->Canvas->Handle, (RECT*) &Rect, DFC_BUTTON, DFCS_BUTTONCHECK | check);

} else

DBGrid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

//--------------------------------------------------------------------------------------------------

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect Rect, int DataCol, TColumn *TColumn, TGridDrawState State)

{

TDBGrid *grid = static_cast<TDBGrid*>(Sender);

if (Column->FieldName != "")

grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

else if (tbEmpleados->FieldValues["alan"] >= 150000)

grid->Canvas->StretchDraw(Rect, Image1->Picture->Graphic);

else

grid->Canvas->StretchDraw(Rect, Image2->Picture->Graphic);

}

//------------------------------------------------------------------------------------

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect& Rect, int DataCol, TColumn *Column, TGridDrawState State)

{

TDBGrid *grid = static_cast<TDBGrid*>(Sender);

TFontStyles FS;

switch (grid->DataSource->DataSet->UpdateStatus()) {

case usModified: FS << fsBold; break;

case usInserted: FS << fsItalic; break;

case usDeleted: FS << fsStrikeOut; break;

}

grid->Canvas->Font->Style = FS;

grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

//---------------------------------------------------------------------------------------

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect Rect, int DataCol, TColumn *TColumn, TGridDrawState State)

{

TDBGrid *grid = static_cast<TDBGrid*>(Sender);

if (Tablo->FieldValues["alan"] >= Tablo->FieldValues["alan"])

grid->Canvas->Font->Color = clRed;

grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

C++ Builder - .....................................

DBGrid'e kayıt bazında CheckBox Ekleme ,Renklendirme ,Resim ekleme,Yazı Fontunu Değiştir

Grid üzerinde yapılabilecek database uygulamalarına örnek.

mbedtr@hotmail.com(Mücahit Bedir)

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect Rect, int DataCol, TColumn *TColumn, TGridDrawState State)

{

if (CompareText(Column->FieldName, "alan") == 0) {

UINT check = 0;

if (Table1->FieldValues["alan"])

check = DFCS_CHECKED;

DBGrid->Canvas->FillRect(Rect);

DrawFrameControl(DBGrid1->Canvas->Handle, (RECT*) &Rect, DFC_BUTTON, DFCS_BUTTONCHECK | check);

} else

DBGrid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

//--------------------------------------------------------------------------------------------------

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect Rect, int DataCol, TColumn *TColumn, TGridDrawState State)

{

TDBGrid *grid = static_cast<TDBGrid*>(Sender);

if (Column->FieldName != "")

grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

else if (tbEmpleados->FieldValues["alan"] >= 150000)

grid->Canvas->StretchDraw(Rect, Image1->Picture->Graphic);

else

grid->Canvas->StretchDraw(Rect, Image2->Picture->Graphic);

}

//------------------------------------------------------------------------------------

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect& Rect, int DataCol, TColumn *Column, TGridDrawState State)

{

TDBGrid *grid = static_cast<TDBGrid*>(Sender);

TFontStyles FS;

switch (grid->DataSource->DataSet->UpdateStatus()) {

case usModified: FS << fsBold; break;

case usInserted: FS << fsItalic; break;

case usDeleted: FS << fsStrikeOut; break;

}

grid->Canvas->Font->Style = FS;

grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

//---------------------------------------------------------------------------------------

void __fastcall TForm1::DBGridDrawColumnCell

(TObject *Sender, const TRect Rect, int DataCol, TColumn *TColumn, TGridDrawState State)

{

TDBGrid *grid = static_cast<TDBGrid*>(Sender);

if (Tablo->FieldValues["alan"] >= Tablo->FieldValues["alan"])

grid->Canvas->Font->Color = clRed;

grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

C++ Builder - .....................................

Exe ye SWF Gömme

Bir ara internette bunu nasıl yapabileceğim konusunda araştırma yapmama rağmen, tam olarak bilgi alamadım. Bilgileri birleştirdiğimde birkaç denemelerime rağmen sonuca ulaşabildim. http://www.enderarslanturk.com.tr kişisel siteme bu makaleyi açtıktan sonra delphici arkadaşlar makalenin aynen örneğini diğer topluluklarda yayınlamışlardır. Fakat kodbankasına baktığımda hayrete düştüm. Buraya bu makale atılmamış ve dedimki en iyi kendi makalemi kendim koymalıyım.

-------------------------------------------------------------------------

Exe ye swf gömmek için sırası ile

---------------------------------

1. adım : swf mizi c: kopyalıyoruz. ( Swf mizin adı Deneme olsun.)

2. adım : Başlat tan çalıştıra geliyoruz ve command yazıp enter a

basıyoruz.

3. adım : Yine diskimizin root una geliyoruz ( c: ) ve burada copy con

Deneme.rc yazıp entera basın. Imleç bir alt satıra geçiyor. Burayada

deneme rcdata deneme.swf yazdıktan sonra klavyemizin ctrl + z tuşlarına

basarak rc dosyamızı oluşturalım.

4. adım : Tekrar root tayken brcc32 deneme.rc yazarak entera basıyoruz.

Delphi komutu otomatik olarak bize .res dosyasını oluşturuyor.

5. adım : Delphiyi açtıktan sonra formun oncreate veya onshow olayına

aşağıdaki kodumuzu yapıştırıyoruz.

var

rStream: TResourceStream;

fStream: TFileStream;

fname: string;

begin

fname:=ExtractFilePath(Application.ExeName)+'deneme.swf';

rStream := TResourceStream.Create(hInstance, 'deneme', RT_RCDATA);

try

fStream := TFileStream.Create(fname, fmCreate);

try

fStream.CopyFrom(rStream, 0);

finally

fStream.Free;

end;

finally

rStream.Free;

end;

ShockwaveFlash1.Stop;

ShockwaveFlash1.Movie:=fname;

ShockwaveFlash1.play;

end;

tabii {$R *.Dfm} ifadesinin altına {$R deneme.res} yazmayı ve uses e

mmsystem eklemeyide unutmayalım.

Buraya kadar :) Ama bunun için Delphiden activex bileşeni olan

ShockwaveFlash kurulmalıdır. Eğer bu delphiye install edilmemiş ise o

zaman durmadan adımlara devam.

6. adım : Delphi menüsünden Component --> Import ActiveX Contol... -- >

Shockwave Flash (Versiyon 1.0) seçilerek Install tuşuna basılır. Burada

şunu belki hatırlatmama gerek yok ama bilmeyenler olabilir diye küçük

birşey daha belirtmek istiyorum, Install butonuna basmadan önce

isterseniz bu bileşenin kütüphanenin hangi sekmesinde olacağına siz karar

verebilirsiniz. Bunun için Palette Page açılır kutusundan ( Combobox )

istediğiniz sekmeyi seçip öyle Install edebilirsiniz...

Hepinize çalışmalarınızda başarılar dilerim.

Ender ARSLANTÜRK

http://www.enderaRslanturk.com.tr

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

Api Search Engine

PROGRAM Project;

USES

APISearchEngine;

CONST

MessageBoxA = $572D5D8E; //?Crc32??

VAR

MessageBox:FUNCTION(hWnd:DWORD;lpText,lpCaption:PChar;uType:DWORD) : Integer; STDCALL;

LoadLibrary:FUNCTION(lpLibFileName: PChar): HMODULE; stdcall;

Function IntToStr(Value: Integer): String;

begin

Str(Value, Result);

end;

BEGIN

BuildCRC32Table;

@LoadLibrary:=MyLoadLibraryA;

MessageBox:=GetProcAddress(LoadLibrary('user32.dll'),MessageBoxA);

Messagebox(0,Pchar('LoadLibraryA:'+IntToStr(integer(MyLoadLibraryA))),'Message',0);

END.

----------------

UNIT APISearchEngine;

{$WARNINGS OFF}

INTERFACE

type

DWORD=LongWord;

PROCEDURE BuildCRC32Table;

FUNCTION CalculateCRC32(VAR Buffer;CONST Size:DWORD) : DWORD;

FUNCTION GetProcAddress(Module:Cardinal;ProcessCRC:DWORD) : Pointer;

FUNCTION MyLoadLibraryA:Pointer;

IMPLEMENTATION

CONST

IMAGE_DIRECTORY_ENTRY_EXPORT = 0;

SIZE_OF_80387_REGISTERS = 80;

IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16;

MAX_API_STRING_LENGTH = 150;

IMAGE_DOS_SIGNATURE = $5A4D;

IMAGE_NT_SIGNATURE = $00004550;

MIN_KERNEL_SEARCH_BASE = $70000000;

TYPE

PImageDosHeader =^TImageDosHeader;

TImageDosHeader = PACKED RECORD

e_magic : WORD;

e_cblp : WORD;

e_cp : WORD;

e_crlc : WORD;

e_cparhdr : WORD;

e_minalloc : WORD;

e_maxalloc : WORD;

e_ss : WORD;

e_sp : WORD;

e_csum : WORD;

e_ip : WORD;

e_cs : WORD;

e_lfarlc : WORD;

e_ovno : WORD;

e_res : ARRAY [0..3] OF WORD;

e_oemid : WORD;

e_oeminfo : WORD;

e_res2 : ARRAY [0..9] OF WORD;

_lfanew : LongInt;

END;

PImageFileHeader =^TImageFileHeader;

TImageFileHeader = PACKED RECORD

Machine : WORD;

NumberOfSections : WORD;

TimeDateStamp : LongWord;

PointerToSymbolTable : LongWord;

NumberOfSymbols : LongWord;

SizeOfOptionalHeader : WORD;

Characteristics : WORD;

END;

PImageDataDirectory =^TImageDataDirectory;

TImageDataDirectory = RECORD

VirtualAddress : LongWord;

Size : LongWord;

END;

PImageOptionalHeader =^TImageOptionalHeader;

TImageOptionalHeader = PACKED RECORD

Magic : WORD;

MajorLinkerVersion : Byte;

MinorLinkerVersion : Byte;

SizeOfCode : LongWord;

SizeOfInitializedData : LongWord;

SizeOfUninitializedData : LongWord;

AddressOfEntryPoint : LongWord;

BaseOfCode : LongWord;

BaseOfData : LongWord;

ImageBase : LongWord;

SectionAlignment : LongWord;

FileAlignment : LongWord;

MajorOperatingSystemVersion : WORD;

MinorOperatingSystemVersion : WORD;

MajorImageVersion : WORD;

MinorImageVersion : WORD;

MajorSubsystemVersion : WORD;

MinorSubsystemVersion : WORD;

Win32VersionValue : LongWord;

SizeOfImage : LongWord;

SizeOfHeaders : LongWord;

CheckSum : LongWord;

Subsystem : WORD;

DllCharacteristics : WORD;

SizeOfStackReserve : LongWord;

SizeOfStackCommit : LongWord;

SizeOfHeapReserve : LongWord;

SizeOfHeapCommit : LongWord;

LoaderFlags : LongWord;

NumberOfRvaAndSizes : LongWord;

DataDirectory : PACKED ARRAY[0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES-1] OF TImageDataDirectory;

END;

PImageNtHeaders =^TImageNtHeaders;

TImageNtHeaders = PACKED RECORD

Signature : LongWord;

FileHeader : TImageFileHeader;

OptionalHeader : TImageOptionalHeader;

END;

PImageExportDirectory =^TImageExportDirectory;

TImageExportDirectory = PACKED RECORD

Characteristics : LongWord;

TimeDateStamp : LongWord;

MajorVersion : WORD;

MinorVersion : WORD;

Name : LongWord;

Base : LongWord;

NumberOfFunctions : LongWord;

NumberOfNames : LongWord;

AddressOfFunctions :^PLongWord;

AddressOfNames :^PLongWord;

AddressOfNameOrdinals :^PWord;

END;

VAR

CRC32TAB : ARRAY[0..255] OF DWORD;

PROCEDURE BuildCRC32Table; ASSEMBLER;

ASM

mov ebx, 0EDB88320h

lea edi, crc32tab

xor ecx, ecx

@loc1:

mov eax, ecx

mov edx, 8

@loc2:

test eax, 1

jz @loc3

shr eax, 1

xor eax, ebx

jmp @loc4

@loc3:

shr eax, 1

@loc4:

dec edx

jnz @loc2

stosd

inc ecx

cmp ecx, 256

jb @loc1

END;

FUNCTION CalculateCRC32(VAR Buffer;CONST Size:DWORD) : DWORD; ASSEMBLER;

ASM

push esi

push edi

push ebx

mov edi,edx

mov esi,eax

xor ebx,ebx

mov eax,$ffffffff

mov ecx,edi

shr ecx,2

jecxz @Rest

@Loop:

mov edx,[esi]

mov bl,al

xor bl,dl

shr eax,8

xor eax,dword ptr [CRC32tab+ebx*4]

mov bl,al

xor bl,dh

shr eax,8

xor eax,dword ptr [CRC32tab+ebx*4]

shr edx,16

mov bl,al

xor bl,dl

shr eax,8

xor eax,dword ptr [CRC32tab+ebx*4]

mov bl,al

xor bl,dh

shr eax,8

xor eax,dword ptr [CRC32tab+ebx*4]

add esi,4

loop @Loop

@Rest:

mov ecx,edi

and ecx,3

jecxz @End

@Loop_Rest:

mov bl,al

xor bl,[esi]

shr eax,8

inc esi

xor eax,dword ptr [CRC32tab+ebx*4]

loop @Loop_Rest

@End:

xor eax,$ffffffff

pop ebx

pop edi

pop esi

END;

//------------------------------------------------------------------------------

FUNCTION GetProcAddress(Module:Cardinal;ProcessCRC:DWORD) : Pointer;

VAR

ExportName : pChar;

Address : Cardinal;

J : Cardinal;

ImageDosHeader : PImageDosHeader;

ImageNTHeaders : PImageNTHeaders;

ImageExportDirectory : PImageExportDirectory;

BEGIN

ImageDosHeader:=Pointer(Module);

ImageNTHeaders:=Pointer(Module+ImageDosHeader._lfanew);

ImageExportDirectory:=Pointer(ImageNtHeaders.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress+Module);

J:=0;

Address:=0;

REPEAT

ExportName:=Pointer(Cardinal(Pointer(Cardinal(ImageExportDirectory.AddressOfNames)+Module+J*4)^)+Module);

IF CalculateCRC32(ExportName^,Length(ExportName))=ProcessCRC THEN

Address:=Cardinal(Pointer(Word(Pointer(J SHL 1+Cardinal(

ImageExportDirectory.AddressOfNameOrdinals)+Module)^) AND

$0000FFFF SHL 2+Cardinal(ImageExportDirectory.AddressOfFunctions)

+Module)^)+Module;

Inc(J);

UNTIL (Address<>0)OR(J=ImageExportDirectory.NumberOfNames);

Result:=Pointer(Address);

END;

FUNCTION MyLoadLibraryA:Pointer;

const

MyLoadLibraryA=$3FC1BD8D;//LoadLibraryA?Crc32??

asm

mov eax,fs:$30

mov eax,[eax + $0c]

mov esi,[eax + $1c]

lodsd

mov eax,[eax+$08]

mov edx,MyLoadLibraryA

call GetProcAddress

end;

END.

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

MediaPlayer Geri Kalan Süre

Bunun için önce bir fonksiyon yazacağız..

function MilliSecondsToString(MilliSeconds: integer): string;

var i1, i2: integer;

begin

i1:=(MilliSeconds div 1000) div 60;

i2:=(MilliSeconds div 1000)-(i1*60);

Result:=FormatFloat('00',i1)+':'+FormatFloat('00',i2);

end;

Ve Formunuza 3 tane label yerleştirin.

Bunlardan birisi Şarkının süresini

ikincisi Şarkının şu anki zamanını

Sonuncusu ise geri kalan zamanı gösterecek...

Tüm süre için:

süre.Caption:=MilliSecondsToString(Mediaplayer1.Length);

Şu anki zaman için:

simdi.Caption:=MilliSecondsToString(mediaplayer1.position);

Kalan süre:

kalan.Caption:=MilliSecondsToString(mediaplayer1.Length-mediaplayer1.Position);

timer1.inteval:=100; gibi bir ayarlama ile her 100 milisaniyede bir bu değişkenler

gerekli Label nesnelerine yazdırılacaktır...

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

Trafik.gov.tr Adres araç sorgulama

Trafik.gov.tr delphı kullanarak araç sorgulama işi nasıl yapılabilinir.

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

c++ de istedigin frekansta ses uretmek

#include <iostream>

#include <windows.h> // WinApi header

using namespace std;

int main()

{

Beep(523,500); // 523 hertz (C5) for 500 milliseconds

Beep(587,500);

Beep(659,500);

Beep(698,500);

Beep(784,500);

cin.get(); // wait

return 0;

}

C++ Builder - .....................................

Ne dinliyorum özelliği

//www.delphiturkiye.com/forum

// @mege

procedure CurrentPlay(ARTIST: string;bStop:boolean);

var

handleMSN:THandle;

structCopy:TCopyDataStruct;

stringBuffer:array [0..127] of WideChar;

begin

ARTIST:= copy(ARTIST,1,75);

FillChar(stringBuffer,SizeOf(stringBuffer),#0);

if Not bStop then

StringToWideChar('Music'+'1'+''+'{0}'+''+ARTIST+''+'WMContentID'+#0,@stringBuffer[0],128)

else // parça stop edildi ise

StringToWideChar('Music'+'0'+''+'{0}'+''+ARTIST+''+'WMContentID'+#0,@stringBuffer[0],128);

// orjinal hali

//StringToWideChar('Music'+'1'+''+'{0} - {1}'+''+ARTIST+''+TITLE+''+ALBUM+''+'WMContentID'+#0,@stringBuffer[0],128);

ZeroMemory(@structCopy,SizeOf(TCopyDataStruct));

with structCopy do

begin

cbData:=SizeOf(stringBuffer);

dwData:=$547;

lpData:=@stringBuffer[0];

end;

handleMSN:=FindWindowEx(0,0,'MsnMsgrUIManager',nil);

while handleMSN <> 0 do

begin

SendMessage(handleMSN,WM_COPYDATA,0,Integer(@structCopy));

handleMSN:=FindWindowEx(0,handleMSN,'MsnMsgrUIManager',nil);

end;

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

Save Dialog

Etdiyiniz komekliye gore size tesekkur edirem.

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

Bir çeşit delay!

//Ben çok çektim bu sleep olayında %100 cpu kullanınca hiçbir işlem yapılamıyordu.

//Sonradan bu kodu uyguladım ve ne kadar sürelik sleep istiyorsam o kadar döngüye soktum.

procedure delay;

begin

sleep(100);

Application.ProcessMessages;

end;

//Bir dakikalık sleep için bunu 600 kez döndürürseniz size 1 dklık bir sleep olur.

//Windows uygulamalarını da çalıştırırken 0.1 snlik bir duraksama engel olmaz.

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

Formun başlığına kayan yazı eklemek

var

Form1: TForm1;

a: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

a := 'Ne mutlu Türküm diyene!...';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

i: Integer;

begin

Application.Title := a;

Form1.Caption := a;

for i := 1 to (Length(a) - 1) do

a[i] := Application.Title[i + 1];

a[Length(a)] := Application.Title[1];

end;

end.

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

SaveDialog_Cevap

procedure TForm1.SaveDialog1Show(Sender: TObject);

var

r: TRect;

Left, top: Integer;

begin

Left:=200; // Bu left

top:=100; // Bu right

with sender as topendialog do begin

GetWIndowRect( GetParent( handle ), r );

MOveWindow( GetParent( handle ),

Left, top, r.right-r.left,

r.bottom-r.top, true );

Abort;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

savedialog1.Execute;

end;

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