[tankado@transltr]# rm -rf /

About.com birçok konuda olduğu gibi Delphi'de yazılım geliştirme konularıyla ilgili yazılar yayınlıyor. Makaleler ve çeşitli kod örneklerinden oluşan yazılar ele aldığı konuların kullanışlılığı ve anlatımındaki yalınlık ile akılda kalıyor. Aşağıda, benim de zamanında çok aradığım ve bazılarının işine yarayabilecek, web sitelerinin ekran görüntüsünü çekmek için bir kod yer alıyor. Kod TWebBrowser nesnesi ile taranan sayfaların ekran görüntüsünü kaydetmek için kullanılıyor.  devamı...

Bu program ile rapidshare.com'a dosya yükleyebilir veya dosya indirebilirsiniz. Premium hesabınızı da kullanabildiğiniz program Rapidshare.com sitesinin kendi yazılımı. Dosya gönderiminde aktarım hızını belirleyebildiğiniz gibi yarım kalmış dosyaları daha sonra da devam ettirebiliyorsunuz. Rapidshare'e toplu dosyalar göndermek söz konusu olduğunda vazgeçilemeyecek bir yazılım.

İndirme sayfasına gitmek için : http://rapidshare.com/rsm.html

Access violation hatası belleğin işlem yapılan konumunun okunamamasından veya yazılamamasından kaynaklanır. Hata mesajında hataya neden olan kodun segment ve ofset adresleri bildirildiğinden programcının hatanın yerini tespit etmesi zordur. Benzer sorunlar sıfıra bölme (zero division) ve yığın taşması (stack overflow) gerçekleştiğinde de olur.

Delphi programlarında bu tür sorunlara neden olan kod satırlarını tespit münkündür. Bunun için Project->Options...->Linker ekranındaki Map file ayarı Detailed olarak ayarlanır. Bundan sonra her derleme işleminde uzantısı map olan bir bellek harita dosyası oluşturur.

Bu dosyada program  kod satırlarınıa karşılık gelen makina kodlarının ofset adresleri yer alır. Böylece hatanın oluştuğu bellek adresinin hangi kod satırına karşılık geldiği bulunabilir.


Hatalı kod satırını daha düzgün ve ayrıntılı olarak raporlayabilmek için uLkStackTrace class'ını kullanabiliriz. uLkStackTrace Mozilla lisansıyla dağıtılan bir SourceForge.net projesi.

uLkStackTrace sınıfınınkullanıldığı örnek proje dosyasını aşağıdaki bağlantı ile indirebilirsiniz:



UnhandledExceptions_DelphiSourceCode.rar (~241KB)<


Örnek projede de görüleceği üzere, sınıfın kullanılmasından kısaca bahsetmek  gerekirse;

• Uses bloğuna uLkStackTrace unit ismini ekleyin.
• İstisnaları ekrana veya bir dosyaya rapor edecek bir prosedür hazırlayın.
• LkExceptionReporter yordamına bu prosedürü atayın.
• Rapor prosedürünü Form.Create'in başına yazmayı unutmayın.

  devamı...

Rapidshare admin Rapidshare.com sitesinde premium hesabı bulunanların dizin ve dosyalarını yönetmek için kullanabilecekleri bir program. Rapishare admin açık kaynak kodlu ücretsiz bir yazılım.


Programı kullanarak yapabilecekleriniz şöyle;

• Dosya ve dizinlerinizi kolayca kaldırabilir.
• Topluca şifre korumalı dosya ve dizinler oluşturabilir.
• Dosyalarınıza topluca açıklama tanımlayabilir.
• Mevcut dosyalarınız hakkında istatistikleri görebilir.
• Sürükle bırak ile dosyalarınızın yerini değiştirebilirsiniz.

Programlama öğretiminde kullanılan Flow Chart Visual Programming Language adlı programı Türkçeye çevirdim. Çizilen bir akış diyagramını adım adım çalıştırıp  çıktısını sanal bir konsol ekranında görüntüleyen program, programlamayı yeni başlayanların, hazırladıkları algoritmalarını sınamak için kullanabilecekleri faydalı bir yazılım. Aşağıdaki bağlantıyı kullanarak programı ve örnek program dosyalarını bilgisayarınıza indirip ücretsiz olarak kullanmaya başlayabilirsiniz.

FlowChartVisualProgrammingLanguage_v3.1_Turkce.EXE (~4.65MB)

2008 yılı başında yürürlüğe giren yeni vergi kanununa göre; yıllık motorlu taşıt vergisi, aracın kasko değerinin %5'inden fazla olamıyor. Örneğin kasko değeri 15.000 YTL olan aracınızın yaş ve motor hacmine göre taşıt vergisi 773YTL ise kasko değerinin %5'i olan 750YTL'yi geçtiği için vergi indiriminden yararlanabiliyorsunuz  Yani yeni motorlu taşıtlar vergi kanununa göre bir alt dilimden 421 YTL olarak ödeyebiliyorsunuz.

İndirimden yararlanabilmek için sigorta şirketinizden temin edecağiniz aracınızın teknik bilgilerinin yer aldığı form ve bir dilekçe ile motorlu taşıtlar vergi dairesine müracat etmeniz gerekiyor.

İndir: Motorlu Kara Taşıtları Kasko Değer Listesi (Excel dosyası ~417KB)

Motorlu Kara Taşıtları Kasko Değer Sorgulama Sayfası

Şu tabloya bir göz atın:





Bu tablo, Lotus Notes workgroup yazılımının piyasaya ilk çıkarıldığı tarih olan 1989’dan 2000 yılına kadar kaç yerde kurulu olduğunu göstermektedir. Aslında Notes 1.0 sürümü çıkarıldığında beş yıldan beri geliştirilmekte idi. Notes’un yeterli kaliteye erişmesi ve kullanıcıların satın almaya başlaması için geçen sürenin uzunluğuna dikkatinizi çekmek isterim. Gerçekten de 1984 yılında ilk kod satırının yazılmaya başlaması ile yukarıdaki eğrinin yükselen kısmına erişmesi için tam 11 yıl geçmesi gerekmiştir. Bu süre boyunca Ray Ozzie ve kadrosu St Barts’da buzlu viski içmiyorlardı. Nefes almaksızın kod yazıyorlardı.  devamı...

Nod32 Antivürüsünün üreticisi ESET'in yni güvenlik tarayıcısı SysInspector ücretsiz olarak indirilebiliyor. Windows NT tabanlı sistemlerde çalışan yazılım kısa bir taramanın ardından sistem hakkında birçok ayrıntıya ulaşıyor. Bu ayrıntılar arasında çalışan prosesler, bazı özel registry girdileri, otomatik başlatma patikaları ve ağ bağlantı bilgileri yer alıyor. Program ile arama sonuçlarını dilerseniz çeşitli risk seviyelerinde inceleyebilir veya bir log dosyasına kaydedip incelenmek üzere paylaşabilirsiniz. Yazılım MBR'da kayıtlı yazılım bileşenlerini, registry girdilerini, sürücüleri, servis ve prosesleri sahip olduğu Anti-stealth teknolojisi ile tarıyor. Bu sayede potansiyel rootkit ve benzer casus yazılımları da tespit etmek kolaylaşıyor. Kuruluma gerek duymayan program EULA (son kullanıcı şartnamesi) bir kez kabul edildikten sonra çalışmaya başlıyor.

Bizler de meraklıyız derin anlamı olan sözlere. Okuduktan sonra “Vay be adama bak iyi laf etmiş” dediğimiz bir sürü yazı okuduk bugüne kadar. Bir çoğu sosyal tespit niteliğindeydi ve hemen hepsi de haklı sözlerdi. Az da olsa beğenmediğim “Sussaymışsın daha iyi olurmuş” dediklerim de yok değil gerçi…

Yakın tarihin en çok konuşan isimleri arasında Atatürk de yer alıyor. Bugün etrafımızda yazı yazılabilecek bir sürü alanda Ata’nın özlü sözleri var. Malum, Atatürk hemen hemen her şey için bir şeyler söylemiş. Devlet politikasıyla ilgili konuşmuş, sanatçılara gaz vermiş, Türk’ün yüceliğinden, gençliğin dinamizminden, öğretmenlerin mesuliyetinden anlatmış da anlatmış. Özetle arkasından gelenlerin ufkunu açmış, yol göstermiş. Anladığım kadarıyla Atatürk’ü rehber edinenler bunların bir kısmını oturduğu yeriyle anlamış. Dayanamadım! Huzurlarınızda Atatürk’ün özlü sözlerini kıçından anlayanları Atatürk’e şikayet ediyorum.

  devamı...

Gittigidiyor (GG)'un bu tarzını tanımlayabilecek en uygun sıfat külhanbeyi.

Neden?
Varsayalımki elinizde  330 YTL fiyata satmak istediğiniz bir ürün var. GG normalde vergi ve giderler deyip %10'u kesiyor ve elinize 300 YTL geçiyor. Fakat fiyat 250YTL yi geçtiği için taksitli alış veriş seçeneği isteğiniz dışında devreye giriyor. Bunu istememe imkanınız yok. GG buna müsade vermiyor. Taksit devreye girince de geliriniz %20'ye kadar azalıyor. Örneğin sattığım ürünü alan alıcı, kredi kartı ile peşin ödeme yerine 3 taksitiseçerse elinize 281YTL, 6 Taksit seçerse 275YTL veya 12 Taksiti seçerse 265 YTL geçiyor. Yani potansiyel alıcımız 330 YTL verip 12 taksit vantajını kullanırsa bunun satıcıya fazladan 35 YTL daha zararı oluyor. GG 35 YTL 'yi ilgili kredi kartının bankası ile paylaşıyor.

Para kazanmak bu kadar kolay mı? Hem de pazar payı avantıjını kullanıp satıcıyı mağdur duruma sokarak.

Bu konu ile ilgili yazışmanın örneğini yazının devamında bulabilirsiniz.  devamı...

Bingöl-Elazığ karayolunu kesen PKK'lı katiller otobüslerden indirdikleri 33 eri kurşuna dizdi. Olay gecesini katliamdan kurtulan asker anlatıyor. Mutlaka inceleyin.

33nedir.pps ~450KB

ZEOSDBO-6.6.2-rc ile ZQuery1.SQL.Add('select * from links'); sorgusunu çalıştırıp  ZQuery1.FieldbyName('title').AsVariant; ile veriyi almaya calıştığımda aşağıdaki hata mesajını alıyordum;

Application raised an exception class EZSQLException with mesage 'Column with name "Extra" was not found"

Nedenini anlayamadığım bu anlamsız istisna select * ile tüm alanlar seçildiğinde peydahlanırken, seçilecek alan isimleri belirtildiğinde oluşmuyor. Çözümü ilgili istisnayı yaratan kodu kapatmakla buldum. İgili kod ZDbcResultSet.pas dosyasının TZAbstractResultSet.GetColumnIndex isimli metodunda.

{**
  Maps the given <code>ResultSet</code> column name to its
  <code>ResultSet</code> column index.

  @param columnName the name of the column
  @return the column index of the given column name
}
function TZAbstractResultSet.GetColumnIndex(const ColumnName: string): Integer;
begin
  Result := FindColumn(ColumnName);

  //if Result < 1 then
  //  raise EZSQLException.Create(Format(SColumnWasNotFound, [ColumnName]));
end;

Bundan bir kaç yıl öncesine kadar F-16 üretim merkezi TAI de uçakların dost-düşman tanımlamasını yapan elektronik sistemi, bir tane dahi Türk mühendisin bile giremediği bir bölümde üretiliyordu. * *Bu sistem Türk F-16 sının bir uçak ile karşılaştığında karşıdakinin dost mu düşman mı olduğunu pilota iletiyordu. Yalnız burada bir sorun vardı.Bir Türk F-16 sı stratejik kadim dostlarımızdan (!) ABD, İngiliz veya Yunan uçaklarından biri ile karşılaştığında onları DOST görüyordu. Bu da bir savaş halinde Bu kadim dostlarımızın (!) bizi sinek avlar gibi avlayabilmesi anlamını taşıyordu.
  devamı...

Fix Amvo - MADOWN (%windir%\system32\amvo.exe )

 Bu zararlıdan kurtulmanız için size bu küçük uygulamayı hazırladık.

Yapmanız gereken rar'ın içindeki dosyaları masa üstüne çıkarmak, sistemi güvenlik mod da açmak ve fix_amvo.bat dosyasını çalıştırmak.

  devamı...

Sunucunuza bağlanmaya (RDP) çalıştığınızda bu uyarı mesajını alıyorsanız, sunucunuzun bağlantı limitine ulaşmışsınız demekdir. Aşağıdaki komutla bir "konsol oturumu" açacağınızı belirterek yinede sunucunuza oturum açmanız mümkün..

Başlat->Çalıştır'a şunu yazın;

 mstsc /v:sunucunuzun_adresi /console

Dilerseniz sunucunuza oturum açtıktan sonra mevcut bağlantı ve oturumları yönetmek/sonlandırmak isterseniz. Başlat->Çalıştır'a tsadmin komutunu yazın.(Açık oturumları görev yöneticisinin users/kullanıcılar sekmesinden de yönetebilirsiniz)