FireBird 1.5 te oluşturduğum bir blob alan var Binary buraya TcxDBImage ile JPEG formatında resim kaydediyorum.Load ile yüklediğim resimlerde bir sorun yok ama DelphiTwain Nesnesi kullanarak Scanner'den resim tarıyorum ve belleğe ttmMemory ile atıyorum . DelphiTwain nesnesi taradığı resmi TBitmap olarak geri döndürüyor bende bunu
Kod: Tümünü seç
MemStr:TMemoryStream;
JPGresim: TJpegImage;
begin
MemStr:=TMemoryStream.Create;
JPGresim := TJpegImage.Create;
JPGresim.Assign(Image);
JPGresim.SaveToStream(MemStr);
MemStr.Position := 0;
TBlobField(qryCariResim.FieldByName('CARI_RESIM')).LoadFromStream(MemStr);
kodu ile Jpeg formatına çeviriyorum ve memory'ye yükleyip Field'a aktarıyorum. ama bazen resim sağa doğru yatık olarak tarıyor(yani bozuk çıkıyor). Çeviriden mi kaynaklananıyor diye düşündüm ve Form üzerine TImage Nesnesi ekledim ve Tbitmap olarak tarama sonucunu çevirmeden resmi buraya attım ama sonuç çeviri ile aynı yani bozuk neden kaynaklanıyor olabilir.