Fonksiyon içinde create edilenler

[seci20]

Merhaba ustalarım.  Diyelim bir foksiyon içinde bir memorystream create ettik. Bunu foksiyon içinde free yapmadan foksiyon bittiğinde otomatik free ediyormu ? Birde etmiyorsa bunu nasıl gözlemleyebilirim ? Create ettiğimiz objeleri nasıl görebilirim ?

[Tuğrul HELVACI]

Delphi'de Garbage Collection benzeri bir çöp toplama mekanizması yok. Lâkin hafızayı efektif kullanmak için çeşitli yollar var elbette. Bunlardan bir tanesi Owner mekanizması bir diğeri de sınıfların interface implemente etmeleri. Elbette en önemli husus, programcı disiplini. Oluşturduğumuz nesneyi yok etmek'de bizim işimiz olmalı normalde.

 Sorunuza daha açık yanıt vermek gerekir ise; hayır bir memory stream ilgili scope'dan çıkılınca kendi kendine free olmaz. Bunun için ilgili nesnenin bir interface implemente etmiş olması gerekir. Oluşturduğunuz nesnelerin temizlenmediğini düşünüyor iseniz ve Delphi'nin yeni versiyonlarından birisini kullanıyorsanız; bu durumda ReportMemoryLeaksOnShutdown := true atamasını yapın, programınızı kullanın ve kapatın. Kapattığınızda hafıza kaçakları ile ilgili bir kısım bilgi sunulacak size(eğer var ise).

[seci20]

(22-07-2019, Saat: 08:37)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Delphi'de Garbage Collection benzeri bir çöp toplama mekanizması yok. Lâkin hafızayı efektif kullanmak için çeşitli yollar var elbette. Bunlardan bir tanesi Owner mekanizması bir diğeri de sınıfların interface implemente etmeleri. Elbette en önemli husus, programcı disiplini. Oluşturduğumuz nesneyi yok etmek'de bizim işimiz olmalı normalde.

 Sorunuza daha açık yanıt vermek gerekir ise; hayır bir memory stream ilgili scope'dan çıkılınca kendi kendine free olmaz. Bunun için ilgili nesnenin bir interface implemente etmiş olması gerekir. Oluşturduğunuz nesnelerin temizlenmediğini düşünüyor iseniz ve Delphi'nin yeni versiyonlarından birisini kullanıyorsanız; bu durumda ReportMemoryLeaksOnShutdown := true atamasını yapın, programınızı kullanın ve kapatın. Kapattığınızda hafıza kaçakları ile ilgili bir kısım bilgi sunulacak size(eğer var ise).

Hocam cevap verdiğiniz için çok teşekkür ederim. Kaçak varmış 4 tane kadar ama adlarını vermiyor bunu öğrenmenin bir yolu yokmu acaba ?

[CumaParlak]

(22-07-2019, Saat: 10:50)seci20 Adlı Kullanıcıdan Alıntı:

(22-07-2019, Saat: 08:37)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Delphi'de Garbage Collection benzeri bir çöp toplama mekanizması yok. Lâkin hafızayı efektif kullanmak için çeşitli yollar var elbette. Bunlardan bir tanesi Owner mekanizması bir diğeri de sınıfların interface implemente etmeleri. Elbette en önemli husus, programcı disiplini. Oluşturduğumuz nesneyi yok etmek'de bizim işimiz olmalı normalde.

 Sorunuza daha açık yanıt vermek gerekir ise; hayır bir memory stream ilgili scope'dan çıkılınca kendi kendine free olmaz. Bunun için ilgili nesnenin bir interface implemente etmiş olması gerekir. Oluşturduğunuz nesnelerin temizlenmediğini düşünüyor iseniz ve Delphi'nin yeni versiyonlarından birisini kullanıyorsanız; bu durumda ReportMemoryLeaksOnShutdown := true atamasını yapın, programınızı kullanın ve kapatın. Kapattığınızda hafıza kaçakları ile ilgili bir kısım bilgi sunulacak size(eğer var ise).

Hocam cevap verdiğiniz için çok teşekkür ederim. Kaçak varmış 4 tane kadar ama adlarını vermiyor bunu öğrenmenin bir yolu yokmu acaba ?

Tuğrul Bey ilgili interface içinde yapılırsa ve sınıfa implemente edilirse create edilen nesnelerin takibini yapmak zorunda değilmiyiz. 

Konuyla iligli örnek yada kaynak için yardımcı olabilir misiniz.

Teşekkürler.

[Tuğrul HELVACI]

(22-07-2019, Saat: 11:18)CumaParlak Adlı Kullanıcıdan Alıntı:

(22-07-2019, Saat: 10:50)seci20 Adlı Kullanıcıdan Alıntı: Hocam cevap verdiğiniz için çok teşekkür ederim. Kaçak varmış 4 tane kadar ama adlarını vermiyor bunu öğrenmenin bir yolu yokmu acaba ?

Tuğrul Bey ilgili interface içinde yapılırsa ve sınıfa implemente edilirse create edilen nesnelerin takibini yapmak zorunda değilmiyiz. 

Konuyla iligli örnek yada kaynak için yardımcı olabilir misiniz.

Teşekkürler.

Bir sınıf interface implemente etmeye başladığında otomatik referans sayımı mekanizmasına dahil olur. İlgili nesneye referans 0(sıfır)'a düştüğünde otomatikman Destroy metodu çağrılır. Dolayısı ile nesne yok edilir. Bir nesneye işaret eden değişkenler (pointer'lar) tanımlandıkları scope'dan çıkıldığında (tabii interface implemente etmiş bir sınıfın nesne örneğine işaret eden bir değişkeni kast ediyorum); nil'e set edilir. Dolayısı ile referans değeri 1(bir) azaltılır.

Konu ile ilgili bir kısım malümatı sitemde bulabilirsiniz.

[Tuğrul HELVACI]

(22-07-2019, Saat: 10:50)seci20 Adlı Kullanıcıdan Alıntı:

(22-07-2019, Saat: 08:37)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Delphi'de Garbage Collection benzeri bir çöp toplama mekanizması yok. Lâkin hafızayı efektif kullanmak için çeşitli yollar var elbette. Bunlardan bir tanesi Owner mekanizması bir diğeri de sınıfların interface implemente etmeleri. Elbette en önemli husus, programcı disiplini. Oluşturduğumuz nesneyi yok etmek'de bizim işimiz olmalı normalde.

 Sorunuza daha açık yanıt vermek gerekir ise; hayır bir memory stream ilgili scope'dan çıkılınca kendi kendine free olmaz. Bunun için ilgili nesnenin bir interface implemente etmiş olması gerekir. Oluşturduğunuz nesnelerin temizlenmediğini düşünüyor iseniz ve Delphi'nin yeni versiyonlarından birisini kullanıyorsanız; bu durumda ReportMemoryLeaksOnShutdown := true atamasını yapın, programınızı kullanın ve kapatın. Kapattığınızda hafıza kaçakları ile ilgili bir kısım bilgi sunulacak size(eğer var ise).

Hocam cevap verdiğiniz için çok teşekkür ederim. Kaçak varmış 4 tane kadar ama adlarını vermiyor bunu öğrenmenin bir yolu yokmu acaba ?

Bunun için de bir kaç yol var. Maalesef Delphi'nin memory leak tespit aracı nispeten kısıtlı. Aşağıdaki yollardan birisini kullanabilirsiniz.
  - EurekaLog indirip onu kullanın.
  - MadExcept kullanabilirsiniz.
  - FastMM Full Debug mode kullanabilirsiniz.

[Tuğrul HELVACI]

Yeri gelmişken küçük de bir araştırma için size şevk vermeye çalışayım:

ReportMemoryLeaksOnShutdown := true; iken;
-------------------------------------------------------------
1- Aşağıdaki kodun çalışmasını sağlayın, ardından uygulamayı kapatın. Ne görüyorsunuz, neden ?

procedure TForm1.Button1Click(Sender: TObject);
begin
 TButton.Create(nil);
end;

2- Aşağıdaki kodun çalışmasını sağlayın, ardından uygulamayı kapatın. Ne görüyorsunuz, neden ?

procedure TForm1.Button1Click(Sender: TObject);
begin
 TButton.Create(Self);
end;

[cinarbil]

Yanlışım varsa af ola.
cümleleri tam kuramaz isen af ola.

TButton.Create(nil);

komutunda birden çok hafıza taşması oldu.

TButton.Create(Self);

herhangi bir hafıza taşması olmadı.

• Nil   nesnenin sahibi olmadığını  için oluşturulan nesneyi yok etmek oluşturanın (bizim sorumluluğumuzda) formun close olayına  TButton.Free eklenmeli
  
  
  
  
• Self  , yöntemin çağrıldığı nesneyi belirtir.  button1 OnClick  olayına  self ile oluşturunca yeni oluşan button 'nun sahibi button1 olur button1 in sahibi form1 olduğundan 
  
• form1 kapatılırken  button1 kapatır  button1 kapanırken TButton.Create(Self) oluşan button kapanır.
  

anlatım bozukluğu için özür.

[Tuğrul HELVACI]

En güzel açıklamayı kodun kendisi yapacaktır. TComponent.Create ve TComponent.Destroy metodlarını incelemek çok yararlı olacaktır ;-)