Bir programcının günlüğü

asp.net Chrome asp.menu düzgün çalışmıyor.

2009-08-20T13:55:00.002+02:00

App_Browser yaratın ve ismini Chrome.browser yapın. İçeriği şu şekilde olsun.

browsers

browser refID="safari1plus"

controlAdapters

adapter controlType="System.Web.UI.WebControls.Menu" adapterType="" /

/controlAdapters

/browser

/browsers

Kolay gelsin :)

asp.net IE8 Popup menu görünmeme sorunu

2009-08-20T08:12:00.002+02:00

asp.net menu kontrolünü kullandığınızda IE8'de alt kırılımlarının gelmediğini görürsünüz. IE8 Compatible seçerseniz görünür ama bu sadece o kullanıcı içindir. Buna gerek kalmadan kod içerisinde yapacağınız küçük bir değişiklikle bu sorunu halledebilirsiniz.

.x_menu

{

z-index:1000;

}

yaratın ve bunu <DynamicMenuStyle CssClass="x_menu" /> içinde kullanın.

kaynak:http://dotnetgurus.net/post/2009/05/05/Internet_Explorer_80_da_Pop-Out_Menu_Gorunmeme_Sorunu.aspx

TC KİMLİK CHECKSUM

2009-02-19T15:46:00.002+02:00

T.C. Kimlik numarasının doğru olup olmadığını nasıl nvi.gov.tr bağlanmadan doğru olup olmadığını nasıl anlarız?

Kimlik numarası:28593578232 olsun. Tc Kimlik son iki hanesi checksum dır. 3 ve 2

önce sırasıyla tekli sıradakiler toplanır:2+5+3+7+2=19

sonra çiftli sıradakiler toplanır:8+9+5+8=30

deger1=19*3+30

check1=(10-(deger1 mod 10)) mod 10=3

deger2=(check1+30)*3+19=118

check2=(10-(deger2 mod 10)) mod 10=2

Netbeans iReport

2008-08-08T09:37:00.001+02:00

iReport wizard verdiği dosya isminin sonu ".jsxml" ile birmezse iReport Designer çalışmıyor sadece "XML" dosyası görünüyor...

Lazarus

2008-07-31T08:03:00.003+02:00

Lazarus, www.lazarus.freepascal.org

C derleyicileri gibi derlenen kodu her platformda çalıştırmak yerine her platformda derleme yap o platforma uygun binnary dosya üret mantığında üretilmiş bir açık kaynak kodlu uygulama geliştirme programı. Bir ortamda geliştirdiğiniz bir Delphi uygulamasını WIN32/64,OS/2,MAC ve LINUX farklı platformlarda derleyebiliyorsunuz ve her platforma göre çalıştırılabilir kod üretebiliyorsunuz. WINCE için uygulama geliştirebiliyorsunuz. Delphi kadar component sayısı çok değil fakat hergün yeni bir component çıkıyor. Lazarus geliştirilmesi kararlı bir şekilde devam ediyor, açık kaynak kodlu olduğu için bir çok programcının desteği var. Ubuntu LINUX,WINXP,VISTA üzerinde sorunsuz çalışıyor. Delphi'den vaz geçmek istemeyen ve farklı platformlar için uygulama geliştirmek isteyenler için gerçekten işe yarıyacak bir program.(Özellikle LINUX) Geliştirenlere çok teşekkürler. Çok sorun oluşturacak bir Bug'a sahip değil uygulama geliştirmeye rahatlıkla başlıyabilirsiniz.

Donanım sırları

2008-05-14T07:42:00.002+02:00

Bir Pentium 4 processor 3.8 GHz işlemcinin 115W enerji sarf ettiğini söyledik. Eskiler de 3 ile 6 W arasındaydı. Yüksek "W" çok ısı demektir. İşlemcinizin ısısını kabul edilebilir değerlerde tutmak, hem performans hemde işlemcinin arızalanmaması için önemlidir. Eskiden işlemciler ısınınca kendini hemen kapatır ve korumaya alırdı. Şimdilerde önce hızını düşürür baktı hızı düşürmek ısıyı istenilen konuma getirmedi bu sefer kendini kapatır. Bunu yapmazsa derinlerden bir "çııt" sesi duyarsınız sonra etrafa hoş bir koku yayılır :) Güzel büyük kaliteli bir işlemci fanı seçin ve mutlaka termal macun kullanın artık aldığını kaliteli işlemci fanlarında macunuda yanında veriliyor. Buda nedir diye atmayın mutlaka terman macunu işlemci ile fan arsına sürün. Termal macun ısının daha az kayıpla ve daha hızlı soğutucu fana iletilmesini sağlar. Çoğu BIOS işlemci ısısı, fan devir sayısı v.s. bilgileri "Healt" başlığı altında size gösterir yada bazı yazılımlar bu değerleri size okur ve anında gösterir hatta ısıdeğerleri aşılırsa sizi uyarır v.s. Zaman, zaman BIOS setup girip işlemci ısınız kontrol edin. Mutlaka yılda bir sefer makinanız içindeki işlemci fanını temizleyin. Ordaki plastik aksam elektiriklenme v.s. (Negatif iyon olayı) tozların üzerine tutumasına neden olur. Tozlanan kanallar hava sirkülasyonunu engeller ve soğutma işleminin kaliyesi düşer. 30-50YTL fazla para vermekten kaçınmayın Düzgün kaliteli bir işlemci fan'ı alın. Bu ufak miktar makinanızı daha büyük masrafardan korur. Araba lastikleri gibi. Hava Subap'ları ara, ara kontrol edilmeli ve yenilenmelidir. 5YTL birşey. Bu ufak masrafaı yapmazsanız yolda giderken tekerler sönüverir ve 5YTL kaçayım derken 100YTL lastik parası verirsiniz :)

Donanım sırları

2008-05-14T07:28:00.002+02:00

486Dx2 66 Mhz işlemciler 3 ve 6W gücünde enerji sarfiyatı vardı. Şimdilerde ise Pentium 4 processor 3.8 GHz yaklaşık 115W harcar! Ekran kartlarıdan da aynı yükselmeler geçerli. İş böyle olunca biri size 300W'lık bir beselemesi olan sistem önerirse kesinlikle kabul etmeyin. Bütün parçaların yan, yana koyduğunuz ve sarfiyatlarını topladığınızda 300W'lık bir beselemenin yetmediğini görürsünüz. Genel ucuza aldığınız ve üzerinde 300W yazan ürünlerde hiçbir zaman gerçek 300W çalışmazlar kısa sürede güçleri düşer. Peki 300W kullanırsanız nemi olur? Besleme ısınır ve değer kaybetmeye başlar donanım içerisindeki voltaj değerleri düşmeye başlar. Sistem kendini sıksık resetler, donup kalır, harddisk bad sector üretmeye başlar, main board yanar memoryler hasar görür v.s v.s. 50YTL den kaçayım derken 1000YTL lik tamir ücreti ödersiniz. 50 - 60YTL fazla vermekten çekinmeyin 450W'lık bir beslemesi olan kasa alın.

Netbeans 6.1 Otomatik code üretmiyor.

2008-04-29T14:59:00.002+02:00

Netbeans 6.0 ve öncesinde web projesi için JSF framework seçtiğinizde ve dizayn sırasında örneğin bir textField koyduğunuzda kod içerisinden textField1.setText("Merhaba") şeklinde herhangi birşey yapmadan nesne özelliklerine ulaşabiliyordunuz. Netbeans 6.1'den itibaren kod içerisinde bu tip bir işlem yapmak istiyorsanız ilgili nesnenin üzerine gelip "Add Binding Attribute" seçmeniz gerekiyor. Bu sayede gereksiz kod satırlarından kurtulmak hedeflenmiş. Uygulamanızda sadece DataBinding ile veriye ulaşıyorken ayrıca Binding Attribute yaratılmaması sağlanmış ve tercih kullanıcıya bırakılmış.

Netbeans 6.1 Beta

2008-03-19T17:20:00.002+02:00

Gerçekten hızlı açılıyor ve az memory kullanıyor. Bu verisyonu yükleyin bence şiddetle tavsiye ediyorum...

LOBJECTS CAPI

2008-02-28T08:25:00.002+02:00

Unity veri tabanında şirket özel bilgileri, şifre ve güvenlik bilgileri gibi verileri açık olarak tutmak bilgilerin güvenliğini riskini oluşturur. Bu tür verileri şifreli olarak tutmak gerekir, L_CAPIDEF tablosu altında BINARY tipinde tutulan bu bilgilerin bulunduğu yer genel olarak CAPI olarak adlandırılır. Okunduklarında bir anlam ifade etmezler. Capi bilgileri “Sistem İşletmeni Programı” haricinde sadece UnityObjects ile görülebilir ve değiştirilebilir.
Dim MyCAPI as Variant
Dim Users as Variant

Set MyCAPI = .CAPI
Set Users = MyCAPI.Users
Set Firms = MyCAPI.Firms
Set Terms = MyCAPI.Terminals

Bilindiği üzere program tarafında firmalar üzerinde çalışabilmek için mali dönemlerin firma bazında tanımlanması gerekmektedir. Dönemler üzerinde dikkat edilmesi gereken en önemli nokta aktif dönemin tanımlanmış olmasıdır.
Periods.Item(0).Active = True

Kullanıcı tanımları:
Set Users = .CAPI.Users

Kullanıcı tanımları tıpkı firmalarda olduğu gibi açık veritabanında binary olarak tutulan CAPI grubuna girer. UnityObjects ile kullanıcıları görmek, silmek veya üzerlerinde işlem yapmak için kullanılır.

Kullanıcı Yetkilendirme :
Öncelikle IApplication nesnesinin NewRightObject metodunu kullanarak IRight nesnesi oluşturulur. Bu nesnenin metod ve özelliklerini kullanarak kullanıcıların ve grupların yetkilerini okunur ya da set edilir. Bu işlem ile Usys.exe programında yapabileceğimiz tüm yetki işlemlerini ayrıntılı bir şekilde yapabilir. Bir kullanıcının firma, firmanın bölümleri, departmanları, fabrikaları fabrika bölümleri, iş yerleri, dönemleri, terminal, işlem yetkileri gibi tüm yetki kısıtlamalarını yapabilir.

Set Right = UnityApp.NewRightsObject(yetki tip)
Call Right.GetRightsByNumber(,,)
Call Right.Set(, True)

Yetki tipleri :
1:Kullanıcı Hakları, 3:Grup Hakları, 12:Hem kullanıcı hem grup hakkı

Hak tipleri:
1 AR_TERM Terminal yetkilerine ulaşmak için kullanılır.
2 AR_PROC İşlem yetkilerine ulaşmak için kullanılır.
3 AR_FIRM Firma yetkilerine ulaşmak için kullanılır.
4 AR_DEPT Firmanın Bölüm yetkilerine ulaşmak için kullanılır.
5 AR_DIVIS Firmanın İşyerleri yetkilerine ulaşmak için kullanılır.
6 AR_WAREH Firmanın Ambar yetkilerine ulaşmak için kullanılır.
7 AR_FACT Firmanın Fabrika yetkilerine ulaşmak için kullanılır.

LOBJECTS

2008-01-29T17:30:00.000+02:00

Visual Basic içerisinde kullanmak için öncelikle
Visual Basic Object Browser aracı ile kullanacağınız nesneleri projeye ekleyin.!(LOBJECTS:DLL register edilmiş olmalı.)

LOBJECTS tipleri variant destekler. Visual Basic içinde variant şu şekilde kullanabilirsiniz.

Dim MyVariant as Variant
MyVariant = "20"

Variant tipli değişkenlerin içeriğini Empty veya Null atayarak silebilirsiniz.

LOBJECT nesnesini tanımlamak:

Global UnityApp As Variant
Set UnityApp = CreateObjects("UnityObjects.UnityApplication")

UnityObjects ile Unity arasında bağlantı oluşturulması için öncelikle Connection işleminin gerçeklesmesi gerekmektedir. Connect işlemi Unity programına giriş yaparken karşınıza gelen Login penceresidir.

UnityApp.Login(,,) Bu yordamı çağırdığınızda şifreleriniz büyük-küçük harf nasıl yazıldığına mutlaka dikkat edin.

Dönen hata değerleri.

0 Hata .

-1 Temel baglantı saglanamadı
-2 Veritabanına baglanılamadı Kullanıcı yetkisi (Veritabanı kullanıcısı ) kontrol edilir.
-3 Hatalı kullanıcı ismi

-4 Kullanıcı bilgileri okunamıyor.

-5 Hatalı sifre bilgisi.
-6 Login islemi gerçekleşmedi.
-7 Firma bilgilerine ulaşılamadı.
-8 Firmaya baglanılamadı.
-13 Sette UnityObject kullanma yetkisi yok.

Netbeans 6.0 Kurulum Hakkında

2008-01-29T17:07:00.000+02:00

Netbeans 6.0 kurduktan sonra özellikle VisualJSF GUI'sinde örnek olaraka bir table koyduğunuzda çalışmadığını saçmaladığını ve hata verdiğini görürsünüz. İlk çözüm regional settings(Bölgesel ayarlar) kısmından dili ingilizce yapmak. Bana göre bu çözüm değildi zira netbeans çalıştıracağım diye bu sefer diyer windows uygulamaları saçmalıyordu.

Çözüm: Netbeans 6.0 kurulum yerinde etc/netbeans.conf dosyasına girin.
netbeans_default_options="-J-Dorg.netbeans.modules.tomcat.autoregister.token=1199969913617 -J-Dorg.netbeans.modules.tomcat.autoregister.catalinaHome=\"E:\Program Files\Apache Software Foundation\Apache Tomcat 6.0.14\" -J-Dcom.sun.aas.installRoot=\"E:\Program Files\glassfish-v2\" -J-client -J-Xss2m -J-Xms32m -J-XX:PermSize=32m -J-XX:MaxPermSize=200m -J-Xverify:none -J-Dapple.laf.useScreenMenuBar=true --locale en:US"

satırını verdiğim şekilde düzeltin.(Sadece satırın sonunan --locale en:US koydum.

Artık Netbeans 6.0 bölgesel ayarları ingilizce yapmadan o güzel projeleri geliştirmeye devam edebilirsiniz :)

Windows Kısa-Yol-Tuşuları

2007-12-03T08:20:00.000+02:00

Bir programcı olarak durmadan klevye kullanıyorum. Mouse'u kullanmayı pek semiyorum(Dizayn hariç :) ) klevye üzerinde tıngırdarken ellerini kaldır mouse'u bul, oku gör gitmek istediğin yere konumlandır bir de mouse tutukluk yaptımı :) mouse'u sevmemeye başlıyorum. Şimdi masa üstüne ulaşmak için bütün buları yapmaya ne gerek var. Yada bilgisayarıma gitmek için bu kadar uzun yola ne gerek var. (Zor gelen bir işi tembel birisine ver hemen sana çözüm üretsin demişler :) )

Windows Hot-key: Şu meşhur pencere resminin olduğu tuşa windows(Start tuşu) tuşu diyoruz. şimdi bu tuş ve yardımcı tuşlarla nelere yapabiliyoruz bir bakalım.

Windows+D : Desktop. Masa üstüne bir dokunuşlar geçiyoruz. Bir anda ekranı temizleyip masa üstüne dönmek için ideal bir tuş.

Windows+Break : Sistem bilgilerine hızlı geçiş.

Windows-E: Bilgisayarım penceresine gider.

Windows-F:Arama penceresi.

Windows-L:Oturum ekranına geç. Kitle.

Windows-R:Çalıştır.

Windows-U:Büyüteç.

Java'ya tekrar merhaba!

2007-11-12T08:41:00.000+02:00

Sürekli Delphi ile yazıyordum, sonra .NET çıktı delphi ona uydu ama sadece kodlaması geri tarafı .NET. Yapacak bir şey yok .NET yazacağız. .NET yazmak zorunda bırakıldık sanırım :) Ama benim gönlümde JAVA' var hele açık kaynak kod olması çok hoşuma gitti. Şimdi tekrar JAVA dönüş aşamasında neler yaşadım ve yaşıyorum.

Netbean 5.5.1 Beta testi tamamlanmış en son kararlı JAVA görsel yazılım geliştirme ortamı. Şu sıralar Netbean 6.0 Beta 2 var. Nebean 5 ile farkları büyük özellikle nesne veri bağlantıları için eklentiler güzel. Mesela bir SpinBox'ın içindeki değişikliği bir Textbox içerisinde göstermek istiyorsunuz. Textbox data binding'ine spinbox'ı bağlamanız yeterli. Yeni başlıyorsanız 6.0'dan başlayın derim.

Kurulum süprizleri:JAVA hem 5.0 hem 6.0 kurulumunu ve kurulum sonrası dahil Bölgesel ayarlarını English(USA) yapmanız gerekiyor. 5.0 kurul aşamasında hata veriyor kurmuyor. 6.0 Kuruluma izin veriyor fakat uygulamayı çalıştırdığınızda özellikle Visual Web Designer'da beklenmedik hareketler yapıyor. Bölgesel ayarları USA yaparsanız bu durumlar ortadan kalkıyor. Bu sorunu zamanla aşarlar sanırım. Windows gıcıklıkmı yapıyordur nerdir bilemiyorum Nedense LINUX üzerinde JAVA uçuyor..

Netbean dışında Eclipse adında IBM'in bir vakıf tarafından geliştirilmesi çalışmaları devam eden Görsel Geliştirme Ortamı var. O yada bu şeklinde bir kıyasalama yapamıyorum.. Netbean içinde Eclipse ve Jbuilder project Importer var en kötü ihtimal bu tool'u kullanılır. Bana Nebeans daha sıcak geldi onu kullanmaya karar verdim.(Sonuçta yaratıcısı Sun.) Birde şunu söyliyeyim her ikisi içinde döküman bol,bol var....

PIC microdenetleyici

2007-07-25T07:53:00.001+02:00

Bill Gates Oğlu

2007-07-21T11:15:00.001+02:00

Web güvenlik

2007-07-20T09:19:00.001+02:00

www.mcafee.com McAfee firması siteadvisor isimli ücretsiz bir ürün çıkarmış. Web browser'a eklenen bu ürün google ve msn'de arama yaparsanız, arama sonuçlarının hemen yanında yeniş, sarı ve kırmızı renkte uyarıcı işaret ve bilgiler veriyor. Bu bilgiler o sitenin güvenilir olup olmadığı hakkında sizi bilgilendiriyor. Üstelik türkçe bunun dışında gerçekten çok zararlı olduğu görülen siteye girmeye çalıştığınızda ekrana önce kendi mesajı geliyor ve uyarıyor... Çok yaralı birin ürün kullanmanızı tavsiye ediyorum...

Master Page img kullandım resimler bazı sayfalarda yok oldu.

2007-07-16T20:43:00.000+02:00

asp.net 2005
masterpage içerisinde başlık yaptınız ve html IMG kullandınız. Asp.net içerisinde resimler diye bir klasörünüz var ve resimler bunun içinde, IMG src="resimler/resim.gif" şeklinde tanımlı, örneğin security dizini içerisinde de login.aspx olsun. masterpage den login.aspx seçilince resimler yok oluyor. Server site image kullandığınızda asp.net "~" karakterini koyuyor. Standart html'nin IMG için src kısmına
koyarsan resmin "~" yaptığı işi yapar yani resmin orjinal adresini getirir.(www.xxxx.com/resimler/mp_hemenuyeolbg.gif).

QuickReport Kod içinden ekranı kaplat.

2007-06-11T07:55:00.000+02:00

var
i: Integer;
begin
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].ClassName = 'TQRStandardPreview' then
begin
screen.Forms[i].Perform(wm_syscommand,SC_MAXIMIZE,0);
// Screen.Forms[i].BorderIcons:=[];// Screen.Forms[i].BorderIcons-[biMinimize]; //hides minimize button
// Screen.Forms[i].BorderIcons:=[];// Screen.Forms[i].BorderIcons-[biMaximize]; //hides maximize button
end;
end;

Ağ (Network) Veritabanı Modeli

2007-06-07T07:25:00.000+02:00

Ağ veritabanı modeli birçok yönlerden hiyerarşik modeli andırır. Hiyerarşik modelde olduğu gibi kullanıcı ağ veritabanı modelinde 1:M ilişkisindeki kayıt (record) ların topluluğu olarak algılar. Bununla birlikte hiyerarşik modelle tamamen benzemeyen bir network model kaydı birden fazla ataya sahip olabilir.
Ağ veritabanı modeli kısmen karmaşık veri ilişkilerini hiyerarşik modelin sunduğundan daha etkili bir şekilde sunmak ve bir veritabanı standardını kabul ettirmek ve veritabanı performansını geliştirmek için oluşturuldu. Veritabanı standartlarının olmayışı programcıları ve uygulama tasarımcılarını sıktı. Çünkü standartların olmayışı uygulamaların taşınabilirliğini azaltır.
1971 de CODASLY(COnference on DAta SYstem Languages) grubu kullanıcı ve bilgisayar üreticileri için COBOL dili standartlarını belirledi. Bu standartlar ANSI (American National Standarts Institute) tarafından kabul edildi. Bu standartlaştırma başarısından sonra CODASLY grubu veritabanı standartlarını oluşturmak için DataBase Task Group (DBTG) yi oluşturdu. DBTG grubu veritabanı oluşturma ve veri idare etme için standartlar tanımlamayla görevlendirildi. Sonunda DBTG üç önemli veritabanı bileşeni için tarifnameleri bildirdi.

Ağ Şeması (Network Schema): Veritabanı yöneticisi (database administrator) tarafından görülebilen bütün veritabanının kavramsal organizayonudur. Şema bir veritabanı isminin tanımını, kayıtların herbiri için kayıt tiplerini ve bileşenleri içererek biraraya getirir.
Alt Şema (The Subschema) Uygulama programları tarafından görülebilen veritabanı bölümünü tanımlar. Alt şema veritabanı içindeki veriden istenilen veriyi üretir. Alt şema tanımlarının varlığı bütün uygulama programlarının uygun veritabanı dosyalarına gerekli alt şemayı çağırarak erişmesine izin verir.
karakteristikleri ,veri yapısı ve veriyi idare etmek için bir veri yönetim dili tanımlamak. Belirtilen her üç bileşenin istenilen standardını üretmek için DBTG üç farklı veri-yönetim dili bileşeni belirledi.
Bir şema Veri tanımlama Dili (Data Definition Language (DDL)). DDL veritabanı yöneticisine şema tanımlama yetkisi verir. Uygulama programlarına kullanılacak veritabanı bileşenlerini tanımlamaya izin vermek için bir alt şema dili (Subschema DDL).
Data Manipulation Language (DML=Veri İdare Dili). Veritabanı içeriğin yönetmek için dil.
1975 te ANSI Standards Planning And Requirements Committee (SPARC) veritabanı standarlarını çoğalttı. Bütün mainframe'ler ağ veritabanı yazılımlarını standartlara göre belirledi.

BİR DOSYA SİSTEM KRİTİĞİ

2007-06-07T07:17:00.000+02:00

Şu iki sebepten dolayayı dosya sistemlerinin kritiğini yapacağız.
Dosya sistemlerinin kusurlarını anlama , veritabanın gelişimini anlamamızı sağlar.
Kataloğunu yapacağımız problemlerin çoğu sadece dosya sistemlerinde mevcut değildir. Bu problemleri anlamak aynı hataların veritabanı ortamlarında da meydana çıkmasını engelleyecektir.
Dosya Sisteminde Veri Yönetimi
Dosya sistemlerinde uygulamalar genellikle üçüncü kuşak diller denilen Basic,Cobol,Fortran, Pascal,C vs. ile yazılır. Bu programlar istenen uygulamanın ne yapması ve nasıl yapması gerektiğini kesin bir şekilde belirtmelidir.
Herbir dosya kendi dosya yönetim sisteminden kullanıcılara şu programları sağlamalıdır.

Dosya yapısı oluşturma

Dosyaya veri ekleme

Dosyadan veri silme

Dosya içeriğinde değişiklik yapma

İçeriği listeleme

Örneğin 20 dosyadan oluşan bir dosya sistemi 20*5=100 dosya yönetim programı gerektirir. Her bir dosyaya 10 farklı raporlama programından erişilirse 20*10=200 raporlama programı yazılmalı. Görüldüğü gibi dosya sistemlerinde programlama çok fazla çaba istemektedir. Örneğin 20 dosyadan oluşan bir sistemde bir dosyada yapılacak olan değişklik bu dosyayla bağlantılı olan diğer bütün programlarda da değişiklik gerektirecektir. Sistemin daha da büyüdüğünü düşünecek olursak hataların olması kaçınılmazdır.

Yapısallık ve Veri Bağımlılığı
Dosya sisteminin herhangi bir dosyasına erişecek olan bir program , belirli dosya açma tiplerine, o dosyanın kayıt şartlarına ve onun alan tanımlamalarına sahip olmalıdır. Bu sebeplerden dolayı dosya sisteminde herhangi bir dosyanın bir alanını değiştirsek, bu dosyayla ilişkili diğer dosyalarda ve programlarda uygun şekilde değişiklik yapılmalıdır. Bu durumda dosya sisteminin yapısal bağımlılığa (structural dependence) sahip olduğu söylenir.
Alan Tanımlamaları
Alanlar bir kaydın parçalarıdır. Örneğin bir müşterinin (CUSTOMER) alanları aşağıdaki gibi olabilir:
Alan(Field) İçeriği(contents)

C_LNAME Customer Last Name(Müşteri soyadı)
C_FNAME Customer First Name(Müşteri adı)
C_INITIAL Customer initia(Müşteri tanımı)
C_AREACODE Customer area code(Müşteri alan kodu)
C_PHONE Customer phone(Müşteri telefonu)
C_ADDRESS Customer address (Müşteri adresi)
C_CITY Customer city(Müşterinin ili)
C_STATE Customer state(Müşterinin ülkesi)
Burada müşteriler adı ,soyadı,telefon numarası vs. göre sıralanabilir. Fakat aynı isimde müşteriler olabileceğinden C_ACCOUNT (Müşteri numarası ) isminde bir alan daha ekleyerek karışıklıkları önleyebiliriz.
Veri Tekrarları (Data Duplication)
Aynı verinin farklı dosyalarda yer alması veri tekrarlarını ortaya çıkarır. Bu aynı veriye sahip olan herhangi bir dosyada değişiklik yapıldığında diğer dosyalarda da değişiklik yapılmasını gerektirir. Veri tekrarları çok önemli hataların ortaya çıkmasına yol açar.
1.Veri fazlalığı (=Data redundancy=): Aynı verinin çeşitli dosyalarda tekrar tekrar yer almasıdır. Veri tekrarı ekstra zaman ve fazladan depolama yeri gerektirir. Bu da maliyeti arrtırır.
2.Veri Uyuşmazlığı(=Data inconsistency=): Bir verinin farklı dosyalarda tekrar etsin. Örneğin tekrarlanan bir veriyi değiştirmemiz gerekirse bunu verinin bulunduğu bütün dosyalar da yapmamız gerekir. Eğer bir dosyada değişiklik yapmayı unutursak dosyalar arasında veri uyuşmazlığı meydana gelir ve veri bütünlüğünün (data integrity) kaybolmasına sebebiyet verir.Bu veri uyşmazlığı raporlamada birbirine uymayan raporların meydana çıkmasına sebep verebilir.
3.Veri Anormallikleri(Data Anomalies):Bir verinin birçok yerde tekrar etmesi muhtemel hatalı girişlere sebeb olabilir. Hatalı girişler raporlamada veya istenilen bilgiye erişme sırasında beklenmeyen sonuçların ortaya çıkmasına sebep olabilir.

Hiyerarşik modelin dezavantajları

2007-06-06T08:55:00.000+02:00

Hiyerarşik modelin büyük kurulu bir tabanı olmasına rağmen artık büyük veritabanı uygulamaları için ilk tercih değildir. Hiyerarşik modelin gittikçe gücünü kaybetmesinin birkaç iyi sebebi var.

Hiyerarşik model kullanıcı ve tasarımcıları (yani database designer'larını ) veri bağımlılığından kurtarmasına rağmen VTYS hala veri depolama fiziksel bilgi gerektirir. Veritabanı yapısındaki herhangi bir değişiklik ( segmentlerin (yani kayıt) yeniden yerleştirilmesi gibi) hal bütün uygulama programlarının değişikliğini gerektirir. Bu yüzden veritabanı tasarımının tamamlanması çok karmaşık olabilir.

Çoğu yaygın ilişki hiyerarşik model tarafından ihtiyaç duyulan 1:M ilişkisine uymaz. Örneğin bir üniversitede herbir ders birçok öğrenciyi kapsayabilir ve her öğrenci birçok ders alabilir. Bu M:N ilişkisidir. Hiyerarşik modelde böyle yaygın bir ilişki uygulamak zordur.

Gerçektende bazı gerçek dünya ilişkileri bir çocuk ve çok ataya dayandırılır. Örneğin aşağıda gösterildiği gibi ORDER_LINE iki ataya sahiptir. ORDER ve PART.

Eğer müşteri bir sipariş üretirse ORDER_LINE tipik olarak ORDER ve PART segmentlerinin her ikisinden de veri içerir. Böyle yaygın iki-atalı durum hiyerarşik ortamda kolay bir şekilde uygulanamaz.

Bir hiyerarşik veritabanı yönetim olarak esneklik bakımında eksikliklere sahiptir. Yapı değişikliği ( yeni ilişki veya yeni segmentlerde) çok karmaşık sistem yönetim programlarının ortaya çıkmasına sebep olur. İstenilmeyerek silinen bir segmentle birlikte onun bütün alt segmentlerinin silinmesi mümkündür. Böyle bir hata aşırı derecede pahalıya mal olabilirdi.
Uygulama programları genellikle geniş çaplıdır. Programcılar veriye erişmek için gerekli olan kontrol kod satırlarının nasıl yazılacağını bilmeli ve veritabanı yapısına iyi derecede aşina olmaldır. Hiyerarşik veritabanı ağaç yapısında olduğu için gerekli veriye erişmek için ağaçta kök segmentten başlanarak yolculuk yapılmalıdır. Böyle bir veritabanı sisteminde programcı veritabanındaki gerekli verilere erişmek ve almak için verinin erişim yolunu bilmeye ihtiyaç duyar. Veritabanı yapısındaki herhangi bir değişiklik, uygulama programalarında problemlere yol açar.( Uygulamalar yapıya ögre yazıldığı için). Böylece değişiklikten önce iyi çalışan programlar değişiklikten sonra problemlere yol açar. Veri bağımsızlılığının faydaları böylece yapısal bağımlılık tarafından sınırlanır.
IMS mevcut hazır tamamlayıcı programlara sahip (uygulama üreticileri,etkileşimli sorgulama yetenekleri vs.). Fakat bu araçlar veritabanına gömülü değil. Bu araçlar genellikle tercih edilen sorgu yeteneklerin sağlamazlar.Bu yüzden sistem son kullanıcılar için yeterince esnek değildir.
Not:IMS (Information Management System) IBM'in hiyerarşik VTYS dir.
Bütün hiyerarşik veritabanı modelleri temel hiyerarşik modelde birleştirilmelerine rağmen hiyerarşik modelin açık bir standardı yoktur. Çok az hiyerarşik model veritabanı IMS tarafından oluşturulan kavram ve sınırlara uyar. Bu yüzden bir hiyerarşik modelden diğerine taşıma zordur. Yani taşınabilirlik (portability) sınırlandırılmıştır.
Belki hiyerarşik modelin en kötü taraflarından biri kullanım için geniş programlama faaliyetleri gerektirmesidir. Hiyerarşik model gerçekte programcılar tarafından programcılar için oluşturulan sistem olarak adlandırıldır.

Hiyerarşik modelin avantajları

2007-06-06T08:52:00.000+02:00

Hierarşik modelin uzun ömürlülüğü onun gücünün dayanıklılığının tanığıdır.

Bütün veriler ortak bir veritabanında tutulduğu için veri paylaşımı pratik olur ve güvenlik DBMS tarafından sağlanır ve yürütülür.
DBMS (yani VTYS) öyle bir ortam oluşturur ki, bu ortamla programlama çabası ve program bakımının azaltılması iyi halde tutulabilir.
Bir ata-çocuk (parent-child) ilişkisinde daima ata ile çocuk arasında bir bağ vardır. Çocuk daima otomatik olarak atasına referans edilir. Hiyerarşik model veritabanı bütünlüğünü (database integrity) destekler.
Veritabanı çok miktarda 1:M ilişkisinde veri içerdiği ve kullanıcılar çok sayıda transaction (işlemler topluluğu=Process (işlem)) gerçekleştirdiğinde hiyerarşik model çok verimli olmaya meyilli olur.
Örneğin bir bankanın müşteri hesapları sistemi hiyerarşik modele uygundur.
Herbir müşteri hesabı çok sayıda transactiona sahip olabilir. (1:M)
Bir hesap muamelesi( transactionu) ya zimmet kaydetmeyi ya da kredi açmayı gerektirebilir. Bu yüzden müşteri hesabı ve hesap transactionları arasındaki ilişki sabitlenir.
Banka muhtemel çok sayıda müşteri hesabına sahiptir. Müşteri hesapları çok sayıda transaction'a sahip olarabilir.Bu yüzden toplam transaction sayısı muhtemelen çok büyüktür. Bu sebeplerden birçok banka hiyerarşik modeli benimsedi.
Mainframe ortamlarında çok sayıda doğru çalışan iş uygulaması var.

Hiyerarsik(Sıradüzensel) Veritabanı Modeli (The Hierarchial Database Model)

2007-06-06T08:48:00.000+02:00

Hiyerarşik yapı ters ağaç şeklindedir. Resimde görüldüğü gibidir.

Şu sebeplerden dolayı hiyerarşik veritabanı modelinin karakteristiklerinden en az bir kaçını anlamalısınız. Hiyerarşik modelin temel kavramları öteki veritabanlarının gelişiminde temel teşkil eder. Hiyerarşik modelin sınırlamaları veritabanı tasarımına farklı bir bakıştan yol göstermeye kılavuzluk eder. Biçimsel olarak kullanıcı hiyerarşik veritabanını parçaların (segment ) hiyerarşisi olarak algılar. Bir segment bir node (düğüm) olarak isimlendirilir ve dosya sistemlerindeki record (kayıt) ın karşılığıdır. Başka bir deyişle hiyerarşik veritabanı ters ağaç yapısına uyarak organize edilmiş kayıtların toplamıdır.Hiyerarşik yapıda en üst seviye kök (root) tur. Root kendisinin altında bulunan parçaların ata (parent) sıdır.Aşağıdaki şekle göre konuşacak olursak A root segmenttir. Aşağıdaki resimde A , B ve C segmentlerinin atasıdır. Benzer şekilde B D,E ve F nin atası; olurken D , I segmentinin atasıdır. Aynı zamanda F, J ve K segmentlerinin atası olurken C, H ve G segmentlerinin atasıdır. Sırasıyla aşağıdaki segmentler yukarıdaki segmenlerin çocuklar (children) ıdırlar. Örneğin D,E ve F segmentleri B segmentinin çocuklarıdırlar. B segmentide A segmentinin çocuğudur. Benzer şekilde I, D segmentinin çocuğudur. Ve benzer şekilde.

Not:Bütün veritabanlarında olduğu gibi hiyerarşik model de kullanıcılara ve tasarımcılara yapıyı fiziksel modelden ziyade mantıksal olarak algılamalarına izin verir. Kullanıcı ve tasarımcılara ( yani veritabanı tasarımcılarına ) bir problemin mantıksal boyutta yoğunlaşmalarına izin verilmesi, onların problemleri çözebilmeleri için daha etkili olabilmesini ve karmaşık problemleri idare edebilmelerini sağlar.
Yukarıdaki ağaç yapısı göründüğünden farklı bir şekilde bilgisayarda depolanır. Ağaç yapısı şekil 1.5 te görüldüğü gibi aynen bilgisayar ortamına depolanmaz. Soldan başlayarak ata segmentlerden çocuk segmentlere bir yol izlenerek depolanır. Bu sıralamaya hiyerarşik yol (hierarchial path) denir. Örneğin şekil 1.5 de K segmentine yol A B D I E F J K şeklide izlenebilir. Bütün segmentlerde root'tan başlanark en soldaki segment ile yol takip edilir. Bu sol-sıralamalı yola preorder traversal veya hiearchic sequence (hiyerarşik sıra) denir. Tasarımcılar (designers) en sık erişilen segmentleri ağacın sol tarafına yerleştirmeliler. Şekil 1.5 de gösterilen hiyerarşik yapı bazı önemli ilişkiler gösterir.

Her ata çok sayıda çocuğa sahip olabilir.
Her çocuk sadece bir ataya sahitir.

Böyle ilişkiler bire-çok (one-to-many yani 1:M) olan ilişkilerdir.Bu tür ilişkiler herhangi bir organizasyonda geneldir.
Örneğin bir şirket birçok bölümlere sahip olabilir.Fakat herbir bölüm sadece bir şirkete aittir. Herbir bölüm birçok işçi çalıştırabilir fakat herbir işçi yalnız bir bölüme aittir.

VERİTABANI MODELLERİ

2007-06-06T08:38:00.000+02:00

Teorik veritabanı yapıları çeşitli veritabanı modelleri tarafından sunulur. Kavramsal modeller veriyi temsil etmenin mantıksal doğası üzerine odaklanır. Kavramsal modeller veriler arasındaki üç tür ilişki kullanır.

Bire-birçok ilişki (one-to-many relationship): Bir ressam (painter) birden fazla tablo(painting) yapabilir. Fakat herbir tablo bir ressam tarafından yapılır. Burada bire-birçok ilişkisi vardır.Bu ilişki 1:M ile simgelenir. Şekilde görüldüğü gibi.

Çoğa-çok ilişki (many to many relationship) Bir işçi birçok iş becerilerine sahip olabilir. Ve herbir iş becerisi birçok işçi tarafından öğrenilebilir. Bu ilişki M:N ile simgelenir.

Bire-bir ilişki (one-to-one relationship) Varsayalım ki bir şirketin üç tane sandviç standı var ve herbir standa bir işçi bakıyor.Bu durumda bire-bir ilişkisi vardır. 1:1 ile temsil edilir.

Versiyon bilgisini al

2007-06-01T08:11:00.000+02:00

function GetFileVersion(const Filename: string; var Version: string): Boolean;
var
VerBlk: VS_FIXEDFILEINFO;
InfoSize,puLen : DWord;
Pt,InfoPtr : Pointer;
begin
Version := '';
InfoSize := GetFileVersionInfoSize(PChar(Filename), puLen);
FillChar(VerBlk, SizeOf(VS_FIXEDFILEINFO),0);
if InfoSize > 0 then
begin
GetMem(Pt, InfoSize);
GetFileVersionInfo(PChar(Filename), 0, InfoSize, Pt);
VerQueryValue(Pt, '\', InfoPtr, puLen);
move(InfoPtr^, VerBlk, SizeOf(VS_FIXEDFILEINFO));
Version := Format('%d.%d.%d.%d',[VerBlk.dwFileVersionMS shr 16,
VerBlk.dwFileVersionMS and 65535,
VerBlk.dwFileVersionLS shr 16,
VerBlk.dwFileVersionLS and 65535]);
FreeMem(Pt);
Result := True;
end else
Result := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vr:string;
begin
getfileversion(paramstr(0),vr);
caption:=vr;
end;

Ekran Görüntüsünü Almak

2007-06-01T08:07:00.002+02:00

procedure TForm1.Button1Click(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;

Internet Bağlantı Tipi

2007-06-01T08:07:00.001+02:00

function ConnectionKind :boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage('Modem');
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage('LAN');
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage('Proxy');
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage('Modem Busy');
end;
end;
end; /////kulanim
procedure TForm1.Button3Click(Sender: TObject);
begin
ConnectionKind ;
end;

Start Menü Resmini Değiştir

2007-06-01T08:03:00.001+02:00

var
Form1: TForm1;
StartButton: hWnd;
OldBitmap: THandle;
NewImage: TPicture;
procedure TForm1.FormCreate(Sender: TObject);
begin
NewImage := TPicture.create;
NewImage.LoadFromFile('C:\Windows\Circles.BMP');
StartButton := FindWindowEx
(FindWindow(
'Shell_TrayWnd', nil),
0,'Button', nil);
OldBitmap := SendMessage(StartButton,
BM_SetImage, 0,
NewImage.Bitmap.Handle);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
SendMessage(StartButton,BM_SetImage,0,OldBitmap);
NewImage.Free;
end;

Recycle Bin boşaltmak

2007-06-01T08:00:00.000+02:00

procedure EmptyRecycleBin;
const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;
type
TSHEmptyRecycleBin = function (Wnd: HWND;
LPCTSTR: PChar;
DWORD: Word): integer; stdcall;
var
SHEmptyRecycleBin: TSHEmptyRecycleBin;
LibHandle: THandle;
begin
LibHandle := LoadLibrary(PChar('Shell32.dll'));
if LibHandle <> 0 then
@SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
else
begin
MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
Exit;
end;
if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Application.Handle,
'',
SHERB_NOCONFIRMATION or
SHERB_NOPROGRESSUI or
SHERB_NOSOUND);
FreeLibrary(LibHandle);
@SHEmptyRecycleBin := nil;
end;

Start menüyü açmak

2007-06-01T07:59:00.000+02:00

Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_TASKLIST,0);

Netsis:Sipariş silemiyorum

2007-05-31T10:40:00.000+02:00

Fatura kaydı olmadığı halde siparişi silmeme izin verniyor?

TBLSIPATRA dosyasında FIRMA_DOVTUT kısmını kontol et. Bunları sıfırlarsan siparişi silmene izin veriyor...

Windows Mavi ekran hatası veriyor..

2007-05-31T07:52:00.001+02:00

Bu hata genelde donanımdaki bir sorundan geliyor. Sıralamak gerekirse RAM,BOARD,Aşırı ısınma, Elektirik, Modem kartı...

Özellikle hava sıcaklığının değiştiği zamanlarda mesela kıştan yaza girerken kullandığın parçaların kalitesine göre metaller genleşiyor. Bu genleşme sonucunda iyi monte edilmediyse bilgisayar içerisindeki RAM ve diğer kartlar yerinden çıkabiliyor. İlk önce kartların ve RAM'lerin yerine düzgün oturduğundan emin olunması lazım. Hazır makinayı açmışken bir fırça alıp bu kart ve memory'lerin olduğu yerdeki tozları temizlemekte fayda var. Özellikle RAM'leri çıkart ve bağlantı ayaklarını oksitlenme varmı diye kontrol et. Eğer oksitlenme varsa bir kurşun kalem silgisiyle bağlantı ayaklarını sil.(Ayna gibi olur:) ) Tekrar yerine tak ve dene. Bunun dışında evdeki elektirik hattın düzgün değilse dalgalanma varsa, toprak hattı üzerinde elektirik varsa kısacası topraklama iyi yapılmamışsa özellikle RAM'ler çok çabuk hasar görebiliyor. Varsa bir arkadaşından RAM al ve sistemi dene. Bunların dışında gene elektriksel bir sorundan dolayı MAIN BOARD hasar görmüş olabilir. İşlemci en son kontrol edeceğin hatta hemen hemen hiç kontrol etmemem gereken bir parça. İşlemcilerin hasar görmesi diyer parçalara göre daha zordur. Bunların dışında son zamanlarda takdığın yeni donanım yasa driver(sürücü) yazılımları yüklediysen bu tip hatalar alabilirsin. Genelde sürücü yazılımları sistem ilk açılışı sırasında yüklenir.. Sistemin içindeki FAN'lar düzgün çalışıyormu kontrol et. Eğer işlemci aşırı ısınıyorsa bazı modellerde bu hatayı verebiliyor. Ama ısınma problemi mavi ekran hatasında bakacağın en son bölüm olsun. Genelde ısınma sorunu varsa sistem çalışırken kitlenir. Mavi hatayı ender verir.. Enson olarakta işletim sistemini bir daha yüklemeyi dene. Elektiriksel bir sorundan dolayı sistem kontrolsüz kapanım açıldıysa bazı sistem dosyaları hasar görmüş olabilir.

Sistemin desteklediği tüm ekran modlarının alınması

2007-05-31T07:34:00.000+02:00

procedure GetVideoModes(ModeList: TStringList);
var
i, j: integer;
MoreModes,
AddMode: boolean;
dm: TDeviceMode;
Mode: string;
begin
ModeList.Clear;
MoreModes := True;
Mode := '';
i := 0;
while MoreModes do
begin
MoreModes := EnumDisplaySettings(nil, i, dm);
Mode := IntToStr(dm.dmBitsPerPel) + ' Bits Per Pixel ' +
IntToStr(dm.dmPelsWidth) + ' x ' +
IntToStr(dm.dmPelsHeight);
AddMode := True;
for j := 0 to ModeList.Count-1 do
if Mode = ModeList[j] then
AddMode := False;
if AddMode then
ModeList.Add(Mode);
Inc(i);
end;
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
GetVideoModes(TStringList(memo1.lines));
end;

Bir programı çalıştır ve bitene kadar bekle

2007-05-31T07:33:00.000+02:00

function RunProcess(const AppPath:string; MustWait: Boolean;
AppParams: string; Visibility: Word):DWORD;
var
SI: TStartupInfo;
PI: TProcessInformation;
Proc: THandle;
zFileName, zParams: array[0..79] of Char;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.wShowWindow := Visibility;
if not CreateProcess(StrPCopy(zFileName, AppPath),
StrPCopy(zParams, AppParams),
nil, nil, false, Normal_Priority_Class, nil, nil, SI, PI) then
raise Exception.CreateFmt('Failed to excecute program ' +
AppPath + '. Error Code %d', [GetLastError]);
Proc := PI.hProcess;
CloseHandle(PI.hThread);
if MustWait then
if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
GetExitCodeProcess(Proc, Result);
CloseHandle(Proc);
end;
// Kullanimi:
RunProcess('notepad.exe', True, '', SW_SHOWNORMAL);

Herhangi bir program yada tüm ekran nasıl alınır.

2007-05-31T07:32:00.000+02:00

function GetDcAsBitmap(DC: HDC; Bitmap: TBitmap; W, H: Cardinal): Boolean;
var
hdcCompatible: HDC;
hbmScreen: HBitmap;
begin
Result := False;
if DC = 0 then Exit;
hdcCompatible := CreateCompatibleDC(DC);
hbmScreen := CreateCompatibleBitmap(DC, W, H);
if (hbmScreen = 0) then Exit;
if (SelectObject(hdcCompatible, hbmScreen)=0) then Exit;
if not(BitBlt(hdcCompatible, 0,0, W, H, DC, 0,0, SRCCOPY)) then
Exit;
Bitmap.Handle := HbmScreen;
Bitmap.Dormant;
Result := True;
end;
function GetScreenAsBitmap(Bitmap: TBitmap): Boolean;
var ScreenDC: HDC;
begin
ScreenDC := CreateDC('DISPLAY', NIL, NIL, NIL);
Result := GetDCAsBitmap(ScreenDC, Bitmap,
GetDeviceCaps(ScreenDC, HORZRES),
GetDeviceCaps(ScreenDC, VERTRES)
);
end;
function GetWindowAsBitmap(const WindowName: string;
Bitmap: TBitmap): Boolean;
var Wnd: HWnd;
Rect: TRect;
begin
Wnd := FindWindow(nil, PChar(WindowName));
GetWindowRect(Wnd, Rect);
Result := GetDCAsBitmap(GetWindowDC(Wnd), Bitmap,
Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
end;
function GetWindowAsBitmap(Wnd: HWnd; Bitmap: TBitmap): Boolean;
var
Rect: TRect;
begin
GetWindowRect(Wnd, Rect);
Result := GetDCAsBitmap(GetWindowDC(Wnd), Bitmap,
Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
end;
// Kullanimi:
{Button1 yüzeyini resim olarak al}
GetWindowAsBitmap(Button1.Handle, Image1.Picture.Bitmap);
{Tüm ekrani resim olarak al}
GetScreenAsBitmap(Image1.Picture.Bitmap);

MDI form ve DLL

2007-05-31T07:30:00.000+02:00

function CallMyDLLForm:THandle;;
type
TProc = function(hApp, hMainForm):THandle;stdcall;
var
hLib : THandle;
ProcAddr: Pointer;
ShowF : TProc;
begin
//Loading Library
hLib := LoadLibrary('c:\....\myLibrary.dll);
if hLib <> 0 then
beign
//Getting ShowForm proc address
ProcAddr := GetProcAddress(h,'ShowForm');
if Assigned(ProcAddr) then
begin
ShowF := ProcAddr;
Result := ShowF(Application.handle,MyMainForm.handle);
end;
end;
end;

In your DLL you have to put something like this:
unit LibProcs
interface
uses......
function ShowForm(hApp, hMainForm):THandle;sdtcall
var
OldDLLAppHandle: THandle;
implementation

function ShowForm(hApp, hMainForm):THandle;
begin
Application.handle := hApp;
MyDLLForm := TMyDLLForm.Create(Appplication);
MyDLLForm.parentwindow := hMainForm;
result := MyDLLForm.handle;
MyDLLForm.Show;
end;
initialization
OldDLLAppHandle := Application.handle;

finalization
Application.handle := OldDLLAppHandle;

Check Driver Type

2007-05-31T07:29:00.001+02:00

function DriveExists(Drive:Byte):Boolean;
var
Drives: set of 0..25;
begin
integer(Drives):=GetLogicalDrives;
Result:=Drive in Drives
end;
function CheckDriveType(Drive: Byte): string;
var
DriveLetter: Char;
DriveType: UInt;
begin
DriveLetter:=Chr(Drive + $41);
DriveType:=GetDriveType(PChar(DriveLetter + ':\'));
case DriveType of
0: Result:='?';
1: Result:='Path does not exists';
DRIVE_REMOVABLE: Result:='Removable';
DRIVE_FIXED: Result:='Fixed';
DRIVE_REMOTE: Result:='Remote';
DRIVE_CDROM: Result:='CD_ROM';
DRIVE_RAMDISK: Result:='RAMDISK'
else
Result:='Unknown'
end
end;

Delphi Sürücü Tipinin Alınması

2007-05-31T07:27:00.000+02:00

procedure TForm1.Button1Click(Sender: TObject);
var DriveType: Integer;
begin
DriveType := GetDriveType(pChar('A:\'));
case drivetype of
0 : ShowMessage( 'Tip alinamadi' );
1 : ShowMessage( 'Gecersiz sürücü' );
DRIVE_REMOVABLE : ShowMessage( 'Floppy Disk' );
DRIVE_FIXED : ShowMessage( 'Sabit Disk' );
DRIVE_REMOTE : ShowMessage( 'Network Drive' );
DRIVE_CDROM : ShowMessage( 'CD-Rom Drive' );
DRIVE_RAMDISK : ShowMessage( 'Ramdisk Drive' );
else
ShowMessage('Bilinmiyor');
end;
end;

Delphi Windows Hafıza Durumunun Alınması

2007-05-31T07:25:00.000+02:00

procedure TForm1.Button1Click(Sender: TObject);
var
Status : TMemoryStatus;
begin
Status.dwLength := sizeof( TMemoryStatus );
GlobalMemoryStatus( Status );
Memo1.Lines.Add('Toplam hafiza kullanim yüzdesi:' + IntToStr(Status.dwMemoryLoad));
Memo1.Lines.Add('Toplam hafiza büyüklügü (byte):' + IntToStr(Status.dwTotalPhys));
Memo1.Lines.Add('Kullanilabilir hafiza' + IntToStr(Status.dwAvailPhys));
Memo1.Lines.Add('Toplam Page File büyüklügü (byte):' + IntToStr(Status.dwTotalPageFile));
Memo1.Lines.Add('Kalan Page File (byte):' + IntToStr(Status.dwAvailPageFile));
Memo1.Lines.Add('Toplam virtual memory (byte):'+ IntToStr(Status.dwTotalVirtual));
Memo1.Lines.Add('Kalan virtual memory (byte):' + IntToStr(Status.dwAvailVirtual));
end;

LOBJECTS:DLL Delphi Örnek

2007-05-28T07:46:00.000+02:00

procedure TFStokbilgi.BitBtn1Click(Sender: TObject);
var
bolge:string;
dat:Idata;
qry1:IQuery;
units:ILines;
i:integer;
ref:integer;
function kayitbul(st:string):integer;
begin
qry1.Close;
qry1.Statement:='SELECT LOGICALREF FROM '+fmenu.Firma+'ITEMS WHERE PRODUCERCODE='''+st+'''';
if not qry1.OpenDirect then raise exception.CreateFmt('LogoQuery Açılamadı...',[]);
if qry1.First then
result:=qry1.FieldByName('LOGICALREF').Value else result:=-1;
end;
begin
try
m('Logo bağlantısı yapılıyor...');
unityapplication1.Login('LOGO','XXXXXX',strtoint(fmenu.firmano));
qry1:=unityapplication1.NewQuery;
dat:=unityapplication1.NewDataObject(doMaterial);
m('Aktarılıyor...');
excel.First;
while not excel.Eof do
begin
ref:=kayitbul(excel.fieldbyname('PG_URUNKODU').AsString);
if ref=-1 then
with dat do
begin
New;
memo1.Lines.Add('Yeni'+#8+excel.fieldbyname('UNITY_Malzeme_Kodu').AsString);
DataFields.FieldByName('CARD_TYPE').Value:=1;
DataFields.FieldByName('CODE').Value:=excel.fieldbyname('UNITY_Malzeme_Kodu').AsString;
DataFields.FieldByName('NAME').Value:=excel.fieldbyname('URUN_Ismi').AsString;
DataFields.FieldByName('PRODUCER_CODE').Value:=excel.fieldbyname('PG_URUNKODU').AsString;
DataFields.FieldByName('AUXIL_CODE').Value:='PGAYT';
DataFields.FieldByName('USEF_PURCHASING').Value:=1;
DataFields.FieldByName('USEF_SALES').Value:=1;
DataFields.FieldByName('USEF_MM').Value:=1;
DataFields.FieldByName('VAT').Value:=18;
DataFields.FieldByName('SELVAT').Value:=18;
DataFields.FieldByName('RETURNVAT').Value:=18;
DataFields.FieldByName('UNITSET_CODE').Value:='PG';
end else dat.Read(ref);
with dat.DataFields.FieldByName('UNITS').Lines do
begin
if ref=-1 then for i:=1 to 5 do AppendLine;//yeni kayıtsa satır aç.
Item[0].FieldByName('UNIT_CODE').Value:='AD';
Item[0].FieldByName('BARCODE').Value:=excel.fieldbyname('Adet_Barkodu').AsString;
Item[0].FieldByName('USEF_MTRLCLASS').Value:=1;
Item[0].FieldByName('USEF_PURCHCLAS').Value:=1;
Item[0].FieldByName('USEF_SALESCLAS').Value:=1;
Item[0].FieldByName('CONV_FACT1').Value:=1;
Item[0].FieldByName('CONV_FACT2').Value:=1;
Item[0].FieldByName('VOLUME').Value:=excel.fieldbyname('HACIM_ADET').Value;
Item[0].FieldByName('WEIGHT').Value:=excel.fieldbyname('AGIRLIK_ADET').Value;
Item[1].FieldByName('UNIT_CODE').Value:='KL';
Item[1].FieldByName('BARCODE').Value:=excel.fieldbyname('Koli_Barkodu').AsString;
Item[1].FieldByName('USEF_MTRLCLASS').Value:=1;
Item[1].FieldByName('USEF_PURCHCLAS').Value:=1;
Item[1].FieldByName('USEF_SALESCLAS').Value:=1;
Item[1].FieldByName('CONV_FACT1').Value:=1;
Item[1].FieldByName('CONV_FACT2').Value:=excel.fieldbyname('Koli_Ici_Adeti').value;
Item[1].FieldByName('VOLUME').Value:=excel.fieldbyname('HACIM_KOLI').Value;
Item[1].FieldByName('WEIGHT').Value:=excel.fieldbyname('AGIRLIK_KOLI').Value;
Item[2].FieldByName('UNIT_CODE').Value:='PALET';
Item[2].FieldByName('BARCODE').Value:='';
Item[2].FieldByName('USEF_MTRLCLASS').Value:=1;
Item[2].FieldByName('USEF_PURCHCLAS').Value:=1;
Item[2].FieldByName('USEF_SALESCLAS').Value:=1;
Item[2].FieldByName('CONV_FACT1').Value:=1;
Item[2].FieldByName('CONV_FACT2').Value:=excel.fieldbyname('Palet_Ici_Koli').value;
Item[2].FieldByName('VOLUME').Value:=excel.fieldbyname('PALET_HACIM').Value;
Item[2].FieldByName('WEIGHT').Value:=excel.fieldbyname('PALET_AGIRLIK').Value;
Item[3].FieldByName('UNIT_CODE').Value:='SU';
Item[3].FieldByName('BARCODE').Value:='';
Item[3].FieldByName('USEF_MTRLCLASS').Value:=1;
Item[3].FieldByName('USEF_PURCHCLAS').Value:=1;
Item[3].FieldByName('USEF_SALESCLAS').Value:=1;
Item[3].FieldByName('CONV_FACT1').Value:=1;
Item[3].FieldByName('CONV_FACT2').Value:=1;
Item[4].FieldByName('UNIT_CODE').Value:='MSU';
Item[4].FieldByName('BARCODE').Value:='';
Item[4].FieldByName('USEF_MTRLCLASS').Value:=1;
Item[4].FieldByName('USEF_PURCHCLAS').Value:=1;
Item[4].FieldByName('USEF_SALESCLAS').Value:=1;
Item[4].FieldByName('CONV_FACT1').Value:=1;
Item[4].FieldByName('CONV_FACT2').Value:=excel.fieldbyname('ADET_MSU').Value;
end;
dat.Post;
for i:=0 to dat.ValidateErrors.Count-1 do
memo2.Lines.Add(excel.fieldbyname('UNITY_Malzeme_Kodu').AsString+' '+dat.ValidateErrors.Item[i].Error);
excel.Next;
end;
qry1.Close;
unityapplication1.UserLogout;
unityapplication1.Disconnect;
showmessage('İşlem Tamamlandı..');
except on e:exception do
begin
showmessage('Aktarılamadı:'+e.Message+#13#10+unityapplication1.GetLastErrorString);
end;
end;
end;

LOGO LOBJECTS.DLL

2007-05-23T08:06:00.000+02:00

LOGO için ek raporlar ve bazı destekliyici uygulama programları yazmam istendi. Raporlama konusunda sorun yoktu fakat logoya veri girişi kısmında dışarıdan müdahale etmenin bazı veri bütünlüklerini bozacağını düşündüğüm için ilk önce gözüme çarpan, Logo'nun menüleri içerinde bulunan XML veri aktarımıydı. Güzel, kullanışlı bir özellik. Fakat bazı işleri otomatikleştireyim dediğinizde orda durup kalıyorsunuz. Sonraları LOGO'da LOBJECTS.DLL olduğunu duydum internetten döküman v.s. araştırdım ilk olarak(Tekerleği baştan icad etmeye gerek yok :) ) fakat pek bir şey bulamadım. Bunu üzerine kendim uğraştım ve uğraşlarım sonucunda edindiğim bilgileri internete paylaşayım dedim.

Benim üzerinde çalıştığım Logo ürünü UNITY, bu versiyonda LOBJECT.DLL kullanım hakkı geliyor fakat Logo'nun diyer versiyonlarında mesela TIGER gibi ek lisans alınması gerektiğini duydum. Birinci olarak lisans durumunuzdan emin olun.

LOBJECTS.DLL çalışabilmesi için çalıştırılan makinada Logo'nunda çalışması gerekiyor. Logo kurulumu yapılmamış bir makinadan çalıştırmak mümkün değil. İkinci olarakta bu konuya dikkat etmek gerekiyor...

LOBJECT.DLL register edilerek işletim sistemine dahil etmek gerekiyor. Üçüncü olarak regsvr32 LOBJECT.DLL komutuyla register etmeniz gerekiyor...

LOBJECT.DLL nesnesini kullanmak için Delphi'yi kullandım. Siz C, VB v.b. dilleride kulllanabilirsiniz. Örneklerim Delphi üzerinden olacaktır. Register işleminiz başarılı ise Delphi açın ve Project menüsü altındaki Import type library seçin "unity object library" bilgisini seçin. "Install'a" bastığınızda, süprizzzzz :) TTable nesnesi zaten tanımlı hata mesajını alacaksınız işlem kesilecek. Pratik olarak ben "Install" yerine Create unit seçip oluşsan dosyanın en altında bulunan register yordamından hata veren nesneleri çıkarttım. Daha sonra "dclusr" içerisine elle ilave ettim. Insall işlemi bitince ActiveX Tab'ı altında Logo objelerini görmüş olacaksınız. En çok kullanacağınız nesne UnityApplicaiton nesnesi... TBL'yi install ettiğinizde ve bu nesnenin hangi özellikleri var diye baktığınızda benim anlatmama gerek kalmadan çoğu kısmını çözmüş olacaksınız.. :)

Örnekler:

unityApplication1.Login(username,password,firmano) bu fonksiyonu logo'ya giriş için kullanıyoruz.(işlem başarısız ise false döner) burda dikkat etmeniz gereken konu;Kullanıcı adı ve şifrenizin büyük/küçük harf bilgisine dikkat etmeniz. Özellikle kullanıcı adı zira, logo'nun kendi arayüzünde küçük yazsa bile kabul ediyorken bu fonksiyonda kabul etmiyor. Kullanıcı adı nasıl girildiyse aynısını yazmaya dikkat edin. Login aşamasındaki hata mesajını görmek isterseniz:UnityApplication1.GetlastErrorString kullanabilirsiniz.

DUALCORE

2007-04-05T16:45:00.000+02:00

945 Chipset boardlar dualcore destekliyor ama %100 hangi chipset diyorsanız. INTEL965 ve 975 size istediğinizi performansı verir..

ADSL DYNAMIC DNS

2007-04-05T16:34:00.000+02:00

ADSL aldınız ama statik(sabit) bir IP almadınız. Bilgisayarınız sürekli açık ve herhangi bir yerdende ulaşmak istiyorsunuz?(Web, Remote Desktop, VPN v.s) . Bunun için çoğu ADSL içerisinde Dynamic DNS hizmetini destekleyen kısımlar var. Sistem şöyle çalışıyor. dynamic DNS hizmeti veren bir siteden(genelde ücretsizdir. www.dyndns.com) bir hesap açıyorsunuz ve host isminizi belirliyorsunuz. ADSL ayar menüsünden DynDNS kısmına girip ilgili yerlere(Hostname,username,password) bilgilerini giriyorsunuz. ADSL her IP değiştiğinde ilgili dns hizmeti veren siteye bu değişen IP bilgisini gönderiyor.....