folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Persist Jpeg İle Birden Fazla Renkli Yazı Yazma Nasıl Yapılır?



Persist Jpeg İle Birden Fazla Renkli Yazı Yazma Nasıl Yapılır?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pesimistzombie
    pesimistzombie's avatar
    Kayıt Tarihi: 14/Haziran/2006
    Erkek

    anlayan bilen var mı?

    örnek kod

    <%
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open Server.MapPath("dosyamiz.gif")
    Jpeg.Canvas.Font.Color = &H000000 ' Kırmızı
    Jpeg.Canvas.Font.Family = "Tahoma" ' Yazi tipi
    Jpeg.Canvas.Font.Bold = False 'kalin
    Jpeg.Canvas.Font.Size = 11 'boyut
    Jpeg.Canvas.Font.Italic = False 'italik
    Jpeg.Canvas.Font.BkMode = "Opaque"
    Jpeg.Canvas.Print 40, 10, "Saat:"
    Jpeg.Canvas.Print 70, 10, ""&time&""
    Jpeg.Canvas.Print 40, 20, "Tarih:"
    Jpeg.Canvas.Print 70, 20, ""&date&""
    Jpeg.SendBinary
    %>



    çıktı alınıyor güzel fakat ben burda saat: ve tarih: yazılarını renkli ve değişik font yapmak istiyorum html kodu kabul etmiyor nasıl yapabilirim? 

    :|
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    BuZuL
    BuZuL's avatar
    Kayıt Tarihi: 09/Eylül/2005
    Erkek

    <%
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open Server.MapPath("dosyamiz.gif")
    Jpeg.Canvas.Font.Color = &H000000 ' Kırmızı
    Jpeg.Canvas.Font.Family = "Tahoma" ' Yazi tipi
    Jpeg.Canvas.Font.Bold = False 'kalin
    Jpeg.Canvas.Font.Size = 11 'boyut
    Jpeg.Canvas.Font.Italic = False 'italik
    Jpeg.Canvas.Font.BkMode = "Opaque"
    Jpeg.Canvas.Font.Color = &ff0000                         ' YAZI RENGİ
    Jpeg.Canvas.Font.Family = "Arial"                        ' YAZI FONTU
    Jpeg.Canvas.Print 40, 10, "Saat:"
    Jpeg.Canvas.Print 70, 10, ""&time&""
    Jpeg.Canvas.Print 40, 20, "Tarih:"
    Jpeg.Canvas.Print 70, 20, ""&date&""
    Jpeg.SendBinary
    %>

     

    Buyur hacı işini görür

    DAĞDA ÜÇ BEŞ KOYUN SÜRÜSÜ, TUTTURMUŞ BİR KÜRDİSTAN TÜRKÜSÜ, ELİNE ALMIŞ BAYRAK DİYE BİR MASA ÖRTÜSÜ, SATSAN BEŞ PARA ETMEZ NE DİRİSİ NE DE ÖLÜSÜ, SOYU SOYSUZ OLAN SENSİN TOPRAK SENİN NEYİNE, İTE İTLİK YAPIP KAFA TUTMA BEYİNE, ANLASA DEDİĞİMİ SOKAKTAKİ KÖPEK AĞLAR HALİNE, DUY ULAN SOYSUZ NE MUTLU TÜRKÜM DİYENE.......
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pesimistzombie
    pesimistzombie's avatar
    Kayıt Tarihi: 14/Haziran/2006
    Erkek
    hoca kırmızıyla yazdıkların kodların arasında aynen var zaten benim istediğim o deildi yani ben ekrana tarih: 12/12/2007 saat:00:00:00 şeklinde yazdırcam ama tarih: ve saat: olan kısımlar kırmızı olcak gerisi siyah :D
    :|
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    BuZuL
    BuZuL's avatar
    Kayıt Tarihi: 09/Eylül/2005
    Erkek

    <%
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open Server.MapPath("dosyamiz.gif")
    Jpeg.Canvas.Font.Color = &H000000 ' Kırmızı
    Jpeg.Canvas.Font.Family = "Tahoma" ' Yazi tipi
    Jpeg.Canvas.Font.Bold = False 'kalin
    Jpeg.Canvas.Font.Size = 11 'boyut
    Jpeg.Canvas.Font.Italic = False 'italik
    Jpeg.Canvas.Font.BkMode = "Opaque"
    Jpeg.Canvas.Font.Color = &ff0000                         ' YAZI RENGİ
    Jpeg.Canvas.Print 40, 10, "Saat:"
    Jpeg.Canvas.Font.Color = &000000                         ' YAZI RENGİ
    Jpeg.Canvas.Print 70, 10, ""&time&""
    Jpeg.Canvas.Font.Color = &ff0000                        ' YAZI RENGİ
    Jpeg.Canvas.Print 40, 20, "Tarih:"
    Jpeg.Canvas.Font.Color = &000000                         ' YAZI RENGİ
    Jpeg.Canvas.Print 70, 20, ""&date&""
    Jpeg.SendBinary
    %>

    böyle çalışmıyormu :S

    http://img464.imageshack.us/my.php?image=asdfsdfay5.jpg  ben böyle bi güvenlik kodu şeysi yazmıştım bi ara

    DAĞDA ÜÇ BEŞ KOYUN SÜRÜSÜ, TUTTURMUŞ BİR KÜRDİSTAN TÜRKÜSÜ, ELİNE ALMIŞ BAYRAK DİYE BİR MASA ÖRTÜSÜ, SATSAN BEŞ PARA ETMEZ NE DİRİSİ NE DE ÖLÜSÜ, SOYU SOYSUZ OLAN SENSİN TOPRAK SENİN NEYİNE, İTE İTLİK YAPIP KAFA TUTMA BEYİNE, ANLASA DEDİĞİMİ SOKAKTAKİ KÖPEK AĞLAR HALİNE, DUY ULAN SOYSUZ NE MUTLU TÜRKÜM DİYENE.......
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    pesimistzombie
    pesimistzombie's avatar
    Kayıt Tarihi: 14/Haziran/2006
    Erkek
    abow oldu valla süper sağol :D
    :|
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    BuZuL
    BuZuL's avatar
    Kayıt Tarihi: 09/Eylül/2005
    Erkek
    eyv sende sagolasın
    DAĞDA ÜÇ BEŞ KOYUN SÜRÜSÜ, TUTTURMUŞ BİR KÜRDİSTAN TÜRKÜSÜ, ELİNE ALMIŞ BAYRAK DİYE BİR MASA ÖRTÜSÜ, SATSAN BEŞ PARA ETMEZ NE DİRİSİ NE DE ÖLÜSÜ, SOYU SOYSUZ OLAN SENSİN TOPRAK SENİN NEYİNE, İTE İTLİK YAPIP KAFA TUTMA BEYİNE, ANLASA DEDİĞİMİ SOKAKTAKİ KÖPEK AĞLAR HALİNE, DUY ULAN SOYSUZ NE MUTLU TÜRKÜM DİYENE.......
    Reply With Quote Alıntı yap
Toplam Hit: 2655 Toplam Mesaj: 6