DBImage deki Resmin Özellikleri.....................

[HBV]

Selamlar.. DBImagede ki bir resmin Özelliklerini(Size,Renk.vs.) Label de nasıl gösterebilirim.Herkese iyi çalışmalar.

(JEDI'in JvDBImage Kullanıyorum JPEG Formatı VT'ye yazıyor.)

[ender_arslanturk]

Merhaba

bu kodu deneyemedim doğrulu ne derece doğru bilemiyorum...

Kod: Tümünü seç

if Image1.Picture.Graphic is TBitmap then
begin
      case Image1.Picture.Bitmap.PixelFormat of
     {Find color depth}
      pf1bit: pf := '.  Monochrome';
      pf4bit: pf := '.  16 Colors';
      pf8bit: pf := '.  256 Colors';
      pf15bit: pf := '.  32768 Colors';
      pf16bit: pf := '.  65536 Colors';
      pf24bit: pf := '.  16 Million Colors';
      pf32bit: pf := '.  Gazillions of Colors!';
      else
      pf := '.  Custom color scheme';
      end;
end;

[HBV]

Teşekkür ettim ..Deneyip buraya yazarım.

[HBV]

Kod: Tümünü seç

      pf1bit: pf := '.  Monochrome';

"pf" lerin başında kalıyor...devam etmiyor..

[ender_arslanturk]

type
TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

Merhaba bunuda ekleyebilirmisin.... Kendi sistemimde olmadığım için deneyemiyorum

[HBV]

Malesef yine aynı Arkadaşım,Bu kodlar Çalışmıyor..........?

[ender_arslanturk]

Merhaba

Öncelikle özür dilerim kodları denemeden veriyorum sana. Konuda zaten hassas

Peki Şöyle birşey yapsan image nesnesindeki resmi geçici klasöre kaydedip, sonra api fornksiyonları ile istediğin bilgiyi alıp, tekrar kaydettiğin resmi sildirsen olmazmı .....

Bence bu kesin çözüm....

Başarılar,

[HBV]

Resimleri silmeden arşivdeyken ,Resim dbimagede gösterimdeyken,dbgridde üstüne geldikçe Özelliklerini Label de göstermek istiyorum.Yani arsiv sürekli güncel kalacak.

[ender_arslanturk]

Biraz daha açarmısın....

[Master43]

TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

Kod: Tümünü seç

      pf1bit: pf := '.  Monochrome';

"pf" lerin başında kalıyor...devam etmiyor..

@ender_arslanturk'ün verdiği yukarıya eklediğim tanımlaması Graphics.pas dosyasındadır, uses'a "Graphics"i eklediğinizden emin olunuz. Zira bu kodların normalde çalısması gerekir.
Birde

Kod: Tümünü seç

var 
  pf: String;

tanımlamasını unutmayın.

[HBV]

Once Ilgililendiginiz icin Cok Tesekkur ediyorum.Benim Yapmak istedigim,DBGridde Musteri Listesinde,her hangi bir Musteri nin
sirasina geldikce,Daha once hazirlanan VT`ye kayitli isle ilgili jpeg resimler JvDBImagede gosteriyorum,Yani kayitli Musterilerin
Yaptirdigi isle ilgili ornek desenler,her musterinin resimleri,Adi,piksel Olcusu, renkleri farkli ,JvDBImagede ,Musteri ismine geldikce
Gozuken kayitli Resmin,Tabloda zaten bilgileri elle giriliyor,ama resmin ozelliklerinin dogru oldunu anlamak icin resim JvDBImageye
geldikce Labelde gostermek istiyorum.Bilmem anlatabildimmi.iyi calismalar.

[ender_arslanturk]

Merhaba

Eğer şimdi dbgridde yukarı aşşağı hareket edince bilgilerin gelmesini istiyorsan veya her müşteride ki bilgileri nasıl gösterebilirim diyorsan
DataSource nin OnDataChange Olayına

Kod: Tümünü seç

try
           Label1.Caption:=Query1Renk.Text;
           .
           .
           .
except 
end;

şeklinde de deneyebilirsin.

Örnek olarakta imzamdaki programı indirebilirsin....

Başarılar,

[Master43]

JV Component'inin desteğinden kesin emin değilim ama DataSource1 in DataChage events'ine

Kod: Tümünü seç

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  LabelWidth :=  JVDBImage1.Picture.Bitmap.Width;
  LabelHeight := JVDBImage1.Picture.Bitmap.Height;

  case JVDBImage1.Picture.Bitmap.PixelPerInc of
      pf1bit: LabelRenk := 'Tek renk'; 
      pf4bit: LabelRenk := '.  16 renk'; 
      pf8bit: LabelRenk := '.  256 renk'; 
      pf15bit: LabelRenk := '.  32768 renk'; 
      pf16bit: LabelRenk := '.  65536 renk'; 
      pf24bit: LabelRenk := '.  16 Milyon renk'; 
      pf32bit: LabelRenk := '.  32 Mliyon renk' 
      else LabelRenk := ' Renk bilgisi okunamıyor'; 
  end; 
end;

[/code]

[ender_arslanturk]

Merhaba

try except end kullanmamışsın bazı durumlarda hata alabilirsin.

Başarılar,

[HBV]

Selamlar try except 'i ben eklerim. JvDBImagede bende süpheliyim.Imagede bir çok kod denedim calışıyor. DBImagelerde problem oluyor.verdiğiniz Kod u deneyeceğim tekrar teşekkürler.

Not :Uses e Gerekli Komutlar ekli