Mega Code Archive

 

Categories / Delphi / Graphic

 

[] Tpicture type

//murat turan uses jpeg; IF tclass(Image1.Picture.Graphic.ClassType) = TJPEGImage THEN showmessage('JPEG türünde.') ELSE if tclass(Image1.Picture.Graphic.ClassType) = TBitmap then showmessage('Bitmap türünde.'); // bu işlemi nerede kullandım :? { düşünün Image1 nesnesinde resim var. türü jpeg olsun bunu Image1 nesnesinden export ederken (kaydederken) bmp türünde kaydederseniz o kaydettiğiniz resmi tekrar yüklerken hata oluşuyor uzantı bmp içerip jpg buda resmin yüklenmesini engelliyor bu tür bir şart sayesinde tipi öğrenip ona göre kayıt yaparsanız sorununuz kalmaz. ve tipi öğrendikten sonra kayıt esnasılda uzantıyı sabitler hatayı engellmiş olursunuz }