• 13-06-2018, 16:51:59
    #1
    Merhaba Arkadaşlar
    Persits upload ta resim yüklediğimde resim yeniden boyutlandırılıyor ama eklediğim resimin özellikler bölümünün ayrıntılar kısmındaki bilgiler siliniyor, Resim yüklediğimde boyutlandırılması tamamda, özellikler bölümünün ayrıntılar kısmındaki bilgilerin silinmemesi için Persits upload ta nasıl bir şey yapmam gerekiyor,
    yardımlarınızı bekliyorum
  • 13-06-2018, 21:29:36
    #2
    <%
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.PreserveMetadata = True // jpeg nesnesini acmadan bunu ekledik.
    Jpeg.Open Path
    
    %>
    dener misiniz?
  • 14-06-2018, 01:01:49
    #3
    Merhaba Hocam

    nereye uygulayacağımı tam olarak anlayamadım
  • 14-06-2018, 03:02:40
    #4
    47. ve 69. satırlarda bulunan Set Jpeg = Server.CreateObject("Persits.Jpeg") satırlarının hemen altına aşağıraki satırı ekleyip deneyin.
    Jpeg.PreserveMetadata = True
  • 14-06-2018, 15:22:06
    #5
    Hocam Merhaba
    dediğiniz gibi yaptım sayenizde oldu, Allah razı olsun hocam,

    Hocam kusura bakmayın sizden bir isteğim daha olacak, Eklediğim resime ilanın başlığını ekleyerek ( Türkçe karaktersiz ve boşluksuz olarak ) veritabanına, resmin başlığı ve ürettiğim şifreyi, veritabanına nasıl kayıt edebilirim, Misal olarak Hocam ( satilik-araba-1se3W5.jpg ) gibi,

    hocam çok sağolun, bu konudada yardımcı olabilirseniz çok sevinirim,

    her şey için çok teşekkür ederim.
  • 15-06-2018, 11:29:28
    #6
    kodlarınızda var zaten; ' tırkan işaretlerini kaldırıp deneme yazı yazan yere istediğiniz baslık bilgisini girin.
          'Resim Üstüne Yazi Eklemek istersen Alttaki Tirnaklari Kaldir
          'Font = Server.MapPath("fonts/tahomabd.ttf")
          'Text = CHR(10) & "Deneme Yazy"
          'Jpeg.Canvas.Font.Color    = &Hffffff  ' Black
          'Jpeg.Canvas.Font.Align    = 2 ' 0 (left), 1 (right), 2 (center) and 3 (justified)
          'Jpeg.Canvas.Font.Width    = BuyukResimWidth - 5
          'Jpeg.Canvas.Font.Size     = 22
          'Jpeg.Canvas.Font.Spacing  = 2
          'Jpeg.Canvas.Font.Quality  = 10      ' Yazi Kalitesi
          'Jpeg.Canvas.Font.Opacity  = 0.5
          'Jpeg.Canvas.PrintTextEx Text, 0, 0 / 2, Font
  • 16-06-2018, 00:06:27
    #7
    Merhaba Hocam
    Hocam Ramazan bayramın kutlu olsun,
    Hocam benim yapmak istediğim resim üzerine yazı değil, resimin adını eklediğim ilanın başlığını koymak örnek olarak ( satilik-araba-1se3W5.jpg ) gibi
  • 17-06-2018, 13:17:38
    #8
    emlak21 adlı üyeden alıntı: mesajı görüntüle
    Merhaba Hocam
    Hocam Ramazan bayramın kutlu olsun,
    Hocam benim yapmak istediğim resim üzerine yazı değil, resimin adını eklediğim ilanın başlığını koymak örnek olarak ( satilik-araba-1se3W5.jpg ) gibi
    Text = CHR(10) & "Deneme Yazy" kısmını şöyle değiştirin. Onceki mesajımda dediğim kısımdaki tek tırnaklarıda kaldırdığınızı varsayıyorum;
    Text = CHR(10) & Dosyaismi

    verdiğiniz kodlarda başlık bilgisi gelen bir yer yok. bu sekilde yaparsaniz sadece şifrelenmiş text i resme yazar. Diğer kodlarınızı detaylı incelemek gerekir.

    not: alıntı ile cevap verirseniz daha cabuk donus yapabilirim.