ASPJPEG — это условно-бесплатная программа, разработанная Persits. Пробный период составляет 30 дней. Вы можете скачать ее здесь: http://www.persits.com/aspjpeg.exe. Последний номер версии — 1.3.
ASPJPEG — очень мощный компонент обработки изображений. Его можно использовать для легкого создания миниатюр изображений и добавления водяных знаков к изображениям. Вот краткое введение в то, как его использовать:
Сначала вам необходимо запустить загруженный exe-файл для установки компонента.
1. Создайте миниатюры для изображений.
<% ///' Создать экземпляр
Тусклый Jpeg, Путь
Установить Jpeg = Server.CreateObject(Persits.Jpeg)
///' Местоположение картинки
Путь = Server.MapPath(изображения) & ////lock.jpg
///' Открыть
Jpeg.Открытый путь
///' Установите размер миниатюры (здесь соотношение установлено на 50%)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
///' Сохраняем миниатюру в указанную папку
Jpeg.Save Server.MapPath(изображения) & //// clock_small.jpg
///' Экземпляр выхода из системы
Установить Jpeg = Ничего
%>
<IMG SRC=images/lock.jpg><P>
<IMG SRC=images/lock_small.jpg>
2. Добавьте функцию водяных знаков к изображениям.
<%
ДимДжпег
///' Создать экземпляр
Установить Jpeg = Server.CreateObject(Persits.Jpeg)
///' Открываем целевое изображение
Jpeg.Open Server.MapPath(images/dodge_viper.jpg)
///' Добавляем текстовый водяной знак
Jpeg.Canvas.Font.Color = &HFF0000///' Красный
Jpeg.Canvas.Font.Family = Династия Сун
Jpeg.Canvas.Font.Bold = Истина
Jpeg.Canvas.Print 10, 10, Авторские права (c) Cnmaya.org
///' Сохраняем файл
Jpeg.Save Server.MapPath(images/dodge_viper_framed.jpg)
///' Отменяем регистрацию объекта
Установить Jpeg = Ничего
%>
В прошлый раз я сделал водяной знак для изображения, но эффект был очень плохим. Мне не удалось сделать изображение прозрачным. Если я использую прозрачный фон gif, он автоматически заполнится белым. При использовании функции удаления определенного цвета цвет изображения всегда нечистый и результирующий эффект получается пятнистый. Сегодня у меня возникла идея, и я объединил эти две идеи, используя гифку с прозрачным фоном и извлекая цвет фона водяного знака, и это сработало!
ogvbox.Canvas.Pen.Color = &H000000 ///'// Цвет границы
ogvbox.Canvas.Pen.Width = 1 ///'// Толщина границы
ogvbox.Canvas.Brush.Solid = False ///'// Заполнять ли границу изображения цветом
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF ///'// Добавляем координаты положения изображения (добавляем изображение водяного знака), я вычитаю размер водяного знака из размера изображения, и добавьте водяной знак в нижний правый угол. Порядок параметров следующий: горизонтальные координаты, вертикальные координаты, адрес изображения водяного знака, прозрачность ртути, цвет извлечения (&H означает шестнадцатеричный код).
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// Координаты положения и размер линии границы изображения
ogvbox.Save Server.MapPath(imagename) ///'// Создать файл
/'//------Предварительный просмотр и создание водяных знаков компонента Pollener.comAspJpeg ------ Начало ------
/'Создать изображение предварительного просмотра: вызов CreateView (путь к исходному файлу, имя и путь к файлу предварительного просмотра)
Sub CreateView (имя изображения, tempFilename)
/'Определить переменные.
Dim PreviewImageFolderName
Тусклый ogvbox,objFont
Тусклый логотип, LogoPath
LogoPath = Server.MapPath(images) & //shuiyin.gif /'//Добавьте путь и имя файла изображения (у меня форум //images//shuiyin.gif).
Выберите Загрузить обращение_ViewType
Случай 0
/'---------------------CreatePreviewImage---------------
установите ogvbox = Server.CreateObject(CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'Путь хранения изображений предварительного просмотра.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'Ширина предварительного просмотра.
ogvbox.SetImageFile = Trim(Server.MapPath(imagename)) /'Физический путь к исходному файлу с именем imagename.
/'Создайте файл изображения предварительного просмотра.
Если ogvbox.DoImageProcess=false Тогда
Response.write генерирует ошибку изображения предварительного просмотра:&ogvbox.GetErrString
Конец, если
Случай 1
/'---------------------AspJpegV1.2---------------
Установить логотип = Server.CreateObject(Persits.Jpeg)
//'//Рекомендуется не использовать графические и текстовые водяные знаки одновременно. Этот код использует графические водяные знаки.
Logobox.Open LogoPath /'//Прочитайте добавленное изображение.
//'//Сброс размера изображения.
Logobox.Width = 186 /'//Значение ширины (в пикселях) изображения, используемого в качестве водяного знака.
Logobox.Height = 52 /'//Значение высоты (в пикселях) изображения, используемого в качестве водяного знака.
//'//Добавить водяной знак.
Установите ogvbox = Server.CreateObject(Persits.Jpeg)
////Читаем исходный файл, подлежащий обработке.
ogvbox.Open Trim(Server.MapPath(имя изображения))
Если ogvbox.OriginalWidth<Cint(ImageWidth) или ogvbox.Originalheight<Cint(ImageHeight) Тогда
F_Viewname=
Установить ogvbox = Ничего
Выход из подменю
Еще
IF ImageMode<> и FileExt<>gif then /'//Если вы измените эту строку на IF ImageMode<>, вы также можете добавлять водяные знаки к загруженным изображениям GIF, но эти анимированные GIF-изображения останутся только после добавления водяного знака. это первый кадр. Пожалуйста, обращайтесь с ним в соответствии со своими потребностями.
//'//Об изменении шрифта и цвета текста.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'//Цвет текста водяного знака, введите значение цвета после &H.
/'//ogvbox.Canvas.Font.Size = 18 /'//Размер текста водяного знака.
/'//ogvbox.Canvas.Font.Family = Arial /'//Имя шрифта текста водяного знака.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 /'//Цвет тени текста водяного знака.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'//Значение пикселя тени текста водяного знака смещается вправо. Если вы введете отрицательное значение, оно будет смещено влево.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'//Значение пикселя, на которое тень текста водяного знака смещается вниз. Если вы введете отрицательное значение, она будет смещена вправо.
/'//ogvbox.Canvas.Font.Quality = 3 /'//Четкость текста водяного знака варьируется от 0 до 4. Изменение не очень большое. Рекомендуется использовать 2 или 3.
/'//ogvbox.Canvas.Font.Bold = True /'//Если текст водяного знака выделен жирным шрифтом, True=жирный False=нормальный.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//Начальные координаты (пиксели) текста водяного знака.
ogvbox.Canvas.Pen.Color = &H000000 /'//Добавьте водяной знак к цвету границы изображения.
ogvbox.Canvas.Pen.Width = 1 //'//Увеличьте ширину границы изображения после нанесения водяного знака.
ogvbox.Canvas.Brush.Solid = False /'//Если граница заполнена цветом, вы можете попробовать ее, чтобы увидеть эффект, когда значение равно True^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 /'//Начальные координаты изображения водяного знака Здесь ogvbox.width-186, ogvbox.height-52 означает, что изображение находится в папке. нижний правый угол, т.к. ширина моей картинки 186, а высота 52, поэтому если написать так, то можно подогнать под свою картинку. 0,5 означает прозрачность, здесь я имею в виду полупрозрачность, 1 означает непрозрачность, вы также можете попробовать 0,7 или 0,8, чтобы увидеть эффект.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//Доступный диапазон водяных знаков. Я имею в виду, что водяной знак можно добавить где угодно, от верхнего левого угла до нижнего правого угла всего изображения.
ogvbox.Save Server.MapPath(imagename) /'//Сгенерируйте файл изображения с добавленным водяным знаком на основе вышеуказанных параметров.
Конец, если
ogvbox.Width = Ширина изображения
ogvbox.height = Высота изображения
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.Резкость 1, 120
ogvbox.Save Server.MapPath(tempFilename) /'//Создать изображение предварительного просмотра после добавления водяного знака.
Конец, если
Установить логотип=Ничего
/'//------Предварительный просмотр и создание водяных знаков компонента Pollener.comAspJpeg ------ Конец ------