مرجع تخصصی برنامه نویسان

انجمن تخصصی برنامه نویسان فارسی زبان

کاربر سایت

Dr-Pantagon

عضویت از 1392/11/01

CKeditor و Watermark

  • چهارشنبه 14 مرداد 1394
  • 15:19
تشکر میکنم

سلام

میخواستم بدونم چه طوری میتونم در  Ckeditor هنگام آپلود عکس یه واترمارک روش بزارم

 

من از طریق لینک همین سایت که آموزش آپلود عکس با ckeditor هست استفاده کردم

 

http://barnamenevisan.org/Articles/Article2207.html

تشکر

پاسخ های این پرسش

تعداد پاسخ ها : 2 پاسخ
کاربر سایت

ایمان مدائنی

عضویت از 1392/01/20

  • چهارشنبه 14 مرداد 1394
  • 15:26
کاربر سایت

Dr-Pantagon

عضویت از 1392/11/01

  • پنجشنبه 15 مرداد 1394
  • 11:24

دوستانی که از Ckeditor استفاده کردین و آپلود میکنین به این صورت handler رو تغییر بدین کپی رایت هم اضافه میشه رو عکس

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports Image = System.Web.UI.WebControls.Image


Public Class Handler : Implements IHttpHandler

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim uploads As HttpPostedFile = context.Request.Files("upload")
        Dim CKEditorFuncNum As String = context.Request("CKEditorFuncNum")
        Dim file As String = System.IO.Path.GetFileName(uploads.FileName)
        uploads.SaveAs(context.Server.MapPath("..\Guest_Upload\upload\") & file)
        
    
        Dim url As String = "../Guest_Upload/upload/" & "upload" & file
        context.Response.Write("<script>window.parent.CKEDITOR.tools.callFunction(" & CKEditorFuncNum & ", """ & "../Guest_Upload/upload/" & file & """);</script>")





        Dim jpg1 As String = context.Server.MapPath("../Guest_Upload/upload/" & file)
        Dim jpg2 As String = context.Server.MapPath("/images/copyright.png")
        Dim jpg3 As String = context.Server.MapPath("../Guest_Upload/upload/" & file)

        Dim img1 As System.Drawing.Image = System.Drawing.Image.FromFile(jpg1)
        Dim img2 As System.Drawing.Image = System.Drawing.Image.FromFile(jpg2)


        Dim width As Integer = img1.Width
        Dim height As Integer = img1.Height

        Dim img3 As New Bitmap(width, height)
        Dim g As Graphics = Graphics.FromImage(img3)

        g.Clear(Color.Transparent)
        g.DrawImage(img1, New Point(0, 0))
        g.DrawImage(img2, New Point(0, 0))

        g.Dispose()
        img1.Dispose()
        img2.Dispose()

        img3.Save(jpg3, ImageFormat.Jpeg)
        img3.Dispose()

        context.Response.[End]()

 

کاربرانی که از این پست تشکر کرده اند

هیچ کاربری تا کنون از این پست تشکر نکرده است

اگر نیاز به یک مشاور در زمینه طراحی سایت ، برنامه نویسی و بازاریابی الکترونیکی دارید

با ما تماس بگیرید تا در این مسیر همراهتان باشیم :)