- 浏览: 122630 次
- 性别:
- 来自: 南宁
-
文章分类
最新评论
引用页的代码:
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 1165在VB中进行数据库记录的查询操作,必需根据打开数据库的 ... -
.net级联删除自联表树结构
2011-07-21 21:35 1055今天同事问我说如何删除树结构的自联表,要求是子树是无限的未知的 ... -
request 操作大全
2011-06-14 11:09 931using System; using System.Web; ... -
。net操作各类时间段获取当前月的1号和月尾
2011-06-09 16:58 1874DateTime dt = DateTime.Now; // ... -
c#连接各类数据库大全
2011-06-01 17:10 1079C#连接SQL数据库 中国 ... -
。net 绑定日期格式化处理
2011-05-09 12:08 851日期和时间的格式化处 ... -
超级简洁的.net防止重复提交数据的处理方法仅仅1行代码
2011-05-09 11:47 770Response.Redirect(Request.Raw ... -
gridview自定义分页样式
2011-01-13 17:13 1272gridview自定义分页样式 2009年12月12日 星期 ... -
GridView分页模版
2011-01-13 17:12 931<PagerTemplate> ... -
.net DateTable的用法
2011-01-13 14:22 849SqlConnection con = new SqlCo ... -
cs vb 链接webconfig的 链接字符串
2011-01-12 22:39 8571.如果这个<add....... />在< ... -
vb.net 生成静态页面列表分页
2010-12-20 15:03 1070Sub test() Dim t As li ... -
.net 的hook 设计
2010-12-09 23:38 1110今天,有个同事问我, ... -
Directory 常用的成员和方法
2010-12-08 11:06 723GetLogicalDrives 检索此计算机上格式为“&l ...
相关推荐
在ASP.NET开发中,处理图片上传、生成缩略图以及添加文字和图片水印是常见的需求,这些功能在网站设计、电商系统、社交媒体平台等应用中尤为重要。下面将详细讲解这些知识点。 首先,**ASP.NET图片上传**是网站与...
在ASP.NET (#C#)开发中,生成缩略图、添加文字水印和图片水印是常见的需求,尤其是在处理网站的图像展示或者保护版权时。下面将详细解释这些概念及其实现方式。 首先,生成缩略图是将一张较大的图片转换为较小尺寸...
在.NET框架中,处理图像操作是一项常见的任务,包括图片上传、生成缩略图、添加文字水印和图片水印等。这些功能广泛应用于网站开发、社交媒体应用、图像处理软件等场景。下面将详细介绍如何在.NET中实现这些功能。 ...
### ASP.NET 图片上传生成缩略图和水印的知识点详解 #### 一、ASP.NET 图片上传原理 在 ASP.NET 开发中,图片上传是一个常见的功能需求。它主要涉及前端用户界面的设计以及后端逻辑处理。前端通常利用 `FileUpload...
在ASP.NET中,上传图片并生成缩略图和水印图是一项常见的需求,特别是在创建网站或者应用程序时,需要处理用户上传的图像。以下是一个关于如何在ASP.NET中实现这个功能的详细说明。 首先,上传图片是通过HTML的`...
这个源码压缩包提供了一套实现图片处理功能的解决方案,包括上传图片、生成缩略图、添加图片水印以及文字水印。下面将详细阐述这些功能的实现原理和相关知识点。 1. 图片上传: 在ASP.NET中,用户可以通过表单提交...
在ASP.NET开发中,处理图片的操作是常见的需求,如生成缩略图、添加水印(包括图片水印和文字水印)等。本压缩包"上传图片生成缩略图、图片水印、文字水印.rar"提供了一套完整的解决方案,适用于网站中需要处理图片...
缩略图的生成、文字水印和图片水印的添加都是通过直接操作图像像素完成的。在实际项目中,你可能需要进一步优化这些方法,例如处理异步操作、优化性能或增加错误处理机制。这些技术对于创建一个功能强大的图片处理...
用户上传图片后,服务器端代码会处理图片,生成缩略图并添加水印,最后返回给客户端。 总结: 本教程详细介绍了如何使用C# ASP.NET来生成图片缩略图并添加水印。通过结合System.Drawing库,我们可以轻松地实现这一...
在ASP.NET开发中,处理图像是一项常见的任务,包括上传图片、生成缩略图、添加水印(图片水印和文字水印)等。这个压缩包文件"ASP.NET-[其他类别]上传图片生成缩略图、图片水印、文字水印.zip"显然包含了一个示例...
在ASP.NET中,实现图片上传、自动生成缩略图以及添加水印的功能是常见的需求,尤其是在构建内容管理系统或电子商务网站时。以下将详细介绍这些技术点。 1. 图片上传: ASP.NET提供了多种方法来处理文件上传。最...
在ASP.NET平台中,开发一个能够处理上传图片并生成缩略图、添加图片水印以及文字水印的功能是一项常见的需求。这个"上传图片生成缩略图、图片水印、文字水印_aspx开发教程.rar"文件很可能是包含了一系列的源代码、...
在ASP.NET开发中,批量文件上传、缩略图生成以及水印添加是常见的功能需求,尤其是在构建内容管理系统或社交媒体平台时。本项目提供了一个自定义控件,旨在简化这些复杂操作,让开发者能够轻松实现这些功能。 批量...
[其他类别]上传图片生成缩略图、图片水印、文字水印_7he7upload(ASP.NET源码).rar
生成缩略图是一项节省服务器资源并优化显示速度的技术。TeamWei.Upload组件支持对上传的图片进行实时处理,创建不同尺寸的缩略图。这在如产品展示、相册浏览等场景下非常实用。开发者可以通过设置参数来指定缩略图的...
在.NET框架中,生成缩略图和添加水印是一项常见的图像处理任务,广泛应用于网站、应用程序和各种多媒体项目。以下是一些关于这个主题的关键知识点: 1. **图像处理库**: - .NET Framework和.NET Core都提供了...