- Uzun zamandır kafamı kurcalayan bir soru var. Kendimce çözdüm ama
alternatif bir çözümü vardır diye değerlendiriyorum.
- Bir CD'deki 2000 tane WMF dosyasını bir veritabanına atıyorken, WMF
resmin, Width ve Height değerini almak için küçük bir fonksiyonla TMetafile
create edip, işim bitince de Free ediyordum.
- Bu arada köşede sürekli açık olan Kaynak Ölçer'in seviyesine gözüm ilişti,
hızla azaldığını gördüm. Açınca da ne göreyim. Kısa süre içinde Sistem ve
Kullanıcı kaynakları tükendi.
- Acaba Free edince başka işlem mi yapmam gerekiyor ki hafızam boşalsın diye
aşağıdaki işlemi denedim. Bir tane WMF'yi 10.000 kere hafızaya yükleyip free
ettim.
procedure TForm1.Button1Click(Sender: TObject);
Var
M : TMetaFile;
I : Integer;
begin
for I := 0 to 10000 do
begin
M := TMetafile.Create;
M.LoadFromFile('C:\deneme.wmf');
M.Free;
Application.Processmessages;
Button1.Caption := IntToStr(I);
end;
end;
- Sistem kaynaklarında hiç eksilme olmadı Ben de çözüm olarak her WMF
dosyasını sırasıyla, HDD'ye 'Deneme.WMF' olarak sabit bir isim ile kaydedip,
sonra bu kaydedilenden bilgileri eski şekilde sorgulayıp veritabanına
ekledim. Problemim çözüldü
)- Ama kafamdaki soru baki kaldı.
