Delphi ile oluşturduğumuz exe dosya içerisine dosya gömme işlemi yapabiliriz. Bu işlemi
(*.RES) resource kullanarak yapabiliriz.
Böylece API tarafından bizim oluşturduğumuz farklı yapıdaki dosya yapıları kullanılabilir.
Bu dosyaları kaynaklarından direkt olarak (API) çağırabilir.
Aşağıda farklı yapılardaki dosyalara erişimlere örnekler vereceğiz.
Öncelikle Resource dosya oluşturmakla başlayalım. (*.RC) tanımlı olarak oluşturduğumuz dosyaya
”RESOURCES.RC” adını verelim. Basit bir text dosyası olarak oluşturabiliriz.
Bu dosya için bir isim, veri tipi ve dosyanın adını içerir: *)
sample_bmp BITMAP sample.bmp
sample_ico ICON sample.ico
sample_cur CURSOR sample.cur
sample_ani ANICURSOR sample.ani
sample_jpg JPEG sample.jpg
sample_wav WAVE sample.wav
sample_txt TEXT sample.txt
Yukarıda tipleri belirtilmiş kaynak dosyalar ve tipleri veriliyor. Dosyalar öncelikel .RES içerisinde ifade edilip daha sonra (derleme) işlemi ile oluşturulan Delphi (exe) dosyasına aktarılıyor.
“.RC” dosyamızı compile ederek .RES dosyasına çevirmemiz gerekiyor. Delphi, programımızı compile ederken bizim oluşturduğumuz .RES dosyasını okur ve ona göre (dosya gömme) embedding işlemi yapar. Resource compile işlemi için (brcc32.exe) dosyasını kullanacağız. Bu dosyayı “DelphiBin” klasöründe bulabilirsiniz. Komut satırından kolay bir kullanımı var:
C:DELPHIBIN>brcc32 resources
C:DELPHIBIN>brcc32 resources
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Yaptığımız dosyayı projemize tanıtmak için aşağıdaki kodu kullanabiliriz:
{$R resources.res}
Programımıza resource dosyalarını tanıtmak için handle lardan faydalanabiliriz:
Diğer kaynakları yonetmek bir miktar daha karmaşık. JPEG dosyalar ile başlayalım. Aşağıdaki function kaynak veriyi çağırmak için TResourceStream kullanıyor ve TJPEGImage nesnesine bağlanıyor.
function GetResourceAsJpeg(const resname: string): TJPEGImage;
Fonksyonun kullanımına örnek aşağıdaki kodu örnek verebiliriz :
var
Jpg: TJPEGImage;
begin
// ...
Jpg := GetResourceAsJpeg('sample_jpg');
Image2.Picture.Bitmap.Assign(Jpg);
Jpg.Free;
// ...
end;
WAV uzantılı dosyalarını hafızadan çağırmak için pointer kullanmak gerekiyor. Text dosyaları için ise kaynağı string olarak çağırmamız gerekiyor. Bu işlemler için API ile TResourceStream kullanacağız.
function GetResourceAsPointer(ResName: pchar; ResType: pchar;
Wave dosyalarını kullanırken ‘MMSystem’ uniti içerisinden API destekli sndPlaySound fonksyonunu kullanırız. Örneğin:
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(sample_wav, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
end;
Kimi kaynakları memoryden çağırarak kullanamayız. Bu kaynaklara font bilgilerini ve animated cursor örneklerini verebiliriz. Tercih edilen yöntem bu kaynakların geçici dosya olareak kaydedilip bu kaynaktan kullanılmasıdır. Aşağıda bu konu ile ilgili örnek bulunmakta:
with TResourceStream.Create(hInstance, ResName, ResType) do
try
SaveToFile(FileName);
finally
Free;
end;
end;
Temp (geçici) dosya oluşturulması örneği:
function SaveResourceAsTempFile(const ResName: string;
ResType: pchar): string;
begin
Result := CreateTempFile;
SaveResourceAsFile(ResName, ResType, Result);
end;
Aşağıdaki örnek kodda oluşturulan animated cursor geçici dosyası kullanılıyor ve siliniyor. Kayıt için tani temp dosyası oluşturmak için SaveResourceAsTempFile kullanılıyor. Ve bu dosyayı kullanmak için de LoadImage fonksyonu kullanılıyor sonunda da dosya siliniyor. Ayrıca oluşacak hataların da kontrolü sağlanıyor. Bu işlemi de GetLastError ile yapıyoruz.
function GetResourceAsAniCursor(const ResName: string): HCursor;
Ya bu findfiles bir eklenti herhalde. Kompenent yani. Ben delphi de bu kompenenti bulamadım. Arkadaşlar lütfen yardımcı olabilir misiniz? Bu komponent sonradan mı yükleniyor yoksa biz mi bulamadık?
Delphi - .....................................
MSSQL 2000 TARİH BİLGİLERİ
fuatkilinc41@hotmail.com / Altuniş Bİlgisayar ve Yazılım / Balıkesir
Fast Date Ranges Without Loops In SQL Server 2000
The trick to create date ranges without loops is to use a pivot table.
How does this work? Run the code below and you will see, only create the pivot table once and run all the other code seperately
-- Create out Pivot table ** do this only once-- populate it with 1000 rows
CREATE TABLE NumberPivot (NumberID INT PRIMARY KEY)
DECLARE @intLoopCounter INT
SELECT @intLoopCounter =0
WHILE @intLoopCounter <=1000
BEGIN
INSERT INTO NumberPivot
VALUES (@intLoopCounter)
SELECT @intLoopCounter = @intLoopCounter +1
END
GO
--Last 10 years from today
SELECT DATEADD(yy,-numberID,GETDATE())
FROM dbo.NumberPivot
WHERE NumberID < 10
--Next 10 years from today
SELECT DATEADD(yy,numberID,GETDATE())
FROM dbo.NumberPivot
WHERE NumberID < 10
--Next 100 months from today
SELECT DATEADD(mm,numberID,GETDATE())
FROM dbo.NumberPivot
WHERE NumberID < 100
-- next 100 weeks from 2000-01-01
DECLARE @dtmDate DATETIME
SELECT @dtmDate = '2000-01-01 00:00:00.000'
SELECT DATEADD(wk,numberID,@dtmDate)
FROM dbo.NumberPivot
WHERE NumberID < 100
-- next 100 quarters from today
SELECT DATEADD(qq,numberID,GETDATE())
FROM dbo.NumberPivot
WHERE NumberID < 100
Delphi - .....................................
Bilgisayarı Hibernate Moduna almak (BİLGİSAYARI HAZIRDA BEKLETMEK) yada bilgisayarı tv gibi açıp kap
uses shellapi;
bunu kullanmadan önce ilgili bilgisayarda denetim masasına girmeliyiz oradan güç seçeneklerine girmeliyiz ve son olarak da
"Hazırda bekletmeyi Etkinleştir" isimli kutuyu işaretlemeliyiz.
listbox içinde sadece bilgisayarda açık olan word programlarının listelenmesi
bu kodlar, o anda bilgisayarınızda açık olan word dosyalarının isimlerini listeler. word programının classname'i "OpusApp" dir.
function EnumWindowsProc2 (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
Var
Title : PChar;
vc:string;
cName : Array[0..63] of Char;
begin
Result := True;
if (IsWindowVisible(Wnd)) and((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or(GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and(GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin
function EnumWindowsProc2 (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
Var
Title : PChar;
vc:string;
cName : Array[0..63] of Char;
begin
Result := True;
if (IsWindowVisible(Wnd)) and((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or(GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and(GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin
Title:=StrAlloc(255);
GetWindowText(Wnd,Title,255);
GetClassName(wnd, cName, 64);
vc:=strpas(cName);
if (ansilowercase(vc)='opusapp')then begin
form1.listbox1.items.add(StrPas(Title));
StrDispose(Title);
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
listbox1.Clear;
EnumWindows(@EnumWindowsProc2,0);
end;
end.
Delphi - .....................................
ipuçları
Ş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
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.
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.
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.
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.
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 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.
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.
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.
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.
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.
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.
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 :
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...
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.
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.
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.
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.
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'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 :
