İmage nesnesine yüklenen resmi hafızadan silmek

[AliRiza]

Arkadaşlar image nesnesine queryden gelen veriye göre resim yüklüyorum.İmage nesnesini gizledim..

Kod: Tümünü seç

procedure TForm1.sorgulaClick(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.SQL.Add('select * from etiket where ntno='+QuotedStr(edit1.Text));
adoquery1.Open;

 if   FileSearch(adoquery1.fieldbyname('resim').AsString+'.bmp',way2)<>'' then
begin
image1.Picture.LoadFromFile(way2+adoquery1.fieldbyname('resim').asstring+'.bmp');
(frReport2.FindObject('Picture1') as TfrPictureview).Picture.Assign(image1.Picture);
end,

Şöyle problemim var.Arama yaptığımda veritabanında resim varsa yüklüyor.Her aramada resim varsa uygun resim geliyor..Veritabanında eğer resim yoksa bir önceki resmi image nesnesine yüklüyor.
Resmin var olup olmadığını kontrol ettiriyorum ama aynı problem yine devam ediyor.
Burada problemin çözüm yolu image nesnesini boşaltmak gibi duruyor.

Yüklemeden image1.free yapıyorum access violation veriyor,destroy yapıyorum yine aynı problem..
Arkadaşlar bu konuda yardımınıza ihtiyacım var..
Yardımlarınızı bekliyorum..

[delphist]

Resim bulunamadı yazan bir bitmap resim hazırlayıp bulunmadığı takdirde bu resmi gösterebilirsin...

[aLonE CoDeR]

Merhaba.
Arattığınız dosya ismi her seferde değişiyor mu bunu kontrol edin.Bir de dosyayı kontrol ekmek için neden "FileSearch" fonksiyonunu kullandığınızı sorabilir miyim? Ek olarak string karşılaştırması için "SameText" fonksiyonunu kullanmanız daha sağlıklı olur.
Kolay gelsin.

[mrmarman]

@delphist'in yaklaşımı doğru.

- Ayrıca TImage içindeki resmi silmek için

Kod: Tümünü seç

Image1.Picture := Nil;

komutu yeterli...

@bLue aLonE'in sorusuna da hak veriyorum. Bir dosyanın var olup olmadığını test etmek için FileExists() fonksiyonunu kullanabilirsin...

- Kodunu da aşağıdaki şekilde güncelledim ama test etmedim. Way2 değişkeninin global bir değişken olduğunu değerlendiriyorum..

Kod: Tümünü seç

procedure TForm1.sorgulaClick(Sender: TObject);
begin
  adoquery1.SQL.Clear;
  adoquery1.Close;
  adoquery1.SQL.Add('select * from etiket where ntno='+QuotedStr(edit1.Text));
  adoquery1.Open;

  if FileExists(way2+adoquery1.fieldbyname('resim').AsString+'.bmp') then
  begin
    image1.Picture.LoadFromFile(way2+adoquery1.fieldbyname('resim').asstring+'.bmp');
    (frReport2.FindObject('Picture1') as TfrPictureview).Picture.Assign(image1.Picture);
  end
  else image1.Picture := Nil;
end;

[AliRiza]

Ya Muharrem hocam yardımın için sağol.
Yanlız kodu dediğiniz gibide denedim.yine aynı problem devam ediyor.
image1.picture:=nil olmuyor...
Yani eğer resim varsa aranılan üründe doğru resimler geliyor..
Resim yoksa eğer önceden hiç arama yaptırmadıysak yine image'a resim yüklemediysek resim yoksa gelmiyor.Ama bir arama yaptık ürünün resmi var..Daha sonraki aramada ürünün resmi yok önceki aramadaki resmi alıyor..
Sizce neden olabilir..

[AliRiza]

Problemin nedenini buldum arkadaşlar..
İmage'den nil yaparken free reporttaki image'den den nil yapmak gerekiyor..
Free reportdanda nil yaptım.Belki bir arkadaşa lazım olur..
(frReport2.FindObject('Picture1') as TfrPictureview).Picture:=Nil;

[aLonE CoDeR]

Kullandığınız yöntemin stabil bir çözüm olmadığını düşünüyorum.Olay biraz daha dallandığında bu kodlama sistemi yüzünden çok zaman kaybı yaşayabilirsiniz..
Kolay gelsin.