Galerinden resim eklediğim zaman yönünün değişmesi

[codder71]

Merhabalar

Bir projemde galeriden resim kullanılmasını istiyorum fakat söyle bir sorunum var. Eklediğim resimler sadece kameradan çekilmiş olanlar sola doğru 90 derece dönmüş olarak geliyor bunun sebebi nedir ? Siz üstatlarım dan yardım bekliyorum. 

Şimdiden hepinize teşekkürler ederim. İyi çalışmalar dilerim.

[hi_selamlar]

(21-06-2023, Saat: 17:13)codder71 Adlı Kullanıcıdan Alıntı: Merhabalar

Bir projemde galeriden resim kullanılmasını istiyorum fakat söyle bir sorunum var. Eklediğim resimler sadece kameradan çekilmiş olanlar sola doğru 90 derece dönmüş olarak geliyor bunun sebebi nedir ? Siz üstatlarım dan yardım bekliyorum. 

Şimdiden hepinize teşekkürler ederim. İyi çalışmalar dilerim.

Merhabalar,

Daha önce oluşturulan dosyanın EXIF verilerine ulaşarak resmin rotate bilgisini alıp ona göre kendiniz gösterim esnasında döndüre bilirsiniz.







Kolay gelsin.

[codder71]

(17-07-2023, Saat: 10:15)hi_selamlar Adlı Kullanıcıdan Alıntı:

(21-06-2023, Saat: 17:13)codder71 Adlı Kullanıcıdan Alıntı: Merhabalar

Bir projemde galeriden resim kullanılmasını istiyorum fakat söyle bir sorunum var. Eklediğim resimler sadece kameradan çekilmiş olanlar sola doğru 90 derece dönmüş olarak geliyor bunun sebebi nedir ? Siz üstatlarım dan yardım bekliyorum. 

Şimdiden hepinize teşekkürler ederim. İyi çalışmalar dilerim.

Merhabalar,

Daha önce oluşturulan dosyanın EXIF verilerine ulaşarak resmin rotate bilgisini alıp ona göre kendiniz gösterim esnasında döndüre bilirsiniz.







Kolay gelsin.

Hocam öncelikle cevabınız için çok teşekkürler.

Bu videodan yola çıkarak altta paylaştığım gibi bir function türettim fakat burada belirtildiği gibi bir sonuç alamıyorum. Galiba bu orada belirtilen fotoğraf makinasından alınan resimler için geçerli olabilir. Burada nasıl bir düzenleme yapabiliriz dönen değerleri inceledim her resimde farklı bir rakam dönüşü alıyorum ondan kod istediğim gibi çalışmadı maalesef.

function Image_Rotate(Bitmap: TBitmap): TBitmap;
var
 Memory : TMemoryStream;
 MemByte : Byte;
begin
 Memory := TMemoryStream.Create;

 Bitmap.SaveToStream( Memory );

 MemByte := ( PByte( Memory ) + 66 )^ ;

 case MemByte of
   6 : Bitmap.Rotate( 90 );
   8 : Bitmap.Rotate( -90 );
 end;

 Result := Bitmap;

 Memory.Free;

end;

[hi_selamlar]

(17-07-2023, Saat: 16:05)codder71 Adlı Kullanıcıdan Alıntı:

(17-07-2023, Saat: 10:15)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Daha önce oluşturulan dosyanın EXIF verilerine ulaşarak resmin rotate bilgisini alıp ona göre kendiniz gösterim esnasında döndüre bilirsiniz.







Kolay gelsin.

Hocam öncelikle cevabınız için çok teşekkürler.

Bu videodan yola çıkarak altta paylaştığım gibi bir function türettim fakat burada belirtildiği gibi bir sonuç alamıyorum. Galiba bu orada belirtilen fotoğraf makinasından alınan resimler için geçerli olabilir. Burada nasıl bir düzenleme yapabiliriz dönen değerleri inceledim her resimde farklı bir rakam dönüşü alıyorum ondan kod istediğim gibi çalışmadı maalesef.

function Image_Rotate(Bitmap: TBitmap): TBitmap;
var
 Memory : TMemoryStream;
 MemByte : Byte;
begin
 Memory := TMemoryStream.Create;

 Bitmap.SaveToStream( Memory );

 MemByte := ( PByte( Memory ) + 66 )^ ;

 case MemByte of
   6 : Bitmap.Rotate( 90 );
   8 : Bitmap.Rotate( -90 );
 end;

 Result := Bitmap;

 Memory.Free;

end;

Merhabalar,

https://www.delphican.com/showthread.php?tid=2655
İnceleyin lütfen.

https://www.google.com/search?q=delphi+fmx+EXIF+image+raotation

Kolay gelsin.

[codder71]

(18-07-2023, Saat: 18:35)hi_selamlar Adlı Kullanıcıdan Alıntı:

(17-07-2023, Saat: 16:05)codder71 Adlı Kullanıcıdan Alıntı: Hocam öncelikle cevabınız için çok teşekkürler.

Bu videodan yola çıkarak altta paylaştığım gibi bir function türettim fakat burada belirtildiği gibi bir sonuç alamıyorum. Galiba bu orada belirtilen fotoğraf makinasından alınan resimler için geçerli olabilir. Burada nasıl bir düzenleme yapabiliriz dönen değerleri inceledim her resimde farklı bir rakam dönüşü alıyorum ondan kod istediğim gibi çalışmadı maalesef.

function Image_Rotate(Bitmap: TBitmap): TBitmap;
var
 Memory : TMemoryStream;
 MemByte : Byte;
begin
 Memory := TMemoryStream.Create;

 Bitmap.SaveToStream( Memory );

 MemByte := ( PByte( Memory ) + 66 )^ ;

 case MemByte of
   6 : Bitmap.Rotate( 90 );
   8 : Bitmap.Rotate( -90 );
 end;

 Result := Bitmap;

 Memory.Free;

end;

Merhabalar,

https://www.delphican.com/showthread.php?tid=2655
İnceleyin lütfen.

https://www.google.com/search?q=delphi+fmx+EXIF+image+raotation

Kolay gelsin.

Hocam çok teşekkür ederim cevabınız için konuları inceleyeceğim.