FMX hali de çok farklı değil. Download Linki
Type tFotoEXIF = Record aWidth, aHeight : Integer; aFotoYonuKodu : Integer; End; function FotoBilgileri( Foto: TImage; FotoFileName:String ): tFotoEXIF; Var aFS : TFileStream; aByte : Byte; begin Foto.Bitmap.LoadFromFile( FotoFileName ); Result.aWidth := Foto.Bitmap.Width; Result.aHeight := Foto.Bitmap.Height; aFS := TFileStream.Create( FotoFileName, fmOpenRead or fmShareDenyNone ); // 36hex offset'de aFS.Seek( StrToInt('$36'), soBeginning ); aFS.ReadBuffer( aByte, SizeOf(Byte)); aFS.Free; Result.aFotoYonuKodu := Integer(aByte); end; procedure TForm1.Button1Click(Sender: TObject); Var aFotoBilgi : tFotoEXIF; begin if ListBox1.ItemIndex = -1 then exit; aFotoBilgi := FotoBilgileri( Image1, '.\Foto(s)\' + ListBox1.Items[ListBox1.ItemIndex] ); Memo1.Lines.Add( StringOfChar( '-', 80 ) ); Memo1.Lines.Add( Format(' Çözünürlük : %d x %d', [ aFotoBilgi.aWidth, aFotoBilgi.aHeight ]) ); case aFotoBilgi.aFotoYonuKodu of 01: Memo1.Lines.Add('Yatay - Telefon Düzgün'); 06: Memo1.Lines.Add('Dikey - Telefon Düzgün'); 03: Memo1.Lines.Add('Yatay - Telefon Ters'); 08: Memo1.Lines.Add('Dikey - Telefon Ters'); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.WordWrap := False; Memo1.ShowScrollBars:= True; end;
Saygılarımla
Muharrem ARMAN
Muharrem ARMAN