//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
}