Bilgisayarınıza bulaşan tabir edilen ve bilgisayarınızı tabiri caizse bir “mal”a çeviren zararlılar, IE (Internet Explorer)’ın giriş sayfasına kendi adresini yazar ve burayı kilitler. Böylece tarayıcıyı her açtığınızda sörfe malware’in sitesi ile başlarsınız. IE’ın giriş sayfası kilidini kaldırmak için aşağıdaki aracı kullanabilirsiniz. Ayrıca kaynak kodlarını da indirebilirsiniz.

giri (73), internet giri (23), explorer açıcı (18), giriş sayfası kilidini açma (13), explorer kilit açma programı indir (12), explorer giri (12), google kilit açma (12), explorer kilit açma kodu (9), internet sayfas (9), google kilit a (9), giriş sayfası kilit açma (8), ana sayfa kilidi acma (8), anasayfa kilidini açma (8), internet explorer kilit açma programı indir (8), ana sayfa kilit açma (8)

“Canvas does not allow drawing” hatası tuval çizime izin vermiyor gibi bir anlam taşıyor. Tuval ressamların resimlerini çizdikleri yüzeye verilen ad burada ise programdaki bileşenlerin görsel kısımlarına (arabirim) karşılık geliyor.

Canvas hatası iki nedenden kaynaklanabilir. Ya çizim yapacak kaynağınız kalmamıştır ya da multithread bir programda tuvali boyamaya çalışan iki fırça birbiriyle çakışıyordur. Dediğimiz gibi bu Canvas hatası ençok multithread programlarda karşımıza çıkıyor. VCL bileşenleri thread-safe değillerdir. Bu yüzden bileşenlerin görsel özellikleriyle işlem yaparken Synchronize fonksiyonunu kullanmalısınız. Synchronize’a parametre olarak verdiğiniz alt program thread-safe olarak çalıştırılır. Yani canvas sorunu çıkartacak görsel işlemleri güvenli bir zamanda icra ettirmiş olursunuz. Aşağıdaki thread örneğini inceleyebilirsiniz.

canvas does not allow drawing (47), delphi canvas (6), delphi multithread (4), delphi messagebox örnekler (1), delphi Tcanvas does not allow drawing (1), delphide canvas hatası (1), canvas delphi nedir (1), delphide canvas özellikleri (1), delphide dialoglar kullanma ne işe yarar (1), mythread : class(tthread) (1), delphi messagebox hata (1), delphi messagebox canvas (1), delphi messagebox (1), delphi diyalog fonksiyonları (1), delphi de diyalog örnekleri (1)

Başlık ilk okunduğunda anlaşılabilecek türden olmadı biliyorum. Metin kutusunun içeriği değiştiğinde içeriğine müdahale etmek pek mümkün değildir (Yani OnChange yordamında  içeriği değiştirecek işlemler yapmak). OnChange olayında içeriği değiştirirseniz, oluşan değişiklikten dolayı OnChange tekrar çalıştırılır ve bu böyle sonsuza kadar devam eder. Aslında yığın (stack) dolana kadar devam eder. Yığın neden dolar derseniz, bir nevi recursive (özyineli) bir süreç başlatırsınız, yani her alt süreçten geri dönebilmek için, sürecin geri dönüş noktası (yordamın enson çağırıldığı konuma karşılık gelen bellek adresi) yığına kaydedilir ve LIFO (Last in First out) düzeniyle geri boşaltılır.

Bu tarz birşeye ihtiyaç duyduğumuzda OnChange olayı boşaltılırsa yukarıdaki gibi bir zincirleme reaksiyon başlamayacaktır. İşimiz bittiğinde de OnChange olayını eski haline geri çevirmeyi unutmamalıyız. Olayın içini boşaltmak için nil değerini kullanıyoruz. Aşağıda bir örnek yer alıyor.

procedure TForm1.Edit1Change(sender:Tobject);
begin
	// OnChange olayinin ici bosaltiliyor
	Edit1.OnChange := NIL;

	// Edit1'in icerigini degistiren kodlar burada

	// OnChange olayi yeniden yukleniyor
	Edit1.OnChange := Edit1Change;
end;

onchange (8), onchange nedir (3), acces metin kutusunun içeriğini değiştirme (1), delphi onchange olayı (1), delphi tedit içeriğini ini dosyasına (1), delphi web içeriğini okuma (1), live(\onchecked (1), metin kutusunda onchange (1), on change nedir (1), onchange karşılığı (1), onchange nedir delphi (1), delphi onchange ne demek (1), delphi edit1 boş alan uyarısı (1), delphi edit olaylari (1), access metin kutusu onchange (1)

Delphi’nin bir scrollbar’a (kaydırma çubuğu) sahip TMemo, TListBox, TStringGrid ve TListView gibi birçok nesnesi bulunmakta. Nesnenin içindeki elemanlar nesnenin yüksekliğine sığmadığında otomatik olarak dikey bir  scroollbar oluşturulur. Bu bar ile liste içerisinde hareket edebilirsiniz. Bazen listede istediğiniz bir elemanı göstermek için kaydırma çubuğunu kontrol etmeniz gerekebilir. Aşağıdaki örneklerdeki gibi SendMessage ile nesneye mesaj göndererek listenin istediğiniz konuma kaymasını sağlayabilirsiniz.

delphi scrollbar (5), dbmemo scrollbar otomatik (2), delphi tip WM_VSCROLL (2), kontrol etme kodu (2), delphi wm_vscroll message (2), delphi memo da kaydırma çubuğunu kod ile aşağı çekme (2), ScrollBar delphi (2), sendmessage delphi (2), delphi de yükleme çubuğu (1), delphide ekran nesne kayma ayarları (1), delphide memo scrollu aşağı çekme (1), delphide resim kodu ile ilgili örnek (1), delphide scrollbarın değerini yazma (1), delphi̇ dbgrid scroll renklendirme (1), wordpress bir alta kaydırma (1)

Windows 7 üzerine Delphi 7 kurduysanız F1 tuşu ile çağrılan yardım dosyasının görüntülenmediğini farkedeceksiniz. Sorun windows 7 ile beraber gelen yardım görüntüleyici programının artık eski yardım dosyası formatlarını (.hlp) desteklemiyor olması. Windows 3.1 den XP ye kadar kullanılan winhlp32.exe adındaki görüntüleyici ihtiyaçları karşılmadığı için Windows 7′ye dahil edilmemiş. Ancak microsoft’un indirilebiliyor. Sorunu çözmek için aşağıdaki dosyayı indirerek kurabilirsiniz. İndireceğiniz .cab paketi içindeki install.cmd betiği, winhlp32.exe‘yi sisteminize kuracaktır. Dilerseniz winhlp32 programını ‘dan da temin edebilirsiniz. (WGA gerektiriyor)

delphi 7 windows 7 uyumu (127), delphi 7 windows 7 (109), delphi 7 indir gezginler (104), delphi windows 7 (42), delphi 7 windows 7 indir (27), windows 7 delphi 7 (16), windows 7 delphi 7 sorunu (14), winhlp32 exe gezginler xp uyumlu (12), windows 7 indir gezginler (12), delphi 7 indir (10), delphi indir gezginler (10), delphi indir (9), delphi 7 for windows 7 (6), delphi 7 (6), windows 7 delphi (5)

TStringGrid nesnesi varsayılan olarak seçili hücrelerini mavi renkle ışıklandırıyor bunu istemiyorsanız aşağıdaki kodu kullanabilirsiniz.

procedure TForm1.FormCreate(Sender: TObject);
var
    grRect: TGridRect;
begin
    grRect.Left := -1;
    grRect.Top := -1;
    grRect.Right := -1;
    grRect.Bottom := -1;
    StringGrid1.Selection := grRect;
end;

delphi stringgrid (5), delphi stringgrid örnekleri (5), stringgrid delphi (3), stringgrid özellikleri (3), stringgrid örnekleri (2), stringgrid örnekler (2), stringgrid delphi 7 (1), stringgrid hücre renklendirme (1), stringgrid hücresine (1), DELPHİ 7 GRİD ÖZELLİKLERİ (1), stringgrid seçili hücre (1), stringgrid seçili hücre delphi (1), stringgrid son kaydın seçilmasi (1), string grid seçili hücre (1), grid hücre hücre boyama (1)

Delphi‘de dizin oluşturmak için kullanılan komut ‘dir. CreateDir belirttiğiniz bir dizinde yeni bir dizin oluşturmak için kullanılır. Eğer amacınız iç içe birden fazla dizin oluşturmak ise (patika oluşturmak) bunu CreateDir’i birden fazla kullanarak yapabilirsiniz ama size tavsiyem bunun yerine komutunu kullanmanız. Örneğin; D:\ sürücüsünde “Dökümanlar\Dersler\Matematik” gibi iç içe bir dizin yapısı oluşturmak istiyorsanız ForceDirectories komutunu aşağıdaki gibi kullanarak bu işi kolayca gerçekleştirebilirsiniz.

ForceDirectories('D:\Dökümanlar\Dersler\Matematik'); 

forcedirectories (4), dizin delphi (4), delphi dizin ağacı (2), delphi forcedirectories (2), dizin ağacı (2), delphi 7 de index oluşturma (1), forcedirectories delphi̇ (1), forcedirectories delphi (1), delphide diziler (1), delphide çoklu diziler (1), delphi forcedirectories createdir (1), delphi de ağaç (1), tree dizin oluşturma (1)

Herhangi bir prosesin (işlem) bünyesinde bulunan thread (kanal) sayısını almak için aşağıdaki alt programı kullanabilirsiniz. GetCurrentProcessId çalışmakta olan programın prosess kimlik numarasını getirir. TlHelp32 ünitesini dahil etmeyi unutmayın.

implementation
uses TlHelp32;

function ThreadCount(iProcessID: DWord): integer;
var
  SnapHandle: THandle;
  ProcEntry: TProcessEntry32;
begin
  Result := 0;
  SnapHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if SnapHandle = 0 then Exit;
  FillChar(ProcEntry, SizeOf(TProcessEntry32), 0);
  ProcEntry.dwSize := SizeOf(TProcessEntry32);
  if Process32First(SnapHandle, ProcEntry) then
  begin
    if ProcEntry.th32ProcessID = iProcessID then
    begin
      Result := ProcEntry.cntThreads;
      Exit;
    end;
    while Process32Next(SnapHandle, ProcEntry) = true do
    begin
      if ProcEntry.th32ProcessID = iProcessID then
      begin
        Result := ProcEntry.cntThreads;
        Break;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := inttostr( ThreadCount( GetCurrentProcessId ));
end;

delphi snaphandle : thandle; (1), getthreadcount delphi (1), snaphandle := createtoolhelp32snapshot(th32cs_snapprocess 0); (1), thread count in a process (1)

Daha önce burada ‘ye bulaşan Induc isimli virüsten bahsetmiştik. Virüs, eğer Delphi IDE‘si yüklü ise kendini delphi’nin lib dizinindeki sysconst.dcu dosyasına ekliyor. Bu dosya tüm delphi projelerine otomatik olarak dahil edildiği için geliştirdiğiniz tüm uygulamaların exe dosyaların enfekte olmuş oluyor.

Delphi IDE’sine bulaşan bu zararlıdan kurtulmak için aşağıdaki adımları uygulayabilirsiniz:

1) C:\Program Files (x86)\Borland\Delphi7\Source\Rtl\Sys\SysConst.pas dosyasını C:\Program Files (x86)\Borland\Delphi7\Lib dizine kopyalayın.

2) C:\Program Files (x86)\Borland\Delphi7\Lib\SysConst.dcu dosyasını silin.

3) Win32Induc bulaşan uygulamanızın exe’sini silin ve yeniden derleyin.

Dikkat: bu işlemlerden sonra yeni derlenen uygulamalarda Induc yer almayacak fakat Induc’ın bulaştığı bir uygulamayı çalıştırdığınızda Delphi IDE’niz yeniden enfekte olacak. Bu yüzden Delphi çalışmalarınızı bir antivirüs yazılımı ile taratarak temizletmeniz gerekiyor.

Basit bir önlem alalım

Ne olur ne olmaz diyerek SysConst.dcu dosyanızı değişikliklere karşı korumaya almak isteyebilirsiniz, bunun için aşağıdaki adımları uygulayın.

1) C:\Program Files (x86)\Borland\Delphi7\Lib\SysConst.dcu sağ tıklayıp özellikler seçeneğine tıklayın.

2) Özellikler penceresinden salt okunur (readonly) öznetiliğini işaretleyin ve uygulayın.

Bir önlem daha alalım (gözümüz çıkmaz umarım)

Dosyayı Saltokunur yaptık ama virüs yine de bu izni kaldırıp üzerine  yazabilir diyorsanız çok sağlıklı düşünüyorsunuz demektir.  Windows kullanıcı hesabınızın bu dosya üzerindeki öznitelikleri değiştirme yetkisini de kaldırabilirsiniz. Bunun için aşağıdaki adımları uygulayın.

1) C:\Program Files (x86)\Borland\Delphi7\Lib\SysConst.dcu sağ tıklayıp özellikler seçeneğine tıklayın.

2) Güvenlik sekmesine gelin, Administrators (hesabınızın üye olduğu gurup)’ı seçip Gelişmiş düğmesine tıklayın.

3) Açılan Gelişmiş Güvenlik Ayarları penceresinden, Administrators‘i seçip İzinleri Değiştir düğmesine tıklayın.

4) Açılan yeni pencereden, Administrators‘i seçip Düzenle düğmesine tıklayın.

5) Açılan İzin Girdisi penceresindeki izinler listesinden, Öznitelikleri yaz isimli izine ait İzin Verme onay kutusunu işaretleyin.

6) Açık olan tüm pencerelerin Tamam düğmelerine tıklayarak kapatın.

Bu son adımda yaptığımız ayarlara ait ekran görüntüsü aşağıdaki gibi bir şey:

v9 web siteleri portalı kaldırma (11), v9 kaldırma (5), borland delphi 7 indir (2), bu öznitelikleri değiştirmek için yönetici izni (2), v9 web siteleri portalı virüs (2), v9 kaldırmak istiyorum (2), v9 web portalı kaldırma (2), borland delphi 7 32 exe indir (1), öznitelikleri değiştirme (1), v9 site portalı kaldırma (1), v9 web siteleri portalı (1), v9 web siteleri portalı nasıl kaldırılır (1), v9 web siteleri portalını kaldıramıyorum (1), induc c (1), induc a (1)

Daha önce PHP’de yazdığım yarım kalmış bir e-okul projesinden bahsetmiş ve kodlarını paylaşmıştım. Paylaşımın delphi ayağına ait programı henuz bulabildim. Onuda buradan paylaşacağım. Program kısca; Bilsa Karma programının mdb biçimindeki veritabanlarından not ve devamsızlık bilgilerini alarak script’in kullanabileceği MySQL veribanına aktarıyor. Program temel görevleri yerine getiriyor fakat üzerinden bir hayli zaman geçtiği için eksiklikleri/hataları nelerdi konusunu hatırlayamıyorum.

Programı derleyip çalıştırmayı deneyecekler için;

1. Ana form üzerinde Ayarlar düğmesinden script’in bulunduğu URL’yi yazın
2. Kullanıcı adı olarak script’in config.php dosyasındaki DBUpdateUsername ve DBUpdatePassword değerlerini kullanın.
3. Data dizinine okul veritabanlarının saklandığı “1″,”2″.. ismindeki klasörler ile OGRSIFRE.MDB ve STARTUP.MDB isimli veritabanlarını kopyalayın veya Gözat düğmesi ile Karma’nın yüklü olduğu ana dizini gösterin.

e okul (99), e okul script (96), e-okul scripti (54), e okul script indir (51), script e okul (43), eokul script (40), E okul Scripti (37), e-okul script (37), EOKUL (29), e okul icin script indir (26), okul scripti (25), e okkul (22), EOKUL EOKUL (19), e okul php (12), okul script (11)

Delphi’nin Syscons.dcu veya sysconst.pas dosyasına bulaşan bir virüs peydah oldu.

Kaspersky’da adlandırması Win32.Induc.a olarak geçiyor, kendisini sysconst.pas’a include etmek sureti ile bulaşıyor.

Böylelikle her derlemede exe içerisinde virüscük de yaşamaya devam ediyor.

Bu durumda önce virüs temizliği sonra mutlaka delphi’ı kaldırıp tekrar kurmak lazım (ben öyle yaptım).

Evet ne yazıkki sisteminizde hiç virüs olmasa da kullandığınız ücretsiz full open source komponentler de ne yazıkki virüse neden olabiliyor.

Her yüklediğimiz yeni komponeneti bir de kod kontrolünden geçirmek lazım sanırım.

Virüslü olup olmadığınız anlamak için sysconst.pas içinde aşağıdaki kodlar var mı yok mu bakmak gerekiyor. Tabi bu sadece bu türün bir türevi ise dışarıdan aldığımız her komponenti incelemek de şart.

Delphi 4-7 geliştirme ortamına bulaşan virüs varyantının kodları aşağıdaki gibi.

delphi assignfile ne işe yarar (2), delphi sysconst bak temizleme (2), induc virus (2), win32 induc b (1), win32 ınduc a temizleme (1), şafak yüksektepe delphi (1), şafak yüksektepe (1), induc virüs nedir (1), induc a virus nedir (1), delphi virüslü derliyor (1), win32 induc virus (1)

TIdHttp içinde aniden peydahlanan bu sorun kodun ele aldığı tarih bilgisinin, daha doğrusu tarih formatının önceden varsayıldığı gibi olmamasından kaynaklanıyor. Aslında bu sorunun çözümü için ‘da birkaç farklı yol bulunsa da kod yamalamayı gerektirdiği için bunları tavsiye edemiyorum.

Belirsiz bir nedenden dolayı süpriz olarak ortaya çıkan bu sorunu kütüphaneleri yamalayarak çözmek pek mantıklı değil. Delphi’nin kütüphaneleri eğer güncel bir versiyonunu kullanıyorsanız muhtemelen böcek/kod satırı oranı iyi bir düzeydedir ve sizin yapacağınız müdahalelerin bu oranı artırma potansiyeli yüksek.

Çözüm olarak bilgisayarınızı yeniden başlatıp hatayı tekrar kontrol edin. Sorun muhtemelen yüklediğiniz bir programın windows’un kararlılığını bozduğu geçici bir durumdur.

Başka bir çözüm de Windows’un denetim masasındaki Bölge ve Dil Seçenekleri simgesinden geçerli tarih formatı ayarlarınızın normal olup olmadığına bakın.

Related Blogs

invalid argument to date encode (18), delphi invalid argument (4), invalid argument to date encode delphi (3), invalid argument to date encodehatasını gidermek (2), canvas does not allow drawing çözüm (1), invalid ergument encode türkçe (1), invalid argument to date to encode (1), invalıd argument date encode (1), idhttp1 invalid argument to date encode (1), e okul kalıcı not değiştirme kodu ps (1), delphide invalid argument (1), delphi windows 7 bölge ve (1), delphi invalid argument to date encode (1), delphi bölge ve dil seçenekleri (1), delphi access violation çözümü (1)

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.

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 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.

access point delphi (5), delphi access violation (3), delphi ile access (2), delphi map dosyası (2), delphi de invalid argument hatası (2), delphide sıfır hata (2), access violation delphi (2), delphide access de hata (1), delphi from access violation (1), invalid argument to date encode hatasını gidermek (1), eaccess violation error delphi 7 (1), delphi options access violation error (1), delphi örnek proje (1), delphi örnek projeler (1), delphi projeleri rar (1)

Ş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ı.