DBImage deki Resmin Özellikleri.....................
HBV12.08.2005 - 21:02:08
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_arslanturk13.08.2005 - 00:18:57
Merhaba

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


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;
 
HBV13.08.2005 - 09:21:23
Teşekkür ettim ..Deneyip buraya yazarım.
 
HBV13.08.2005 - 15:33:28
pf1bit: pf := '. Monochrome';

"pf" lerin başında kalıyor...devam etmiyor..
 
ender_arslanturk13.08.2005 - 15:48:15

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


Merhaba bunuda ekleyebilirmisin.... Kendi sistemimde olmadığım için deneyemiyorum Embarassed
 
HBV13.08.2005 - 22:43:14
Malesef yine aynı Arkadaşım,Bu kodlar Çalışmıyor..........?
 
ender_arslanturk13.08.2005 - 23:54:29
Merhaba

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

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

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

Başarılar,
 
HBV14.08.2005 - 19:57:43
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_arslanturk14.08.2005 - 21:00:05
Biraz daha açarmısın....
 
Master4315.08.2005 - 09:58:56
TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

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
var
pf: String;
tanımlamasını unutmayın.
 
HBV15.08.2005 - 11:57:39
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_arslanturk15.08.2005 - 12:07:43
Merhaba

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

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


şeklinde de deneyebilirsin.

Örnek olarakta imzamdaki programı indirebilirsin....

Başarılar,
 
Master4315.08.2005 - 13:48:05
JV Component'inin desteğinden kesin emin değilim ama DataSource1 in DataChage events'ine
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_arslanturk15.08.2005 - 14:06:07
Merhaba

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

Başarılar,
 
HBV15.08.2005 - 20:24:05
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
 
ender_arslanturk15.08.2005 - 21:17:52
Birde

image1.Picture:=dbimage1.picture;


şeklinde yapıp dbimageyi gizleyebilirsiniz.....


Başarılar,
 
HBV15.08.2005 - 23:13:40
try
Label1.Caption:=Query1Renk.Text;
.
.
.
except
end;


Bu kod u denedim benim istediğimde bu ama Query1Renk. Kısmında hata veriyor.yani DBGridde kayıtların üstüne geldikçe İlgili resmin özelliklerini.Label e versin.

Fill:array[1..21]of Byte;
Attr:Byte;// 12303 kb = Labelde Gözükecek
Size:Longint;// 150x200 = "
Name:String[12];// doga.jpg = "
Renk:Color; // 16 Milyon = "


Bu Örnekteki gibi ....
 
NOT : Bu sayfa google'un siteyi indekslemesi içindir. www.delphiturkiye.com/forum/ adresini kullanınız!
1998-2006 www.delphiturkiye.com