- 浏览: 117344 次
- 性别:
- 来自: 南宁
文章分类
最新评论
引用页的代码:
Imports dll图片水印缩略图
Partial Class _Default
Inherits System.Web.UI.Page
Private imageutile As dell图片缩略图水印 = New dell图片缩略图水印
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim imagehz As String() = {".jpg", ".jpge", ".png", ".gif", ".bmp"}
'(ByVal Fup上传控件 As FileUpload, ByVal strimage As String(), ByVal image缩略图 As Image, ByVal lab错误提示
'str水印图片路径 As String, ByVal str图片保存路径 As String, ByVal str水印文字 As String, ByVal x水印坐标 As Integer, ByVal y水印坐标 As Integer, ByVal 缩略图高 As String, ByVal 缩略图宽 As String, ByVal 文字 As Boolean, ByVal 图片 As Boolean
Me.imageutile.upimage图片上传设置水印(Me.FileUpload1, imagehz, Me.Image1, Me.Label1, "image/logo.jpg", "imagelocal", "weizhigan", 30, 30, 100, 150, True, False)
End Sub
End Class
附加库文件下载和测试工程下载
dll的代码在公司了,今天写完dll的代码后直接拷贝dll文件回来而已,代码没拷贝回来
如果对dll代码感兴趣的给我留言留下你的邮件我发给各位
早上忙,没能补dll的代码上来现在发布
Public Class dell图片缩略图水印
'
'
'上传图片缩略
Sub upimage图片上传设置水印(ByVal Fup上传控件 As FileUpload, ByVal strimage As String(), ByVal image缩略图
As Image, ByVal lab错误提示 As Label, ByVal str水印图片路径 As String, ByVal str图片保存路径 As String, ByVal str
水印文字 As String, ByVal x水印坐标 As Integer, ByVal y水印坐标 As Integer, ByVal 缩略图高 As String, ByVal 缩略图
宽 As String, ByVal 文字 As Boolean, ByVal 图片 As Boolean)
Dim imagelocal = str图片保存路径 ' "~/imagelocal"
Dim iname As String ' 文件保存名
Dim flash是否继续 As Boolean = False
If Not (Fup上传控件.PostedFile Is Nothing) Then '上传的图片不为空的时候进行一下操作
Dim namestr1 As String = (Fup上传控件.PostedFile.FileName) '获取上传的文件名
Dim j As Integer = namestr1.LastIndexOf(".")
Dim newname As String = namestr1.Substring(j) '图片得到后辍名
For k As Int32 = 0 To strimage.Length - 1 Step 1
If newname = strimage(k) Then
flash是否继续 = True '
End If
Next k
If flash是否继续 Then
iname = CStr(Now.ToFileTimeUtc) '随机的文件名(不会重复)
Dim newnames As String = iname + newname '重新组合文件名
'是否保存原图?
'Fup上传控件.PostedFile.SaveAs(System.Web.HttpContext.Current.Server.MapPath(imagelocal) + "/" +
newnames) '保存文件到文件夹
Dim image, sImage, stimgs As System.Drawing.Image
image = System.Drawing.Image.FromStream(Fup上传控件.PostedFile.InputStream) '得到原图
Dim imagelocals As String = HttpRuntime.AppDomainAppPath
Dim files As New System.IO.FileStream(imagelocals + "/" + str水印图片路径, IO.FileMode.Open,
IO.FileAccess.ReadWrite) '实例化FileStream类()
stimgs = System.Drawing.Image.FromStream(files) '即将把获得的水印图流写入
files.Close() '关闭流
Dim width As Decimal = image.Width '得到原图的宽
Dim height As Decimal = image.Height '得到原图的高
Dim swidth As Decimal = stimgs.Width
Dim sheight As Decimal = stimgs.Height
Dim newwidth, newheight As Integer '定义缩略图的大小
If 缩略图高 > 0 And 缩略图宽 > 0 Then
newwidth = 缩略图宽
newheight = 缩略图高
Else
'计算缩略图的大小
If (width > height) Then
newwidth = 150
newheight = CInt(height / width * 150)
Else
newheight = 150
newwidth = CInt(width / height * 150)
End If
End If
sImage = image '.GetThumbnailImage(width, height, Nothing, IntPtr.Zero) '返回image的缩略图
Dim output As Drawing.Bitmap = New Drawing.Bitmap(sImage) '设置缩略图为位图
Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(output) '即将用绘画类画出图片
'设计文字水印的位置
'如果没有设定文字水印坐标就进行默认位置
Dim x As Integer = x水印坐标
Dim y As Integer = y水印坐标
Dim fonts As New Drawing.Font("Tw Cen MT", 18) '默认的水印字体和大小
'给缩略图加上文字水印
'如果设置了文字水印
If 文字 Then
If str水印文字 = "" Then
g.DrawString("顶佳技术中心", fonts, New Drawing.SolidBrush(Drawing.Color.Red), (width - x),
(height - y)) '给图片设置文字水印
Else
g.DrawString(str水印文字, fonts, New Drawing.SolidBrush(Drawing.Color.Red), (width - x), (height -
y)) '给图片设置文字水印
End If
End If
'给缩略图加上图片水印
'如果设置了图片水印
If 图片 Then
If str水印图片路径 = "" Then
g.DrawString("顶佳软件提醒你:图片未找到!", fonts, New Drawing.SolidBrush(Drawing.Color.Red),
(width - x), (height - y)) '给图片设置文字水印
Else
g.DrawImage(stimgs, (width - swidth - x), (height - sheight - y)) '给图片设置图片水印
End If
End If
output.Save(System.Web.HttpContext.Current.Server.MapPath(imagelocal) + "/s_" + newnames,
System.Drawing.Imaging.ImageFormat.Jpeg)
'保存缩略图到Simagelocal文件夹
image缩略图.Height = newheight
image缩略图.Width = newwidth
image缩略图.Visible = True
image缩略图.ImageUrl = "../" + imagelocal + "/s_" + newnames
Else
lab错误提示.Text = "你要上传的图片不符合类型"
End If
End If
End Sub
End Class
- dll.zip (18.3 KB)
- 下载次数: 10
- 测试图片水印dll.zip (195 KB)
- 下载次数: 17
发表评论
-
v6 常用数据操做 VB数据库记录集查询四种方法
2012-02-26 15:09 1088在VB中进行数据库记录的查询操作,必需根据打开数据库的 ... -
.net级联删除自联表树结构
2011-07-21 21:35 1005今天同事问我说如何删除树结构的自联表,要求是子树是无限的未知的 ... -
request 操作大全
2011-06-14 11:09 877using System; using System.Web; ... -
。net操作各类时间段获取当前月的1号和月尾
2011-06-09 16:58 1792DateTime dt = DateTime.Now; // ... -
c#连接各类数据库大全
2011-06-01 17:10 1017C#连接SQL数据库 中国 ... -
。net 绑定日期格式化处理
2011-05-09 12:08 813日期和时间的格式化处 ... -
超级简洁的.net防止重复提交数据的处理方法仅仅1行代码
2011-05-09 11:47 672Response.Redirect(Request.Raw ... -
gridview自定义分页样式
2011-01-13 17:13 1232gridview自定义分页样式 2009年12月12日 星期 ... -
GridView分页模版
2011-01-13 17:12 895<PagerTemplate> ... -
.net DateTable的用法
2011-01-13 14:22 812SqlConnection con = new SqlCo ... -
cs vb 链接webconfig的 链接字符串
2011-01-12 22:39 8161.如果这个<add....... />在< ... -
vb.net 生成静态页面列表分页
2010-12-20 15:03 998Sub test() Dim t As li ... -
.net 的hook 设计
2010-12-09 23:38 1045今天,有个同事问我, ... -
Directory 常用的成员和方法
2010-12-08 11:06 676GetLogicalDrives 检索此计算机上格式为“&l ...
相关推荐
ASP.NET图片上传,生成缩略图,加文字、图片水印
asp.net(#C)生成缩略图,加文字水印,加图片水印的类(自己一直在用,不错啊,推荐给大家用)
ASP.NET源码——上传图片生成缩略图、图片水印、文字水印.zip
根据用户所上传的图片进行缩略、添加文字水印和图片水印;
asp.net图片上传自动生成缩略图、图片水印、文字水印
ASP.NET-[其他类别]上传图片生成缩略图、图片水印、文字水印.zip
[其他类别]上传图片生成缩略图、图片水印、文字水印_7he7upload(ASP.NET源码).rar
ASP.NET 使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字水印和图片的水印! 值得下载看看!资源免费,大家分享!!
1.清晰文字边缘(文字水印); 2.图片旋转加水印; 3.水印位置旋转控制精准度; 4.原图自定义删除; 5.图像亮度、对比度、RGB颜色值的调整; 6.可获取生成后的图片路径; 7.图片无损生成; 8.水印文字阴影禁启用; 9....
【程序老媛出品,必属精品,亲测校正,质量保证】 ...源码说明:这是一款非常实用的图片上传的例子,包含了图片上传、生成缩略图、加文字水印、图片水印功能 适合人群:新手及有一定经验的开发人员
自己写的控件,支持批量文件和图片上传,可以为图片添加多种尺寸的缩略图,支持图片和文字水印,调用简单,多种参数设置
3.生成缩略图; 4.文字水印和图片水印,支持水印任意位置和角度旋转,水印的不透明度; 5.文字水印支持阴影、不透明度、阴影深度; 6.生成的所有图片都可以自定义存放路径; 7.自定义文字水印颜色和阴影颜色、文字...
版本更新到2.3.0.1,修复了一点小bug和参数设置,支持批量文件和图片上传,可以为图片添加多种尺寸的缩略图,支持图片和文字水印,调用简单,多种参数设置 by.teamwei
C#版Gif水印代码,可以用于asp.net网站,c#项目 该gif水印代码,解决了生成gif水印不清楚,有黑色横线,以及gif透明等问题...gif文字水印,gif图片水印,gif图片缩略图,-非常难得的源代码,亲测可用代码,非dll,有保证。
[其他类别]上传图片生成缩略图、图片水印、文字水印_7he7upload.zip源码ASP.NET网站源码打包下载[其他类别]上传图片生成缩略图、图片水印、文字水印_7he7upload.zip源码ASP.NET网站源码打包下载[其他类别]上传图片...
功能齐全的.Net缩略图水印组件V2.0正式版,提供图片旋转加水印、图片无损生成、水印文字中文字竖形排列,增加文字纵横排列参数开关、水印图片过滤背景色等功能。