MYSQL5+ZEOS komponentinde türkçe karakter sorunu
//ZeosConnection1.Properties'e tıklatıp
//açılan pencereye
codepage=latin5 //yazıyoruz ve artık grid edit ve tüm komponentlerde türkçe karakterler görünebiliyor.
Delphi - .....................................
MYSQL5+ZEOS komponentinde türkçe karakter sorunu
//ZeosConnection1.Properties'e tıklatıp
//açılan pencereye
codepage=latin5 //yazıyoruz ve artık grid edit ve tüm komponentlerde türkçe karakterler görünebiliyor.
Delphi - .....................................
işinize yarayabilecek ufak tefek fonksiyonlar
//------------MoRFiN------------
//Bu du kodlaarın tamamını mehmet.pas isimli bi dosyaya kaydedin ve delphinin kurlu olduğu
//klasördeki lib klasörüne atın
//Kullanmak için de formlarınızın uses bölümüne mehmet ekleyin bu kadar.
unit Mehmet;
{$H+}
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
DB, Dialogs, ComCtrls, Menus;
type
TFormSil= Procedure(FormAdi: TForm; StrForm: String);
TSonGunAl=Function(Ay, Yil: Integer): Word;
TGunlukOran=Function(Tarih: TDate): Real;
TBoolToInt=Function(Bool: Boolean): Integer;
TIntToBool=Function(Sayi: Integer): Boolean;
TTabloKaydet=procedure(DataSet: TDataSet);
TTabloAc=procedure(DataSet: TDataSet);
TFormOlustur=Procedure(FormAdi: TForm; TFormAdi: TComponentClass; StrForm: String);
TExeDir=function: String;
TTabloKapat=procedure(DataSet: TDataSet);
procedure FormSil(FormAdi: TForm; StrForm: String);
procedure FormOlustur(FormAdi: TForm; TFormAdi: TComponentClass; StrForm: String);
function IntToBool(Sayi: Integer): Boolean;
function BoolToInt(Bool: Boolean): Integer;
function SonGunAl(Ay, Yil: Integer): Word;
Procedure TabloKaydet(DataSet: TDataSet);
procedure TabloAc(DataSet: TDataSet);
function GunlukOran(Tarih: TDate): Real;
function ExeDir: String;
procedure TabloKapat(DataSet: TDataSet);
{ Public Declarations }
implementation
function ExeDir: String;
begin
Result:= ExtractFileDir(Application.ExeName);
end;
function IntToBool(Sayi: Integer): Boolean;
begin
Case Sayi of
0: Result:= False;
1: Result:= True;
end;
end;
function BoolToInt(Bool: Boolean): Integer;
begin
Case Bool of
True: Result:= 1;
False: Result:= 0;
end;
end;
//(Ay'ın son gününü alır)
function SonGunAl(Ay, Yil: Integer): Word;
begin
if (Ay in [1, 3, 5, 7, 8, 10, 12]) then
begin
Result:= 31;
end else
if (Ay in [4, 6, 9, 11]) then
begin
Result:= 30;
end else
if (Ay = 2) then
begin
if (Yil mod 4) = 0 then
begin
Result:= 29;
Exit;
end;
Result:= 28;
end;
end;
function GunlukOran(Tarih: TDate): Real;
var
Gun, Ay, Yil: Word;
Bolen: Integer;
begin
DecodeDate(Tarih, Yil, Ay, Gun);
Bolen:= SonGunAl(Ay, Yil);
Result:= Gun/Bolen;
end;
Procedure FormSil(FormAdi: TForm; StrForm: String);
begin
if Application.FindComponent(StrForm) <> Nil then
TForm(FormAdi).Free;
end;
//MDI form uygulamalarda en büyük yardımcınız olacak
procedure FormOlustur(FormAdi: TForm; TFormAdi: TComponentClass; StrForm: String);
begin
if Application.FindComponent(StrForm) = Nil then
begin
Application.CreateForm(TFormAdi, FormAdi);
end;
TForm(Application.FindComponent(StrForm)).Show;
end;
Procedure TabloKaydet(DataSet: TDataSet);
begin
if DataSet.Modified then
DataSet.Post;
end;
procedure TabloAc(DataSet: TDataSet);
begin
if not DataSet.Active then
DataSet.Open;
end;
procedure TabloKapat(DataSet: TDataSet);
begin
if DataSet.Modified then
DataSet.Post;
if DataSet.Active then
DataSet.Close;
end;
end.
Delphi - .....................................
Başlama sırasında kod ile ekranda nesne oluşturma
Delphide çalışma anında forma nesne eklemek kolaydır.
Örneğin program başlarken ekrana 2 adet button ekleyen kod şu şekildedir:
Program kodunda değişiklik yaparak başlangıç yerine istenen anda buton oluşturma yapılabilir.
Button yerine başka nesnelerde oluşturulabilir.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure TusClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Tuslar:Array[1..10]of TButton;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
Begin
Tuslar[1]:=TButton.Create(Form1);
Tuslar[1].Setbounds(10,10,70,30); //Buton konumu
Tuslar[1].Parent:=Form1;
Tuslar[1].caption:='Yeni Buton1';
Tuslar[1].OnClick:=TusClick;
Tuslar[2]:=TButton.Create(Form1);
Tuslar[2].Setbounds(90,10,70,30); //Buton konumu
Tuslar[2].Parent:=Form1;
Tuslar[2].caption:='Yeni Buton2';
Tuslar[2].OnClick:=TusClick;
end;
procedure TForm1.TusClick(Sender: TObject);
begin
if sender=Tuslar[1] then Messagedlg('1 nolu butona basıldı',mtinformation,[mbok],0);
if sender=Tuslar[2] then Messagedlg('2 nolu butona basıldı',mtinformation,[mbok],0);
end;
end.
Delphi - .....................................
MsSQL Server Tarih Formatı Değiştir
SET DATEFORMAT DMY
Delphi - .....................................
MsSQL Server Dili Geçici Olarak Değiştir
SET LANGUAGE Turkish
Delphi - .....................................
MsSQL Server Dili Kalıcı Olarak Değiştir
sp_defaultlanguage 'sa' , Turkish
Delphi - .....................................
MsSQL Server Dili Göster
SELECT @@LANGUAGE AS 'Language Name'
Delphi - .....................................
Tablodaki En Büyük Ve En Küçük Kayıt Numarası
select max(sno) from ....... En Büyüğü
select min(sno) da enküçüğü
Delphi - .....................................
Msn Apilerini Delphide Kullanma
Gerekli Type Libray ve Event Componentini Kaynak Merkezi - Bileşen Bölümünde Bulabilirsiniz.
http://forums.msnfanatic.com/index.php?showtopic=11757 Sitesinden MSN Type Librarylerini indirin.
Project ->import type library
TYPELIB_1.tlb
install
sırayla TYPELIB_7.tlb e kadar bütün dosyaları import edin.
Not : 5 te hata [ ] leri ( ) yaparsanız hatayı giderebilirsiniz.
--- MSN Durumunu Değiştirme
uses MessengerAPI_TLB;
procedure TForm1.Button3Click(Sender: TObject);
begin
MessengerAPI_TLB.CoMessenger.Create.MyStatus := MISTATUS_//;
end;
Kullanılabilir Durumlar :
MISTATUS_ONLINE (online)
MISTATUS_BE_RIGHT_BACK (be right back)
MISTATUS_BUSY (busy)
MISTATUS_AWAY (away)
MISTATUS_ON_THE_PHONE (on the phone)
MISTATUS_OUT_TO_LUNCH (out to lunch)
MISTATUS_INVISIBLE (appear offline)
MISTATUS_OFFLINE (not signed in)
MISTATUS_LOCAL_FINDING_SERVER
MISTATUS_LOCAL_CONNECTING_TO_SERVER
MISTATUS_LOCAL_SYNCHRONIZING_WITH_SERVER
MISTATUS_LOCAL_DISCONNECTING_FROM_SERVER
--- Bağlı Kullanıcının Bilgilerini Alma
uses MessengerAPI_TLB;
procedure TForm1.Button3Click(Sender: TObject);
var
MyFriendlyName: String;
MySigninName: String;
NumberOfEmails: Integer;
ReceivedFilesDir: String;
Status: String;
Messenger: IMessenger3;
begin
//Create the IMessenger component.
Messenger := MessengerAPI_TLB.CoMessenger.Create;
//Assign the correct values to the variables we created.
MyFriendlyName := Messenger.Get_MyFriendlyName;
MySigninName := Messenger.Get_MySigninName;
NumberOfEmails := Messenger.UnreadEmailCount[0];
case Messenger.MyStatus of
MISTATUS_ONLINE: Status := 'Çevimişi';
MISTATUS_INVISIBLE: Status := 'Çevrim Dışı';
MISTATUS_BUSY: Status := 'Meşgul';
MISTATUS_BE_RIGHT_BACK: Status := 'Hemen Dönecek';
MISTATUS_IDLE: Status := 'Meşgul';
MISTATUS_AWAY: Status := 'Dışarıda';
MISTATUS_ON_THE_PHONE: Status := 'Telefonda';
MISTATUS_OUT_TO_LUNCH: Status := 'Öğle Yemeğinde';
end;
memo1.clear;
memo1.lines.add('Görüntü İsmi : '+MyFriendlyName);
memo1.lines.add('Bağlantı İsmi : '+MySigninName);
memo1.lines.add('Mail Sayısı : '+inttostr(NumberOfEmails));
memo1.lines.add('Alınan Dosyalar Klasörü : '+ReceivedFilesDir);
memo1.lines.add('Durum : '+Status);
end;
--- Konuşma Penceresi Açma
uses MessengerAPI_TLB;
var
User: String;
begin
MessengerAPI_TLB.CoMessenger.Create.InstantMessage(User); //mail adresi
end;
--- Kullanıcı İleti Geçmişini Görüntüleme
uses MessengerAPI_TLB;
procedure TForm1.Button5Click(Sender: TObject);
var
User: String;
Messenger: IMessenger3;
MsgrIMWindow: ImessengerConversationWnd;
begin
memo2.Clear;
Messenger := MessengerAPI_TLB.CoMessenger.Create;
MsgrIMWindow:=IMessengerConversationWnd(Messenger.InstantMessage(User));
Memo2.Lines.add(MsgrIMWindow.History);
end;
--- Msn Api Olaylarını Kullanma
http://www.tycooneden.com/delphi/MessengerAPIEvents.zip -> Adresinden MessengerAPIEvents
Componentini indirerek yükleyin.
--- Kontak Listesini Alma
uses MessengerAPI_TLB;
procedure TForm1.Button6Click(Sender: TObject);
var
msnContacts : IMessengerContacts;
msnContact : IMessengerContact;
SignInList, FriendlyNameList: TStringList;
n : Integer;
begin
msnContacts := IMessengerContacts(MessengerAPI_TLB.CoMessenger.Create.MyContacts);
SignInList := TStringList.Create;
FriendlyNameList := TStringList.Create;
for n := 0 to msnContacts.Count - 1 do
begin
msnContact := IMessengerContact(msnContacts.Item(n));
SignInList.Add(msnContact.SigninName);
FriendlyNameList.Add(msnContact.FriendlyName);
end;
SigninList.Free;
FriendlyNameList.Free;
end;
Delphi - .....................................
Şifre Değiştirme Eski Şifreyi sorarak
procedure TRDegistirForm.BitBtn2Click(Sender: TObject);
begin with DataForm Do
begin
if tblSifrelerFINISAJRECETESIFRE.Value<>eEski.Text then
begin
ShowMessage('Eski Şifreyi Yanlış Girdiniz Lütfen Kontrol Edin.!');
end
else if eYSifre.Text=eYTekrar.Text then
begin
tblSifreler.Edit;
tblSifrelerFINISAJRECETESIFRE.Value := eYSifre.Text;
tblSifreler.Post;
TTABAKHANE.CommitRetaining;
tblSifreler.Refresh;
RDegistirForm.Close;
eEski.Text:=''; eYSifre.Text:=''; eYTekrar.Text:='';
ShowMessage('Şifreniz Değişti.! [ Lütfen Yeni Şifrenizi Unutmayın.! ]');
end
else if eYSifre.Text<>eYTekrar.Text then
begin
ShowMessage('Girdiğiniz Yeni Şifrenizin Tekrarı Yanlış Lütfen Kontrol Edin.!');
end;
end;
end;
Delphi - .....................................
Listboxda item'ları mouse ile sürükleyip yer değiştirmek(Winamp Gibi) hata düzeltildi
//------------MoRFiN------------
//----cw_morfin@msn.com---------
//---declared@celikforum.info---
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ii: integer;
secili: boolean;
implementation
{$R *.dfm}
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i: integer ;
begin
i:= ListBox1.ItemAtPos(Point(x,y), True);
if (ii=i) then
Exit;
if secili then
if (i=(ii-1)) or (i=(ii+1)) then
begin
secili:= false;
ListBox1.Items.Move(ii, i);
ii:= i;
Secili:= true;
end;
end;
procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
secili:= false;
ListBox1.Cursor:= crDefault;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
secili:= false;
end;
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Secili:= true;
ii:= ListBox1.ItemIndex;
end;
end.
Delphi - .....................................
Listboxda item'ları mouse ile sürükleyip yer değiştirmek(Winamp Gibi)
//------------MoRFiN------------
//----cw_morfin@msn.com---------
//---declared@celikforum.info---
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CiaListBox;
type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ii: integer;
secili: boolean;
implementation
{$R *.dfm}
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i: integer ;
begin
i:= ListBox1.ItemAtPos(Point(x,y), True);
if (ii=i) then
Exit;
if secili then
if (i=(ii-1)) or (i=(ii+1)) then
begin
secili:= false;
ListBox1.Items.Move(ii, i);
ii:= i;
Secili:= true;
end;
end;
procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
secili:= false;
ListBox1.Cursor:= crDefault;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
secili:= false;
end;
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Secili:= true;
ii:= ListBox1.ItemIndex;
end;
end.
Delphi - .....................................
Pointer tipleri ve kullanımlarına örnekleri
Pointer tipleri ve kullanımlarına örnekler:
Integer tipinde değişkenler ve pointerler arasındaki işlemler:
var
X, Y: Integer; // X ve Y Integer değişkenler
P: ^Integer; // P ise Integer Pointer'dir
begin
X := 17; // X değişkeninin değeri 17 ayarlanıyor
P := @X; // X'in değişken adresi P Pointerine atanıyor
Y := P^; // P Pointerinin gösterdiği adresteki değer Y değişkenine aktarılıyor
end;
Diğer değişken ve Pointer işlemleri:
type
PInteger = ^Integer; // PInteger Integer şeklinde pointer olarak tanımlanıyor
var
R: Single; // R Single tipinde değişken
I: Integer; // I Integer tipinde değişken
P: Pointer; // P Pointer
PI: PInteger; // PI Integer tipinde Pointer. Dahah önce tanımlanmıştı
begin
...
P := @R; // R değişkeninin adresi P pointerine atanıyor
PI := PInteger(P); // P pointeri PI pointerine eşitleniyor. Değişken tipinde uygunlaştırılıyor.
I := PI^; // I değişkenine PI pointerinin adresindeki değer atanıyor
end;
Delphi - .....................................
Pointer tipleri ve kullanımlarına örnekleri
Pointer tipleri ve kullanımlarına örnekler:
Integer tipinde değişkenler ve pointerler arasındaki işlemler:
var
X, Y: Integer; // X ve Y Integer değişkenler
P: ^Integer; // P ise Integer Pointer'dir
begin
X := 17; // X değişkeninin değeri 17 ayarlanıyor
P := @X; // X'in değişken adresi P Pointerine atanıyor
Y := P^; // P Pointerinin gösterdiği adresteki değer Y değişkenine aktarılıyor
end;
Diğer değişken ve Pointer işlemleri:
type
PInteger = ^Integer; // PInteger Integer şeklinde pointer olarak tanımlanıyor
var
R: Single; // R Single tipinde değişken
I: Integer; // I Integer tipinde değişken
P: Pointer; // P Pointer
PI: PInteger; // PI Integer tipinde Pointer. Dahah önce tanımlanmıştı
begin
...
P := @R; // R değişkeninin adresi P pointerine atanıyor
PI := PInteger(P); // P pointeri PI pointerine eşitleniyor. Değişken tipinde uygunlaştırılıyor.
I := PI^; // I değişkenine PI pointerinin adresindeki değer atanıyor
end;
Delphi - .....................................
Nesne Arama..
function TForm1.NesneKontrol(Nesne:TClass):Boolean;
var i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do begin
if Components[i].ClassType =Nesne then
Result:=True
else
Result:=False;
end;
end;
Kullanımı :
if NesneKontrol(TQuery) then
ShowMessage('Bulundu')
else
ShowMessage('Yok');
Açıklama :
Formda bulunan query nesnesini arar ;
Not (TQuery) clasını değiştirdiğiniz zaman istenilen nesneyi arar..
Bu Kod için
bakisoft@hotmail.com Arkadaşımıza tşk ederiz.
Delphi - .....................................
Nesne Arama..
function TForm1.NesneKontrol(Nesne:TClass):Boolean;
var i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do begin
if Components[i].ClassType =Nesne then
Result:=True
else
Result:=False;
end;
end;
Kullanımı :
if NesneKontrol(TQuery) then
ShowMessage('Bulundu')
else
ShowMessage('Yok');
Açıklama :
Formda bulunan query nesnesini arar ;
Not (TQuery) clasını değiştirdiğiniz zaman istenilen nesneyi arar..
Bu Kod için
bakisoft@hotmail.com Arkadaşımıza tşk ederiz.
Delphi - .....................................
SQL Server - Triger
Triger ile yeni kaydedilen faturaya kayıt tarihinin (server tarihi) eklenmesi
CREATE TRIGGER [Fatura_I] ON [dbo].[Fatura]
WITH EXECUTE AS CALLER
FOR INSERT
AS
BEGIN
/* kayıttarihi */
update Fatura
set Fatura.KayitTarihi=GETDATE()
from inserted;
END
Delphi - .....................................
Server Date
Salam Arkadaslar. Necesiniz?
Bilen varsa lutfen tecili olarq yardim etsin.
Serverin date - sini almak isteyirem. nece ede bilerem. Cevab gozleyirem
Delphi - .....................................
Memo Alanı DBGridde Gösterme
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Trim(Column.Field.AsString));
end;
Delphi - .....................................
cxgrid to excel
uses
cxExportGrid4Link;
SaveDialog1.Execute;
if SaveDialog1.FileName <> '' then
begin
ExportGrid4ToExcel(SaveDialog1.FileName ,cxGrid1,False,True,True,'xls');
end;
Delphi - .....................................
bir çeşit delay (geliştirilmiş hali)
daha önce bi arkadaş göndermişti, biraz geliştirdim
sleep yerine kullanın; cins = milisaniye, saniye, dakika
Yazan = Hüseyin KELEŞ -- 2006
type
TSure = (milisaniye, saniye, dakika);
procedure bekle(sure:Integer;cins:TSure);
begin
case cins of
milisaniye : Sleep(sure);
saniye : Sleep(sure*1000);
dakika : Sleep(sure*60000);
end;
Application.ProcessMessages;
end;
Delphi - .....................................
türkçe karakterleri ingilizce karakterlere çevir
{türkçe karakterleri ingilizce karakterlere çevirir
örn. Hüseyin KELEŞ = Huseyin KELES gibisinden
Yazan = Hüseyin KELEŞ -- 2006}
function tr2eng(yazi:string):string;
const
turkharfler = 'çğıöşüÇĞİÖŞÜ';
ingharfler = 'cgiosuCGIOSU';
var
i:integer;
begin
result:=yazi;
for i := 0 to length(yazi) do
if pos(yazi[i],turkharfler)>0 then
result[i]:=ingharfler[pos(yazi[i],turkharfler)];
end;
Delphi - .....................................
